(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 3-Dec-86 11:51:01" ("compiled on " {ERIS}LIBRARY>DATABASEFNS.;4) "30-Nov-86 17:19:54" bcompl'd in "Xerox Lisp 30-Nov-86 ..." dated "30-Nov-86 17:50:29") (FILECREATED " 2-Dec-86 08:02:50" {ERIS}LIBRARY>DATABASEFNS.;4 17510 changes to%: (FNS DUMPDB LOADDB) previous date%: "25-Sep-86 21:33:08" {ERIS}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 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 8 ASKFLAG F 9 FILE F 10 SI::*RESETFORMS*) W WW \ LWoi Mi i hLWRMdg K#oi Ki oi i h/g dgigh`dgfMgg K i gL hhWch` Xdgh` _h` Xdg~`hh` NegMgg h`M` `goMh geMgg h``h` h` h` XgHgNHg`MO `M`N Mg Y5Zd Jdg Ii Ki oi i hMgK K (474 FULLNAME 469 /PUT 458 TERPRI 453 PRIN1 444 PRIN1 438 TERPRI 430 MSMARKCHANGED 426 GETP 416 EXPRP 403 GETP 395 UPDATEFILES 391 STORETABLE 378 UPDATECONTAINS 367 READATABASE 343 READ 334 READ 324 STORETABLE 321 READ 306 /PUT 288 ASKUSER 269 TESTTABLE 252 /PUT 233 READ 212 READ 202 READ 184 READ 166 INPUT 158 LISPXPRINT 154 FULLNAME 148 /PUT 109 GETPROP 99 TERPRI 94 PRIN1 85 PRIN1 79 PRIN1 66 GETPROP 47 TERPRI 42 PRIN1 36 PRIN1 20 FULLNAME 15 \LOADDB/DBFILE 7 NAMEFIELD) (465 DATABASEFILENAME 423 EXPR 400 FILE 387 MSFILETABLE 382 MSFILETABLE 371 MSHASHFILENAME 362 STOP 355 STOP 349 READATABASE 340 FILERDTBL 331 FILERDTBL 318 FILERDTBL 314 MSARGTABLE 303 NO 300 DATABASE 291 Y 277 Y 274 DWIMWAIT 264 MSFILETABLE 259 MSFILETABLE 249 NONE 246 DATABASE 240 NO 230 FILERDTBL 224 MSHASHFILENAME 217 ARGS 209 FILERDTBL 199 FILERDTBL 189 FNS 181 FILERDTBL 162 INPUT 145 YES 142 DATABASE 134 YES 130 LOADDBFLG 122 NO 113 YES 106 DATABASE 63 DATABASEFILENAME) ( 449 " is not a database file!" 281 "load database for" 90 " already loaded." 75 "Database " 32 "no database file found for ") LOADDB :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 ASKFLAG I 0 FILE F 2 LISPXHIST) Rg  (19 CL:VALUES-LIST 15 SI::RESETUNWIND 12 \MVLIST 9 LOADDBA0001) (6 SI::RESETUNWIND) () \LOADDB/DBFILE :D4 (L (1 ASKFLAG 0 FILE)) _@ b"g `ghghg@ b@g @ g A@ @ bd @H@H (92 \LOADDB/DBFILE1 79 FILEDATE 72 FINDFILE 67 INFILEP 58 GETPROP 52 NAMEFIELD 47 FILENAMEFIELD 37 PACKFILENAME 15 FILENAMEFIELD 5 INPUT) (55 FILEDATES 44 VERSION 32 BODY 28 VERSION 24 EXTENSION 18 COMPILE.EXT 12 EXTENSION) () \LOADDB/DBFILE1 :D4 (L (1 FILEDATES 0 F)) Rggghg@  Hd(A #Hggggg@  YhAA I(74 \LOADDB/DBFILE2 60 REMOVE 57 FILDIR 54 PACKFILENAME 31 \LOADDB/DBFILE2 20 INFILEP 17 PACKFILENAME) (49 BODY 46 * 43 VERSION 40 DATABASE 37 EXTENSION 12 BODY 8 VERSION 5 DATABASE 2 EXTENSION) () \LOADDB/DBFILE2 :D4 (L (1 FILEDATES 0 DBF) F 0 SI::*RESETFORMS*) /o@g bhPc@ A@`  @@ h(43 CLOSEF 36 STREQUAL 32 READ 23 SKREAD 10 OPENSTREAM) (29 FILERDTBL 7 INPUT) ( 3 (PROGN (CLOSEF? OLDVALUE))) LOAD :D4 (L (2 PRINTFLG 1 LDFLG 0 FILE)) @AB bAgdi @(18 LOADDB 5 OLDLOAD) (11 SYSLOAD) () LOADFROM :D4 (L (2 LDFLG 1 FNS 0 FILE)) @AB bdi @(12 LOADDB 5 OLDLOADFROM) NIL () MAKEFILE :D4 (L (3 SOURCEFILE 2 REPRINTFNS 1 OPTIONS 0 FILE)) @ABC bdi @(13 DUMPDB 6 OLDMAKEFILE) NIL () DUMPDBA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 FL F 2 DBFILE F 3 FFNS F 4 FILE F 5 FNS) oggghgT gg chPcgR hhPco `Q`Qg  `QSi o S h Uo h  (132 DUMPDATABASE 128 TERPRI 124 PRIN1 114 TERPRI 109 PRIN2 104 PRIN1 96 UPDATECONTAINS 85 STORETABLE 82 PRINT 78 GETPROP 62 PRIN1 46 OUTPUT 30 OPENSTREAM 21 PACKFILENAME) (89 MSHASHFILENAME 75 FILEDATES 71 MSFILETABLE 65 MSFILETABLE 42 OUTPUT 27 NEW 24 OUTPUT 16 BODY 12 VERSION 9 DATABASE 6 EXTENSION) ( 121 "STOP" 101 "FNS " 59 "(PROGN (PRIN1 %"Use LOADDB to load database files! %" T) (ERROR!)) " 3 (PROGN (CLOSEF? OLDVALUE) (AND RESETSTATE (DELFILE OLDVALUE)))) DUMPDB :D4 (L (1 PROPFLG) P 10 SI::*RESETFORMS* P 9 LISPXHIST P 3 FNS P 2 DBFILE P 1 FFNS P 0 FL I 0 FILE F 11 LISPXHIST) @dl@ @ "I`vH` khbI[A0Hg g#`g`H` `KALMMW g  AWJ i `AHg i @i oi i h_ Od _NOh^]L\O&^HgJ Hgg J (249 FULLNAME 244 /PUT 233 /PUT 200 LOCALFNP 193 UPDATEFN 185 TERPRI 180 PRIN1 171 PRIN1 165 TERPRI 159 /REMPROP 148 PRINT 144 FULLNAME 136 CL:VALUES-LIST 132 SI::RESETUNWIND 129 \MVLIST 126 DUMPDBA0001 94 TESTTABLE 61 GETPROP 43 TESTTABLE 23 FILEFNSLST 19 NAMEFIELD) (241 YES 238 DATABASE 229 DATABASEFILENAME 156 DATABASE 123 SI::RESETUNWIND 103 MSHASHFILENAME 89 MSFILETABLE 79 MSFILETABLE 73 YES 70 SAVEDBFLG 64 YES 58 DATABASE 38 MSFILETABLE 32 MSFILETABLE) ( 176 " has no functions.") MAKEDB :D4 (L (0 F)) \@ big@ I@g o;`o1`@` "@g`go ggg (89 /PUT 74 ASKUSER 55 TESTTABLE 25 GETPROP 16 INFILECOMS? 13 FILECOMS 3 NAMEFIELD) (86 NO 82 YES 77 Y 67 N 64 DWIMWAIT 61 DATABASE 50 MSFILETABLE 45 MSFILETABLE 35 SAVEDBFLG 22 DATABASE 9 FNS) ( 71 "Do you want a Masterscope Database for this file? " 39 (YES NO) 29 (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" 1986)) NIL