(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (filecreated "18-Oct-86 22:23:39" ("compiled on " {eris}sources>cmlcompile.\;14) "14-Oct-86 21:06:05" "COMPILE-FILEd" |in| "Xerox Lisp 14-Oct-86 ..." |dated| "14-Oct-86 22:24:47") (filecreated "18-Oct-86 22:22:49" {eris}sources>cmlcompile.\;14 35578 |previous| |date:| "12-Oct-86 16:03:55" {eris}sources>cmlcompile.\;13) (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 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_OdWHhWJhiNc,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 _(548 cmltranslate 535 read 525 closef 519 print 512 closef 482 reverse 470 eofp 464 skipseprcodes 459 compile-file-expression 421 print-compile-header 402 settopval 393 gettopval 367 rootfilename 359 openstream 346 packfilename.string 318 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) (427 reader-environment 397 lcfil 389 lcfil 352 new 349 output 340 body 335 extension 331 version 324 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) ( 416 ("COMPILE-FILEd") 356 ((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 @ hi(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) ` @@dg@ABiC dg@dHABC hdgdg g@ g@ IJg dgvg@ g@g@ g@g@ g@LhiMB5K2@dN h@dOAMBKC hg@A` @ @g @g Ohi)@ hi@ hi@d b@ABC B@ O@dgg bhig@C (349 compile.file.apply 332 walk-form 316 eval 309 compile-file-expression 298 cl:macroexpand-1 287 interlisp-nlambda-function-p 276 cl:special-form-p 260 getprop 250 getprop 241 eval 237 print 217 compile-file-expression 187 eval 100 \\do.progv 89 cl:mapcar 80 cl:mapcar 48 compile-file-expression 25 compile-file-declare\:) (344 print 329 compile-file-walk-function 326 :walk-function 257 compile.file.expression 247 compile-file-expression 234 filerdtbl 227 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) G W WilWhiWggWhiiWiWWi cW"WW c i(63 bytecompile2 48 compile1a) (26 selector 21 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 bPgRoHIggHkNdMBh_`dIdLdOagJkaJlZagKkaKl[agNkaNl^nil (113 :predicate-p 94 :values-used 75 :top-level-p 53 |CONTEXTTYPE#| 34 :unknown) () (putprop (quote compiler:context) (quote structure-constructor) (quote compiler:make-context)) (putprop (quote compiler:context) (quote %structure-class) (quote structure-class)) (putprop (quote compiler:context) (quote %slot-descriptions) (quote ((top-level-p nil) (values-used :unknown) (predicate-p nil)))) (putprop (quote compiler:context) (quote %local-slot-names) (quote (predicate-p values-used top-level-p))) (/declaredatatype (quote compiler:context) (quote (pointer pointer pointer)) (quote ((compiler:context 0 pointer) (compiler:context 2 pointer) (compiler:context 4 pointer))) (quote 6)) compiler:copy-env-with-function d1 (l (0 |-args-|)) KekaalalHglalHhlaI]_JKLhO ON M (71 compiler::copy-env 66 compiler::|setf-ENV-FENV| 58 compiler::env-fenv 42 compiler:make-empty-env) (20 :function) () compiler:copy-env-with-variable d1 (l (0 |-args-|)) 8ekaQlalHglaI\JKN NM L (52 compiler::copy-env 47 compiler::|setf-ENV-VENV| 40 compiler::env-venv 31 compiler:make-empty-env) (20 :lexical) () compiler:env-boundp d1 (l (1 compiler::name 0 compiler::env)) A@ (@dA %@AggggggA    HditAdg' @AggggggA   @AgA gA &Ag'@AggggggA  HbG(177 compiler::env-bind-variable 174 compiler::make-variable 136 compiler::make-literal 133 cl:symbol-value 124 fasl\:value-dumpable-p 121 cl:symbol-value 110 cl:constantp 106 compiler::env-bind-variable 103 compiler::make-variable 55 compiler::env-parent 51 cl:values-list 46 compiler::env-bind-variable 43 compiler::make-variable 15 compiler::env-proclaimed-special-p 7 cl:assoc 4 compiler::env-venv) (169 :name 166 :variable 163 :kind 160 :global 157 :scope 154 :global 146 globalvar 129 :value 117 :constant 98 :name 95 :variable 92 :kind 89 :special 86 :scope 83 :special 74 globally-special 38 :name 35 :variable 32 :kind 29 :special 26 :scope 23 :special) () compiler:env-fboundp d1 (l (1 compiler::name 0 compiler::env)) %A@ @ HdiHb h(32 cl:values-list 13 compiler::env-parent 7 cl:assoc 4 compiler::env-fenv) nil () compiler:make-empty-env d1 nil (2 compiler::make-env) nil () (putprops cmlcompile filetype cl:compile-file) (putprops cmlcompile copyright ("Xerox Corporation" 1985 1986)) nil