(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 10:23:51" ("compiled on " {DSK}sources>CMLMACROS.;1) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "28-Oct-91 11:45:00" |{PELE:MV:ENVOS}SOURCES>CMLMACROS.;4| 12775 changes to%: ( FNS CL:MACRO-FUNCTION) previous date%: "18-Sep-90 17:33:42" |{PELE:MV:ENVOS}SOURCES>CMLMACROS.;3|) (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))))) 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` Yoo@ (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@ [KJgI@g'@ h@ djdlihn`L,h^gogggHhhh@M XL\d3@HdgdgihMi@ @g g@ dkdlihg(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) VAdRAHA@'Yd9g0IH%A@gi ZJKgL(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) VAdRAHA@'Yd9g0IH%A@gi ZJKgL(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@ dk4@@%d[ddi3 gKhIHhZH&J*l @Hddi3 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 XbH@h$@A YbI@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 @ @ dkdl@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 9 *BYTECOMPILER-IS-EXPANDING* F 10 *BC-MACRO-ENVIRONMENT*) @HHAW?`8K I dLMggM LcgJKdgIJ^_IW d_ggogOOgOOhgg hhO_NOgJgN (233 WALK-FORM 185 PARSE-DEFMACRO 122 \COPY-ENVIRONMENT 103 \MAKE-ENVIRONMENT 61 COMPILER::ENV-BIND-FUNCTION 56 COMPILER::CRACK-DEFMACRO 29 COMPILER::MAKE-CHILD-ENV) (227 :ENVIRONMENT 220 CL:LOCALLY 211 ENVIRONMENT 179 SI::$$MACRO-ENVIRONMENT 174 :ENVIRONMENT 161 SI::$$MACRO-FORM 149 CL:BLOCK 139 CL:LAMBDA 134 :MACRO 109 ENVIRONMENT 91 SI::%%MACROLET 84 COMPILER:ENV 74 CL:LOCALLY 49 DEFMACRO 44 :MACRO 21 *BYTECOMPILER-OPTIMIZE-MACROLET*) ( 144 (SI::$$MACRO-FORM SI::$$MACRO-ENVIRONMENT)) (SETF-MACRO-FUNCTION (QUOTE CL:MACROLET) (QUOTE CL::expand-MACROLET)) (CL::SET-SETF-INVERSE (QUOTE CL:MACRO-FUNCTION) (QUOTE SETF-MACRO-FUNCTION)) (PUTPROPS CMLMACROS FILETYPE CL:COMPILE-FILE) (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:MACRO-FUNCTION))))) (PUTPROPS CMLMACROS COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991)) NIL