7a4470ce8b
* Rework MEDLEYDIR before/after logout to substitute instead of reset * debugging * working when changing home directory * fix bug and removed redundtant declarations
20 lines
489 B
Common Lisp
20 lines
489 B
Common Lisp
(* "make init files; this file is loaded as a 'greet' file by scripts/loadup-init.sh")
|
|
|
|
(LOAD (CONCAT (UNIX-GETENV "MEDLEYDIR") "/sources/MEDLEYDIR.LCOM"))
|
|
(CNDIR (MEDLEYDIR "tmp"))
|
|
(DRIBBLE "init.dribble")
|
|
|
|
(UNADVISE)
|
|
(ADVISE 'PAGEFULLFN '(RETURN))
|
|
(ADVISE '(ERROR IN \DO-DEFINE-FILE-INFO) '(RETURN))
|
|
(MOVD? 'NILL 'SETTEMPLATE)
|
|
(DEFINEQ (RRE (LAMBDA (X Y) Y)))
|
|
(MOVD? 'RRE 'READ-READER-ENVIRONMENT)
|
|
|
|
(LOAD (MEDLEYDIR "sources" "MAKEINIT.LCOM"))
|
|
(MAKEINITGREET)
|
|
(DRIBBLE)
|
|
(LOGOUT T)
|
|
STOP
|
|
|