(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "24-Sep-2023 13:59:34" ("compiled on " {WMEDLEY}COMPILE.;5) "23-Sep-2023 23:13:47" brecompiled exprs%: COMPSET in "FULL 23-Sep-2023 ..." dated "23-Sep-2023 23:13:54") (FILECREATED "24-Sep-2023 13:59:34" {WMEDLEY}COMPILE.;5 77344 :EDIT-BY rmk :CHANGES-TO (VARS COMPILECOMS) (FNS COMPSET) :PREVIOUS-DATE " 5-Jul-2021 13:46:39" {WMEDLEY}COMPILE.;4) BCOMPLA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 10 *PRINT-LEVEL* P 9 *PRINT-LENGTH* P 8 EXPRSLST P 7 *PRINT-ARRAY* P 6 NOFIXFNSLST P 5 NOFIXVARSLST P 4 DWIMIFYCOMPFLG P 3 LAMA P 2 LAMS P 1 NLAMA P 0 NLAML I 0 SI::*CLEANUP-FORMS* F 11 NLAML F 12 NLAMA F 13 LAMA F 14 CFILE F 15 DWIMIFYCOMPFLG F 16 NOFIXVARSLST F 17 NOBLOCKSFLG F 18 NOFIXFNSLST F 19 FILES F 20 OPTIONSSET) ) WW`WWW W$i8 W& WW"W( (38 BCOMPL.BODY 27 RESETOPENFILES) (8 LAMS) () BCOMPL :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 OPTIONSSET I 2 NOBLOCKSFLG I 1 CFILE I 0 FILES F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 BCOMPLA0001) (8 SI::RESETUNWIND) () BCOMPL.BODYA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 5 *EXTERNALFORMAT* P 4 *PRINT-BASE* P 3 *READ-BASE* P 2 *READTABLE* P 1 *PACKAGE* I 0 SI::*CLEANUP-FORMS* F 6 STREAM F 7 SI::*RESETFORMS* F 8 TEM F 9 *OLD-INTERLISP-READ-ENVIRONMENT*) gVhhdWcgV hhWcWHHHHHV cddghgVWg'g WgddV (135 BCOMPL1A 118 \EXTERNALFORMAT 72 READ 28 INPUT) (126 DEFAULT 113 :XCCS 105 :FORMAT 93 DEFINE-FILE-INFO 82 STOP 45 READER-ENVIRONMENT 22 INPUT 4 CLOSEF) () BCOMPL.BODY :D8 (P 28 *EXTERNALFORMAT* P 27 *PRINT-BASE* P 26 *READ-BASE* P 25 *READTABLE* P 24 *PACKAGE* P 23 X P 19 RESETSTATE P 18 SI::*RESETFORMS* P 17 LISPXHIST P 16 STREAM P 15 DFNFLG P 12 UNPACKFILE P 11 DESTINATIONENV P 10 SCRATCHFILE P 9 TEM P 8 FILEROOT P 7 BLKFNS P 6 BLOCKS P 5 FIRST P 4 OTHERS P 3 CHANGES P 2 DEFS P 1 LOCALVARS P 0 SPECVARS I 3 OPTIONSSET I 2 NOBLOCKSFLG I 1 CFILE I 0 STREAMS F 29 LCFIL F 30 SI::*RESETFORMS* F 31 NOFIXFNSLST F 32 DWIMIFYCOMPFLG F 33 DONTCOMPILEFNS F 34 LISPXHIST F 35 NLAMA F 36 NLAML F 37 *OLD-INTERLISP-READ-ENVIRONMENT*)   i`Cho A c>OWJ__OOOOW:FO2W@+Og _gO gOic@MiW: L=Og @BgghO dO hO hwdW: BNN N^JJdWBJ JZW: (520 FULLNAME 505 COMPILE1 477 BCOMPL2 458 PRINT 443 PRINT 430 PRINT 418 PRINT-COMPILE-HEADER 394 \EXTERNALFORMAT 369 \EXTERNALFORMAT 364 \EXTERNALFORMAT 325 GETPROP 263 \APPEND2 258 \APPEND2 253 \APPEND2 248 \NCONC2 214 RCOMP3 174 SI::RESETUNWIND 169 \MVLIST 164 BCOMPL.BODYA0001 112 OPENSTREAM 88 COMPSET 83 PACKFILENAME 38 UNPACKFILENAME 21 COMPSET) (409 bcompl'd 403 tcompl'd 389 :XCCS 380 READER-ENVIRONMENT 345 CLISP 332 CLISP 320 FILETYPE 278 READER-ENVIRONMENT 194 LAMS 159 SI::RESETUNWIND 120 BCOMPL3 107 NEW 102 BOTH 97 BCOMPL.SCRATCH 77 COMPILE.EXT 72 EXTENSION 59 NAME 48 DIRECTORY 30 HOST 5 SYSLOCALVARS) ( 16 (F % )) PRINT-COMPILE-HEADER :D8 (P 4 *PRINT-BASE* P 3 *READ-BASE* P 2 *READTABLE* P 1 *PACKAGE* I 2 ENV I 1 HOW I 0 STREAMS F 8 LCFIL F 9 *OLD-INTERLISP-READ-ENVIRONMENT*) WHHHHBBW B g`0@d NMh_M&O`hAg`g`h W (144 PRINT 137 \NCONC2 132 \APPEND2 70 FULLNAME 52 DATE 41 SET-READER-ENVIRONMENT 34 PRINT-READER-ENVIRONMENT) (122 MAKESYSDATE 117 dated 112 HERALDSTRING 107 in 96 COMPVERSION 57 COMPILEHEADER 47 FILECREATED 6 READER-ENVIRONMENT) () RESETOPENFILESA0001 :D8 (I 0 FILES) @d h(8 CLOSEF?) NIL () RESETOPENFILES :D8 (P 4 F I 0 FILES F 5 SI::*RESETFORMS*) Dg@AHIbhhdUc @dhHLg J KhZK&(50 OPENSTREAM) (45 INPUT 4 RESETOPENFILESA0001) () BCOMPL1A :D8 (P 6 FILEPKGFLG P 5 X P 4 FIRSTFLG0 P 3 COMPCOPYFLG0 P 2 COMPEVALFLG0 P 1 DFNFLG P 0 TEM I 3 FIRSTFLG I 2 COMPEVALFLG I 1 COMPCOPYFLG I 0 X F 7 FIRST F 8 CHANGES F 9 DESTINATIONENV F 10 DEFS F 11 NOFIXVARSLST F 12 OTHERS F 13 DFNFLG) `@dg'@g W cW@h cadg@ WLHcFdgAdg3W@ c#dgaWBAgC@M!AiCiW@h cMKJL Mdgh[dgdgAgi[dgAgM iMdgCi\dgh\dghZdgdgBxiZsdgBM iMWdgiYHdgMW$jOi i dgO _OdgdgO ƿOOd _ OO O W& OW&W* _rOo xOW(_)W@d_"OO"ih@OW( c(2W*Oi _ rOOih_Oo OOh _OW,c,W$c$OFOFOhc$_W&gO?OW. 2Oh_Oo OOOYW&Od/W. "OdM "OO Oi O_Oh_O h(468 BLOCKCOMPILE1 447 BRECOMPILE1 436 COMPILE1 416 MEMB 403 RECOMP? 372 COMPEM 347 RECOMP? 284 \NCONC2 272 COMPEM 245 EXPRP 238 VIRGINFN 220 DREMOVE 174 COMPEM 157 BRECOMPILE3 139 SET 131 \APPEND2 118 EVAL 96 EVAL 64 EVAL 40 LOCALVARS 31 SPECVARS) (86 LOCALVARS 78 SPECVARS 51 *) ( 366 (not compileable) 266 (not on file, compiling in core definition) 168 (not compileable)) BCOMPL2 :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 COREOK I 1 FILEMAPLST I 0 BLOCK F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 BCOMPL2A0001) (8 SI::RESETUNWIND) () BCOMPL3 :D8 (P 1 FILE I 2 SCRATCHFILE I 1 FILES I 0 CFILE F 2 RESETSTATE F 3 LCFIL F 4 LSTFIL F 5 LSTFIL1) B&RBSjB B B SCTU6@+AHJRh` jh `  RS RgI ` HX(160 /SETATOMVAL 155 REMOVE 145 ROOTFILENAME 126 DELFILE 121 FULLNAME 111 CLOSEF? 103 CLOSEF? 95 CLOSEF? 89 TERPRI 73 POSITION 37 DELFILE 32 FULLNAME 25 CLOSEF? 18 COPYBYTES 13 GETFILEPTR) (150 NOTCOMPILEDFILES 139 NOTCOMPILEDFILES 84 COUTFILE 68 COUTFILE) () BLOCK%: :D8 (I 0 X F 0 BLOCKS) P@h c(8 \NCONC2) NIL () BRECOMPILEA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 CFILE F 3 FILE.COM F 4 SI::NLSETQ-VALUE) ,i@RSggho chcg(30 OPENSTREAM) (41 :NORMAL 18 OLD 13 INPUT) ( 24 ((TYPE BINARY))) BRECOMPILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 76 FORM P 75 DESCR P 71 DESCR P 70 *EXTERNALFORMAT* P 69 *PRINT-BASE* P 68 *READ-BASE* P 67 *READTABLE* P 66 *PACKAGE* P 65 A0123 P 64 MAP P 63 FILECREATEDLOC P 62 A0122 P 61 FNLST P 60 DONELST P 59 VARLST P 58 LDFLG P 57 STREAM P 53 X P 51 ENV P 50 A0121 P 49 DUMMY P 48 START P 47 A0120 P 46 *CONDITION-HANDLER-BINDINGS* P 45 SI::*NLSETQFLAG* P 44 *PROCEED-CASES* P 43 SI::NLSETQ-VALUE P 42 FILE P 29 MSG P 28 DESTINATIONENV P 27 COREOK P 26 SCRATCHFILE P 25 ADRLST P 24 TEM P 23 FILE.COM P 22 FILE P 21 BLOCKS P 20 BLKFNS P 19 FNLST P 18 FILEMAPLST P 17 FIRST P 16 OTHERS P 15 CHANGES P 14 EXPRSLST P 13 *PRINT-LEVEL* P 12 *PRINT-LENGTH* P 11 AUXFILECOM P 10 LOCALVARS P 9 SPECVARS P 8 BUILDMAPFLG P 7 NOFIXVARSLST P 6 NOFIXFNSLST P 5 DWIMIFYCOMPFLG P 4 LAMA P 3 LAMS P 2 NLAML P 1 NLAMA P 0 *PRINT-ARRAY* I 0 SI::*CLEANUP-FORMS* F 77 CFILE F 78 FILES F 79 FNS F 80 LCFIL F 81 SI::*RESETFORMS* F 82 NOBLOCKSFLG F 83 READBUF F 84 NLAMA F 85 NLAML F 86 DONTCOMPILEFNS F 87 LAMA F 88 DWIMIFYCOMPFLG F 89 NOFIXFNSLST F 90 NOFIXVARSLST F 91 *PROCEED-CASES* F 92 *CONDITION-HANDLER-BINDINGS*) MiWW`WWWWid`i%WW`cghhWcW cA*OL ON_05_T OT _ROPORh_P_NOL_LOR&_PW _,gdO,gdO,gdO,_,g` _.Wg+`WioW.OX gOVW @W _0o_:O0i O:i oi WgW _8IW 12O^3O^_d_bOd_`OfOfO8 iWO` hW _0ooOiWO. _Oc`gWO.ooW oh gw`go0(Wd _LON OLh_POL&_NOP gWdgdgdgWcg gchco O.ggho c`gg _4gWWO4hhdWcW5Oh(i_6@9Woi id c_j _0g OjO0g dgdiihhOh_hd_rgg"=Orj Or Or 1AO|3O|__O_~Of_<O<O<O<O<FOrOfO Ox _lOn Olh_pOl&_nhOp_$0(O$cdG08O0JO>d_O Oh_O&_O_lOn:Ol_p_nOp_LONOL_P_NOP_&O$= _NOL _nOldLOd_gdd hIJKO&N O$_8_JOJOJOJOJFWO&O8g'g WWggWdgghcdggdgdigg0(O&$dW d_LON OLh_POL&_NOP ghO8 Xdd O4O":W O dO4 hO4 h_ dW M)O,g _@gO@ gO@iWgW WZO*Sd_FdO$ Ah_D_Bh.OFO$O6 (_Dd3@ODW ODiOBOF O&Bd_HO(8OHW1OHdW OHdO$O6 _0O0 i hW gi oi i WhW (1794 BCOMPL.BODY 1783 TERPRI 1776 PRIN1 1764 PRIN1 1752 FULLNAME 1738 BRECOMPILE1 1731 COMPILE1 1717 BRECOMPILE3 1702 RECOMP? 1667 BRECOMPILE1 1647 RECOMP? 1627 BCOMPL2 1602 BCOMPL2 1579 INPUT 1536 GETPROP 1516 PRINT 1500 PRINT 1487 PRINT 1474 \EXTERNALFORMAT 1469 \EXTERNALFORMAT 1449 RCOMP3 1444 VIRGINFN 1432 PRINT-COMPILE-HEADER 1383 RECOMP? 1290 \EXTERNALFORMAT 1225 \APPEND2 1220 \APPEND2 1215 \APPEND2 1210 \APPEND2 1188 BCOMPL1A 1154 LAST 1142 LAST 979 DREVERSE 972 LOADFNSCAN 906 \MVLIST 901 GET-ENVIRONMENT-AND-FILEMAP 893 INPUT 885 SETFILEPTR 829 GETPROP 810 GETPROP 798 ROOTFILENAME 784 READ 776 PRIN1 713 OPENSTREAM 690 OPENSTREAM 665 COMPSET 643 RETFROM 589 ASKUSER 556 FULLNAME 519 ASKUSER 503 FULLNAME 458 SPELLFILE 453 ROOTFILENAME 425 CLOSEF 408 SETFILEPTR 396 EQUAL-READER-ENVIRONMENT 359 \MVLIST 354 \PARSE-FILE-HEADER 343 GET-ENVIRONMENT-AND-FILEMAP 320 PRIN1 308 PRIN1 299 PRIN1 280 CLOSEF 271 RANDACCESSP 248 BRECOMPILEA0001A0002 203 PACKFILENAME 149 UNPACKFILENAME 110 FULLNAME 101 RANDACCESSP 73 RESETOPENFILES 55 INPUT) (1758 BCOMPL 1570 ALL 1556 CLISP 1543 CLISP 1531 FILETYPE 1421 nothing 1367 explicitly%: 1360 exprs%: 1348 EXPRS 1340 changes%: 1332 CHANGES 1323 ALL 1315 ALL 1307 brecompiled 1301 recompiled 1285 :XCCS 1277 :FORMAT 1238 READER-ENVIRONMENT 1181 DEFAULT 938 READER-ENVIRONMENT 874 COMPILING 869 EXPRESSIONS 837 LOADFNS 824 FILE 805 FILEDATES 721 BCOMPL3 708 NEW 703 BOTH 698 BCOMPL.SCRATCH 678 NEW 673 OUTPUT 649 ALL 638 BRECOMPILE 624 STF 616 F 608 ST 594 Y 537 Y 532 DWIMWAIT 524 Y 479 Y 474 DWIMWAIT 332 TCOMPL 254 :NORMAL 226 SI::NLSETQ-PROCEED-CASE 213 ALL 197 COMPILE.EXT 192 EXTENSION 179 NAME 168 DIRECTORY 157 HOST 50 INPUT 42 RECOMPILEDEFAULT 24 SYSLOCALVARS 9 LAMS) ( 1770 " instead." 770 "File to use for CFILE (source of compiled definitions not being recompiled): " 684 ((TYPE BINARY)) 660 (S T % ) 542 "Just forget about compiling" 508 "instead" 495 " compile all functions on " 490 "not found;" 433 " has different reader environment than the new file" 314 ", using " 288 " is not RANDACCESSP" 235 (CL:ERROR . SI::NLSETQHANDLER)) BRECOMPILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 NOBLOCKSFLG I 2 FNS I 1 CFILE I 0 FILES F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 BRECOMPILEA0001) (8 SI::RESETUNWIND) () BRECOMPILE1 :D8 (P 9 Y P 7 X P 6 ADR P 5 X P 4 ADRLST0 P 3 NAME P 2 X P 0 LST I 1 NOBLOCKSFLG I 0 FN/BLOCK F 10 CFILE F 11 BLKFNS F 12 ADRLST F 13 FILEMAPLST F 14 LCFIL) 8 A` A@gg@g@g@g@@h @IhZd3@.JWcJdH g@gJ Zi IY@W"W W ]d3MKMK M`i o` W Mi MKAMWc@dJdWcqghJadOKUW W OOo WN (O`i o` Oi zhLWW O+hMMgoKW ]MKMM J_KOK %WO @A WN OiO_Ko WN hWMNh cM m(562 LCSKIP 553 \NCONC2 539 SETFILEPTR 530 COMPEM 503 SETFILEPTR 494 BRECOMPILE1 486 SETFILEPTR 474 BRECOMPILE2 456 COMPILE1 440 BRECOMPILE3 385 LCSKIP 376 PRIN1 360 PRIN2 345 SETFILEPTR 336 COMPEM 318 READ 310 GETFILEPTR 241 LCSKIP 233 OUTPUT 225 PRIN1 209 PRIN2 193 BRECOMPILE2 175 READ 167 GETFILEPTR 147 BRECOMPILE1 140 PACK* 119 MEMB 82 \APPEND2 77 \APPEND2 72 \APPEND2 67 \APPEND2) (429 STOP 371 COUTFILE 354 COUTFILE 286 ENTRIES 220 COUTFILE 203 COUTFILE 134 / 127 \ 54 NOLINKFNS 46 BLKAPPLYFNS 38 RETFNS 30 ENTRIES 22 NOBLOCK 6 BYTECOMPFLG) ( 524 (not found) 366 ", " 330 (not found) 215 ", ") BRECOMPILE2 :D8 (P 1 N P 0 NX I 1 FN I 0 X) oA@khi `@ kA k2IlHF@I lA;lkLK"@IkY l0JhJl9hLk\iIkYdHih(71 NTHCHARCODE 46 NTHCHARCODE 26 NCHARS 18 NCHARS 10 STRPOS) NIL () BRECOMPILE3 :D8 (P 10 *PRINT-BASE* P 9 *READ-BASE* P 8 *READTABLE* P 7 *PACKAGE* P 6 Y P 4 FILEDESCR P 1 STREAM P 0 DEF I 2 COREOK I 1 FILEMAPLST I 0 FN) 0B@i X @HihAKh\LMHhXIH LZJJJ I @HoI i H@NXNiM]K[(121 ERROR 115 FULLNAME 96 READ 66 SETFILEPTR 18 EXPRP 12 VIRGINFN) (75 READER-ENVIRONMENT) ( 109 "filemap does not agree with contents of") BLOCKCOMPILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 8 EXPRSLST P 7 SPECVARS P 6 LOCALVARS P 5 NOFIXVARSLST P 4 NOFIXFNSLST P 3 LAMA P 2 LAMS P 1 NLAML P 0 NLAMA I 0 SI::*CLEANUP-FORMS* F 9 BLKNAME F 10 BLKFNS F 11 LCFIL F 12 LSTFIL F 13 FLG F 14 ENTRIES F 15 NLAMA F 16 NLAML F 17 LAMA F 18 NOFIXFNSLST F 19 NOFIXVARSLST) WW `W"W$W&i`WWWWccoWi WWhcWWW W*WhW` W WWW (126 CLOSEF 112 CLOSEF 104 PRINT 83 BLOCKCOMPILE1 72 COMPSET 56 ERROR) (99 FILERDTBL 20 SYSSPECVARS 8 LAMS) ( 48 "block name not atomic") BLOCKCOMPILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 FLG I 2 ENTRIES I 1 BLKFNS I 0 BLKNAME F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 BLOCKCOMPILEA0001) (8 SI::RESETUNWIND) () BLOCKCOMPILE1 :D8 (P 10 X P 8 TEM P 7 CALLTAGS P 6 COREFLG P 5 DEF P 4 FN P 3 NEWDEF P 2 BLOCKLIST P 1 FREEVARS P 0 TAGNUM I 2 ENTRIES I 1 BLKFNS I 0 BLKNAME F 14 BLKAPPLYFNS F 15 EXPRSLST F 16 FREEVARS F 17 STRF) mW  @BBdWhbBW @hbWB@h d OA hOAhh_@B 3@oBoo ho  h` j` AbA_dOOi ] 0OiLJOLHkXLMN Nhh _AbOo hb0 O#d_O_O Oh_O&_O`@OB @OB _W"I@`@`N.d O O O OWcO@(404 /PUTD 395 SAVEDEF 385 EXPRP 341 BLOCKCOMPILE2 331 BYTEBLOCKCOMPILE2 264 COMPEM 242 \NCONC2 229 COMPILE1A 203 EXPRP 197 VIRGINFN 165 TERPRI 152 POSITION 140 COMPEM 134 \APPEND2 122 COMPEM 91 MEMB 63 MEMB 48 \APPEND2) (368 LINKEDFNS 362 LINKEDFNS 354 LINKEDFNS 321 BYTECOMPFLG 160 COUTFILE 147 COUTFILE) ( 258 (not compileable) 129 (when there are also BLKAPPLYFNS) 116 (not on BLKFNS) 108 (since there is more than one entry) 99 (can't be both an entry and the block name)) COMPSET :D8 (P 0 OLDO I 1 FLG I 0 FILE F 1 LSTFIL F 2 LAPFLG F 3 LCFIL F 4 STRF F 5 SVFLG F 6 LSTFIL1) @Co`Ao bdg&Roi  cg@dghcic@gvghccc j@ c:@g@g@k@dloi b co co c R-Qi'Qg Qggo chc A+oho oi hb cgiSg Sggo c(382 OPENSTREAM 359 OPENP 334 COMPSETF 325 COMPSETREAD 319 PRIN1 306 COMPSETY 301 COMPSETREAD 275 OPENSTREAM 252 OPENP 230 COMPSETY 225 COMPSETREAD 211 COMPSETY 206 COMPSETREAD 193 COMPSETF 186 COMPSETREAD 180 PRIN1 136 COMPSETY 73 COMPSETF 68 COMPSETREAD 62 PRIN1 32 COMPSETREAD) (372 NEW 367 OUTPUT 354 OUTPUT 343 DONE 265 NEW 260 OUTPUT 247 OUTPUT 155 YES 146 Y 119 F 111 ST 93 STF 84 ST 40 S 19 COMPSETKEYLST) ( 377 ((TYPE BINARY)) 313 "file name: " 296 (N % ) 290 "output file? " 270 ((TYPE TEXT)) 220 "save exprs? " 201 "redefine? " 174 "file: " 56 "file: " 27 (S T % ) 14 "listing? ") COMPSETREAD :D8 (P 0 X I 2 DEFAULT I 1 KEYLST I 0 MESS F 1 READBUF) `QQ c@0@@i i `8i g*i !h`B@A`id X`H`Hid ``Hh H(145 \NCONC2 122 PRINT 98 ASKUSER 66 READC 52 PEEKC 38 LISPXREAD 31 PRIN1 16 LISPXREADBUF) (136 HISTSTR0 128 LISPXHISTORY 113 REREADFLG 105 LISPXHISTORY 90 COMPSETDEFAULTKEYLST 80 DWIMWAIT 74 REREADFLG 57 % 44 REREADFLG 7 DWIMFLG) () COMPSETY :D8 (L (0 A)) &@g@dgig@dghNIL (32 NO 23 N 14 YES 5 Y) () COMPSETF :D8 (L (0 A)) @diidghNIL (12 N) () RCOMP3 :D8 (P 2 TEM2 P 1 TEM1 P 0 TYPE I 1 DEF I 0 FN F 3 NLAML F 4 NLAMA)  0A Xdk @dS ScgSg$l@dT Tcg/gY I@I oo` @`i Jo` I` @HjHlA@gY @gY {@ H@`@(262 HELP 240 ARGTYPE 230 MEMB 225 CL:SYMBOL-VALUE 211 MEMB 206 CL:SYMBOL-VALUE 182 PRINT 170 PRIN1 151 PRIN2 138 PRIN1 116 /SET 111 REMOVE 106 CL:SYMBOL-VALUE 94 MEMB 89 CL:SYMBOL-VALUE 64 MEMB 28 MEMB 8 ARGTYPE) (256 LAMS 250 LAMS 219 NLAML 200 NLAMA 177 COUTFILE 165 COUTFILE 145 COUTFILE 133 COUTFILE 83 NLAML 75 NLAMA 47 NLAMA 39 NLAML) ( 160 " was not on " 128 "***note: " 122 " was incorrectly on ") TCOMPLA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FILE F 3 SI::NLSETQ-VALUE) i@Rhid hcg(13 BCOMPL) (22 :NORMAL) () TCOMPL :D8 (P 7 SI::*NLSETQFLAG* P 6 *PROCEED-CASES* P 5 SI::NLSETQ-VALUE P 4 FILE I 0 FILES F 8 *PROCEED-CASES*) Who @QHIdhHh`WN gM LoJ KhZK&(49 TCOMPLA0001 10 COMPSET) (55 :NORMAL 37 SI::NLSETQ-PROCEED-CASE) ( 68 (not compiled) 5 (F % )) RECOMPILE :D8 (I 2 FNS I 1 CFILE I 0 PFILE) @ABi (8 BRECOMPILE) NIL () RECOMP? :D8 (I 1 FNS I 0 X F 0 CHANGES F 1 EXPRSLST) [Adgidg@PiAdg-@Q "@g @g @ @A@A(78 EXPRP 70 GETPROP 57 GETPROP 44 MEMB) (65 BROKEN 52 ADVISED 33 EXPRS 16 CHANGES 6 ALL) () COMPILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 12 *PRINT-BASE* P 11 *READ-BASE* P 10 *READTABLE* P 9 *PACKAGE* P 7 LOCALVARS P 6 SPECVARS P 5 NOFIXVARSLST P 4 NOFIXFNSLST P 3 LAMA P 2 LAMS P 1 NLAML P 0 NLAMA I 0 SI::*CLEANUP-FORMS* F 16 X F 17 LCFIL F 18 FLG F 19 NLAMA F 20 NLAML F 21 LAMA F 22 LAPFLG F 23 NOFIXFNSLST F 24 NOFIXVARSLST F 25 SPECVARS F 26 LOCALVARS F 27 LSTFIL F 28 *OLD-INTERLISP-READ-ENVIRONMENT*)  W&W(`W*W.W0W2W4W"W gh W8_OOO 0W d3W h*W &ddi i _O Oh_O&_Oc W$&W"hW"` W" W$W,W6W  (183 CLOSEF 164 CLOSEF 156 PRINT 105 COMPILE1 99 VIRGINFN 42 PRINT-COMPILE-HEADER 26 COMPSET) (151 FILERDTBL 50 READER-ENVIRONMENT 36 compile'd 8 LAMS) () COMPILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 FLG I 0 X F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 COMPILEA0001) (8 SI::RESETUNWIND) () COMPILE1 :D8 (P 0 FREEVARS I 2 COREFLG I 1 DEF I 0 FN F 1 FREEVARS) %@AB bQ`@A @A (34 COMPILE2 26 BYTECOMPILE2 7 COMPILE1A) (18 BYTECOMPFLG) () COMPILE1A :D8 (P 1 FILEPKGFLG P 0 NOSPELLFLG I 2 COREFLG I 1 DEF I 0 FN F 2 NOFIXFNSLST F 3 NOFIXVARSLST F 4 DWIMIFYCOMPFLG F 5 NOSPELLFLG F 6 FILEPKGFLG) A TA i`g o@ UBhVBRSA@ R` `cS` `c` j` `A`A`A` A(182 GETHASH 145 TERPRI 132 POSITION 112 TAILP 92 TAILP 80 DWIMIFY0 45 CL:FORMAT 34 \GETSTREAM 17 SHOULD-BE-DWIMIFIED? 5 EXPRP) (177 CLISPARRAY 170 CLISPARRAY 159 CLISPTRANFLG 151 CLISPTRANFLG 140 COUTFILE 127 COUTFILE 118 NOFIXVARSLST0 107 NOFIXVARSLST0 98 NOFIXFNSLST0 87 NOFIXFNSLST0 72 NOFIXVARSLST0 65 NOFIXFNSLST0 29 OUTPUT 24 COUTFILE) ( 39 "(dwimifying ~S)~%%") SHOULD-BE-DWIMIFIED? :D8 (L (0 LAMBDA-FORM)) 0@H IgYdggiHXNIL (37 DECLARATIONS%: 27 * 16 CLISP%:) () COMPEM :D8 (I 3 FL I 2 ERRORFLG I 1 Y I 0 X) `C`bB@oC @Ci AkC AC C Cihibbhoi @Ai (93 ERROR 85 PRIN1 55 TERPRI 48 PRIN1 40 SPACES 31 PRIN1 23 PRIN1) (6 COUTFILE) ( 79 "*****" 17 " *****") GETCFILEA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 CFILE F 3 X F 4 SI::NLSETQ-VALUE) "i@Rgg chcg(20 OPENSTREAM) (31 :NORMAL 15 OLD 10 INPUT) () GETCFILE :D8 (P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 STR P 0 X I 1 CFILE I 0 FILES F 9 READBUF F 10 *PROCEED-CASES* F 11 *CONDITION-HANDLER-BINDINGS*)   `WioWK gJH HH ooi `gH)AIo@ oh gh `go0@d ONh_N&_Oh g!WdggWcoi id b(255 READ 247 PRIN1 235 ERROR! 197 ASKUSER 166 FULLNAME 136 FULLNAME 122 ASKUSER 106 FULLNAME 78 TERPRI 59 CLOSEF 50 RANDACCESSP 31 GETCFILEA0001) (222 F 214 ST 202 Y 148 Y 143 DWIMWAIT 127 Y 89 Y 84 DWIMWAIT 37 :NORMAL 10 SI::NLSETQ-PROCEED-CASE) ( 241 "Then what shall I use for CFILE ? " 153 "Shall I just forget about compiling" 111 "instead" 99 " compile all functions on " 71 "not found," 65 "is not a random access file," 19 (CL:ERROR . SI::NLSETQHANDLER)) SPECVARS :D8 (I 0 A F 0 SPECVARS F 1 LOCALVARS) ,@Pd@P i@Q` cic(35 UNION 15 \APPEND2) (30 SYSLOCALVARS) () LOCALVARS :D8 (I 0 A F 0 LOCALVARS F 1 SPECVARS) -@Pd@P i@Q` cich(35 UNION 15 \APPEND2) (30 SYSSPECVARS) () GLOBALVARS :D8 (I 0 A F 0 GLOBALVARS) @ @P c(10 UNION) NIL () COMPILEMODE :D8 (P 0 X I 0 MODE F 1 COMPILEMODE F 2 COMPILEMODELST) :Q@6@R)@g dHd H @c(46 SET 37 EVAL 19 ERROR) (14 ?) () (PRETTYCOMPRINT COMPILECOMS) (RPAQQ COMPILECOMS ((FNS BCOMPL BCOMPL.BODY PRINT-COMPILE-HEADER RESETOPENFILES BCOMPL1A BCOMPL2 BCOMPL3 BLOCK%: BRECOMPILE BRECOMPILE1 BRECOMPILE2 BRECOMPILE3 BLOCKCOMPILE BLOCKCOMPILE1 COMPSET COMPSETREAD COMPSETY COMPSETF RCOMP3 TCOMPL RECOMPILE RECOMP? COMPILE COMPILE1 COMPILE1A SHOULD-BE-DWIMIFIED? COMPEM GETCFILE SPECVARS LOCALVARS GLOBALVARS) (ADDVARS (NOLINKFNS HELP ERRORX ERRORSET EVALV FAULTEVAL INTERRUPT SEARCHPDL MAPDL BREAK1 EDITE EDITL) (LINKFNS) (FREEVARS) ( SYSSPECVARS HELPCLOCK LISPXHIST RESETSTATE OLDVALUE UNDOSIDE0 SPECVARS LOCALVARS GLOBALVARS) ( SYSLOCALVARS) (LOCALFREEVARS) (BLKLIBRARY) (RETFNS) (BLKAPPLYFNS) (DONTCOMPILEFNS) (NLAML) (NLAMA) ( LAMS) (LAMA)) (INITVARS (SPECVARS T) (LOCALVARS SYSLOCALVARS)) (INITVARS (DWIMIFYCOMPFLG NIL) ( COMPILEHEADER "compiled on ") (COMPSETLST (QUOTE (ST F STF S Y N 1 2 NIL T))) (COMPSETKEYLST (QUOTE (( ST "ore and redefine " KEYLST ("" (F . "orget exprs"))) (S . "ame as last time") (F . "ile only") (T . "o terminal") (1) (2) (Y . "es") (N . "o")))) (COMPSETDEFAULTKEYLST (QUOTE ((Y . "es") (N . "o")))) (BCOMPL.SCRATCH (QUOTE {CORE}BCOMPL.SCRATCH)) (RECOMPILEDEFAULT (QUOTE CHANGES)) (COUTFILE T) (SVFLG T) (STRF T) (LSTFIL T) (LCFIL) (LAPFLG T)) (DECLARE%: DONTCOPY (RECORDS COMPFILEDESCR) (MACROS DIGITCHARP) (GLOBALVARS SYSSPECVARS SYSLOCALVARS RECOMPILEDEFAULT COMPILE.EXT NOTCOMPILEDFILES BYTECOMPFLG COMPILEHEADER COMPVERSION BCOMPL.SCRATCH LINKEDFNS NOFIXVARSLST0 NOFIXFNSLST0 CLISPTRANFLG CLISPARRAY COMPSETKEYLST REREADFLG HISTSTR0 LISPXHISTORY COMPSETDEFAULTKEYLST FILERDTBL DWIMFLG DWIMWAIT)) (P (MOVD? (QUOTE NILL) (QUOTE FILECHANGES)) (CL:PROCLAIM (QUOTE (CL:SPECIAL COMPVARMACROHASH))) (CL:PROCLAIM (QUOTE (GLOBAL SYSSPECVARS SYSLOCALVARS COMPILE.EXT NOTCOMPILEDFILES CLISPARRAY FILERDTBL DWIMFLG DWIMWAIT LISPXHISTORY)))) (COMS (* ; "COMPILEMODE") (PROP VARTYPE COMPILEMODELST) (FNS COMPILEMODE)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA GLOBALVARS LOCALVARS SPECVARS BLOCK%:) (NLAML BCOMPL3) (LAMA))))) (ADDTOVAR NOLINKFNS HELP ERRORX ERRORSET EVALV FAULTEVAL INTERRUPT SEARCHPDL MAPDL BREAK1 EDITE EDITL) (ADDTOVAR LINKFNS) (ADDTOVAR FREEVARS) (ADDTOVAR SYSSPECVARS HELPCLOCK LISPXHIST RESETSTATE OLDVALUE UNDOSIDE0 SPECVARS LOCALVARS GLOBALVARS) (ADDTOVAR SYSLOCALVARS) (ADDTOVAR LOCALFREEVARS) (ADDTOVAR BLKLIBRARY) (ADDTOVAR RETFNS) (ADDTOVAR BLKAPPLYFNS) (ADDTOVAR DONTCOMPILEFNS) (ADDTOVAR NLAML) (ADDTOVAR NLAMA) (ADDTOVAR LAMS) (ADDTOVAR LAMA) (RPAQ? SPECVARS T) (RPAQ? LOCALVARS SYSLOCALVARS) (RPAQ? DWIMIFYCOMPFLG NIL) (RPAQ? COMPILEHEADER "compiled on ") (RPAQ? COMPSETLST (QUOTE (ST F STF S Y N 1 2 NIL T))) (RPAQ? COMPSETKEYLST (QUOTE ((ST "ore and redefine " KEYLST ("" (F . "orget exprs"))) (S . "ame as last time") (F . "ile only") (T . "o terminal") (1) (2) (Y . "es") (N . "o")))) (RPAQ? COMPSETDEFAULTKEYLST (QUOTE ((Y . "es") (N . "o")))) (RPAQ? BCOMPL.SCRATCH (QUOTE {CORE}BCOMPL.SCRATCH)) (RPAQ? RECOMPILEDEFAULT (QUOTE CHANGES)) (RPAQ? COUTFILE T) (RPAQ? SVFLG T) (RPAQ? STRF T) (RPAQ? LSTFIL T) (RPAQ? LCFIL) (RPAQ? LAPFLG T) (MOVD? (QUOTE NILL) (QUOTE FILECHANGES)) (CL:PROCLAIM (QUOTE (CL:SPECIAL COMPVARMACROHASH))) (CL:PROCLAIM (QUOTE (GLOBAL SYSSPECVARS SYSLOCALVARS COMPILE.EXT NOTCOMPILEDFILES CLISPARRAY FILERDTBL DWIMFLG DWIMWAIT LISPXHISTORY))) (PUTPROPS COMPILEMODELST VARTYPE ALIST) (PUTPROPS COMPILE COPYRIGHT ("Venue & Xerox Corporation" T 1984 1985 1986 1987 1988 1989 1990 2021)) NIL