(FILECREATED "21-Feb-84 12:51:57" ("compiled on " {PHYLUM}LIBRARY>DATABASEFNS.;1) "20-Feb-84 18:33:29" brecompiled changes: DUMPDB LOADDB in WORK dated "20-Feb-84 18:46:34") (FILECREATED "21-Feb-84 12:51:32" {PHYLUM}LIBRARY>DATABASEFNS.;1 12808 changes to: (FNS DUMPDB LOADDB) previous date: " 9-NOV-83 02:58:48" {PHYLUM}LIBRARY>DATABASEFNS.;2) (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 (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 6 ASKFLAG F 7 FILE F 10Q RESETVARSLST F 11Q RESETY) W WV BIVoi Hi i hIVNHdgI#oi Ii oi i h-gdgigh`dgeHgg 9Ii gI hhWch` Zdgh` h` Zdg~`hh` NegHgg h`H` `goHh gfHgg ha`h` h` h` ZgJgHJg`HK `H`L Hgd]d MgM i Ii oi i hHgI Ici(703Q /PUT 670Q TERPRI 663Q PRIN1 652Q PRIN1 644Q TERPRI 631Q MSMARKCHANGED 615Q EXPRP 576Q UPDATEFILES 572Q STORETABLE 555Q UPDATECONTAINS 543Q READATABASE 513Q READ 502Q READ 470Q STORETABLE 465Q READ 446Q /PUT 424Q ASKUSER 401Q TESTTABLE 360Q /PUT 335Q READ 310Q READ 300Q READ 256Q READ 234Q INPUT 224Q LISPXPRINT 211Q /PUT 132Q TERPRI 125Q PRIN1 114Q PRIN1 106Q PRIN1 46Q TERPRI 41Q PRIN1 33Q PRIN1 12Q \LOADDB/DBFILE 4 NAMEFIELD) (677Q DATABASEFILENAME 623Q EXPR 603Q FILE 566Q MSFILETABLE 561Q MSFILETABLE 547Q MSHASHFILENAME 536Q STOP 527Q STOP 521Q READATABASE 510Q FILERDTBL 477Q FILERDTBL 462Q FILERDTBL 456Q MSARGTABLE 443Q NO 440Q DATABASE 427Q Y 411Q Y 406Q DWIMWAIT 374Q MSFILETABLE 367Q MSFILETABLE 355Q NO 352Q DATABASE 344Q NO 332Q FILERDTBL 324Q MSHASHFILENAME 315Q ARGS 305Q FILERDTBL 275Q FILERDTBL 263Q FNS 253Q FILERDTBL 230Q INPUT 206Q YES 203Q DATABASE 173Q YES 167Q LOADDBFLG 157Q NO 146Q YES 141Q DATABASE 70Q DATABASEFILENAME) ( 657Q " is not a database file!" 415Q "load database for" 121Q " already loaded." 102Q "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 (DUMMY.FOR.ERRORSET)) \LOADDB/DBFILE D1 (L (1 ASKFLAG 0 FILE)) ]@ b"g `ghghg@ b@g @ gA@ @ bd @H@H (132Q \LOADDB/DBFILE1 115Q FILEDATE 106Q FINDFILE 101Q INFILEP 64Q NAMEFIELD 57Q FILENAMEFIELD 45Q PACKFILENAME 17Q FILENAMEFIELD 5 INPUT) (67Q FILEDATES 54Q VERSION 40Q BODY 34Q VERSION 30Q EXTENSION 22Q COMPILE.EXT 14Q 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) NIL LOADFROM D1 (L (2 LDFLG 1 FNS 0 FILE)) @AB bdi @(14Q LOADDB 5 OLDLOADFROM) NIL NIL MAKEFILE D1 (L (3 SOURCEFILE 2 REPRINTFNS 1 OPTIONS 0 FILE)) @ABC bdi @(15Q DUMPDB 6 OLDMAKEFILE) NIL NIL DUMPDBA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 3 FNS P 2 DBFILE P 1 FFNS P 0 FL I 0 FILE F 13Q LISPXHIST F 14Q RESETVARSLST) @dl@ @ 2I`MH` BhbI[A.Hgg#`g`H` `P0KCAHg i @i oi i hd\ L dNMh_M&OW! Wog hg_ OAJi HgJ Hgg J(366Q /PUT 353Q /PUT 341Q PRINT 330Q ERROR! 321Q RESETRESTORE 306Q DUMPDBA0001 235Q LOCALFNP 230Q UPDATEFN 220Q TERPRI 213Q PRIN1 202Q PRIN1 174Q TERPRI 166Q /REMPROP 134Q TESTTABLE 53Q TESTTABLE 27Q FILEFNSLST 23Q NAMEFIELD) (363Q YES 360Q DATABASE 347Q DATABASEFILENAME 314Q ERROR 303Q INTERNAL 163Q DATABASE 145Q MSHASHFILENAME 127Q MSFILETABLE 115Q MSFILETABLE 107Q YES 104Q SAVEDBFLG 76Q YES 72Q DATABASE 46Q MSFILETABLE 40Q MSFILETABLE) ( 300Q (DUMMY.FOR.ERRORSET) 207Q " has no functions.") MAKEDB D1 (L (0 F)) Z@ big@ G@go;`o1`@` "@g`go ggg (127Q /PUT 110Q ASKUSER 65Q TESTTABLE 20Q INFILECOMS? 15Q FILECOMS 3 NAMEFIELD) (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) NIL