(FILECREATED "30-Sep-86 23:14:51" ("compiled on " {ERIS}SOURCES>CMLCOMPILE.;11) "27-Sep-86 00:33:58" "COMPILE-FILEd" in "Xerox Lisp 27-Sep-86 ..." dated "27-Sep-86 00:51:47") (FILECREATED "30-Sep-86 23:14:12" {ERIS}SOURCES>CMLCOMPILE.;11 32432 changes to: (FNS NEWDEFC COMPILE-FILE) previous date: "29-Sep-86 23:59:59" {ERIS}SOURCES>CMLCOMPILE.;10) (RPAQQ CMLCOMPILECOMS ((COMS (FUNCTIONS CL:COMPILE DISASSEMBLE) (FNS 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) (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 COMPILE-FILE-EXPRESSION PRETTYCOMPRINT) (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 COMPILE-FILE))))) CL:COMPILE D1 (L (1 LAMBDA-EXPR 0 NAME)) *@µgHAµ@ Aš@›@gA¿@µH (47Q GETD 37Q /PUTPROP 23Q COMPILE-IN-CORE 20Q GETD) (33Q EXPR 5 \CLCOMPILETEMP) () DISASSEMBLE D1 (L (0 -args-) F 21Q *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 (365Q PRINTCODE 350Q CL:COMPILE 345Q SYMBOL-FUNCTION 156Q CCODEP) (311Q :MARKED-PC 263Q :FIRST-BYTE 235Q :OUTPUT 212Q :RADIX 167Q :LEVEL-P) () COMPILE-FILEA0001 D1 (NAME ERRORSET P 22Q DEFERRED.EXPRESSIONS P 21Q *PRINT-BASE* P 20Q *READ-BASE* P 17Q *READTABLE* P 16Q *PACKAGE* P 5 LSTFIL P 3 SPECVARS P 2 LOCALVARS P 1 *READ-BASE* P 0 *PACKAGE* F 23Q RESETVARSLST F 24Q OUTPUT-FILE F 25Q FILENAME F 26Q PROCESS-ENTIRE-FILE F 27Q LAP F 30Q NLAML F 31Q NLAMA F 32Q RESETY F 33Q LAMS F 34Q LAMA F 35Q COMPILER-OUTPUT F 36Q REDEFINE F 37Q SAVE-EXPRS F 40Q COUTFILE F 41Q COMPILE.EXT F 42Q SYSLOCALVARS F 43Q *COMMON-LISP-READ-ENVIRONMENT* F 44Q PEFP F 45Q COMPILE.FILE.VALUE) 'ghhhW&c&¿gd gW0 ¿W&c&¿gd gW2 ¿W&c&¿gd gW6 ¿W&c&¿gd gW8 ¿W&c&¿gd g ¿W&c&¿gd gW: ¿W&c&¿gd gW< ¿W&c&¿gd gW>´g ¿W&c&¿gd gW. ¿W&c&¿`l WDi¤ gW*g \hhhW&c&¿Lgi __¿O_¿Od”WFðhð¾WH‘h€i“Nc,¿W.’W@½L c*¿gW(µghgWBgW* 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( cJc4i _¿N’O„O _°(1041Q CMLTRANSLATE 1024Q READ 1012Q CLOSEF 1004Q PRINT 775Q CLOSEF 737Q REVERSE 723Q EOFP 715Q SKIPSEPRCODES 710Q COMPILE-FILE-EXPRESSION 642Q PRINT-COMPILE-HEADER 617Q SETTOPVAL 606Q GETTOPVAL 554Q ROOTFILENAME 544Q OPENSTREAM 527Q PACKFILENAME.STRING 473Q FULLNAME 417Q \MVLIST 414Q \PARSE-FILE-HEADER 366Q OPENSTREAM 331Q SETTOPVAL 320Q GETTOPVAL 302Q SETTOPVAL 264Q GETTOPVAL 246Q SETTOPVAL 235Q GETTOPVAL 217Q SETTOPVAL 206Q GETTOPVAL 170Q SETTOPVAL 161Q GETTOPVAL 143Q SETTOPVAL 132Q GETTOPVAL 114Q SETTOPVAL 103Q GETTOPVAL 65Q SETTOPVAL 54Q GETTOPVAL 36Q SETTOPVAL 25Q GETTOPVAL) (650Q READER-ENVIRONMENT 612Q LCFIL 602Q LCFIL 535Q NEW 532Q OUTPUT 521Q BODY 514Q EXTENSION 510Q VERSION 501Q COMPILE.FILE.RESET 410Q RETURN 363Q INPUT 356Q CLOSEF? 343Q *INTERLISP-PACKAGE* 324Q LAPFLG 314Q LAPFLG 277Q DEFER 270Q SVFLG 260Q SVFLG 241Q STRF 231Q STRF 212Q COUTFILE 202Q COUTFILE 165Q DFNFLG 155Q DFNFLG 136Q LAMA 126Q LAMA 107Q LAMS 77Q LAMS 60Q NLAMA 50Q NLAMA 31Q NLAML 21Q NLAML 2 RESETUNDO) ( 635Q ("COMPILE-FILEd") 541Q ((TYPE BINARY))) COMPILE-FILE D1 (L (0 -args-) P 30Q RESETY P 27Q LISPXHIST P 26Q COMPILE.FILE.VALUE P 25Q COMPILE.FILE.AFTER P 24Q PROCESS-ENTIRE-FILE P 21Q PEFP P 20Q COMPILER-OUTPUT P 15Q SAVE-EXPRS P 12Q OUTPUT-FILE P 7 REDEFINE P 4 LAP P 1 FILENAME F 32Q LISPXHIST F 33Q 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,(530Q EVAL 522Q REVERSE 513Q ERROR! 504Q RESETRESTORE 252Q COMPILE-FILEA0001) (477Q ERROR 450Q :PROCESS-ENTIRE-FILE 420Q :COMPILER-OUTPUT 370Q :SAVE-EXPRS 340Q :OUTPUT-FILE 313Q :REDEFINE 266Q :LAP 247Q INTERNAL) ( 244Q (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(36Q SPECIAL-FORM-P 12Q ARGTYPE) NIL () COMPILE-FILE-EXPRESSIONA0001 D1 (L (0 X)) @dNIL NIL () COMPILE-FILE-EXPRESSIONA0002 D1 (L (0 X)) @´@ (11Q 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 (10Q CL:MAPC) (2 COMPILE-FILE-EXPRESSIONA0003A0004) () COMPILE-FILE-EXPRESSION D1 (P 10Q 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µñ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ðœ@A`@ @g µ @g O‘h€i²)@ ‘h€i²@ ‘h€i²@d bð§@ABCB”@ ¿Oµ@dggbô‘h€i³Ûg@C(535Q COMPILE.FILE.APPLY 514Q WALK-FORM 474Q EVAL 465Q COMPILE-FILE-EXPRESSION 452Q MACROEXPAND-1 437Q INTERLISP-NLAMBDA-FUNCTION-P 424Q SPECIAL-FORM-P 404Q GETPROP 372Q GETPROP 361Q EVAL 355Q PRINT 331Q COMPILE-FILE-EXPRESSION 273Q EVAL 144Q \DO.PROGV 131Q CL:MAPCAR 120Q CL:MAPCAR 60Q COMPILE-FILE-EXPRESSION 31Q COMPILE-FILE-DECLARE:) (530Q PRINT 511Q COMPILE-FILE-WALK-FUNCTION 506Q :WALK-FUNCTION 401Q COMPILE.FILE.EXPRESSION 367Q COMPILE-FILE-EXPRESSION 352Q FILERDTBL 343Q IN-PACKAGE 231Q CL:COMPILE 220Q COMPILE 211Q CL:LOAD 200Q LOAD 171Q CL:EVAL 160Q EVAL 151Q EVAL-WHEN 141Q COMPILE-FILE-EXPRESSIONA0003 123Q COMPILE-FILE-EXPRESSIONA0002 112Q COMPILE-FILE-EXPRESSIONA0001 104Q COMPILER-LET 73Q QUOTE 36Q PROGN 15Q DECLARE:) () COMPILE-FILE-WALK-FUNCTION D1 (I 0 FORM) @d d (14Q VALUES 11Q INTERLISP-NLAMBDA-FUNCTION-P) NIL () ARGTYPE.STATE D1 (P 0 X F 1 ARGTYPE.VARS) +Q°$dHi ¿ki ¿H i ¿i µÝh(42Q TERPRI 35Q PRIN1 31Q EVAL 22Q SPACES 14Q 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(327Q /SETTOPVAL 324Q REMOVE 321Q GETTOPVAL 306Q TERPRI 301Q PRIN1 271Q PRIN1 260Q PRIN1 247Q PRIN1 236Q PRIN1 203Q PRIN1 172Q PRIN1 164Q PRIN1 146Q GETTOPVAL 133Q PRIN1 122Q PRIN1 111Q PRIN1 101Q PRIN1 70Q PRIN1 62Q PRIN1 35Q \EVALV1 7 COMP.ARGTYPE) (226Q function 207Q a) ( 265Q " because it was incorrectly on " 243Q " was a " 223Q "LAMBDA spread" 177Q " " 160Q "Warning: compiler thought " 116Q " but compiler doesn't think its a " 75Q " on " 56Q "Compiler confused: ") COMPILE.FILE.DEFINEQ D1 (P 1 DEF I 1 LCFIL I 0 FORM F 2 DONTCOMPILEFNS) 2@HµhYdR³I ¿III ¿HX°×(52Q BYTECOMPILE2 47Q COMPILE1A 34Q COMPILE.CHECK.ARGTYPE 31Q ARGTYPE) NIL () COMPILE-FILE-SETF-SYMBOL-FUNCTION D1 (I 1 LCFIL I 0 FORM) K@dgð¥dgð’¿i¿h²$@dgð²dž@ @ggA (110Q PRINT 104Q WALK-FORM 71Q BYTECOMPILE2) (101Q COMPILE-FILE-WALK-FUNCTION 76Q :WALK-FUNCTION 41Q QUOTE 17Q CL:FUNCTION 11Q FUNCTION) () COMPILE-FILE-EX/IMPORT D1 (I 2 RDTBL I 1 LCFIL I 0 FORM) @AB@ (11Q 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(46Q CLOSE-AND-MAYBE-DELETE 40Q OPENP 32Q CLOSEF? 23Q /SETATOMVAL 20Q REMOVE) (26Q Removes 13Q 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 10Q fn-expr F 11Q fn-name F 12Q PRINTLAP F 13Q NOREDEFINE F 14Q fn-type F 15Q NOSAVE F 16Q SYSSPECVARS F 17Q RESETY F 20Q FREEVARS) H W´ `‘ilW‘h€iWgð“g…W‘h€iiWiWWic¿W WW ci(100Q BYTECOMPILE2 61Q COMPILE1A) (33Q SELECTOR 26Q 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 ‘SŠgg cc¿U!Vog ‘h‚gZ ¿J“€Ih(77Q ERROR! 71Q RESETRESTORE 57Q COMPILE-IN-COREA0001A0002 33Q OPENFILE 17Q OPENP 12Q STREAMP 5 BOUNDP) (65Q ERROR 54Q INTERNAL 30Q OUTPUT 25Q {NULL} 2 NULLFILE) ( 51Q (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 10Q LAMS F 11Q LAMA F 12Q NOFIXVARSLST F 13Q COUTFILE) iAgVgWgWgWg`gWgWUc [\og Kc¿K[c¿K[c¿K[c¿K[¿K[c¿K[c¿LdUð•¿Kc U ™UkLK¿µ(231Q ERROR! 220Q NLEFT 211Q TAILP 103Q COMPILE-IN-COREA0001) (151Q NOFIXFNSLST 100Q INTERNAL 52Q COUTFILE 44Q NOFIXVARSLST 40Q NOFIXFNSLST 35Q NOFIXFNSLST 27Q LAMA 21Q LAMS 13Q NLAML 6 NLAMA) ( 75Q (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) 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 (161Q :PREDICATE-P 136Q :VALUES-USED 113Q :TOP-LEVEL-P 65Q COMPILER:CONTEXTTYPE# 42Q :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 °ã(107Q COMPILER::COPY-ENV 102Q setf-COMPILER::ENV-FENV 72Q COMPILER::ENV-FENV 52Q COMPILER:MAKE-EMPTY-ENV) (24Q :FUNCTION) () COMPILER:COPY-ENV-WITH-VARIABLE D1 (L (0 -args-)) 8ekaQlaºlHñ“g‚la»Iµ\¾JKN ½NM L °ë(64Q COMPILER::COPY-ENV 57Q setf-COMPILER::ENV-VENV 50Q COMPILER::ENV-VENV 37Q COMPILER:MAKE-EMPTY-ENV) (24Q :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 (41Q VALUES 7 CL:ASSOC 4 COMPILER::ENV-FENV) (32Q :MACRO 24Q :MACRO) () COMPILER:MAKE-EMPTY-ENV D1 NIL (2 COMPILER::MAKE-ENV) NIL () (PUTPROPS PRETTYCOMPRINT COMPILE-FILE-EXPRESSION NILL) (PUTPROPS CMLCOMPILE FILETYPE COMPILE-FILE) (PUTPROPS CMLCOMPILE COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL