(FILECREATED "30-Sep-86 00:00:27" ("compiled on " {ERIS}SOURCES>CMLCOMPILE.;10) "29-Sep-86 15:13:09" in "Xerox Lisp 29-Sep-86 ..." dated "29-Sep-86 15:41:04") (FILECREATED "29-Sep-86 23:59:59" {ERIS}SOURCES>CMLCOMPILE.;10 32005 changes to: (FUNCTIONS COMPILE-FILE-DECLARE:) previous date: "29-Sep-86 23:36:23" {ERIS}SOURCES>CMLCOMPILE.;9) (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 COMPILE.EXT F 32Q NLAMA F 33Q LAMS F 34Q LAMA F 35Q COMPILER-OUTPUT F 36Q RESETY F 37Q REDEFINE F 40Q SAVE-EXPRS F 41Q COUTFILE F 42Q *INTERLISP-PACKAGE* F 43Q SYSLOCALVARS F 44Q *COMMON-LISP-READ-ENVIRONMENT* F 45Q PEFP F 46Q COMPILE.FILE.VALUE) &ghhhW&c&¿gd gW0 ¿W&c&¿gd gW4 ¿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&¿WDl WFi¤ gW*g \hhhW&c&¿Lgi __¿O_¿Od”WHðhð¾WJ‘h€i“Nc,¿W.’WB½L c*¿gW(µghgW2gW* 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¿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