(FILECREATED "13-Oct-86 17:36:54" ("compiled on " {ERIS}SOURCES>COMPILE.;21) " 1-Oct-86 20:23:15" recompiled exprs: BCOMPL1A in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED "13-Oct-86 17:35:16" {ERIS}SOURCES>COMPILE.;21 78548 changes to: (FNS BCOMPL.BODY BCOMPL1A) previous date: "15-Sep-86 18:04:49" {ERIS}SOURCES>COMPILE.;20) BCOMPLA0001 D1 (NAME ERRORSET P 1 NOFIXFNSLST P 0 NOFIXVARSLST F 2 RESETVARSLST F 3 FILES F 4 NOFIXVARSLST F 5 NOFIXFNSLST F 6 RESETY F 7 CFILE F 10Q NOBLOCKSFLG F 11Q OPTIONSSET) gd g` Rcgd g` Rcgd g` Rcgd g` Rcgd g` Rcgd g RcTUS cWWW c i(232Q BCOMPL.BODY 217Q RESETOPENFILES 200Q SETTOPVAL 171Q GETTOPVAL 154Q SETTOPVAL 142Q GETTOPVAL 125Q SETTOPVAL 113Q GETTOPVAL 76Q SETTOPVAL 64Q GETTOPVAL 47Q SETTOPVAL 35Q GETTOPVAL 20Q SETTOPVAL 6 GETTOPVAL) (175Q EXPRSLST 165Q EXPRSLST 151Q DWIMIFYCOMPFLG 146Q DWIMIFYCOMPFLG 136Q DWIMIFYCOMPFLG 122Q LAMA 117Q LAMA 107Q LAMA 73Q LAMS 70Q LAMS 60Q LAMS 44Q NLAMA 41Q NLAMA 31Q NLAMA 15Q NLAML 12Q NLAML 2 NLAML) () BCOMPL D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 OPTIONSSET I 2 NOBLOCKSFLG I 1 CFILE I 0 FILES F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q BCOMPLA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (BCOMPLA0001)) BCOMPL.BODY D1 (P 30Q LISPXHIST P 27Q X P 23Q *PRINT-BASE* P 22Q *READ-BASE* P 21Q *READTABLE* P 20Q *PACKAGE* P 17Q E P 16Q STREAM P 15Q DFNFLG P 13Q DESTINATIONENV P 12Q SCRATCHFILE P 11Q TEM P 10Q 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 FILES F 31Q LCFIL F 32Q RESETVARSLST F 33Q *OLD-INTERLISP-READ-ENVIRONMENT* F 34Q NOFIXFNSLST) i` Cho Ag@ _g` W2`gg _gh@OhhhW4c4 @J>Jhc_ WvJTOW IOh_Oo JIOQWOd+W Od` OO Oi O_Oh_M hc4i(1033Q BLOCKCOMPILE1 1011Q BRECOMPILE1 1000Q COMPILE1 756Q MEMB 741Q RECOMP? 705Q COMPEM 657Q RECOMP? 565Q \NCONC2 553Q COMPEM 523Q EXPRP 516Q VIRGINFN 500Q DREMOVE 424Q COMPEM 406Q BRECOMPILE3 366Q SET 360Q \APPEND2 345Q EVAL 321Q EVAL 267Q EVAL 243Q LOCALVARS 234Q SPECVARS 204Q SETTOPVAL 172Q GETTOPVAL 154Q SETTOPVAL 143Q GETTOPVAL 125Q SETTOPVAL 114Q GETTOPVAL 76Q SETTOPVAL 65Q GETTOPVAL 47Q SETTOPVAL 36Q GETTOPVAL 20Q SETTOPVAL 6 GETTOPVAL) (753Q DONTCOMPILEFNS 311Q LOCALVARS 303Q SPECVARS 254Q * 201Q DONTCOMPILEFNS 176Q DONTCOMPILEFNS 166Q DONTCOMPILEFNS 147Q LINKFNS 137Q LINKFNS 120Q NOLINKFNS 110Q NOLINKFNS 71Q BLKLIBRARY 61Q BLKLIBRARY 42Q RETFNS 32Q RETFNS 15Q GLOBALVARS 12Q GLOBALVARS 2 GLOBALVARS) ( 701Q (not compileable) 547Q (not on file, compiling in core definition) 420Q (not compileable)) BCOMPL2 D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 COREOK I 1 FILEMAPLST I 0 BLOCK F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q BCOMPL2A0001) (24Q ERROR 13Q INTERNAL) ( 10Q (BCOMPL2A0001)) BCOMPL3 D1 (P 0 FILE I 2 SCRATCHFILE I 1 FILES I 0 CFILE F 1 RESETSTATE F 2 LCFIL F 3 COUTFILE F 4 LSTFIL F 5 LSTFIL1) |BQBRjB B B RTU@A; QR dQgHi ` QhS jhS (171Q TERPRI 157Q POSITION 140Q /SETATOMVAL 135Q REMOVE 127Q NAMEFIELD 104Q DELFILE 101Q FULLNAME 71Q CLOSEF? 63Q CLOSEF? 55Q CLOSEF? 33Q DELFILE 30Q FULLNAME 23Q CLOSEF? 16Q COPYBYTES 13Q GETFILEPTR) (132Q NOTCOMPILEDFILES 122Q NOTCOMPILEDFILES) () BLOCK: D1 (I 0 X F 0 BLOCKS) P@h c(6 \NCONC2) NIL () BRECOMPILEA0001A0002 D1 (NAME ERRORSET F 0 CFILE F 1 FILE.COM) PQggho ci(22Q OPENSTREAM) (11Q OLD 6 INPUT) ( 16Q ((TYPE BINARY))) BRECOMPILEA0001 D1 (NAME ERRORSET P 71Q BLOCK P 70Q FORM P 67Q DESCR P 63Q DESCR P 62Q *PRINT-BASE* P 61Q *READ-BASE* P 60Q *READTABLE* P 57Q *PACKAGE* P 56Q E P 55Q A0687 P 54Q MAP P 53Q FILECREATEDLOC P 52Q A0686 P 51Q FNLST P 50Q DONELST P 47Q VARLST P 46Q LDFLG P 45Q STREAM P 41Q X P 37Q ENV P 36Q A0685 P 35Q DUMMY P 34Q START P 33Q A0684 P 32Q FILE P 23Q MSG P 22Q DESTINATIONENV P 21Q COREOK P 20Q SCRATCHFILE P 17Q ADRLST P 16Q TEM P 15Q FILE.COM P 14Q FILE P 13Q BLOCKS P 12Q BLKFNS P 11Q FNLST P 10Q FILEMAPLST P 7 FIRST P 6 OTHERS P 5 CHANGES P 4 LOCALVARS P 3 SPECVARS P 2 BUILDMAPFLG P 1 NOFIXVARSLST P 0 NOFIXFNSLST F 72Q RESETVARSLST F 73Q CFILE F 74Q FILES F 75Q FNS F 76Q NOBLOCKSFLG F 77Q LCFIL F 100Q READBUF F 101Q NOFIXFNSLST F 102Q NOFIXVARSLST F 103Q RESETY) 4: gd g` Wtctgd g` Wtctgd g` Wtctgd g` Wtctgd g` Wtctgd g WtctWWid` WvWz`czghhWtctWx cxAO, O._0l_4 O4 _2O0O2h_0_.O,_,O2&_0Wx _gOg` _Wzg(o Wv 4Wv _o_&Oi O&i oi W|gWx _$AWv 1O6O6_<_:O<_8O>O>O$ iWvO8 hWv _o`gWvOooWx oh g_`go0Wxd _,O. O,h_0O,&_.O0 gWdgdgdgWcgczhcvo Oggho c~`gg _ gWvWxO hhhWtctWx!O@#i_"@%Wxoi id cvg_B _g OBOg dgdiihhO@_@d_Jgg")OJj OJ OJ 1-OTOT_Z_XOZ_VO>.O\O\O\O\2OJO>OX OP _DOF ODh_HOD&_FzOH_0Ocd30$Of