;;; -*- 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")

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

(setq  fs:user-host-password-alist '((("wkf" "GSI-CAM") "") (("wkf" "GSI-DJINN") "")))

(defun my-time ()
  (multiple-value-bind (s m h)
      (time:get-time)
    (format nil "~s:~s:~s" h m s)))

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