7897471126
* Start loadup using lisp.venuesysout as the base on which to build new * Change 'starter.sysout' (taken from recent lisp.sysout) * Fix problem with GREET ordering
20 lines
490 B
Common Lisp
20 lines
490 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
|
|
|