(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (filecreated "16-Oct-86 14:42:46" ("compiled on " {eris}sources>cmlmacros.\;3) "14-Oct-86 21:06:05" "COMPILE-FILEd" |in| "Xerox Lisp 14-Oct-86 ..." |dated| "14-Oct-86 22:24:47") (filecreated "16-Oct-86 14:42:33" {eris}sources>cmlmacros.\;3 9091 |previous| |date:| " 4-Sep-86 18:22:28" {eris}sources>cmlmacros.\;2) (rpaqq cmlmacroscoms ((fns clispexpansion \\interlisp-nlambda-macro cl:macro-function cl:macroexpand cl:macroexpand-1 setf-macro-function) (appendvars (compilermacroprops dmacro bytemacro macro should-have-macro-function)) (prop macro *) (initvars (*macroexpand-hook* (quote cl:funcall))) ( 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))) )) clispexpansiona0001 d1 (name errorset p 2 vars p 1 cop p 0 nospellflg f 3 clispflg f 4 x f 5 clisparray) $hciT Iddhddg IU h(30 gethash 24 dwimify0? 8 copy) (20 varsbound) () clispexpansion d1 (p 1 macroy p 0 macrox i 1 env i 0 x f 2 resetvarslst f 3 clispflg) S@g CgSRcRog HcIdRHcR RkI H@i (80 cl:values 70 error! 61 nleft 54 tailp 33 clispexpansiona0001 7 getprop) (30 internal 12 clispflg 4 clispword) ( 27 (clispexpansiona0001)) \\interlisp-nlambda-macro d1 (i 1 env i 0 x) {gg@h@ dk;@@,d[ddi3higKhKIhiHhZIH&J+l#@Hddi3higHhHh(118 shouldnt 15 argtype) (105 quote 47 quote 5 function 2 cl:funcall) () cl:macro-function d1 (p 18 prop p 16 expn-fn p 15 kind p 14 a3986 p 13 parsed-docstring p 12 parsed-declarations p 11 a3982 p 10 parsed-body p 9 a3981 p 8 defmacro-body p 7 a3980 p 6 defmacro-args p 5 a3979 p 4 name p 3 a3976 p 2 cl::$$type-value p 1 etypecase3972 p 0 md i 1 env i 0 x f 19 compilermacroprops) x0AYZo@A X @A QKK]M__NgOLhgg  A O_O__O_goOgLOhh J)A@ !O_O_ OgO @ J@g'@ h@ djdlihhigW&O"#hYgogggHhhh_$@O$ X O"_"lHdgdgihhiO$i@ hi@g g@ dkdlihghgIo (373 check-type-fail 341 argtype 332 getprop 320 \\definedp 268 getprop 195 argtype 188 cl:special-form-p 163 cl:macro-function 133 \\mvlist 130 env-fboundp 116 \\append2 67 \\mvlist 64 parse-defmacro 27 cl:macro-function 24 environment-parent 15 environment-macros) (365 env 360 \\interlisp-nlambda-macro 336 clispexpansion 329 clispword 296 apply* 290 apply 245 quote 242 form 239 macroexpansion 232 lambda 177 macro-fn 154 :macro 123 env 104 cl:block 95 lambda 60 $$macro-environment 57 :environment 50 $$macro-form 8 environment) ( 370 (or environment env null) 236 (form env) 99 ($$macro-form $$macro-environment)) cl:macroexpand d1 (l (1 env 0 form)) 7 @A XbHhi@h @A YbI@i (52 cl:values 37 \\mvlist 34 cl:macroexpand-1 28 cl:values 10 \\mvlist 7 cl:macroexpand-1) nil () cl:macroexpand-1 d1 (l (1 env 0 form) f 1 *macroexpand-hook*) 1@d)dl!A H@H@AlQb@i @h (46 cl:values 40 cl:values 17 cl:macro-function) nil () setf-macro-function d1 (p 2 a3990 p 1 a3992 p 0 a3989 i 1 body i 0 x) J@!gAHJI @ 3@ djdlihi oi @i oi (70 prin1 61 prin1 55 prin1 46 terpri 26 argtype 20 \\definedp 15 putprop) (6 macro-fn) ( 66 " because it now is a macro" 51 "Warning: will soon do PUTD on ") (appendtovar compilermacroprops dmacro bytemacro macro should-have-macro-function) (putprops * macro ((x . y) (quote x))) (rpaq? *macroexpand-hook* (quote cl:funcall)) cl::|expand-MACROLET| d1 (l (1 $$macro-environment 0 $$macro-form)) %@1HHAgJggIgK (34 walk-form 31 make-environment) (27 :parent 23 :macros 20 :environment 15 progn) () (setf-macro-function (quote cl:macrolet) (quote cl::|expand-MACROLET|)) (remprop (quote cl:macro-function) (quote setf-method-expander)) (putprops cl:macro-function setf-inverse setf-macro-function) (putprops cmlmacros filetype cl:compile-file) (putprops cmlmacros copyright ("Xerox Corporation" 1986)) nil