;;; -*- Mode:LISP; Readtable:CL; Package:USER -*-


(load "DJ:RSG;UTILS.QFASL")

(setq SI:USER-ID "rsg"
      *PRINT-CIRCLE* t)

(setq *PRINT-BASE* 10.
      *READ-BASE* 10.
      ZUNDERFLOW t)

(IF (Y-OR-N-P "Load patches? ")
    (SI:LOAD-PATCHES ':NOSELECTIVE))

(terpri)
(write-string "Do (COMMON-LISP t t) if wanted.")
(terpri)

;; End.