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

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

(gc:gc-on)

(login-setq *read-base*                             10.
	    *print-base*                            10.
	    si:user-id                              "wkf"
	    fs:user-personal-name                   "Foster, William K."
	    fs:user-personal-name-first-name-first  "William K. Foster"
	    zwei:*notify-on-new-mail-in-background* :CONVERSE
	    fs:user-host-password-alist             '((("wkf" "GSI-CAM") "") (("wkf" "GSI-DJINN") "")))

(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)

(defsystem wkf
  (:name "WKF")
  (:short-name "WKF")
  (:pathname-default "dj:wkf;")
  (:module lisp-custom "lisp-init")
  (:module zwei-custom "zwei-init" "dj:smh;isearch")
  (:compile-load lisp-custom () ())
  (:compile-load zwei-custom (lisp-custom) (lisp-custom)))

(make-system 'wkf :compile :noconfirm)