(FILECREATED "18-Jul-86 17:47:46" ("compiled on " {ERIS}LIBRARY>CMLMACROS.;16) "17-Jul-86 03:50:11" "COMPILE-FILEd" in "Xerox Lisp 17-Jul-86 ..." dated "17-Jul-86 04:05:07") (FILECREATED "18-Jul-86 17:47:34" {ERIS}LIBRARY>CMLMACROS.;16 8370 changes to: (FNS CLISPEXPANSION) previous date: " 6-Jun-86 13:55:06" {ERIS}LIBRARY>CMLMACROS.;15) (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))))) CLISPEXPANSION D1 (P 1 VARS P 0 NOSPELLFLG I 1 ENV I 0 X) 5@g $@` i@ddhddg @` i @(57Q VALUES 53Q GETHASH 43Q DWIMIFY0? 20Q GETHASH 7 GETPROP) (50Q CLISPARRAY 37Q VARSBOUND 15Q CLISPARRAY 4 CLISPWORD) () \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 A0532 P 15Q PARSED-DOCSTRING P 14Q PARSED-DECLARATIONS P 13Q A0531 P 12Q PARSED-BODY P 11Q A0530 P 10Q DEFMACRO-BODY P 7 A0529 P 6 DEFMACRO-ARGS P 5 A0528 P 4 NAME P 3 A0525 P 2 $$TYPE-VALUE P 1 ETYPECASE0524 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 A0536 P 1 A0538 P 0 A0535 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) (PUTPROPS CMLMACROS COPYRIGHT ("Xerox Corporation" 1986)) STOP