(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "24-Sep-2023 14:11:25" ("compiled on " {WMEDLEY}CMLCOMPILE.;2) "23-Sep-2023 23:13:47" "COMPILE-FILEd" in "FULL 23-Sep-2023 ..." dated "23-Sep-2023 23:13:54") (FILECREATED "24-Sep-2023 14:11:25" {WMEDLEY}CMLCOMPILE.;2 22597 :EDIT-BY rmk :CHANGES-TO ( FNS COMPILE-IN-CORE) :PREVIOUS-DATE " 2-Jul-90 20:24:02" {WMEDLEY}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 DFNFLG F 35 *COMMON-LISP-READ-ENVIRONMENT* F 36 PEFP F 37 COMPILE.FILE.VALUE F 38 COUTFILE)  ghhdW4c4gd gW@ W4c4gd gW< W4c4gd gWB W<g W4c4gd gW> W4c4`l `i gW:g \hhdW4c4Lgi _O_NdWFhWHc8W>WLL c:gW6ghg`gW: ggo c6LW: hhdW4c4W60gd gW6 W4c4LhoN N_OOOiqgggg _0hhdW4c4Odg=O_2gO2_2&ggO2_2icDgO2_2-OO0hW8 L Ld L O,3h___gO OdW6hW8i O0W6jO0 O0 O0 W8#O& d__OW6lOO.dW6hW8i hW6 W6 cJ _(735 READ 727 CLOSEF 719 PRINT 705 COMPILE-FILE-EXPRESSION 662 REVERSE 650 DELFILE 645 FULLNAME 637 CLOSEF? 629 COPYBYTES 624 GETFILEPTR 607 COMPILE-FILE-EXPRESSION 587 APPLY 555 CLOSEF 544 EOFP 536 SKIPSEPRCODES 529 COMPILE-FILE-EXPRESSION 433 OPENSTREAM 378 PRINT-COMPILE-HEADER 357 SETTOPVAL 344 GETTOPVAL 315 ROOTFILENAME 305 OPENSTREAM 285 PACKFILENAME.STRING 245 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) (580 ADDTOVAR 508 ADDVARS 491 DOEVAL@COMPILE 486 COMPILERVARS 474 DECLARE%: 457 RPAQQ 428 NEW 423 BOTH 418 {CORE}SCRATCH.LCOM 413 CLOSEF? 385 READER-ENVIRONMENT 350 LCFIL 338 LCFIL 295 NEW 290 OUTPUT 277 BODY 272 COMPILE.EXT 267 EXTENSION 261 VERSION 252 COMPILE.FILE.RESET 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) ( 372 ("COMPILE-FILEd") 300 ((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 LISPXHIST F 34 LAMS F 35 LAMA) geka HlKJhHlMdLhHl_OdNhHl__OdOiHl__OdOii_&Hl__OdOh_&W>W@WDWF4WB!g $O2 Kdagl[@kaAagMkaDMl]3agOkaAOl_.agOka?Ol_+agOka=Ol_)agOkaAOl_+d O4(349 EVAL 189 REVERSE 177 SI::RESETUNWIND 172 \MVLIST 167 FAKE-COMPILE-FILEA0001) (322 :PROCESS-ENTIRE-FILE 296 :COMPILER-OUTPUT 270 :SAVE-EXPRS 244 :OUTPUT-FILE 221 :REDEFINE 200 :LAP 162 SI::RESETUNWIND) () 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 hdg@A @ dgdgdgdgdgdgdgdgg@i b@g @g O(@ @ @d b%B@ O($@dgg b@ABCD @CD g@CD (689 COMPILE.FILE.APPLY 675 COMPILE.FILE.APPLY 666 COMPILE-FILE-EXPRESSION 650 WALK-FORM 628 EVAL 615 CL:MACROEXPAND-1 607 INTERLISP-NLAMBDA-FUNCTION-P 598 CL:SPECIAL-FORM-P 584 GETPROP 570 GETPROP 553 EXPANDMACRO 466 EVAL 460 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) (681 PRINT 645 COMPILE-FILE-WALK-FUNCTION 640 :WALK-FUNCTION 579 COMPILE.FILE.EXPRESSION 565 COMPILE-FILE-EXPRESSION 544 CL:SETQ 536 IMPORT 527 CL:UNUSE-PACKAGE 518 CL:USE-PACKAGE 509 CL:UNEXPORT 500 EXPORT 491 CL:SHADOWING-IMPORT 482 CL:SHADOW 473 CL:MAKE-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 COUTFILE F 4 ARGTYPE.VARS) A@ Td@I AIVJCoS @S oS IS oS IS I@I JoS @S oS gAToghS oS IS oS IS S I@I h(272 /SETTOPVAL 267 REMOVE 262 GETTOPVAL 249 TERPRI 242 PRIN1 232 PRIN1 220 PRIN1 209 PRIN1 197 PRIN1 163 PRIN1 151 PRIN1 143 PRIN1 123 GETTOPVAL 110 PRIN1 99 PRIN1 87 PRIN1 77 PRIN1 65 PRIN1 57 PRIN1 33 \EVALV1 9 COMP.ARGTYPE) (187 function 169 a) ( 226 " because it was incorrectly on " 203 " was a " 182 "LAMBDA spread" 157 " " 137 "Warning: compiler thought " 93 " but compiler doesn't think its a " 71 " 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 COUTFILE F 7 LAMS F 8 LAMA F 9 NOFIXFNSLST F 10 NOFIXVARSLST F 11 LISPXHIST) Y TUWWWWg S S Sgg cc W!g $(82 SI::RESETUNWIND 77 \MVLIST 72 COMPILE-IN-COREA0001A0002 53 OPENSTREAM 34 OPENP 27 STREAMP 19 BOUNDP) (67 SI::RESETUNWIND 48 OUTPUT 43 {NULL} 14 NULLFILE) () 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 LAMS F 7 COUTFILE F 8 LAMA F 9 NOFIXFNSLST F 10 NOFIXVARSLST) \i1gTgUgVgWgWgWgWhg $(85 SI::RESETUNWIND 80 \MVLIST 75 COMPILE-IN-COREA0001) (70 SI::RESETUNWIND 53 COUTFILE 45 NOFIXVARSLST 37 NOFIXFNSLST 29 LAMA 22 LAMS 15 NLAML 8 NLAMA) () COMPILE-FILE-SCAN-FIRST :D8 (P 6 #:G12 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 F 10 COUTFILE) WBCD@@dgq@M ~Md3@MNgNdgiZghZNdgM] ZgNgNdgdgM]gNdgi[sgh[hNdgM] [Rgih\ENdg;dgihY,dg#giXNgWoM VMgMAIJKE