(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "29-Oct-93 09:54:18" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLCOMPILE.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 10:39:21" "{Pele:mv:envos}Sources>CLTL2>CMLCOMPILE.;2" 31069 previous date%: "30-Mar-92 12:16:41" "{Pele:mv:envos}Sources>CLTL2>CMLCOMPILE.;1") (RPAQQ CMLCOMPILECOMS ((COMS (FUNCTIONS CL:DISASSEMBLE) (FNS FAKE-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) (FNS COMPILE-FILE-SCAN-FIRST) (* ; "This function is support for AR#11185") (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))))) (PROP FILETYPE CMLCOMPILE) ( DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FAKE-COMPILE-FILE))))) CL:DISASSEMBLE :D8 (L (0 -args-) F 17 *STANDARD-OUTPUT*) ekaHlKJdhHlNdMll_Hl__OdOkW"_Hl__OdOmh_Hl__OdOph_ I |IKdagl[kaagNkaNl^~agOkaOl_{agOkaOl_yagOkaOl_vIdd3@I LOOOO (268 PRINTCODE 253 CL:COMPILE 248 CL:SYMBOL-FUNCTION 110 CCODEP) (215 :MARKED-PC 190 :FIRST-BYTE 165 :OUTPUT 143 :RADIX 124 :LEVEL-P) () FAKE-COMPILE-FILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 23 AFTERS P 22 FIRSTFORMS P 21 *PRINT-LENGTH* P 20 *PRINT-LEVEL* P 19 DEFERRED.EXPRESSIONS P 18 *PRINT-ARRAY* 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* I 0 SI::*CLEANUP-FORMS* F 26 SI::*RESETFORMS* F 27 OUTPUT-FILE F 28 PROCESS-ENTIRE-FILE F 29 FILENAME F 30 REDEFINE F 31 LAP F 32 COMPILER-OUTPUT F 33 SAVE-EXPRS F 34 PEFP F 35 COMPILE.FILE.VALUE F 36 DFNFLG)  ghhdW4c4gd gW@ W4c4gd gW< W4c4gd gWB W<g W4c4gd gW> W4c4`l `i gW:g \hhdW4c4Lgi _O_Nd`hWDc8W>`L c:gW6ghg`gW: ggo c6LW: hhdW4c4W60gd gW6 W4c4LhoN N_OOOiqgggg _0hhdW4c4Odg=O_2gO2_2&ggO2_2icHgO2_2-OO0hW8 L Ld L O,3h___gO OdW6hW8i O0W6jO0 O0 O0 W8#O& d__OW6lOO.dW6hW8i hW6 W6 cF _(741 READ 733 CLOSEF 725 PRINT 711 COMPILE-FILE-EXPRESSION 668 REVERSE 656 DELFILE 651 FULLNAME 643 CLOSEF? 635 COPYBYTES 630 GETFILEPTR 613 COMPILE-FILE-EXPRESSION 593 APPLY 561 CLOSEF 550 EOFP 542 SKIPSEPRCODES 535 COMPILE-FILE-EXPRESSION 439 OPENSTREAM 384 PRINT-COMPILE-HEADER 363 SETTOPVAL 350 GETTOPVAL 321 ROOTFILENAME 311 OPENSTREAM 291 PACKFILENAME.STRING 251 FULLNAME 209 \MVLIST 204 \PARSE-FILE-HEADER 179 OPENSTREAM 140 SETTOPVAL 127 GETTOPVAL 110 SETTOPVAL 86 GETTOPVAL 69 SETTOPVAL 56 GETTOPVAL 39 SETTOPVAL 26 GETTOPVAL) (586 ADDTOVAR 514 ADDVARS 497 DOEVAL@COMPILE 492 COMPILERVARS 480 DECLARE%: 463 RPAQQ 434 NEW 429 BOTH 424 {CORE}SCRATCH.LCOM 419 CLOSEF? 391 READER-ENVIRONMENT 356 LCFIL 344 LCFIL 301 NEW 296 OUTPUT 283 BODY 278 COMPILE.EXT 273 EXTENSION 267 VERSION 258 COMPILE.FILE.RESET 244 COUTFILE 228 *COMMON-LISP-READ-ENVIRONMENT* 198 RETURN 174 INPUT 167 CLOSEF? 158 SYSLOCALVARS 151 *INTERLISP-PACKAGE* 133 LAPFLG 121 LAPFLG 105 DEFER 92 SVFLG 80 SVFLG 62 STRF 50 STRF 32 COUTFILE 20 COUTFILE 4 RESETUNDO) ( 378 ("COMPILE-FILEd") 306 ((TYPE BINARY))) FAKE-COMPILE-FILE :D8 (L (0 -args-) P 30 RESETSTATE P 29 SI::*RESETFORMS* P 28 LISPXHIST P 27 DFNFLG P 26 COMPILE.FILE.VALUE P 25 COMPILE.FILE.AFTER P 24 LAMA P 23 LAMS P 22 NLAMA P 21 NLAML P 20 PROCESS-ENTIRE-FILE P 19 PEFP P 18 COMPILER-OUTPUT P 17 SAVE-EXPRS P 16 OUTPUT-FILE P 15 REDEFINE P 14 LAP P 1 FILENAME F 31 NLAML F 32 NLAMA F 33 LAMA F 34 LISPXHIST) jeka HlKJhHlMdLhHl_OdNhHl__OdOiHl__OdOii_&Hl__OdOh_&W>W@`WB4WD!g $O2 Kdagl[=ka>agMkaAMl]0agOka>Ol_+agOkaOl_(d O4(352 EVAL 192 REVERSE 180 SI::RESETUNWIND 175 \MVLIST 170 FAKE-COMPILE-FILEA0001) (325 :PROCESS-ENTIRE-FILE 299 :COMPILER-OUTPUT 273 :SAVE-EXPRS 247 :OUTPUT-FILE 224 :REDEFINE 203 :LAP 165 SI::RESETUNWIND 150 LAMS) () INTERLISP-FORMAT-P :D8 (I 0 STREAM) @ dl;hdldl(i(5 PEEKCCODE) NIL () INTERLISP-NLAMBDA-FUNCTION-P :D8 (I 0 X) '@d3@ @ dkdlih @ h(34 CL:SPECIAL-FORM-P 12 ARGTYPE) NIL () COMPILE-FILE-EXPRESSIONA0001 :D8 (P 1 SI::%%$$MAP-FIRST-SUBLIST P 0 SI::%%$$MAP-FIRST-LIST F 2 FORM F 3 COMPILED.FILE F 4 FORCE-OUTPUT-P F 5 COMPILE.TIME.TOO F 6 DEFER) RHYHSUVT I(22 COMPILE-FILE-EXPRESSION) NIL () COMPILE-FILE-EXPRESSION :D8 (P 20 PROP P 19 INNER-FORM P 18 INNER-FORM P 17 COMPILE.SPECIFIED P 16 LOAD.SPECIFIED P 15 EVAL.SPECIFIED P 14 VALS P 13 VARS P 12 SI::%%$$MAP-ELEMENT P 11 SI::%%$$MAP-RESULT-TAIL P 10 SI::%%$$MAP-RESULT P 8 SI::%%$$MAP-FIRST-SUBLIST P 3 X P 2 BODY P 1 NAME P 0 DEFINITION I 4 FORCE-OUTPUT-P I 3 DEFER I 2 COMPILE.TIME.TOO I 1 COMPILED.FILE I 0 FORM) @@dgdg@AhiBCD dg:@ gH gH J JABCD dg@dKABCD hdg&dg@1L0O@    O4OOOg dONM&Mh^_L\_ O _OOO&_Oh__O_dgg@ g@g@ g@g@ g@O *O"B*O"@dO$ h@dO&AO"BOCD hdgdg@A @ dgdgdgdgdgdgdgdgg@i b@g @g O(@ @ @d b%B@ O($@dgg b@ABCD @CD g@CD (697 COMPILE.FILE.APPLY 683 COMPILE.FILE.APPLY 674 COMPILE-FILE-EXPRESSION 658 WALK-FORM 636 EVAL 623 CL:MACROEXPAND-1 615 INTERLISP-NLAMBDA-FUNCTION-P 606 CL:SPECIAL-FORM-P 592 GETPROP 578 GETPROP 561 EXPANDMACRO 474 EVAL 468 PRINT 438 COMPILE-FILE-EXPRESSION 402 EVAL 259 CL:EVAL 217 \DO.PROGV 134 COMPILE-FILE-EXPRESSION 104 COMPILE-FILE-EXPRESSION 93 CL:EVAL 84 XCL::%%EXPAND-DEFINER 70 XCL::%%DEFINER-NAME 56 REMOVE-COMMENTS 39 COMPILE-FILE-SCAN-FIRST) (689 PRINT 653 COMPILE-FILE-WALK-FUNCTION 648 :WALK-FUNCTION 587 COMPILE.FILE.EXPRESSION 573 COMPILE-FILE-EXPRESSION 552 CL:SETQ 544 IMPORT 535 CL:UNUSE-PACKAGE 526 CL:USE-PACKAGE 517 CL:UNEXPORT 508 EXPORT 499 CL:SHADOWING-IMPORT 490 CL:SHADOW 481 CL:MAKE-PACKAGE 459 CL:IN-PACKAGE 451 CL:IN-PACKAGE 358 CL:COMPILE 347 COMPILE 338 CL:LOAD 327 LOAD 318 CL:EVAL 307 EVAL 296 CL:EVAL-WHEN 212 COMPILE-FILE-EXPRESSIONA0001 158 CL:COMPILER-LET 147 QUOTE 111 PROGN 78 DEFMACRO 64 DEFMACRO 46 DEFMACRO 23 FILECREATED 15 DECLARE%:) () COMPILE-FILE-WALK-FUNCTION :D8 (I 0 FORM) @dd $(11 INTERLISP-NLAMBDA-FUNCTION-P) NIL () ARGTYPE.STATE :D8 (P 0 X F 1 ARGTYPE.VARS) 5Q.dHi ki H i i h(44 TERPRI 37 PRIN1 31 EVAL 22 SPACES 14 PRIN1) NIL () COMPILE.CHECK.ARGTYPE :D8 (P 2 VAL P 1 ATYPEPAIR P 0 BLKFLG I 1 AT I 0 X F 3 ARGTYPE.VARS) [A@ KS@d@I AInJ[o` @` o` I` o` I` I@I Jo` @` o` gASogh` o` I` o` I` ` I@I h(332 /SETTOPVAL 327 REMOVE 322 GETTOPVAL 309 TERPRI 298 PRIN1 284 PRIN1 268 PRIN1 253 PRIN1 237 PRIN1 199 PRIN1 183 PRIN1 171 PRIN1 147 GETTOPVAL 134 PRIN1 119 PRIN1 103 PRIN1 89 PRIN1 73 PRIN1 61 PRIN1 33 \EVALV1 9 COMP.ARGTYPE) (304 COUTFILE 293 COUTFILE 279 COUTFILE 263 COUTFILE 248 COUTFILE 232 COUTFILE 223 function 205 a 194 COUTFILE 178 COUTFILE 166 COUTFILE 129 COUTFILE 114 COUTFILE 98 COUTFILE 84 COUTFILE 68 COUTFILE 56 COUTFILE) ( 274 " because it was incorrectly on " 243 " was a " 218 "LAMBDA spread" 189 " " 161 "Warning: compiler thought " 109 " but compiler doesn't think its a " 79 " on " 51 "Compiler confused: ") COMPILE.FILE.DEFINEQ :D8 (P 1 DEF I 1 LCFIL I 0 FORM F 2 DONTCOMPILEFNS) ;@HhYdR#I IIIh HX(51 BYTECOMPILE2 46 COMPILE1A 32 COMPILE.CHECK.ARGTYPE 27 ARGTYPE) NIL () COMPILE-FILE-SETF-SYMBOL-FUNCTION :D8 (I 1 LCFIL I 0 FORM) \@dgdgih)@dgd@ @gg A (89 PRINT 83 WALK-FORM 66 BYTECOMPILE2) (78 COMPILE-FILE-WALK-FUNCTION 73 :WALK-FUNCTION 39 QUOTE 19 CL:FUNCTION 11 FUNCTION) () COMPILE-FILE-EX/IMPORT :D8 (I 2 RDTBL I 1 LCFIL I 0 FORM) @AB @ (13 EVAL 7 PRINT) NIL () COMPILE.FILE.APPLY :D8 (I 3 FORCE-OUTPUT-P I 2 DEFER I 1 FORM I 0 PROP F 0 COMPILED.FILE F 1 DEFERRED.EXPRESSIONS) CAP B@AQcAPl@(8 PRINT) NIL () COMPILE.FILE.RESET :D8 (I 2 ROOTNAME I 1 SOURCEFILE I 0 COMPILED.FILE F 0 RESETSTATE) ?@+A P5gB` g @ h(56 CLOSE-AND-MAYBE-DELETE 48 OPENP 40 CLOSEF? 29 /SETATOMVAL 24 REMOVE) (34 Removes 19 NOTCOMPILEDFILES 13 NOTCOMPILEDFILES) () COMPILE-IN-COREA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* P 7 FREEVARS P 6 LCFIL P 5 LOCALVARS P 4 SPECVARS P 3 LSTFIL P 2 SVFLG P 1 STRF P 0 LAPFLG I 0 SI::*CLEANUP-FORMS* F 8 fn-expr F 9 fn-name F 10 PRINTLAP F 11 NOREDEFINE F 12 fn-type F 13 NOSAVE F 14 FREEVARS) KW `ilWhWggWhi`iWWi cWWW (72 BYTECOMPILE2 56 COMPILE1A) (42 SYSSPECVARS 31 SELECTOR 24 SELECTOR 8 BYTECOMPFLG) () COMPILE-IN-COREA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 SI::*CLEANUP-FORMS* F 3 NULLFILE F 4 NLAMA F 5 NLAML F 6 LAMA F 7 NOFIXFNSLST F 8 NOFIXVARSLST F 9 LISPXHIST) ^TU`VWWg S S Sgg cW!g $(87 SI::RESETUNWIND 82 \MVLIST 77 COMPILE-IN-COREA0001A0002 55 OPENFILE 36 OPENP 29 STREAMP 21 BOUNDP) (72 SI::RESETUNWIND 62 COUTFILE 50 OUTPUT 45 {NULL} 16 NULLFILE 6 LAMS) () COMPILE-IN-CORE :D8 (P 3 SI::*RESETFORMS* 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 4 NLAMA F 5 NLAML F 6 NOFIXVARSLST F 7 LAMA F 8 NOFIXFNSLST) bi1gTgUg`gWgWgVg`hg $(91 SI::RESETUNWIND 86 \MVLIST 81 COMPILE-IN-COREA0001) (76 SI::RESETUNWIND 61 COUTFILE 56 COUTFILE 49 NOFIXVARSLST 41 NOFIXFNSLST 33 LAMA 27 LAMS 22 LAMS 15 NLAML 8 NLAMA) () COMPILE-FILE-SCAN-FIRST :D8 (P 6 #:G3009 P 5 TAIL P 4 NOTFIRST P 3 EVAL@COMPILE P 2 DOCOPY P 1 FIRST P 0 DFNFLG I 6 FORCE-OUTPUT-P I 5 DEFER I 4 EVAL@COMPILE I 3 DOCOPY I 2 FIRSTFLG I 1 COMPILED.FILE I 0 FORM F 7 FIRSTFORMS F 8 AFTERS F 9 DFNFLG) WBCD@@dgu@M Md3@MNgNdgiZghZNdgM] ZgNgNdgdgM]gNdgi[wgh[lNdgM] [Vgih\INdg?dgihY0dg'giXNg`oM VMgMAIJKE