(FILECREATED "29-Jul-86 04:10:00" ("compiled on " {ERIS}LIBRARY>CMLMACROS.;17) "29-Jul-86 01:13:34" "COMPILE-FILEd" in "Xerox Lisp 29-Jul-86 ..." dated "29-Jul-86 01:25:07") (FILECREATED "29-Jul-86 04:09:52" {ERIS}LIBRARY>CMLMACROS.;17 9818 changes to: (FNS CLISPEXPANSION) previous date: "18-Jul-86 17:47:34" {ERIS}LIBRARY>CMLMACROS.;16) (RPAQQ CMLMACROSCOMS ((FNS CLISPEXPANSION \INTERLISP-NLAMBDA-MACRO MACRO-FUNCTION MACROEXPAND MACROEXPAND-1 SETF-MACRO-FUNCTION) (APPENDVARS (COMPILERMACROPROPS SHOULD-HAVE-MACRO-FUNCTION)) (PROP MACRO *) (INITVARS (*MACROEXPAND-HOOK* (QUOTE FUNCALL))) (FUNCTIONS MACROLET) (SETFS MACRO-FUNCTION) ( PROP FILETYPE CMLMACROS) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA MACROEXPAND-1 MACROEXPAND))))) CLISPEXPANSIONA0001 D1 (NAME ERRORSET P 2 VARS P 1 COP P 0 NOSPELLFLG F 3 X) 'hiS Iddhddg I` h(41Q GETHASH 31Q DWIMIFY0? 11Q COPY) (36Q CLISPARRAY 25Q VARSBOUND 3 CLISPFLG) () CLISPEXPANSION D1 (P 1 MACROY P 0 MACROX I 1 ENV I 0 X F 2 RESETVARSLST) V@g Fg`RcRog HIdRHcR RkI H@i (123Q VALUES 111Q ERROR! 100Q NLEFT 71Q TAILP 43Q CLISPEXPANSIONA0001 7 GETPROP) (51Q CLISPFLG 40Q INTERNAL 17Q CLISPFLG 14Q CLISPFLG 4 CLISPWORD) ( 35Q (CLISPEXPANSIONA0001)) \INTERLISP-NLAMBDA-MACRO D1 (I 1 ENV I 0 X) kgg@h@ dk1@@"d[ddi3 gKhIHhZH&J%l@Hddi3 gHhh(146Q SHOULDNT 17Q ARGTYPE) (133Q QUOTE 53Q QUOTE 5 FUNCTION 2 FUNCALL) () MACRO-FUNCTION D1 (P 22Q PROP P 20Q EXPN-FN P 17Q KIND P 16Q A0343 P 15Q PARSED-DOCSTRING P 14Q PARSED-DECLARATIONS P 13Q A0342 P 12Q PARSED-BODY P 11Q A0341 P 10Q DEFMACRO-BODY P 7 A0340 P 6 DEFMACRO-ARGS P 5 A0339 P 4 NAME P 3 A0336 P 2 $$TYPE-VALUE P 1 ETYPECASE0335 P 0 MD I 1 ENV I 0 X) x0AYZd`p@A X @A QKK]M__NgOLhgg  A O_O__O_goOgLOhh `)A@ !O_O_ OgO @ Jo@g'@ h@ djdlihd`O"#hUgogggHhhh_$@O$ X O"_"lHdgdgihO$i@ @g g@ dkdlihggIo (565Q CHECK-TYPE-FAIL 526Q ARGTYPE 515Q GETPROP 505Q \DEFINEDP 425Q GETPROP 317Q ARGTYPE 310Q SPECIAL-FORM-P 250Q MACRO-FUNCTION 212Q \MVLIST 207Q ENV-FBOUNDP 170Q \APPEND2 107Q \MVLIST 104Q PARSE-DEFMACRO 37Q MACRO-FUNCTION 34Q ENVIRONMENT-PARENT 23Q ENVIRONMENT-MACROS) (555Q ENV 551Q \INTERLISP-NLAMBDA-MACRO 521Q CLISPEXPANSION 512Q CLISPWORD 461Q APPLY* 453Q APPLY 376Q QUOTE 373Q FORM 370Q MACROEXPANSION 361Q LAMBDA 342Q COMPILERMACROPROPS 275Q MACRO-FN 237Q :MACRO 177Q ENVTYPE# 154Q CL:BLOCK 143Q LAMBDA 100Q $$MACRO-ENVIRONMENT 75Q :ENVIRONMENT 66Q $$MACRO-FORM 12Q ENVIRONMENTTYPE#) ( 562Q (OR ENVIRONMENT ENV NULL) 365Q (FORM ENV) 256Q (NIL) 147Q ($$MACRO-FORM $$MACRO-ENVIRONMENT)) MACROEXPAND D1 (L (1 ENV 0 FORM)) 3 @A XbH@h @A YbI@i (60Q VALUES 41Q \MVLIST 36Q MACROEXPAND-1 30Q VALUES 12Q \MVLIST 7 MACROEXPAND-1) NIL () MACROEXPAND-1 D1 (L (1 ENV 0 FORM) F 1 *MACROEXPAND-HOOK*) 1@d)dl!A H@H@AlQb@i @h (56Q VALUES 50Q VALUES 21Q MACRO-FUNCTION) NIL () SETF-MACRO-FUNCTION D1 (P 2 A0347 P 1 A0349 P 0 A0346 I 1 BODY I 0 X) F@!gAHJI @ /@ djdlihi oi @i oi (103Q PRIN1 73Q PRIN1 66Q PRIN1 56Q TERPRI 32Q ARGTYPE 24Q \DEFINEDP 17Q PUTPROP) (6 MACRO-FN) ( 77Q " because it now is a macro" 62Q "Warning: will soon do PUTD on ") (APPENDTOVAR COMPILERMACROPROPS SHOULD-HAVE-MACRO-FUNCTION) (PUTPROPS * MACRO ((X . Y) (QUOTE X))) (RPAQ? *MACROEXPAND-HOOK* (QUOTE FUNCALL)) expand-MACROLET D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) %@1HHAgJggIgK (42Q WALK-FORM 37Q MAKE-ENVIRONMENT) (33Q :PARENT 27Q :MACROS 24Q :ENVIRONMENT 17Q PROGN) () (SETF-MACRO-FUNCTION (QUOTE MACROLET) (QUOTE expand-MACROLET)) (REMPROP (QUOTE MACRO-FUNCTION) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS MACRO-FUNCTION SETF-INVERSE SETF-MACRO-FUNCTION) (PUTPROPS CMLMACROS FILETYPE COMPILE-FILE) (RPAQQ CMLMACROSCOMS ((FNS CLISPEXPANSION \INTERLISP-NLAMBDA-MACRO MACRO-FUNCTION MACROEXPAND MACROEXPAND-1 SETF-MACRO-FUNCTION) (APPENDVARS (COMPILERMACROPROPS SHOULD-HAVE-MACRO-FUNCTION)) (PROP MACRO *) (INITVARS (*MACROEXPAND-HOOK* (QUOTE FUNCALL))) (FUNCTIONS MACROLET) (SETFS MACRO-FUNCTION) ( PROP FILETYPE CMLMACROS) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (PUTPROPS CMLMACROS COPYRIGHT ("Xerox Corporation" 1986)) STOP