perm filename MLISP.DO[MLI,LSP] blob sn#128198 filedate 1975-06-03 generic text, type T, neo UTF8
R MLISPC 44↔
(MLISP(MLISP.MLI)NIL≠
β
|
R MLISPC 39↔
(DSKIN(RUNFN1.REM))
(MLISP(RUNFN1.MLI)NIL≠
β
|
R MLISPC 39↔
(DSKIN(RUNFN2.REM))
(MLISP(RUNFN2.MLI)NIL≠
β
|
R COMPLR 39↔
(COMPL(MLISP.LSP)(RUNFN1.LSP)(RUNFN2.LSP≠
β
|
COMPILE SCAN.MAC[S,DAV]↔
R COMPLR 39↔
(COMPL COMPLR≠
β
|
COPY SYS:UTILS/L/Q←RUNFN2.LAP,ACHLOC,SETQS↔
|
R LISP 23↔
Y2000 10300  ↔
(DSKIN(MLISP.LAP)(RUNFN1.LAP)MINIT SYS: UTILS≠
β
SAVE MLISP↔
|
G MLISP↔REE↔
(INIT1≠
DSK:SCAN≠
(INIT2≠
β
SAVE MLISP↔
|
R LISP 33↔
Y3000 25000  ↔
(DSKIN(MLISP.LAP)(COMPLR.LAP≠π↔
β
SAVE MLISPC↔
|
G MLISPC↔REE↔
(DSKIN(S,DAV)PPRINT DSK: MINIT SYS: UTILS≠
(INIT1)↔
DSK:SCAN≠
(INIT2)↔
β
SAVE MLISPC↔
|
G MLISP↔
SAVE SYS MLISP↔
G MLISPC↔
SAVE SYS MLISPC↔
|
DEL *.LSP,*.LAP,*.DMP,*.TMP,*.REL,*.RPG↔
|
SPOOL MLISP.MLI,RUNFN1.MLI,RUNFN2.MLI,MINIT,SETQS,PPRINT.MLI,MACROS.MLI,MACRO1.MLI↔
|