1 line
867 B
Plaintext
1 line
867 B
Plaintext
"
|
|
|
|
(PROGN
|
|
(IL:MEDLEY-INIT-VARS 'IL:GREET)
|
|
(IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE NOTECARDSDIR))(QUOTE |/system/NOTECARDS.LCOM|)) 'IL:SYSLOAD)
|
|
(IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE ROOMSDIR))(QUOTE /ROOMS)) 'IL:SYSLOAD)
|
|
(IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE CLOSDIR))(QUOTE /DEFSYS.DFASL)) 'IL:SYSLOAD)
|
|
(IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE MEDLEYDIR))(QUOTE |lispusers/BUTTONS.LCOM|)) 'IL:SYSLOAD)
|
|
(IL:LOAD
|
|
(IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE MEDLEYDIR))(QUOTE |/sources/LOADUP-APPS.LCOM|))
|
|
'IL:SYSLOAD
|
|
)
|
|
(IL:HARDRESET)
|
|
)
|
|
SHH
|
|
(PROGN
|
|
(IL:ENDLOADUP)
|
|
(CLOS::LOAD-CLOS)
|
|
(IL:|Apps.LOADUP|)
|
|
(IL:MAKESYS
|
|
(IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /apps.sysout)))
|
|
:APPS)
|
|
)
|
|
(IL:LOGOUT T)
|
|
|
|
"
|