292 lines
27 KiB
Plaintext
292 lines
27 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "26-Feb-2026 00:46:08" ("compiled on " {WMEDLEY}<sources>COMPILE.;8)
|
||
"25-Feb-2026 23:05:05" brecompiled exprs%: BCOMPL.BODY in "FULL 25-Feb-2026 ..." dated
|
||
"25-Feb-2026 23:05:14")
|
||
(FILECREATED "26-Feb-2026 00:46:08" {WMEDLEY}<sources>COMPILE.;8 76991 :EDIT-BY rmk :CHANGES-TO (FNS
|
||
BCOMPL.BODY) :PREVIOUS-DATE "24-Feb-2026 10:04:53" {WMEDLEY}<sources>COMPILE.;7)
|
||
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` WW W W$i8
|
||
W& W W"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 4 *PRINT-BASE* P 3 *READ-BASE* P 2 *READTABLE* P 1 *PACKAGE* I 0 SI::*CLEANUP-FORMS* F 5 STREAM F 6 SI::*RESETFORMS* F 7 TEM F 8 *DEFINE-FILE-INFO-ENV*) <00> g UhhdVc g U hhVc W Hdg i —¿U X HÉ HÉHÉHÉU cd˜dg ð‘hg ð²UWg 'µg
|
||
¿Wg ddU
|
||
¿°º (152 BCOMPL1A 135 \EXTERNALFORMAT 89 READ 62 READ-READER-ENVIRONMENT 54 \GETSTREAM 27 INPUT)
|
||
(143 DEFAULT 130 :MCCS 122 :FORMAT 110 DEFINE-FILE-INFO 99 STOP 68 READER-ENVIRONMENT 48 INPUT 21 INPUT 4 CLOSEF)
|
||
()
|
||
BCOMPL.BODY :D8
|
||
(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 28 LCFIL F 29 SI::*RESETFORMS* F 30 NOFIXFNSLST F 31 DWIMIFYCOMPFLG F 32 LISPXHIST F 33 DONTCOMPILEFNS F 34 NLAMA F 35 NLAML F 36 LAMS F 37 *OLD-INTERLISP-READ-ENVIRONMENT* F 38 STREAM) i` ÒC«ho
|
||
¿Aµ<g d@ _ g dO g dO _g `
|
||
W8²` g g _¿g h@OhhdW:c:@°'dW@!g ¿$µÚhWDWFWH@J°%d_.O.
|
||
_(¿O*µ O(h_,‚O(&_*¿µÜO,W<
|
||
|
||
|
||
|
||
c<OµWJ__ dg i ™¿WL _ ¿O É O ÉO ÉO ÉW8µFOµ2W>³+Og
|
||
_g ðµO´
|
||
g O ´ic>¿M°iW8
|
||
¿L°=O ɵg
|
||
¿@B•g „g hO ¿°ŽdO
|
||
¿µôhO
|
||
¿h¼±ÿwdW8
|
||
¿µôB®NœN ¿N^°ôJ²JdWB ¬J
|
||
¿JZ°çW8 (540 FULLNAME 525 COMPILE1 497 BCOMPL2 478 PRINT 463 PRINT 450 PRINT 438 PRINT-COMPILE-HEADER 414 \EXTERNALFORMAT 389 \EXTERNALFORMAT 384 \EXTERNALFORMAT 345 GETPROP 294 READ-READER-ENVIRONMENT 285 \GETSTREAM 261 \APPEND2 256 \APPEND2 251 \APPEND2 246 \NCONC2 212 RCOMP3 174 SI::RESETUNWIND 169 \MVLIST 164 BCOMPL.BODYA0001 112 OPENSTREAM 88 COMPSET 83 PACKFILENAME 38 UNPACKFILENAME 21 COMPSET)
|
||
(429 bcompl'd 423 tcompl'd 409 :MCSS 400 READER-ENVIRONMENT 365 CLISP 352 CLISP 340 FILETYPE 301 READER-ENVIRONMENT 279 INPUT 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*) “ W HÉ HÉHÉHÉBŸBW
|
||
¿B ¿g ` 0@°d ½NµMh_<0E>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*) D g @AHµIb hhdUc
|
||
@d¢¼hƒ¼H¸Lg
|
||
»Jµ KhZ¹°ÍK&º°È (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
|
||
c¿W@h
|
||
c¿°adg ð²¿@ ¸W³LHc¿°Fdg ð² ¿Adg ð²3¿W@
|
||
c¿°#dg ð¢±a¿WBAg ðC@Mµ!Ai𢱺Ci𢱦W@h
|
||
c¿±£<03>MKJL ±Mdg ð•¿h[±dg ð¨dg ð²¿Ag 𢱠æi[± àdg ð² ¿Ag ðœM ´i»M± ½dg ðš¿C¢± ®i\± ¨dg ð•¿h\± šdg ð•¿hZ± Œdg ð§dg ð—¿B²xiZ°sdg ð²¿BœM ´iºM°Wdg ð”¿iY°Hdg ð•¿M°<dg ð³1dg ð³(dg ð³ ¿` g
|
||
o M ¿M]±þ·dg ð³%dg ð³ dg ð³dg ð¨dg ð² ¿@Wc¿Adg ð¢±þz¿ib±þs¿@` ð‘hAdg ð¢±þZ¿ib±þSW@h
|
||
c¿Bið´Ü@ ¿°Ò (603 EVAL 589 \NCONC2 466 CL:FORMAT 453 \GETSTREAM 374 EVAL 272 EVAL 191 BCOMPL1A 170 \NCONC2 108 \NCONC2 67 EVAL 46 \NCONC2 33 \NCONC2 26 FILECHANGES)
|
||
(567 DEFAULT 556 COMMENTFLG 535 DEFAULT 515 RPAQ? 507 RPAQQ 498 RPAQ 489 SETQQ 480 SETQ 448 OUTPUT 443 COUTFILE 434 EVAL@LOAD 425 DOEVAL@LOAD 416 DONTEVAL@LOAD 402 EVAL@LOADWHEN 389 COMPILERVARS 359 EVAL@COMPILEWHEN 343 EVAL@COMPILE 335 DOEVAL@COMPILE 321 DONTEVAL@COMPILE 307 NOTFIRST 288 FIRST 261 DEFAULT 251 COPYWHEN 235 DEFAULT 225 COPY 217 DOCOPY 203 DONTCOPY 134 DEFAULT 119 DECLARE%: 95 DEFAULT 84 DEFINEQ 57 DEFINE-FILE-INFO 21 FNS 11 FILECREATED)
|
||
( 458 "(~S unrecognized DECLARE tag)~%%")
|
||
BCOMPL2A0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 16 TEM2 P 15 LST P 14 TEM P 13 X P 12 LOCALFREEVARS P 11 ENTRIES P 10 BLKAPPLYFNS P 9 BNDLEV P 8 BLKNAME P 7 LOCALVARS P 6 SPECVARS P 5 DONTCOMPILEFNS P 4 LINKFNS P 3 NOLINKFNS P 2 BLKLIBRARY P 1 RETFNS P 0 GLOBALVARS I 0 SI::*CLEANUP-FORMS* F 18 BLOCK F 19 FILEMAPLST F 20 DEFS F 21 COREOK F 22 BLKFNS F 23 FNS F 24 GLOBALVARS F 25 RETFNS F 26 BLKLIBRARY F 27 SPECVARS F 28 NOLINKFNS F 29 LINKFNS F 30 DONTCOMPILEFNS F 31 LOCALVARS F 32 BLOCKS) Ø W0W2W4W8W:W<W6W>W$jŠO¨i ±i ± þdg ð›¿O €_ ¿Odg ð§dg ðš¿O ± Æ¿OOd¢° _ ™O O
|
||
<00>O
|
||
± ›W&² OW&W* _ ³rOo °xOW(_ ²)W@Œd_"¿O O" ¥µñi<C3B1>¿h²@O W(
|
||
c(°2W*¢± „Oi
|
||
_ ²rOO ih_ ¿Oo ¿O O h
|
||
_ ¿OW,c,¿W$c$µO ³FO²FOhc$_µ‚±þèW&¢±ÿgO’±ÿ?OW.
|
||
’±ÿ2Oh_ °«Oo °²OµOO ´YW&²O d²/W.
|
||
²"O dM
|
||
³"O O ‰O i
|
||
¿O _ °·O h_ ¿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²&R®BSjB ¿B ¿B ¿SµCT’Uµ6@µ+AHµJRhð´ ` jðhð´ ` ¿°Ñ ¿°Æ ¿R²¸S ¿°ª¹R³ g I `
|
||
|
||
¿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@RµSg g ho
|
||
chcg (30 OPENSTREAM)
|
||
(41 :NORMAL 18 OLD 13 INPUT)
|
||
( 24 ((TYPE BINARY)))
|
||
BRECOMPILEA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 75 FORM P 74 DESCR P 70 DESCR P 69 *PRINT-BASE* P 68 *READ-BASE* P 67 *READTABLE* P 66 *PACKAGE* P 65 A0246 P 64 MAP P 63 FILECREATEDLOC P 62 A0245 P 61 FNLST P 60 DONELST P 59 VARLST P 58 LDFLG P 57 STREAM P 53 X P 51 ENV P 50 A0244 P 49 DUMMY P 48 START P 47 A0243 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 76 CFILE F 77 FILES F 78 FNS F 79 LCFIL F 80 SI::*RESETFORMS* F 81 NOBLOCKSFLG F 82 READBUF F 83 NLAMA F 84 NLAML F 85 DONTCOMPILEFNS F 86 LAMS F 87 LAMA F 88 DWIMIFYCOMPFLG F 89 NOFIXFNSLST F 90 NOFIXVARSLST F 91 *PROCEED-CASES* F 92 *CONDITION-HANDLER-BINDINGS*) L iW¦W¨W¬W®W°W²W´id` iü°%W˜ªWœ§` cœ¿g hhW c ¿Wš cšA*OLµ ON_0²5± Á_T ³OT _R¿OPµORh_P_N¿OL_L°ÍOR&_P¿°óWš _,¿g dO, g dO, g dO, _,g `
|
||
_.¿Wœg ð’±+` W¶io W¸.OX g ð´OV¢± ¯W˜ ³@W˜ _0¿o _:¿O0i
|
||
¿O:i
|
||
¿o i
|
||
¿W¢¢±—g ±”Wš _8²IW˜ 12O^3O^_d_b¿Od_`¿Of™OfO8
|
||
¡iŠW˜O`
|
||
¿h´‚± ðW˜ _0¿o ±ÿoOið² W˜µO. _—Oc˜’±ÿ` g W˜µO.o o Wš o h g ð³w` g o 0(Wš° d _L¿ONµ OLh_P‚OL&_N¿µãOP g 𢱠©W¤dg ð¯dg ð§dg ð•¿W¤c¤¿g ¿g cœ¿hc˜o
|
||
¿O.g g ho
|
||
cž¿` g g _4¿g W˜WšO4hhdW c ¿Wš5Ohµ(i_6¿@9Wš± ûo i
|
||
¿id
|
||
c˜¿±ýÇ_j _0g
|
||
Ojð´ÂO0g
|
||
dg ð£dið’¿i<C2BF>¿h¢h°ŸOh_h°”d_r¿g g "=Orj
|
||
¿Or ¿Or 1AO|3O|_‚_€¿O‚_~¿Of _<É O<ÉO<ÉO<ÉEOrOf
|
||
¿OrOfO€ Ox _l¿Onµ Olh_p‚Ol&_n¿µ‚±ÿbOp_$¿0(O$°cdF08OŒ°<d_>¿0IO>°d_Ž¿O<C2BF>µ OŽh_’‚OŽ&_<>¿µçO’_lšOnµ:Ol_p_n¿µÄOp_LšONµOL_P_N¿µžOP_&¿O$°= _NOL°ç _nOl°ÄdKO”°d_–g dd ¿µíhµÜIJKO&N
|
||
|
||
|
||
|
||
¾O$_8 _JÉ OJÉOJÉOJÉEWžµO&± ¸O8g 'µg
|
||
¿WšW¢•g „g Wœdg ð˜¿g h°cdg ð—¿g °dg ð£dið–¿g …¿g 0(O&°$dWœ
|
||
²d_L¿ONµ OLh_P‚OL&_N¿µÝOPµ g hO8 ¿±ÿXdd
|
||
¿µðO4µO"°:Wž
|
||
¿O ŠdO4
|
||
¿µôhO4
|
||
¿h_ ¿°ÑdWž
|
||
¿µôM³)O,g
|
||
_@g ðµO@´
|
||
g O@ ´i½Wœg ð§W˜ ¿W¢³ZO*°Sd_Fd¨O$
|
||
°Ah_D¿_Bµh².OFO$O6 °(_Dd3@ð²ODWœ
|
||
–OD³Þi°ÙOB°ÎOF ¿µ®O&°Bd_HO( ³8OHWª ³1OHdWœ
|
||
² ¿OHdO$O6 _0O0 …i
|
||
¿µ¿hWž g i
|
||
¿o i
|
||
¿i ¿WšhW¢ (1793 BCOMPL.BODY 1782 TERPRI 1775 PRIN1 1763 PRIN1 1751 FULLNAME 1737 BRECOMPILE1 1730 COMPILE1 1716 BRECOMPILE3 1701 RECOMP? 1666 BRECOMPILE1 1646 RECOMP? 1626 BCOMPL2 1601 BCOMPL2 1578 INPUT 1535 GETPROP 1515 PRINT 1499 PRINT 1486 PRINT 1473 \EXTERNALFORMAT 1468 \EXTERNALFORMAT 1448 RCOMP3 1443 VIRGINFN 1431 PRINT-COMPILE-HEADER 1382 RECOMP? 1289 \EXTERNALFORMAT 1228 \APPEND2 1223 \APPEND2 1218 \APPEND2 1213 \APPEND2 1191 BCOMPL1A 1157 LAST 1145 LAST 982 DREVERSE 975 LOADFNSCAN 963 \EXTERNALFORMAT 903 \MVLIST 898 GET-ENVIRONMENT-AND-FILEMAP 890 INPUT 882 SETFILEPTR 826 GETPROP 807 GETPROP 795 ROOTFILENAME 781 READ 773 PRIN1 710 OPENSTREAM 687 OPENSTREAM 662 COMPSET 640 RETFROM 586 ASKUSER 553 FULLNAME 516 ASKUSER 500 FULLNAME 455 SPELLFILE 450 ROOTFILENAME 422 CLOSEF 405 SETFILEPTR 393 EQUAL-READER-ENVIRONMENT 356 \MVLIST 351 \PARSE-FILE-HEADER 340 GET-ENVIRONMENT-AND-FILEMAP 317 PRIN1 305 PRIN1 296 PRIN1 277 CLOSEF 268 RANDACCESSP 245 BRECOMPILEA0001A0002 200 PACKFILENAME 146 UNPACKFILENAME 107 FULLNAME 98 RANDACCESSP 70 RESETOPENFILES 52 INPUT)
|
||
(1757 BCOMPL 1569 ALL 1555 CLISP 1542 CLISP 1530 FILETYPE 1420 nothing 1366 explicitly%: 1359 exprs%: 1347 EXPRS 1339 changes%: 1331 CHANGES 1322 ALL 1314 ALL 1306 brecompiled 1300 recompiled 1284 :MCCS 1276 :FORMAT 1241 READER-ENVIRONMENT 1184 DEFAULT 935 READER-ENVIRONMENT 871 COMPILING 866 EXPRESSIONS 834 LOADFNS 821 FILE 802 FILEDATES 718 BCOMPL3 705 NEW 700 BOTH 695 BCOMPL.SCRATCH 675 NEW 670 OUTPUT 646 ALL 635 BRECOMPILE 621 STF 613 F 605 ST 591 Y 534 Y 529 DWIMWAIT 521 Y 476 Y 471 DWIMWAIT 329 TCOMPL 251 :NORMAL 223 SI::NLSETQ-PROCEED-CASE 210 ALL 194 COMPILE.EXT 189 EXTENSION 176 NAME 165 DIRECTORY 154 HOST 47 INPUT 39 RECOMPILEDEFAULT 21 SYSLOCALVARS)
|
||
( 1769 " instead." 767 "File to use for CFILE (source of compiled definitions not being recompiled): "
|
||
681 ((TYPE BINARY)) 657 (S T %
|
||
) 539 "Just forget about compiling" 505 "instead" 492 " compile all functions on " 487 "not found;" 430
|
||
" has different reader environment than the new file" 311 ", using " 285 " is not RANDACCESSP" 232 (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¢± <00>@± <00>g ð³ñg @g @g @g @@h
|
||
|
||
|
||
|
||
@IµhZd3@ð².JWc¿JdH
|
||
³¿g @g J Zi
|
||
¿IY°Ä@W"W ¾W ]d”3²ìMKðªMK
|
||
¢± ÐM` i ¿o `
|
||
¿W ¿Mi
|
||
¿MKð²«A’± —MWc¿@± „dJd§Wc¿°qg ð²hJ°adOKð³UW ¾W Oð³Oo ¿WN
|
||
°(O` i ¿o `
|
||
¿Oi
|
||
¿µŸµ‚±ÿzhLWð<>W Oµ+h³íM˜Mg ð²oKW
|
||
]²MKMM °J_KðªOK
|
||
²%WO
|
||
¿@A
|
||
¿WN
|
||
¿Oµ¨i°¥O_°šKo ¿WN
|
||
hWMNh
|
||
c¿M ¿±þ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) o A@khi
|
||
´`@ kØA kØ2IlØHñ³F@I
|
||
lAð´;lk¼»LKó³"@IkÔY
|
||
ºl0Jñhð´ Jl9ñ‘h†LkÔ\°Þi´IkÔYdHð²¹ih (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 —@HihAKµh\¹LMµHh²XIH
|
||
¿L ZÉ JÉJÉJÉ
|
||
I ¸@Hð³o I i H¾@NX•Nµ±i°®M]°¥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) ‚ W W ` W"W$W&i` W² W«W ¨Wcc°o Wi ˆW¦Whc¿ WWW W³*W²hW` ¿W ¿WªW—W ¿ (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) « mÿW ‚ @Bð›Bd¨¿W £hb€B©W ´
|
||
@hb¿W Bµ@h
|
||
° d
|
||
OA
|
||
hð´OAhð¤µåh_µ @B
|
||
²3@o B²o °o ho
|
||
h` jðª` ¿A´bA_d<03>¼O½O°i
|
||
] ²0O¼i¾LJºOLHkÙXLMN Nhh
|
||
_¿Ab°®Oo hb¿0
|
||
O°#d_O_¿Oµ Oh_‚O&_¿µÞO¾` ™@OB ˆ@OB _¿W"²I@` ¬@` ¿N°.d
|
||
O ² O ¿O ¿OW c ¿µÓOµ@ (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 ` Aµo b dg ð²&¿R´‚± ço i
|
||
¿ c¿± <00>g ðª@dg ð²¿hc¿ic¿@g ð°vg ð˜hccc
|
||
°j@ c²:@g ð³@g ð«@kð§@dlð²¿o i
|
||
¿ b c¿o c²o c
|
||
¿R´-Qið³'Qg
|
||
³Qg g o c€hc ¿A³+o ho ´o i
|
||
¿ €hb cµg ið³øSg
|
||
µSg g o 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) • ` <00>Q˜Q 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 ð¨@dg ð‘ig ð¨@dg ð<>h NIL
|
||
(32 NO 23 N 14 YES 5 Y)
|
||
()
|
||
COMPSETF :D8
|
||
(L (0 A)) @dið‘idg ð<>h NIL
|
||
(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 Xµ± ûdkð² ¿@dS
|
||
¬Sc¿g ¹°Sg °$l𢱠ƒ@dT
|
||
¬Tc¿g ¹°/g Y
|
||
¢± §I@I
|
||
|
||
¿o ºo `
|
||
¿@` i ¿Jµo `
|
||
¿I`
|
||
@Hjð¥Hlð²A@g Y
|
||
³<>@g Y
|
||
’±ÿ{@ 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*) W ho
|
||
@QHµId¢¼hƒ¼H¸h½` WN g ð´Mµ Lo »Jµ KhZ¹°ÀK&º°» (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) [ Adg ð‘idg ð”¿@P iðªAdg ð²-¿@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.W0W2W4 W"<22>W g h ¿W8 _É OÉOÉOÉ 0W d´3•W h°*W °&ddi
|
||
i _¿O µ Oh_ ‚O&_ ¿µÛO c W$³&W"²hW"` ¿W" ¿W$¦W,“W6µW ¿°÷ (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 ¢± ²T§A ²i` g
|
||
o @ ¿UµBhðV´BR ¿S ¿A@
|
||
¿R`
|
||
—` c¿S`
|
||
—` 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µ Ig ðYdg ð²îg ð‘iHX°Ú NIL
|
||
(37 DECLARATIONS%: 27 * 16 CLISP%:)
|
||
()
|
||
COMPEM :D8
|
||
(I 3 FL I 2 ERRORFLG I 1 Y I 0 X) ` C§` b¿B³@o C
|
||
@Ci AŸkC
|
||
¿AC
|
||
¿C Cið¬hib¿b¿¿¿¿°¹ho i
|
||
@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@Rg g 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*) ` Wio WK g ð´J²H ‘HH ¿o „o ¹i ¿` g Hµ)AIo @ o h g ð˜h °Õ` g o 0@°d ¾OµNh_<10>N&_¿µçOh g ð²!Wdg ð©g ð•Wc¿ ¿o i
|
||
¿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ð³@<40>Q`
|
||
c¿ic (35 UNION 15 \APPEND2)
|
||
(30 SYSLOCALVARS)
|
||
()
|
||
LOCALVARS :D8
|
||
(I 0 A F 0 LOCALVARS F 1 SPECVARS) - @²Pd™¿@P
|
||
°ið³@<40>Q`
|
||
c¿ic h (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
|
||
° d Hd– ‡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)
|
||
NIL
|