0f470b9753
* New starter.sysout contains the UTF-8 external format * Init.sysout is created with the UTF-8 external format * Files with non-ascii characters and some other files converted to UTF-8, for basic testing * Environment arg of WITH-READER-ENVIRONMENT can be a stream * Compiler functions now respect the external format as copied from the source file * Colon is the package delimiter in DEFINE-FILE-INFO expressions * UNICODE file is deprecated in favor of UNICODE-FORMATS and UNICODE-TABLES
295 lines
28 KiB
Plaintext
295 lines
28 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "26-Feb-2026 10:41:28" ("compiled on " {WMEDLEY}<sources>COMPILE.;9)
|
||
"26-Feb-2026 01:04:56" brecompiled exprs%: BRECOMPILE RECOMPILE in "FULL 26-Feb-2026 ..." dated
|
||
"26-Feb-2026 01:05:04")
|
||
(FILECREATED "26-Feb-2026 10:41:28" {WMEDLEY}<sources>COMPILE.;9 77027 :EDIT-BY rmk :CHANGES-TO (FNS
|
||
BRECOMPILE) :PREVIOUS-DATE "26-Feb-2026 00:46:08" {WMEDLEY}<sources>COMPILE.;8)
|
||
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 67 DESCR P 66 *PRINT-BASE* P 65 *READ-BASE* P 64 *READTABLE* P 63 *PACKAGE* P 62 A0242 P 61 MAP P 60 FILECREATEDLOC P 59 A0241 P 58 FNLST P 57 DONELST P 56 VARLST P 55 LDFLG P 54 STREAM P 53 X P 51 ENV P 50 A0240 P 49 DUMMY P 48 START P 47 A0239 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 LAMS F 86 DONTCOMPILEFNS F 87 LAMA F 88 DWIMIFYCOMPFLG F 89 NOFIXFNSLST F 90 NOFIXVARSLST F 91 STREAM F 92 *PROCEED-CASES* F 93 *CONDITION-HANDLER-BINDINGS*) 3L 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¿0(Wš±o i
|
||
¿id
|
||
c˜¿±ýÇ_j _0g
|
||
Ojð´ÂO0g
|
||
dg ð£dið’¿i<C2BF>¿h¢h°ŸOh_h°”d6g g ":Olj
|
||
¿Ol ¿Ol 1>Ov3Ov_|_z¿O|_x¿Of_<dg i ™¿Ol _< ¿O<É O<ÉO<ÉO<ÉBOlOf
|
||
¿OlOfOz Or _L¿ONµ OLh_P‚OL&_N¿µ‚±ÿGOP_$¿0(O$°cdC0FO†°<d_>¿0IO>°d_Ž¿O<C2BF>µ OŽh_’‚OŽ&_<>¿µçO’_ˆšOŠµ:Oˆ_Œ_Š¿µÄOŒ_LšONµOL_P_N¿µžOP_&¿O$°= _NOL°ç _ŠOˆ°ÄdKO”°d_–g dd ¿µíhµÜIJKO&N
|
||
|
||
|
||
|
||
¾O$_8_Jdg i ™¿W¶ _J ¿OJÉ OJÉOJÉOJÉBWžµO&± ²O8µ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 ¿±ÿ^dd
|
||
¿µð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¢ (1840 BCOMPL.BODY 1829 TERPRI 1822 PRIN1 1810 PRIN1 1798 FULLNAME 1784 BRECOMPILE1 1777 COMPILE1 1763 BRECOMPILE3 1748 RECOMP? 1713 BRECOMPILE1 1693 RECOMP? 1673 BCOMPL2 1648 BCOMPL2 1625 INPUT 1582 GETPROP 1562 PRINT 1546 PRINT 1533 PRINT 1520 \EXTERNALFORMAT 1515 \EXTERNALFORMAT 1495 RCOMP3 1490 VIRGINFN 1478 PRINT-COMPILE-HEADER 1429 RECOMP? 1336 \EXTERNALFORMAT 1286 READ-READER-ENVIRONMENT 1277 \GETSTREAM 1255 \APPEND2 1250 \APPEND2 1245 \APPEND2 1240 \APPEND2 1218 BCOMPL1A 1184 LAST 1172 LAST 1008 DREVERSE 1001 LOADFNSCAN 989 \EXTERNALFORMAT 953 READ-READER-ENVIRONMENT 944 \GETSTREAM 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)
|
||
(1804 BCOMPL 1616 ALL 1602 CLISP 1589 CLISP 1577 FILETYPE 1467 nothing 1413 explicitly%: 1406 exprs%: 1394 EXPRS 1386 changes%: 1378 CHANGES 1369 ALL 1361 ALL 1353 brecompiled 1347 recompiled 1331 :MCCS 1293 READER-ENVIRONMENT 1271 INPUT 1211 DEFAULT 960 READER-ENVIRONMENT 938 INPUT 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)
|
||
( 1816 " 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
|