(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 2-Nov-93 21:12:09" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLMACROS.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 14:19:04" "{Pele:mv:envos}Sources>CLTL2>CMLMACROS.;2" 12700 previous date%: "12-Jan-92 12:41:41" "{Pele:mv:envos}Sources>CLTL2>CMLMACROS.;1") (RPAQQ CMLMACROSCOMS ((FNS CLISPEXPANSION GLOBAL-MACRO-FUNCTION LOCAL-MACRO-FUNCTION LOCAL-SYMBOL-FUNCTION \INTERLISP-NLAMBDA-MACRO CL:MACRO-FUNCTION CL:MACROEXPAND CL:MACROEXPAND-1 SETF-MACRO-FUNCTION) (APPENDVARS (COMPILERMACROPROPS DMACRO BYTEMACRO MACRO)) (ADDVARS (GLOBALVARS COMPILERMACROPROPS)) (PROP MACRO *) (FUNCTIONS CL:MACROLET) (SETFS CL:MACRO-FUNCTION) (PROP FILETYPE CMLMACROS) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) ( LAMA CL:MACROEXPAND-1 CL:MACROEXPAND CL:MACRO-FUNCTION))))) CLISPEXPANSION :D8 (P 3 VARS P 2 LISPXHIST P 1 COP P 0 NOSPELLFLG I 1 ENV I 0 X) Wi@ "@g ²-Iddhddg ¿I@Ì¦Ii$I` Yµîoo@°¬(82 CL:CERROR 63 GETHASH 40 DWIMIFY0? 21 GETPROP 6 COPY) (58 CLISPARRAY 34 VARSBOUND 16 CLISPWORD) ( 76 "Can't CLISP expand expression ~S." 71 "Try expanding again.") GLOBAL-MACRO-FUNCTION :D8 (P 5 PROP P 0 MD I 1 ENV I 0 X) @AÃ²$A@ [ºK¹Jgð–Iµ‚±Ô@ÁÉg'µ‚±Ã@ ‘h@ djð¤dlð’¿i¿h³n`Lµ,h²^gogggHhhh½@M XµL\°Äd3@ð³÷Hdgð§dgð’¿i¿h³ÞMµ¦i°£@ ³@g •g@ dkð¤dlð’¿i¿h´g(232 ARGTYPE 219 GETPROP 206 \DEFINEDP 155 GETPROP 76 ARGTYPE 67 CL:SPECIAL-FORM-P 22 \MVLIST 17 COMPILER:ENV-FBOUNDP) (253 \INTERLISP-NLAMBDA-MACRO 225 CLISPEXPANSION 214 CLISPWORD 185 APPLY* 177 APPLY 133 QUOTE 128 FORM 123 MACROEXPANSION 113 LAMBDA 97 COMPILERMACROPROPS 54 MACRO-FN 35 :MACRO 8 COMPILER:ENV) ( 118 (FORM ENV)) LOCAL-MACRO-FUNCTION :D8 (P 0 CL::$$TYPE-VALUE I 1 ENV I 0 X) VAd²RAHÃ²AÉ@'Yd²9gð´0IHÃ´%A@gi Z»J¼Kgð´L(66 \MVLIST 61 COMPILER:ENV-FBOUNDP) (79 :MACRO 55 :LEXICAL-ONLY 46 COMPILER:ENV 34 :MACRO 20 ENVIRONMENT 12 ENVIRONMENT) () LOCAL-SYMBOL-FUNCTION :D8 (P 0 CL::$$TYPE-VALUE I 1 ENV I 0 X) VAd²RAHÃ²AÉ@'Yd²9gð´0IHÃ´%A@gi Z»J¼Kgð´L(66 \MVLIST 61 COMPILER:ENV-FBOUNDP) (79 :FUNCTION 55 :LEXICAL-ONLY 46 COMPILER:ENV 34 :FUNCTION 20 ENVIRONMENT 12 ENVIRONMENT) () \INTERLISP-NLAMBDA-MACRO :D8 (I 1 ENV I 0 X) ygg@h@ dkð²4¿@@°%d[d²dið¬3µgKh¸IµHhZH&¹µÛJ°*lð² @Hd²dið¬3µgHhh„(116 SHOULDNT 21 ARGTYPE) (103 QUOTE 52 QUOTE 9 FUNCTION 4 CL:FUNCALL) () CL:MACRO-FUNCTION :D8 (L (1 CL::ENV 0 CL::X)) $@d3@ð´@A hð´@A µ @A (33 GLOBAL-MACRO-FUNCTION 24 LOCAL-MACRO-FUNCTION 13 LOCAL-SYMBOL-FUNCTION) NIL () CL:MACROEXPAND :D8 (L (1 CL::ENV 0 CL::FORM)) ; @A Xb¿H¥@h$@A Yb¿I³ì@i$(41 \MVLIST 36 CL:MACROEXPAND-1 14 \MVLIST 9 CL:MACROEXPAND-1) NIL () CL:MACROEXPAND-1 :D8 (L (1 CL::ENV 0 CL::FORM) F 1 *MACROEXPAND-HOOK*) 5@d´-dd3@ð´%¿@A H²@H@AlQbð¥@i$@h$(21 CL:MACRO-FUNCTION) NIL () SETF-MACRO-FUNCTION :D8 (I 1 BODY I 0 X) 0@gA@ ²@ dkð¤dlð‘¿¿@h ¿(44 PUTD 25 ARGTYPE 17 \DEFINEDP 11 PUTPROP) (5 MACRO-FN) () (APPENDTOVAR COMPILERMACROPROPS DMACRO BYTEMACRO MACRO) (ADDTOVAR GLOBALVARS COMPILERMACROPROPS) (PUTPROPS * MACRO ((X . Y) (QUOTE X))) CL::expand-MACROLET :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 10 *BYTECOMPILER-IS-EXPANDING* F 11 *BYTECOMPILER-OPTIMIZE-MACROLET* F 12 *BC-MACRO-ENVIRONMENT*) ø @‘ H¹HºA»W²