set makesysname
This commit is contained in:
@@ -1,6 +1,6 @@
|
||||
"
|
||||
(PROGN(LOAD(CONCAT (QUOTE {DSK}) (UNIX-GETENV (QUOTE MEDLEYDIR)) (QUOTE /sources/LOADUP.LISP)))(HARDRESET))
|
||||
SHH(PROGN(IL:ENDLOADUP)(IL:MAKESYS (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE MEDLEYDIR))(IL:L-CASE (QUOTE /loadups/lisp.sysout)))))
|
||||
SHH(PROGN(IL:ENDLOADUP)(SETQ IL:MAKESYSNAME ':MEDLEY)(IL:MAKESYS (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE MEDLEYDIR))(IL:L-CASE (QUOTE /loadups/lisp.sysout)))))
|
||||
(IL:LOGOUT T)
|
||||
|
||||
"
|
||||
|
||||
Reference in New Issue
Block a user