(FILECREATED "19-Jun-86 13:10:21" ("compiled on " {ERIS}LIBRARY>CMLMACROS.;15) "19-Jun-86 12:46:19" "COMPILE-FILEd" in "Xerox Lisp 19-Jun-86 ..." dated "19-Jun-86 12:58:11") (FILECREATED " 6-Jun-86 13:55:06" {ERIS}LIBRARY>CMLMACROS.;15 8031 changes to: (FNS MACRO-FUNCTION) previous date: "29-May-86 23:23:03" {ERIS}LIBRARY>CMLMACROS.;14) (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 F 0 NOSPELLFLG F 1 X) icQddhddg hh(20Q DWIMIFY0?) (14Q VARSBOUND) () CLISPEXPANSION D1 (P 1 MACROY P 0 MACROX I 0 X F 2 RESETVARSLST F 3 CLISPARRAY F 4 NOSPELLFLG) P@gH@SCgTRcRog HcIdRHcR RkI H@S(110Q ERROR! 100Q NLEFT 71Q TAILP 44Q CLISPEXPANSIONA0001) (41Q INTERNAL 17Q NOSPELLFLG 4 CLISPWORD) ( 36Q (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 EXPN-FN P 21Q KIND P 20Q A0090 P 17Q PARSED-DOCSTRING P 16Q PARSED-DECLARATIONS P 15Q A0089 P 14Q PARSED-BODY P 13Q A0088 P 12Q DEFMACRO-BODY P 11Q A0087 P 10Q DEFMACRO-ARGS P 7 A0086 P 6 NAME P 5 A0083 P 2 $$TYPE-VALUE P 1 A0082 P 0 MD I 1 ENV I 0 X F 23Q COMPILERMACROPROPS) qPAYZd`u@A X @A Q MM__O__OgONhgg  AO_O__O_goOgNOhh `)A@ !O _"O _$O"gO$@ Jo@g'@ h@ djdlihWW&h["hLgogggHhhh@LXKlHdgdgihLi@ @dgg@ dkdlihggIoh (556Q CHECK-TYPE-FAIL 515Q ARGTYPE 475Q \DEFINEDP 324Q ARGTYPE 315Q SPECIAL-FORM-P 255Q MACRO-FUNCTION 217Q \MVLIST 214Q ENV-FBOUNDP 175Q \APPEND2 114Q \MVLIST 111Q PARSE-DEFMACRO 37Q MACRO-FUNCTION 34Q ENVIRONMENT-PARENT 23Q ENVIRONMENT-MACROS) (544Q ENV 540Q \INTERLISP-NLAMBDA-MACRO 510Q CLISPEXPANSION 503Q CLISPWORD 452Q APPLY* 444Q APPLY 377Q QUOTE 374Q FORM 371Q MACROEXPANSION 362Q LAMBDA 302Q MACRO-FN 244Q :MACRO 204Q ENVTYPE# 161Q CL:BLOCK 150Q LAMBDA 105Q $$MACRO-ENVIRONMENT 102Q :ENVIRONMENT 73Q $$MACRO-FORM 12Q ENVIRONMENTTYPE#) ( 551Q (OR ENVIRONMENT ENV NULL) 366Q (FORM ENV) 263Q (NIL) 154Q ($$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 A0094 P 1 A0096 P 0 A0093 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