(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (filecreated "29-Oct-86 19:15:03" ("compiled on " {eris}sources>cmlcompile.\;15) "21-Oct-86 04:13:01" "COMPILE-FILEd" |in| "Xerox Lisp 21-Oct-86 ..." |dated| "21-Oct-86 04:48:43") (filecreated "29-Oct-86 19:14:26" {eris}sources>cmlcompile.\;15 34852 |changes| |to:| ( functions defoptimizer) |previous| |date:| "18-Oct-86 22:22:49" {eris}sources>cmlcompile.\;14) (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))))) (coms (* \; "Optimizer definitions and environment hacking") (define-types optimizers ) (functions compiler:optimizer-list) (functions defoptimizer) (structures compiler:env compiler:context ) (fns compiler:copy-env-with-function compiler:copy-env-with-variable compiler:env-boundp compiler:env-fboundp compiler:make-empty-env)) (prop filetype cmlcompile) (declare\: donteval@load doeval@compile dontcopy compilervars (addvars (nlama) (nlaml) (lama compiler:make-empty-env compiler:env-fboundp compiler:env-boundp compiler:copy-env-with-variable compiler:copy-env-with-function 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 compiler-output f 26 save-exprs f 27 *interlisp-package* f 28 compile.file.value f 29 *common-lisp-read-environment* f 30 pefp f 31 resety f 32 coutfile) ,ghhhW&c&gd g` W&c&gd g` W&c&gd g` W&c&gd g` W&c&gd g W&c&gd gW2 W&c&gd gW. W&c&gd gW4 W.g W&c&gd gW0 W&c&W6l `i gW*g \hhhW&c&Lgi __O_OdW:hWW,!O$ d__OW(lOL hW( W( c8c>i _NOO _(550 cmltranslate 537 read 527 closef 521 print 514 closef 484 reverse 472 eofp 466 skipseprcodes 461 compile-file-expression 423 print-compile-header 404 settopval 395 gettopval 369 rootfilename 361 openstream 348 packfilename.string 319 fullname 279 \\mvlist 276 \\parse-file-header 254 openstream 225 settopval 216 gettopval 202 settopval 184 gettopval 170 settopval 161 gettopval 147 settopval 138 gettopval 124 settopval 117 gettopval 103 settopval 93 gettopval 79 settopval 69 gettopval 55 settopval 45 gettopval 31 settopval 21 gettopval) (429 reader-environment 399 lcfil 391 lcfil 354 new 351 output 342 body 339 compile.ext 336 extension 332 version 325 compile.file.reset 272 return 251 input 246 closef? 239 syslocalvars 220 lapflg 212 lapflg 199 defer 188 svflg 180 svflg 165 strf 157 strf 142 coutfile 134 coutfile 121 dfnflg 113 dfnflg 100 lama 97 lama 89 lama 76 lams 73 lams 65 lams 52 nlama 49 nlama 41 nlama 28 nlaml 25 nlaml 17 nlaml 2 resetundo) ( 418 ("COMPILE-FILEd") 358 ((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) 4@HhYd`I III HX(44 bytecompile2 41 compile1a 30 compile.check.argtype 27 argtype) (17 dontcompilefns) () 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) /@AP%gB` g @ h(40 close-and-maybe-delete 34 openp 28 closef? 21 /setatomval 18 remove) (24 |Removes| 15 notcompiledfiles 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 noredefine f 12 resety f 13 |fn-type| f 14 nosave f 15 freevars) EW `ilWhWggWhi`iWWi cWWW ci(61 bytecompile2 46 compile1a) (34 sysspecvars 25 selector 20 selector 6 bytecompflg) () 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 nofixfnslst f 7 nofixvarslst f 8 coutfile) iAg`g`g`g`gVgWgWUc [\og KK[K[K[K[c K[cK[cLdUKc U UkL K(159 error! 150 nleft 143 tailp 70 compile-in-corea0001) (103 lama 94 lams 85 nlaml 76 nlama 67 internal 45 coutfile 39 nofixvarslst 34 nofixfnslst 30 lama 27 lama 23 lams 20 lams 16 nlaml 13 nlaml 9 nlama 6 nlama) ( 64 (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