(FILECREATED "22-Aug-86 16:58:11" ("compiled on " {ERIS}SOURCES>COMPILE.;18) "21-Aug-86 17:08:09" tcompl'd in "Xerox Lisp 21-Aug-86 ..." dated "21-Aug-86 17:56:01") (FILECREATED "22-Aug-86 16:56:53" {ERIS}SOURCES>COMPILE.;18 80641 changes to: (VARS COMPILECOMS) (RECORDS COMPFILEDESCR) previous date: " 3-Aug-86 16:15:18" {ERIS}SOURCES>COMPILE.;17) BCOMPLA0001 D1 (NAME ERRORSET P 6 *PRINT-BASE* P 5 *READ-BASE* P 4 *READTABLE* P 3 *PACKAGE* P 2 E P 1 NOFIXFNSLST P 0 NOFIXVARSLST F 7 RESETVARSLST F 10Q FILES F 11Q NOFIXVARSLST F 12Q NOFIXFNSLST F 13Q NOBLOCKSFLG F 14Q OPTIONSSET F 15Q *OLD-INTERLISP-READ-ENVIRONMENT* F 16Q CFILE F 17Q RESETY)  gd g` Wcgd g` Wcgd g` Wcgd g` Wcgd g` Wcgd g WcWWW cWJJJJWWWW ci(275Q BCOMPL.BODY 230Q RESETOPENFILES 205Q SETTOPVAL 176Q GETTOPVAL 160Q SETTOPVAL 146Q GETTOPVAL 130Q SETTOPVAL 116Q GETTOPVAL 100Q SETTOPVAL 66Q GETTOPVAL 50Q SETTOPVAL 36Q GETTOPVAL 20Q SETTOPVAL 6 GETTOPVAL) (240Q READER-ENVIRONMENT 202Q EXPRSLST 172Q EXPRSLST 155Q DWIMIFYCOMPFLG 152Q DWIMIFYCOMPFLG 142Q DWIMIFYCOMPFLG 125Q LAMA 122Q LAMA 112Q LAMA 75Q LAMS 72Q LAMS 62Q LAMS 45Q NLAMA 42Q NLAMA 32Q 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 22Q LISPXHIST P 21Q TEM P 20Q X P 17Q DFNFLG 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 23Q LCFIL F 24Q RESETVARSLST F 25Q NOFIXFNSLST F 26Q HERALDSTRING F 27Q MAKESYSDATE) i` Cho Ag@ _g` W&`gg _gh@OhhhW(c(W&[g`0@d _O Oh_O&_O`BgggW,gW.hW&` @'dO ` _"O"dgO h```0J2gdd dO O  _O Oh_O&_OW* c*O%LdO O` hO` h`$Og _gO gOiMdO W&` BNN N^JJd`J JZW& (713Q FULLNAME 677Q COMPILE1 644Q BCOMPL2 623Q PRINT 547Q GETPROP 527Q PRINT 511Q PRINT 461Q \APPEND2 456Q \APPEND2 453Q \APPEND2 450Q \NCONC2 407Q RCOMP3 365Q BCOMPL1A 326Q CLOSEF 304Q READ 255Q PRINT 151Q FULLNAME 133Q DATE 71Q OPENSTREAM 52Q COMPSET 47Q PACKFILENAME 34Q NAMEFIELD 20Q COMPSET) (664Q DONTCOMPILEFNS 620Q FILERDTBL 600Q DWIMIFYCOMPFLG 567Q CLISP 554Q CLISP 544Q FILETYPE 535Q DWIMIFYCOMPFLG 524Q FILERDTBL 506Q FILERDTBL 360Q DEFAULT 347Q LAMS 344Q NLAML 341Q NLAMA 315Q STOP 301Q FILERDTBL 252Q FILERDTBL 231Q dated 224Q in 221Q bcompl'd 215Q tcompl'd 210Q COMPVERSION 136Q COMPILEHEADER 130Q FILECREATED 77Q BCOMPL3 66Q NEW 63Q BOTH 60Q BCOMPL.SCRATCH 44Q COMPILE.EXT 41Q EXTENSION 27Q NAME 3 SYSLOCALVARS) ( 15Q (F % )) RESETOPENFILESA0001 D1 (I 0 FILES) @d h(6 CLOSEF?) NIL () RESETOPENFILES D1 (P 4 F I 0 FILES F 5 RESETVARSLST) ?g@AHIbhhhUc @HhHHLg J KhZK&(55Q OPENSTREAM) (52Q INPUT 2 RESETOPENFILESA0001) () BCOMPL1 D1 (P 1 DFNFLG P 0 TEM I 0 X) 6 @d/d@bHgdd ` XHdg@ h(62Q CLOSEF 43Q READ 32Q BCOMPL1A) (52Q STOP 40Q FILERDTBL 25Q DEFAULT) () BCOMPL1A D1 (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 10Q CHANGES F 11Q DEFS F 12Q NOFIXVARSLST F 13Q OTHERS F 14Q DFNFLG F 15Q COUTFILE F 16Q COMMENTFLG) @dg@g W cW@h cJ>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 51Q BLOCK P 45Q DESCR P 44Q FNLST P 43Q DONELST P 42Q VARLST P 41Q LDFLG P 40Q FL P 34Q X P 32Q FILE P 23Q COREOK P 22Q ROOTS P 21Q SCRATCHFILE P 20Q ADRLST P 17Q TEM P 16Q FILE.COM P 15Q FILE P 14Q BLOCKS P 13Q BLKFNS P 12Q FNLST P 11Q FILEMAPLST P 10Q FIRST P 7 OTHERS P 6 CHANGES P 5 LOCALVARS P 4 SPECVARS P 3 BUILDMAPFLG P 2 NOFIXVARSLST P 1 NOFIXFNSLST P 0 *PACKAGE* F 52Q RESETVARSLST F 53Q FILES F 54Q FNS F 55Q CFILE F 56Q LCFIL F 57Q NOBLOCKSFLG F 60Q READBUF F 61Q *INTERLISP-PACKAGE* F 62Q HERALDSTRING F 63Q NOFIXFNSLST F 64Q NOFIXVARSLST F 65Q MAKESYSDATE F 66Q RESETY) * gd g` WTcTgd g` WTcTgd g` WTcTgd g` WTcTgd g` WTcTgd g WTcTWbWfWhid`WZWX`cXghhWTcTWV cVAO,`O._?WV _gOg` _WXgo VWZ WZ _i oi W^g_4 O4_2O0O2h_0_.O,_,O2&_0`gWZOooWV oh g_`go0WVd _,O. O,h_0O,&_.O0 gW`dgdgdgW`c`gcXhcZho Oggho c\`gg _"gWZWVO"hhhWTcTWVO6#i_&@ WVoi id cZ_8 _g O8Og dgdiihhO6_6d_@gg"$O@j O@ O@ddi OF _:O< O:h_>O:&_<O>_0Obd%0OJ_<O>_,O.O,_0_.O0_0O2 _.O, _W W` NNo WM NWi oW Ni hKW:W0dOJOJ WO @A WM ihLLg(JW \JLL Jo WM hWLMh cL (675Q LCSKIP 666Q \NCONC2 652Q SETFILEPTR 643Q COMPEM 631Q COMPILE1 614Q BRECOMPILE3 562Q SETFILEPTR 553Q BRECOMPILE1 545Q SETFILEPTR 533Q BRECOMPILE2 462Q LCSKIP 454Q PRIN1 442Q PRIN2 431Q SETFILEPTR 422Q COMPEM 405Q READ 374Q GETFILEPTR 273Q LCSKIP 265Q OUTPUT 257Q PRIN1 245Q PRIN2 232Q BRECOMPILE2 212Q READ 201Q GETFILEPTR 155Q BRECOMPILE1 150Q PACK* 132Q MEMB 73Q \APPEND2 70Q \APPEND2 65Q \APPEND2 62Q \APPEND2) (603Q STOP 402Q FILERDTBL 347Q ENTRIES 207Q FILERDTBL 144Q / 137Q \ 47Q NOLINKFNS 41Q BLKAPPLYFNS 33Q RETFNS 25Q ENTRIES 17Q NOBLOCK 4 BYTECOMPFLG) ( 637Q (not found) 447Q ", " 416Q (not found) 252Q ", ") BRECOMPILE2 D1 (P 1 N P 0 NX I 1 FN I 0 X) eA@khi X@ kA k2IlHB@I lA9lkLK @IkY l0JhJl9hLk\iIkYdHih(75Q NTHCHARCODE 46Q NTHCHARCODE 24Q NCHARS 16Q NCHARS 10Q STRPOS) NIL () BRECOMPILE3 D1 (P 5 Y P 3 X P 1 FILE P 0 DEF I 2 COREOK I 1 FILEMAPLST I 0 FN) z B@i X @HihAJ(h#IH I` X@HoI i H[KL hKi@MXMiL\JZ(103Q ERROR 77Q FULLNAME 61Q READ 52Q SETFILEPTR 16Q EXPRP 12Q VIRGINFN) (56Q FILERDTBL) ( 73Q "filemap does not agree with contents of") BLOCKCOMPILEA0001A0002 D1 (NAME ERRORSET P 1 SPECVARS P 0 LOCALVARS F 2 BLKNAME F 3 BLKFNS F 4 LCFIL F 5 ENTRIES F 6 FLG F 7 LSTFIL) \hi`RSURccoRi SRhcRSU VThT` T VWh (127Q CLOSEF 111Q CLOSEF 104Q PRINT 67Q BLOCKCOMPILE1 60Q COMPSET 44Q ERROR) (101Q FILERDTBL 10Q SYSSPECVARS 3 EXPRSLST) ( 37Q "block name not atomic") BLOCKCOMPILEA0001 D1 (NAME ERRORSET P 1 MACROY P 0 MACROX F 2 RESETVARSLST F 3 NOFIXFNSLST F 4 NOFIXVARSLST F 5 RESETY) gd g` Rcgd g` Rcgd g` Rcgd g` RcgSgTg`RcRog HcHXcHXIdRHcR RkI Hc i(267Q ERROR! 256Q NLEFT 247Q TAILP 201Q BLOCKCOMPILEA0001A0002 125Q SETTOPVAL 113Q GETTOPVAL 76Q SETTOPVAL 64Q GETTOPVAL 47Q SETTOPVAL 35Q GETTOPVAL 20Q SETTOPVAL 6 GETTOPVAL) (227Q EXPRSLST 176Q INTERNAL 153Q EXPRSLST 150Q EXPRSLST 143Q NOFIXVARSLST 136Q NOFIXFNSLST 122Q LAMA 117Q LAMA 107Q LAMA 73Q LAMS 70Q LAMS 60Q LAMS 44Q NLAML 41Q NLAML 31Q NLAML 15Q NLAMA 12Q NLAMA 2 NLAMA) ( 173Q (BLOCKCOMPILEA0001A0002)) BLOCKCOMPILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 FLG I 2 ENTRIES I 1 BLKFNS I 0 BLKNAME F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q BLOCKCOMPILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (BLOCKCOMPILEA0001)) BLOCKCOMPILE1 D1 (P 12Q X P 10Q 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 16Q BLKAPPLYFNS F 17Q COUTFILE F 20Q FREEVARS F 21Q STRF) smW  @BBdWhbBW @hbWB@h d OA hOAhh_@B '@oBoo ho  hW jW AVA_dOOi ] ,OiLJOLHkXLMN Nhh _AbOo hb0 O#d_O_O Oh_O&_O`@OB @OB _W"?@`@`N*d O O O O`O@(532Q /PUTD 523Q SAVEDEF 513Q EXPRP 447Q BLOCKCOMPILE2 437Q BYTEBLOCKCOMPILE2 340Q COMPEM 315Q \NCONC2 302Q COMPILE1A 252Q EXPRP 246Q VIRGINFN 211Q TERPRI 201Q POSITION 172Q COMPEM 166Q \APPEND2 155Q COMPEM 125Q MEMB 73Q MEMB 56Q \APPEND2) (545Q EXPRSLST 541Q EXPRSLST 474Q LINKEDFNS 470Q LINKEDFNS 462Q LINKEDFNS 427Q BYTECOMPFLG) ( 334Q (not compileable) 163Q (when there are also BLKAPPLYFNS) 151Q (not on BLKFNS) 143Q (since there is more than one entry) 134Q (can't be both an entry and the block name)) COMPSET D1 (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) 2@o`Ao bdgRoi  czg@dghcic@g[ghccc Q@ c.@g@g@k@dloi b co co c R$QiQg Qggho chc A oho oi hb cgiSg Sggho c(453Q OPENSTREAM 431Q OPENP 406Q COMPSETF 377Q COMPSETREAD 373Q PRIN1 361Q COMPSETY 356Q COMPSETREAD 330Q OPENFILE 306Q OPENP 264Q COMPSETY 261Q COMPSETREAD 247Q COMPSETY 244Q COMPSETREAD 232Q COMPSETF 225Q COMPSETREAD 221Q PRIN1 155Q COMPSETY 72Q COMPSETF 67Q COMPSETREAD 63Q PRIN1 32Q COMPSETREAD) (442Q NEW 437Q OUTPUT 426Q OUTPUT 415Q DONE 317Q NEW 314Q OUTPUT 303Q OUTPUT 174Q YES 165Q Y 136Q F 130Q ST 111Q STF 102Q ST 40Q S 20Q COMPSETKEYLST) ( 447Q ((TYPE BINARY)) 367Q "file name: " 353Q (N % ) 346Q "output file? " 324Q ((TYPE TEXT)) 256Q "save exprs? " 241Q "redefine? " 215Q "file: " 57Q "file: " 27Q (S T % ) 15Q "listing? ") COMPSETREAD D1 (P 0 X I 2 DEFAULT I 1 KEYLST I 0 MESS F 1 READBUF) q`QQ c@$@@i i `*i g i h`B@A`id X`H`Hid ``Hh H(155Q \NCONC2 134Q PRINT 112Q ASKUSER 62Q READC 50Q PEEKC 36Q LISPXREAD 31Q PRIN1 14Q LISPXREADBUF) (146Q HISTSTR0 140Q LISPXHISTORY 125Q REREADFLG 117Q LISPXHISTORY 104Q COMPSETDEFAULTKEYLST 74Q DWIMWAIT 70Q REREADFLG 53Q % 42Q REREADFLG 5 DWIMFLG) () COMPSETY D1 (L (0 A)) @g@dgig@dghNIL (30Q NO 21Q N 12Q YES 3 Y) () COMPSETF D1 (L (0 A)) @diigh@NIL (11Q N) () RCOMP3 D1 (P 2 TEM2 P 1 TEM1 P 0 TYPE I 1 DEF I 0 FN F 3 COUTFILE) 0A Xddk%@d` g@` gIg)dla@d` g@` g gY mI@I ooS @Si JoS IS @jHl,@gY @gY @ H@`@(317Q HELP 300Q ARGTYPE 272Q MEMB 267Q GETTOPVAL 255Q MEMB 252Q GETTOPVAL 227Q PRINT 221Q PRIN1 205Q PRIN2 176Q PRIN1 160Q /SET 155Q REMOVE 152Q GETTOPVAL 142Q MEMB 137Q GETTOPVAL 121Q /SET 103Q MEMB 50Q /SET 32Q MEMB 6 ARGTYPE) (313Q LAMS 307Q LAMS 263Q NLAML 246Q NLAMA 133Q NLAML 125Q NLAMA 115Q NLAMA 111Q NLAMA 100Q NLAMA 62Q NLAMA 54Q NLAML 44Q NLAML 40Q NLAML 27Q NLAML) ( 215Q " was not on " 172Q "***note: " 165Q " was incorrectly on ") TCOMPLA0001 D1 (NAME ERRORSET F 0 FILE) Phid h(6 BCOMPL) NIL () TCOMPL D1 (P 4 FILE I 0 FILES) ?ho @AHIHhHHoi LoJ KhZK&(44Q TCOMPLA0001 7 COMPSET) NIL ( 54Q (not compiled) 40Q (TCOMPLA0001) 4 (F % )) RECOMPILE D1 (I 2 FNS I 1 CFILE I 0 PFILE) @ABi (6 BRECOMPILE) NIL () RECOMP? D1 (I 1 FNS I 0 X F 0 CHANGES) JAdgig@PAiAdg#@` @g @g @ @A@A(75Q EXPRP 67Q GETPROP 56Q GETPROP 45Q MEMB) (64Q BROKEN 53Q ADVISED 42Q EXPRSLST 32Q EXPRS 13Q CHANGES 4 ALL) () COMPILEA0001A0002 D1 (NAME ERRORSET P 5 FN P 1 LOCALVARS P 0 SPECVARS F 6 X F 7 LCFIL F 10Q FLG F 11Q SPECVARS F 12Q LOCALVARS F 13Q LSTFIL F 14Q LAPFLG) jWW@Vd3VhVd]di i KJh\J&Lc WWhW` W WWWVh (145Q CLOSEF 122Q CLOSEF 114Q PRINT 47Q COMPILE1 43Q VIRGINFN 11Q COMPSET) (111Q FILERDTBL) () COMPILEA0001 D1 (NAME ERRORSET P 1 MACROY P 0 MACROX F 2 RESETVARSLST F 3 NOFIXFNSLST F 4 NOFIXVARSLST F 5 RESETY) gd g` Rcgd g` Rcgd g` Rcgd g` RcgSgTRcRog HcHXcIdRHcR RkI Hc i(246Q ERROR! 235Q NLEFT 226Q TAILP 171Q COMPILEA0001A0002 125Q SETTOPVAL 113Q GETTOPVAL 76Q SETTOPVAL 64Q GETTOPVAL 47Q SETTOPVAL 35Q GETTOPVAL 20Q SETTOPVAL 6 GETTOPVAL) (166Q INTERNAL 143Q NOFIXVARSLST 136Q NOFIXFNSLST 122Q LAMA 117Q LAMA 107Q LAMA 73Q LAMS 70Q LAMS 60Q LAMS 44Q NLAML 41Q NLAML 31Q NLAML 15Q NLAMA 12Q NLAMA 2 NLAMA) ( 163Q (COMPILEA0001A0002)) COMPILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 FLG I 0 X F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q COMPILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (COMPILEA0001)) COMPILE1 D1 (P 0 FREEVARS I 2 COREFLG I 1 DEF I 0 FN F 1 FREEVARS) @AB bQ`@A @A (32Q COMPILE2 24Q BYTECOMPILE2 5 COMPILE1A) (16Q BYTECOMPFLG) () COMPILE1A D1 (P 2 FILEPKGFLG P 1 NOSPELLFLG P 0 TEM I 2 COREFLG I 1 DEF I 0 FN F 3 COUTFILE F 4 NOFIXFNSLST F 5 NOFIXVARSLST F 6 NOSPELLFLG F 7 FILEPKGFLG) A `$AXdgigTHgJg@hSi VBhWBTUA@ T` `cU` `c S jS `A`A`A` AA(237Q GETHASH 204Q TERPRI 175Q POSITION 161Q TAILP 143Q TAILP 133Q DWIMIFY0 75Q PRINT 3 EXPRP) (234Q CLISPARRAY 227Q CLISPARRAY 216Q CLISPTRANFLG 210Q CLISPTRANFLG 165Q NOFIXVARSLST0 156Q NOFIXVARSLST0 147Q NOFIXFNSLST0 140Q NOFIXFNSLST0 125Q NOFIXVARSLST0 120Q NOFIXFNSLST0 64Q dwimifying 56Q DECLARATIONS: 44Q * 34Q CLISP: 15Q DWIMIFYCOMPFLG) () COMPILE.FILECHECK D1 (I 0 FILE) @g (6 OPENFILE) (3 INPUT) () COMPEM D1 (I 3 FL I 2 ERRORFLG I 1 Y I 0 X F 0 COUTFILE) LCPbB5oC @Ci AkC AC C Cihibbhoi @Ai (111Q ERROR 103Q PRIN1 50Q TERPRI 43Q PRIN1 35Q SPACES 26Q PRIN1 20Q PRIN1) NIL ( 77Q "*****" 14Q " *****") GETCFILEA0001 D1 (NAME ERRORSET F 0 CFILE F 1 X) Pgg ci(11Q OPENSTREAM) (6 OLD 3 INPUT) () GETCFILE D1 (P 1 STR P 0 X I 1 CFILE I 0 FILES F 5 READBUF)  o H HH ooi `gH!AIo@ oh gh `go0@d KJh\J&Lh gUdggUc oi id bT(253Q READ 245Q PRIN1 234Q ERROR! 200Q ASKUSER 150Q FULLNAME 121Q FULLNAME 107Q ASKUSER 72Q FULLNAME 45Q TERPRI 26Q CLOSEF 17Q RANDACCESSP 11Q GETCFILEA0001) (222Q F 214Q ST 203Q Y 131Q Y 126Q DWIMWAIT 112Q Y 54Q Y 51Q DWIMWAIT) ( 241Q "Then what shall I use for CFILE ? " 135Q "Shall I just forget about compiling" 76Q "instead" 65Q " compile all functions on " 40Q "not found," 33Q "is not a random access file," 6 (GETCFILEA0001)) SPECVARS D1 (I 0 A F 0 SPECVARS F 1 LOCALVARS) %@Pd@P i@Q` cic(34Q UNION 15Q \APPEND2) (31Q SYSLOCALVARS) () LOCALVARS D1 (I 0 A F 0 LOCALVARS F 1 SPECVARS) &@Pd@P i@Q` cich(34Q UNION 15Q \APPEND2) (31Q SYSSPECVARS) () GLOBALVARS D1 (I 0 A) @ @` (12Q UNION) (15Q GLOBALVARS 7 GLOBALVARS) () COMPILEMODE D1 (P 0 X I 0 MODE F 1 COMPILEMODE F 2 COMPILEMODELST) 2Q@.@R!@g dHd H @c(46Q SET 37Q EVAL 17Q ERROR) (14Q ?) () (PRETTYCOMPRINT COMPILECOMS) (RPAQQ COMPILECOMS ((FNS BCOMPL BCOMPL.BODY RESETOPENFILES BCOMPL1 BCOMPL1A BCOMPL2 BCOMPL3 BLOCK: BRECOMPILE BRECOMPILE1 BRECOMPILE2 BRECOMPILE3 BLOCKCOMPILE BLOCKCOMPILE1 COMPSET COMPSETREAD COMPSETY COMPSETF RCOMP3 TCOMPL RECOMPILE RECOMP? COMPILE COMPILE1 COMPILE1A COMPILE.FILECHECK 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) (SYSLOCALVARS) (LOCALFREEVARS) (BLKLIBRARY) (RETFNS) ( BLKAPPLYFNS) (DONTCOMPILEFNS) (NLAML) (NLAMA) (LAMS) (LAMA)) (INITVARS (SPECVARS T) (LOCALVARS SYSLOCALVARS)) (INITVARS (DWIMIFYCOMPFLG) (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 (SELECTQ (SYSTEMTYPE) (D (QUOTE {CORE}BCOMPL.SCRATCH)) (QUOTE BCOMPL.SCRATCH;T))) (RECOMPILEDEFAULT (QUOTE CHANGES)) (COUTFILE T) ( SVFLG T) (STRF T) (LSTFIL T) (LCFIL) (LAPFLG T)) (DECLARE: DONTCOPY (RECORDS COMPFILEDESCR) (MACROS DIGITCHARP) (GLOBALVARS NLAMA NLAML LAMA LAMS SYSSPECVARS SYSLOCALVARS GLOBALVARS RECOMPILEDEFAULT COMPILE.EXT NOTCOMPILEDFILES BYTECOMPFLG COMPILEHEADER COMPVERSION DWIMIFYCOMPFLG BCOMPL.SCRATCH DONTCOMPILEFNS LINKEDFNS NOFIXVARSLST0 NOFIXFNSLST0 CLISPTRANFLG CLISPARRAY COMPSETKEYLST REREADFLG HISTSTR0 LISPXHISTORY COMPSETDEFAULTKEYLST FILERDTBL DWIMFLG DWIMWAIT EXPRSLST)) (P (MOVD? (QUOTE NILL ) (QUOTE FILECHANGES))) (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) (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) (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 (SELECTQ (SYSTEMTYPE) (D (QUOTE {CORE}BCOMPL.SCRATCH)) (QUOTE BCOMPL.SCRATCH;T)) ) (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)) (PUTPROPS COMPILEMODELST VARTYPE ALIST) (PUTPROPS COMPILE COPYRIGHT ("Xerox Corporation" T 1984 1985 1986)) NIL