(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (filecreated "30-Oct-86 18:57:29" ("compiled on " {eris}sources>cmlcompile.\;17) "21-Oct-86 04:13:01" "COMPILE-FILEd" |in| "Xerox Lisp 21-Oct-86 ..." |dated| "21-Oct-86 04:48:43") (filecreated "30-Oct-86 18:57:10" {eris}sources>cmlcompile.\;17 24841 |changes| |to:| ( structures compiler:env compiler:context) (vars cmlcompilecoms) |previous| |date:| "29-Oct-86 19:14:26" {eris}sources>cmlcompile.\;15) (rpaqq cmlcompilecoms ((coms (functions cl:compile cl:disassemble) (fns cl:compile-file interlisp-format-p interlisp-nlambda-function-p compile-file-expression compile-file-walk-function argtype.state compile.check.argtype compile.file.defineq compile-file-setf-symbol-function compile-file-ex/import compile.file.apply compile.file.reset compile-in-core) (vars argtype.vars) ( prop compile-file-expression defineq * setf-symbol-function prettycomprint) (functions compile-file-declare\:)) (coms (fns newdefc) (declare\: donteval@load docopy (p (movd (quote newdefc) (quote defc))))) (prop filetype cmlcompile) (declare\: donteval@load doeval@compile dontcopy compilervars (addvars (nlama) (nlaml) (lama cl:compile-file))))) cl:compile d1 (l (1 lambda-expr 0 name)) *@gHA@ A@@gA @H (39 getd 31 /putprop 19 compile-in-core 16 getd) (27 expr 5 \\clcompiletemp) () cl:disassemble d1 (l (0 |-args-|) f 17 *standard-output*) ekaHlKdJbhHlNdMgl_Hl__OdOcW"_Hl__OdObh_Hl__OdObh_ I mIwagKkaKl[agNkaNl^agOkaOl_agOkaOl_agOkaOl_Idl LOOOO (245 printcode 232 cl:compile 229 cl:symbol-function 110 ccodep) (201 :marked-pc 179 :first-byte 157 :output 138 :radix 119 :level-p) () compile-filea0001 d1 (name errorset p 18 deferred.expressions p 17 *print-base* p 16 *read-base* p 15 *readtable* p 14 *package* p 5 lstfil p 3 specvars p 2 localvars p 1 *read-base* p 0 *package* f 19 resetvarslst f 20 output-file f 21 filename f 22 process-entire-file f 23 redefine f 24 lap f 25 nlaml f 26 compile.ext f 27 nlama f 28 lams f 29 lama f 30 compiler-output f 31 resety f 32 save-exprs f 33 coutfile f 34 *interlisp-package* f 35 syslocalvars f 36 *common-lisp-read-environment* f 37 pefp f 38 compile.file.value) &ghhhW&c&gd gW2 W&c&gd gW6 W&c&gd gW8 W&c&gd gW: W&c&gd g W&c&gd gW< W&c&gd gW. W&c&gd gW@ W.g W&c&gd gW0 W&c&WDl WFi gW*g \hhhW&c&Lgi __O_OdWHhWJNc,W0WBL c*gW(ghgW4gW* ggo c(LW* hhhW&c&W(&gd gW( W&c&LhoO O_OOOOW(hW, L Ld >W,!O$ d__OW(lOL hW( W( cLc>i _NOO _(544 cmltranslate 531 read 521 closef 515 print 508 closef 478 reverse 466 eofp 460 skipseprcodes 455 compile-file-expression 417 print-compile-header 398 settopval 389 gettopval 363 rootfilename 355 openstream 342 packfilename.string 314 fullname 274 \\mvlist 271 \\parse-file-header 249 openstream 221 settopval 212 gettopval 198 settopval 180 gettopval 166 settopval 157 gettopval 143 settopval 134 gettopval 120 settopval 113 gettopval 99 settopval 90 gettopval 76 settopval 67 gettopval 53 settopval 44 gettopval 30 settopval 21 gettopval) (423 reader-environment 393 lcfil 385 lcfil 348 new 345 output 336 body 331 extension 327 version 320 compile.file.reset 267 return 246 input 241 closef? 216 lapflg 208 lapflg 195 defer 184 svflg 176 svflg 161 strf 153 strf 138 coutfile 130 coutfile 117 dfnflg 109 dfnflg 94 lama 86 lama 71 lams 63 lams 48 nlama 40 nlama 25 nlaml 17 nlaml 2 resetundo) ( 412 ("COMPILE-FILEd") 352 ((type binary))) cl:compile-file d1 (l (0 |-args-|) p 24 resety p 23 lispxhist p 22 compile.file.value p 21 compile.file.after p 20 process-entire-file p 17 pefp p 16 compiler-output p 13 save-exprs p 10 output-file p 7 redefine p 4 lap p 1 filename f 26 lispxhist f 27 resetvarslst) beka`HlKdJhHlNdMh_Hl__OdOh_Hl__OdOi_Hl__OdOi_ i_"Hl_&_$O&dO$h_"_(h_*_,W4!W6og hagKka^Kl[MagNkaYNl^HagOka[Ol_GagOka[Ol_GagOka[Ol_GagO&kaaO&l_&Kg_2 O2O* d O,(344 eval 338 reverse 331 error! 324 resetrestore 170 compile-filea0001) (319 error 296 :process-entire-file 272 :compiler-output 248 :save-exprs 224 :output-file 203 :redefine 182 :lap 167 internal) ( 164 (compile-filea0001)) interlisp-format-p d1 (i 0 stream) @ dl;hdldl(i(3 peekccode) nil () interlisp-nlambda-function-p d1 (i 0 x) #@l@ dkdlih@ h(30 cl:special-form-p 10 argtype) nil () compile-file-expressiona0001 d1 (l (0 x)) @dnil nil () compile-file-expressiona0002 d1 (l (0 x)) @@ (9 cl:eval) nil () compile-file-expressiona0003a0004 d1 (l (0 x) f 0 compiled.file f 1 compile.time.too f 2 defer) @PQR (6 compile-file-expression) nil () compile-file-expressiona0003 d1 (f 0 form) gP (8 cl:mapc) (2 compile-file-expressiona0003a0004) () compile-file-expression d1 (p 8 prop p 7 inner-form p 6 inner-form p 5 compile.specified p 4 load.specified p 3 eval.specified p 2 vals p 1 vars p 0 x i 3 defer i 2 compile.time.too i 1 compiled.file i 0 form) X @B@dg@ABiC dg@dHABC hdgdg g@ g@ IJg dgzg@ g@g@ g@g@ g@L%MBK@dN h@dOAMBKC hg@A` @ @g @g O@ @ @d bB@ O@dgg b@ABC @C g@C (341 compile.file.apply 332 compile.file.apply 326 compile-file-expression 315 walk-form 299 eval 288 cl:macroexpand-1 282 interlisp-nlambda-function-p 276 cl:special-form-p 264 getprop 254 getprop 245 eval 241 print 221 compile-file-expression 191 eval 100 \\do.progv 89 cl:mapcar 80 cl:mapcar 48 compile-file-expression 25 compile-file-declare\:) (336 print 312 compile-file-walk-function 309 :walk-function 261 compile.file.expression 251 compile-file-expression 238 filerdtbl 231 cl:in-package 153 cl:compile 144 compile 137 cl:load 128 load 121 cl:eval 112 eval 105 cl:eval-when 97 compile-file-expressiona0003 83 compile-file-expressiona0002 74 compile-file-expressiona0001 68 cl:compiler-let 59 quote 30 progn 13 declare\:) () compile-file-walk-function d1 (i 0 form) @dd (12 cl:values 9 interlisp-nlambda-function-p) nil () argtype.state d1 (p 0 x f 1 argtype.vars) +Q$dHi ki H i i h(34 terpri 29 prin1 25 eval 18 spaces 12 prin1) nil () compile.check.argtype d1 (p 2 val p 1 atypepair p 0 blkflg i 1 at i 0 x f 3 coutfile f 4 argtype.vars) A@ Td@I AIDJ4oS @S oS IS oS IS I@I mJnoS @S oS gAToghS oS IS oS IS S I@I 2h(215 /settopval 212 remove 209 gettopval 198 terpri 193 prin1 185 prin1 176 prin1 167 prin1 158 prin1 131 prin1 122 prin1 116 prin1 102 gettopval 91 prin1 82 prin1 73 prin1 65 prin1 56 prin1 50 prin1 29 \\evalv1 7 comp.argtype) (150 |function| 135 \a) ( 181 " because it was incorrectly on " 163 " was a " 147 "LAMBDA spread" 127 " " 112 "Warning: compiler thought " 78 " but compiler doesn't think its a " 61 " on " 46 "Compiler confused: ") compile.file.defineq d1 (p 1 def i 1 lcfil i 0 form f 2 dontcompilefns) 2@HhYdRI III HX(42 bytecompile2 39 compile1a 28 compile.check.argtype 25 argtype) nil () compile-file-setf-symbol-function d1 (i 1 lcfil i 0 form) K@dgdgih$@dgd@ @gg A (72 print 68 walk-form 57 bytecompile2) (65 compile-file-walk-function 62 :walk-function 33 quote 15 cl:function 9 function) () compile-file-ex/import d1 (i 2 rdtbl i 1 lcfil i 0 form) @AB @ (9 eval 5 print) nil () compile.file.apply d1 (i 2 defer i 1 form i 0 prop f 0 deferred.expressions f 1 compiled.file) B@APcAQl@nil nil () compile.file.reset d1 (i 2 rootname i 1 sourcefile i 0 compiled.file f 0 resetstate f 1 notcompiledfiles) -@AP#gBQ g @ h(38 close-and-maybe-delete 32 openp 26 closef? 19 /setatomval 16 remove) (22 |Removes| 11 notcompiledfiles) () compile-in-corea0001a0002 d1 (name errorset p 7 freevars p 6 lcfil p 5 localvars p 4 specvars p 3 lstfil p 2 svflg p 1 strf p 0 lapflg f 8 |fn-expr| f 9 |fn-name| f 10 printlap f 11 bytecompflg f 12 nosave f 13 noredefine f 14 |fn-type| f 15 sysspecvars f 16 resety f 17 freevars) C W WilWhWggWhiWiWWi cW"WW c i(59 bytecompile2 44 compile1a) (24 selector 19 selector) () compile-in-corea0001 d1 (name errorset p 2 resetz p 1 resety p 0 lispxhist f 3 nullfile f 4 coutfile f 5 lispxhist f 6 resetvarslst) Gg S S Sgg ccU!Vog hgZ JIh(63 error! 57 resetrestore 47 compile-in-corea0001a0002 27 openfile 15 openp 10 streamp 5 boundp) (53 error 44 internal 24 output 21 {null} 2 nullfile) ( 41 (compile-in-corea0001a0002)) compile-in-core d1 (p 4 macroy p 3 macrox p 2 printlap p 1 noredefine p 0 dont-transfer-putd i 3 nosave i 2 |fn-type| i 1 |fn-expr| i 0 |fn-name| f 5 resetvarslst f 6 nlama f 7 nlaml f 8 lams f 9 lama f 10 nofixfnslst f 11 nofixvarslst f 12 coutfile) iAgVgWgWgWgWgWgWUc [\og Kc K[cK[cK[cK[cK[cK[cLdUKc U UkL K(151 error! 142 nleft 135 tailp 66 compile-in-corea0001) (63 internal 41 coutfile 35 nofixvarslst 29 nofixfnslst 23 lama 17 lams 11 nlaml 6 nlama) ( 60 (compile-in-corea0001)) (rpaqq argtype.vars ((1 nlaml "NLAMBDA spread") (2 lama "LAMBDA nospread") (0 lams "LAMBDA spread") (3 nlama "NLAMBDA no-spread"))) (putprops defineq compile-file-expression compile.file.defineq) (putprops * compile-file-expression nill) (putprops setf-symbol-function compile-file-expression compile-file-setf-symbol-function) (putprops prettycomprint compile-file-expression nill) compile-file-declare\: d1 (l (4 defer 3 docopy 2 eval@compile 1 compiled.file 0 form) f 2 coutfile) @Hd hlHYgIgIdgdgHXgIdgibghbIdgHX bgIdgibmghbcIdgHX bPgRoHIg