(FILECREATED " 6-Sep-84 20:45:15" ("compiled on " {ERIS}LIBRARY>DATABASEFNS.;3) " 4-Sep-84 19:30:08" brecompiled changes: DBFILE DUMPDB LOADDB MAKEDB in "" dated " 4-Sep-84 19:45:00" ) (FILECREATED " 6-Sep-84 20:44:06" {ERIS}LIBRARY>DATABASEFNS.;3 12347 changes to: (FNS DBFILE LOADDB MAKEDB DUMPDB) previous date: " 4-May-84 10:11:42" {ERIS}LIBRARY>DATABASEFNS.;1) (VIRGINFN (QUOTE LOAD) T) (MOVD? (QUOTE LOAD) (QUOTE OLDLOAD)) (VIRGINFN (QUOTE LOADFROM) T) (MOVD? (QUOTE LOADFROM) (QUOTE OLDLOADFROM)) (VIRGINFN (QUOTE MAKEFILE) T) (MOVD? (QUOTE MAKEFILE) (QUOTE OLDMAKEFILE)) LOADDBA0001 D1 (NAME ERRORSET L (0 NIL) F 7 FILE F 10Q ASKFLAG F 11Q RESETVARSLST F 12Q RESETY) W W RIWoi Wi i hIWNHdgI#oi Ii oi i h-gdgigh`dgeHgg :Ii gI hhWch` Zdgh` h` Zdg~`hh` NegHgg h`H` `goHh gfHgg ha`h` h` h` ZgJgIJg`HK `H`L Hg]3^d Ndg Mi Ii oi i hHgI Ici(706Q /PUT 673Q TERPRI 666Q PRIN1 655Q PRIN1 647Q TERPRI 637Q MSMARKCHANGED 623Q EXPRP 600Q UPDATEFILES 574Q STORETABLE 557Q UPDATECONTAINS 545Q READATABASE 515Q READ 504Q READ 472Q STORETABLE 467Q READ 450Q /PUT 426Q ASKUSER 403Q TESTTABLE 362Q /PUT 337Q READ 312Q READ 302Q READ 260Q READ 236Q INPUT 226Q LISPXPRINT 213Q /PUT 134Q TERPRI 127Q PRIN1 116Q PRIN1 110Q PRIN1 47Q TERPRI 42Q PRIN1 33Q PRIN1 11Q \LOADDB/DBFILE 4 ROOTFILENAME) (702Q DATABASEFILENAME 632Q EXPR 605Q FILE 570Q MSFILETABLE 563Q MSFILETABLE 551Q MSHASHFILENAME 540Q STOP 531Q STOP 523Q READATABASE 512Q FILERDTBL 501Q FILERDTBL 464Q FILERDTBL 460Q MSARGTABLE 445Q NO 442Q DATABASE 431Q Y 413Q Y 410Q DWIMWAIT 376Q MSFILETABLE 371Q MSFILETABLE 357Q NONE 354Q DATABASE 346Q NO 334Q FILERDTBL 326Q MSHASHFILENAME 317Q ARGS 307Q FILERDTBL 277Q FILERDTBL 265Q FNS 255Q FILERDTBL 232Q INPUT 210Q YES 205Q DATABASE 175Q YES 171Q LOADDBFLG 161Q NO 150Q YES 143Q DATABASE 72Q DATABASEFILENAME) ( 662Q " is not a database file!" 417Q "load database for" 123Q " already loaded." 104Q "Database " 27Q "no database file found for ") LOADDB D1 (P 1 RESETY P 0 LISPXHIST I 1 ASKFLAG I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q LOADDBA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (LOADDBA0001)) \LOADDB/DBFILE D1 (L (1 ASKFLAG 0 FILE) F 0 COMPILE.EXT) 7@g Pghghg@ @i bdd @ (64Q \LOADDB/DBFILE1 57Q FILEDATE 47Q FINDFILE 41Q PACKFILENAME 15Q FILENAMEFIELD 5 INPUT) (34Q BODY 30Q VERSION 24Q EXTENSION 12Q EXTENSION) () \LOADDB/DBFILE1 D1 (L (1 FILEDATES 0 F)) Uggghg@  Hd,dA HAggggg@  YhdA ׿I(114Q \LOADDB/DBFILE2 100Q REMOVE 75Q FILDIR 72Q PACKFILENAME 40Q \LOADDB/DBFILE2 24Q INFILEP 21Q PACKFILENAME) (65Q BODY 62Q * 57Q VERSION 54Q DATABASE 51Q EXTENSION 14Q BODY 10Q VERSION 5 DATABASE 2 EXTENSION) () \LOADDB/DBFILE2 D1 (L (1 FILEDATES 0 DBF) F 0 RESETVARSLST) .o@g bhPc@ A@`  @ h(52Q CLOSEF 44Q STREQUAL 40Q READ 27Q SKREAD 12Q OPENFILE) (35Q FILERDTBL 7 INPUT) ( 3 (PROGN (CLOSEF? OLDVALUE))) LOAD D1 (L (2 PRINTFLG 1 LDFLG 0 FILE)) @AB bAgdi @(22Q LOADDB 5 OLDLOAD) (13Q SYSLOAD) () LOADFROM D1 (L (2 LDFLG 1 FNS 0 FILE)) @AB bdi @(14Q LOADDB 5 OLDLOADFROM) NIL () MAKEFILE D1 (L (3 SOURCEFILE 2 REPRINTFNS 1 OPTIONS 0 FILE)) @ABC bdi @(15Q DUMPDB 6 OLDMAKEFILE) NIL () DUMPDBA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 FL F 2 DBFILE F 3 FFNS F 4 FILE F 5 RESETY F 6 FNS) oggghgT gg chPcgR hhPco `Q`Qg `QSi o S h Vo h c i (212Q DUMPDATABASE 203Q TERPRI 176Q PRIN1 163Q TERPRI 156Q PRIN2 151Q PRIN1 141Q UPDATECONTAINS 126Q STORETABLE 123Q PRINT 100Q PRIN1 57Q OUTPUT 36Q OPENFILE 25Q PACKFILENAME) (132Q MSHASHFILENAME 116Q FILEDATES 112Q MSFILETABLE 104Q MSFILETABLE 53Q OUTPUT 33Q NEW 30Q OUTPUT 20Q BODY 14Q VERSION 11Q DATABASE 6 EXTENSION) ( 173Q "STOP" 146Q "FNS " 75Q "(PROGN (PRIN1 %"Use LOADDB to load database files! %" T) (ERROR!)) " 3 (PROGN (CLOSEF? OLDVALUE) (AND RESETSTATE (DELFILE OLDVALUE)))) DUMPDB D1 (L (1 PROPFLG) P 11Q RESETY P 10Q LISPXHIST P 2 FNS P 1 DBFILE P 0 FL I 0 FILE F 13Q FFNS F 14Q LISPXHIST F 15Q RESETVARSLST)  @dl@ !H cd`hH` ]hbWZA.Hgg#`g`H` `JAK@LW! Wog LhLAHg i @i oi i h_ Od M Nh]\K[N&]g_ OAIi HgI Hgg I(376Q /PUT 363Q /PUT 351Q PRINT 340Q ERROR! 331Q RESETRESTORE 274Q LOCALFNP 265Q UPDATEFN 255Q TERPRI 250Q PRIN1 237Q PRIN1 231Q TERPRI 223Q /REMPROP 205Q DUMPDBA0001 137Q TESTTABLE 55Q TESTTABLE 32Q FILEFNSLST 23Q ROOTFILENAME) (373Q YES 370Q DATABASE 357Q DATABASEFILENAME 324Q ERROR 220Q DATABASE 202Q INTERNAL 150Q MSHASHFILENAME 132Q MSFILETABLE 120Q MSFILETABLE 112Q YES 107Q SAVEDBFLG 101Q YES 75Q DATABASE 50Q MSFILETABLE 42Q MSFILETABLE) ( 244Q " has no functions." 177Q (DUMPDBA0001)) MAKEDB D1 (L (0 F)) Z@ big@ G@go;`o1`@` "@g`go ggg (127Q /PUT 110Q ASKUSER 65Q TESTTABLE 20Q INFILECOMS? 15Q FILECOMS 3 ROOTFILENAME) (124Q NO 120Q YES 113Q Y 101Q N 76Q DWIMWAIT 73Q DATABASE 60Q MSFILETABLE 53Q MSFILETABLE 41Q SAVEDBFLG 26Q DATABASE 11Q FNS) ( 105Q "Do you want a Masterscope Database for this file? " 45Q (YES NO) 33Q (YES NO)) (PRETTYCOMPRINT DATABASEFNSCOMS) (RPAQQ DATABASEFNSCOMS ((* Does automatic Masterscope database maintenance) (DECLARE: FIRST (P ( VIRGINFN (QUOTE LOAD) T) (MOVD? (QUOTE LOAD) (QUOTE OLDLOAD)) (VIRGINFN (QUOTE LOADFROM) T) (MOVD? ( QUOTE LOADFROM) (QUOTE OLDLOADFROM)) (VIRGINFN (QUOTE MAKEFILE) T) (MOVD? (QUOTE MAKEFILE) (QUOTE OLDMAKEFILE)))) (FNS DBFILE DBFILE1 DBFILE2 LOAD LOADFROM MAKEFILE) (ADDVARS (LINKEDFNS OLDLOAD)) (P ( RELINK (QUOTE MAKEFILES))) (FNS DUMPDB LOADDB MAKEDB) (PROP PROPTYPE DATABASE) (INITVARS (LOADDBFLG ( QUOTE ASK)) (SAVEDBFLG (QUOTE ASK))) (ADDVARS (MAKEFILEFORMS (MAKEDB FILE))) (* To permit MSHASH interface) (INITVARS (MSHASHFILENAME) (MSFILETABLE)) (LOCALVARS . T) (BLOCKS (LOADDB LOADDB DBFILE DBFILE1 DBFILE2 (NOLINKFNS . T))) (DECLARE: EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T))))) (ADDTOVAR LINKEDFNS OLDLOAD) (RELINK (QUOTE MAKEFILES)) (PUTPROPS DATABASE PROPTYPE IGNORE) (RPAQ? LOADDBFLG (QUOTE ASK)) (RPAQ? SAVEDBFLG (QUOTE ASK)) (ADDTOVAR MAKEFILEFORMS (MAKEDB FILE)) (RPAQ? MSHASHFILENAME) (RPAQ? MSFILETABLE) (PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1984)) NIL