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

(setq zwei:*notify-on-new-mail-in-background* :CONVERSE)



(defun kom-to-buf ()
  (setq nc:*debug-stream* (open "ed-buffer:compiler-output" :direction :output))
  (nc:debug-on :post))

(defun kom-to-buf-off ()
  (nc:debug-off :post)
  (close nc:*debug-stream*)
  (setq nc:*debug-stream* t))



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