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

(login-setq
  si:user-id				 "Renaud"
  *package* si:pkg-user-package
  *read-base* 10.
  *print-base* 10.
  zwei:*notify-on-new-mail-in-background* nil
  zwei:*inhibit-background-mail-checks* t
  zwei:*from-user-id* "renaud"
  zwei:*from-host* (si:parse-host "GSI-CAM"))

(gc:gc-on :degree 2)

(load-patches :noselective))

(fs:file-host-user-id "renaud" (si:parse-host "ANGEL"))
(fs:reset-file-access '("ANGEL") 'fs:ftp-access)

(tv:who-line-clobbered)
(send tv:who-line-documentation-window :set-font-map '(hl12b))
(send tv:who-line-documentation-window :refresh)