perm filename USRMCS.NEW[4,LMM] blob
sn#042533 filedate 1973-05-10 generic text, type T, neo UTF8
((BROTHER NIL (BIND (S #1) UPFORM (LCL F STRUCFORM (IF (EQ (##) #1)
(- (F STRUCFORM T)) NIL))) EXPLAIN) (DO1 NIL (LCL FORMNOFORM EXPAND
↑)) (EA NIL EXPLAINALL) (EE NIL EXPLAIN) (U NIL UPFORM) (EXPLAINALL
NIL (E (PROG ((EXPLAINALL T)) (## EXPLAIN)) T)) (DL NIL (IF (STRUCTURE?
(##)) ((E (DRAW (##)) T)) ((IF (STRUCLIST? (##)) ((E (DRAW (CDDR (##))
(QUOTE L)) T)) ((IF (STRUCFORM? (##)) ((E (QUOTE CAN'T))) ((E (DRAW
(##) T) T)))))))) (- NIL (ORR (NX) (!NX))) (EXPLAIN NIL (ORR ((E (PROGN
(SETQ DRAWLIST NIL) (SETQ STRUCNUM 0) (PRIN1 (EXPLAIN (##)) T) (TERPRI)
(AND DRAWLIST (DRAW (REVERSE DRAWLIST) (QUOTE AL)))) T)) (NIL))) (FORGET
NIL (E (SETQ UNDOLST (SETQ MARKLST (SETQ UNDOLST1 (SETQ UNFIND (SETQ
LASTAIL (SETQ LASTP1 (SETQ LASTP2))))))) T)) (SAVERESULT NIL NIL (E
(SETQ RESULT (##)) T) (E (QUOTE RESULT-SAVED))) (COMMANDS NIL (E (MAPCAR
USERMACROS (FUNCTION CAR)))) (WW NIL MARK (LPQ UPFORM) (IF (STRUCLIST?
(##)) (W) ((MBD STRUCFORM LIST) W)) ←←) (DO NIL UP MARK 1 (LCL !!EXPAND)
←← 1 (IF (AND (NOT (STRUCLIST? (##)) (STRUCFORM? (##)))) (!EXPAND)
(NIL)) @) (W NIL (IF (STRUCFORM? (##)) ((BIND (E (SETQ #1 (GETFILENAM
(QUOTE OUTPUT))) T) (E (WRITEFILE (LIST (##)) #1)) (S #2) UP MARK
↑ (E (DSUBST (≠QUOTE (STRUCFORM READFILE ≠ #1)) #2 (##)) T) ←← 1))))
(ME NIL (IF (GETP (## UP 1 1) (QUOTE MACRO)) (UP (I 1 (CONS (QUOTE
CLISP% ) (CONS (CONS (QUOTE *) (EXPANSION (## 1))) (## 1)))) 1) ((E
(QUOTE NOT-MACRO))))) (FN (X) F (STRUCFORM X --)) (SWHICH NIL MARK
(ORR ((E (SETQ WHICH) T) (LC UP (E (SETQ WHICH (LENGTH (##))) T) 0
(IF (STRUCLIST? (##)) (NIL) ((E (ERROR!) T)))) (E (SETQ WHICH (IPLUS
-1 (LENGTH (##)) (IMINUS WHICH))) T) (E (PROG (LEVEL) (## SLEVEL)
(SETQ WHICH (CONS WHICH LEVEL))) T)) (NIL)) ←←) (D NIL (LCL NEXTFORM))
(≠ NIL FORMNOFORM) (ARGS NIL (E (CDR (##)))) (# (X) (IF (NUMBERP
(QUOTE X)) ((COMS (IPLUS X 2))) (E (QUOTE ?)))) (@ NIL UP 1 SWHICH
SLEVEL (E (WHERE (##)) T)) (MAC Z (COMS ((LAMBDA (X) (PROGN (*FILEADD
(QUOTE (EDITMACRO)) X) (/PUT X (QUOTE EDITMACRO) (QUOTE (M . Z)))))
(COND ((ATOM (CAR (QUOTE Z))) (CAR (QUOTE Z))) (T (CAAR (QUOTE Z)))))))
(SLEVEL NIL MARK (E (SETQ LEVEL 0) T) (LPQ UPFORM (E (SETQ LEVEL (ADD1
LEVEL)) T)) ←←) (Q NIL (MBD QUOTE)) (DRAW X (E (DRAW (## . X) T)))
(DRAWS X (E (DRAW (## . X)))) (FORMNOFORM NIL (LC STRUCFORM (IF (
NOFORMIN (CDR (##)))))) (!!EXPAND NIL (LCL (LPQ ↑ FORMNOFORM !EXPAND)))
(GROUP (X Y) (COMS (SUBPAIR (QUOTE (Z W)) (LIST (IPLUS X 2) (IPLUS
Y 2)) (QUOTE (EMBED (Z THRU W) IN STRUCFORM LIST))))) (NEXFORM NIL
(ORR (ISFORM) (NEXTFORM))) (NEXTFORM NIL (ORR (F STRUCFORM) (UPFORM)))
(ISFORM NIL (IF (STRUCFORM (##)))) (!EXPAND NIL (ORR ((IF (STRUCLIST?
(##)) ((BIND (E (SETQ #1 (GENEXPANSION (##) (## !0) (## UPFORM)))
T) UPFORM (BI 1 -1) (I 1 #1) (BO 1))) ((IF (STRUCFORM? (##)) (UP MARK
↑ (I E (PROG1 NIL (/DSUBST (GENAPPLY (## ← 1) FIXEDFNLIST) (## ← 1)
(##))) T) ←← 1))))) ((E (QUOTE CAN'T))))) (EXPAND NIL (ORR ((IF (
STRUCLIST? (##)) ((BIND (E (SETQ #1 (GENEXPANSION (##) (## !0) (##
UPFORM))) T) UPFORM (BI 1 -1) (I 1 #1) (BO 1))) ((IF (STRUCFORM? (##))
((BIND (S #1) UP MARK ↑ (I E (PROG1 NIL (/DSUBST (GENAPPLY (## ← 1))
(## ← 1) (##))) T) ←← 1 (E (COND ((EQUAL (##) #1) (PRIN1 "NOTHING DONE.
"))) T))))))) ((E (QUOTE CAN'T))))) (UPFORM NIL 0 (← STRUCFORM)) (DE
NIL (E (DRAW (EXAMPLE (##)) T) T)) (X NIL RX UP (I 1 (EXAMPLE (##
1))) 1) (RX NIL MARK (LCL (LPQ F STRUCFORM UP (I 1 (EXAMPLE (## 1)))))
←←) (MACEXPAND NIL (IF (GETP (## 1) (QUOTE MACRO)) ((I : (EXPANSION
(##)))))) (CL NIL (IF (TAILP (##) (## 0)) ((I : (CDR (CLISPIFY (CONS
(QUOTE PROGN) (##)) NIL (## ↑) T))) (LO 1)) ((I : (CADR (CLISPIFY
(LIST (QUOTE PROGN) (##)) NIL (## ↑) T))) (IF (LISTP (## 1)) 1 NIL))))
(DW NIL (IF (TAILP (##) (## 0)) ((E (DWIMIFY (CONS (QUOTE PROGN) (##))
NIL (## ↑)) T)) ((I : (DWIMIFY (##) NIL (## ↑))) (IF (LISTP (## 1))
1 NIL)))))