1 line
382 B
Plaintext
1 line
382 B
Plaintext
"
|
|
|
|
(PROGN
|
|
(LOAD(CONCAT(QUOTE {DSK})(UNIX-GETENV(QUOTE MEDLEYDIR))(QUOTE /sources/LOADUP-LISP.LCOM)))
|
|
(LOADUP-LISP(CONCAT(QUOTE {DSK})(UNIX-GETENV(QUOTE LOADUP_WORKDIR))(QUOTE /lisp.dribble)))
|
|
(HARDRESET)
|
|
)
|
|
SHH
|
|
(PROGN
|
|
(IL:ENDLOADUP)':MEDLEY)
|
|
(IL:MAKESYS (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /lisp.sysout)))))
|
|
(IL:LOGOUT T)
|
|
)
|
|
|
|
"
|