(FILECREATED "14-Oct-86 23:45:28" ("compiled on " {ERIS}SOURCES>CMLCOMPILE.;13) "14-Oct-86 21:06:05" "COMPILE-FILEd" in "Xerox Lisp 14-Oct-86 ..." dated "14-Oct-86 22:24:47") (FILECREATED "12-Oct-86 16:03:55" {ERIS}SOURCES>CMLCOMPILE.;13 33265 changes to: (VARS CMLCOMPILECOMS) (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 NEWDEFC) (FUNCTIONS CL§COMPILE CL§DISASSEMBLE COMPILE-FILE-DECLARE: COMPILER§OPTIMIZER-LIST DEFOPTIMIZER) (DEFINE-TYPES OPTIMIZERS) previous date: " 6-Oct-86 22:36:57" {ERIS}SOURCES>CMLCOMPILE.;12) (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*) øekañHl»ºKdJó²b¿h¼Hl¾½NdMó²g¿l_¿Hl_¿_¿OdOó²c¿W"_¿Hl_¿_¿OdOó²b¿h_¿Hl_¿_¿OdOó²b¿h_ ¿I ´mI°wagð•KkØa°˜KlÔ[°Šagð•NkØa°”NlÔ^°…agð–OkØa°—OlÔ_°…agð–OkØa°—OlÔ_°†agð–OkØa°—OlÔ_°†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_¿Od”WHðhð¾WJ‘h€i“Nc,¿W0’WB½L c*¿gW(µghgW4gW* ggoc(LW* hhhW&c&¿W(²&gd gW( ¿W&c&¿LhoO¿O_ÉOÉOÉOÉOW(hW,¿L ¿Ld ²>¿W,²!O$ °d__¿OW(lO¿µêL hW( W( cLc>i _¿N’O„O _°(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ñ`Hl»ºKdJó¢±¿h¼Hl¾½NdMó¢±¢¿h_¿Hl_¿_¿OdOó¢±Ÿ¿h_¿Hl_¿_¿OdOó¢±Ÿ¿i_¿Hl_¿_¿OdOó¢±Ÿ¿i_ ¿i_"¿Hl_&¿_$¿O&dO$ó¢±›¿h_"_(¿h_*_,¿W4!W6og ¢±‘h±agð–KkØa±ÿ^KlÔ[±ÿMagð–NkØa±ÿYNlÔ^±ÿHagð—OkØa±ÿ[OlÔ_±ÿGagð—OkØa±ÿ[OlÔ_±ÿGagð—OkØa±ÿ[OlÔ_±ÿGagð—O&kØa±ÿaO&lÔ_&±ÿKg_2 ¿O2“¿O* †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;ð‘hdlð¥dl(ð´öi(3 PEEKCCODE) NIL () INTERLISP-NLAMBDA-FUNCTION-P D1 (I 0 X) %@lð´@ dkð¤dlð’¿i¿h´ @ ‘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 F 9 FILERDTBL) _ @´‚±Û@dgðš¿@ABiC dgð²¿@ŒdHABCµñhdgð’±¡dgð² g@ g@ IJgdgð²v¿g@µ g@g@µ g@g@µ g@L‘h€i²M¥B´5K´2@‰dN µôh@°dOAMµB´KCµêhgð›@AW@ @g µ @g O‘h€i²)@ ‘h€i²@ ‘h€i²@d bð§@ABCB”@ ¿Oµ@dggbô‘h€i³Ûg@C(348 COMPILE.FILE.APPLY 331 WALK-FORM 315 EVAL 308 COMPILE-FILE-EXPRESSION 297 CL§MACROEXPAND-1 286 INTERLISP-NLAMBDA-FUNCTION-P 275 CL§SPECIAL-FORM-P 259 GETPROP 249 GETPROP 240 EVAL 236 PRINT 217 COMPILE-FILE-EXPRESSION 187 EVAL 100 \DO.PROGV 89 CL§MAPCAR 80 CL§MAPCAR 48 COMPILE-FILE-EXPRESSION 25 COMPILE-FILE-DECLARE:) (343 PRINT 328 COMPILE-FILE-WALK-FUNCTION 325 §WALK-FUNCTION 256 COMPILE.FILE.EXPRESSION 246 COMPILE-FILE-EXPRESSION 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) @d d (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@ ð’±ØT±Íd@I AIð²DJ²4oS ¿@S ¿oS ¿IS ¿oS ¿IS ¿I@I °mJ²noS ¿@S ¿oS ¿gATµoghS ¿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@HµhYdR³I ¿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@dgð¥dgð’¿i¿h²$@dgð²dž@ @ggA (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) -@µAµP³#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´ W‘ilW‘h€iWgð“g…W‘h€iiWiWWic¿W"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 ‘SŠgg cc¿U!Vog ‘h‚gZ ¿J“€Ih(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[c¿K[c¿K[c¿K[c¿K[c¿K[c¿LdUð•¿Kc U ™UkLK¿µ(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 ‘hlð¢±·HYgð’±ÓIgð’±ÊIdgð’±¿dgð–¿HX±²gð§Idgð–¿ib±Ÿgð•hb±”Idgðœ¿HX b±€gð§Idgð•¿ib°mgð”hb°cIdgð›¿HX b°Pgð˜RoH°Igð³¿g¼Hk¾½NdMó²B¿h_¿`dI¿dL¿dO¿agð•JkØa°¿JlÔZ°±agð•KkØa°¾KlÔ[°®agð•NkØa°¸NlÔ^°ª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-)) KekaalaºlHñ“g‚la»lHñ‘h‚la¼Iµ]_¿JKLhO ¾ON M °ã(71 COMPILER§§COPY-ENV 66 setf-COMPILER::ENV-FENV 58 COMPILER§§ENV-FENV 42 COMPILER§MAKE-EMPTY-ENV) (20 §FUNCTION) () COMPILER§COPY-ENV-WITH-VARIABLE D1 (L (0 -args-)) 8ekaQlaºlHñ“g‚la»Iµ\¾JKN ½NM L °ë(52 COMPILER§§COPY-ENV 47 setf-COMPILER::ENV-VENV 40 COMPILER§§ENV-VENV 31 COMPILER§MAKE-EMPTY-ENV) (20 §LEXICAL) () COMPILER§ENV-BOUNDP D1 (L (1 VAR 0 ENV)) A@ d(7 CL§ASSOC 4 COMPILER§§ENV-VENV) NIL () COMPILER§ENV-FBOUNDP D1 (L (1 FN 0 ENV)) $A@ Hd²dgðš¿gH (33 CL§VALUES 7 CL§ASSOC 4 COMPILER§§ENV-FENV) (26 §MACRO 20 §MACRO) () 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