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

#-LISPM (error "Do you really expect this to work on a ~A ?" (machine-type))


(login-setq *read-base* 10.			; Human bases
	    *print-base* 10.
	    fs:user-personal-name "Cerrato, Peter F."
	    fs:user-personal-name-first-name-first "Peter F. Cerrato")

(send tv:initial-lisp-listener :set-more-p nil)
(send tv:initial-lisp-listener :set-deexposed-typeout-action :permit)
(send tv:initial-lisp-listener :set-deexposed-typein-action :notify)

;(load "dj;pfc;tools")

;(load "dj:wkf;zwei-init")

;(load-patches :noselective)

;; Set up more readable fonts ...


(gc:gc-on :degree 1)