(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "27-Oct-2021 10:55:18" ("compiled on " {DSK}larry>medley>library>DATABASEFNS.;7) "27-Oct-2021 08:25:13" brecompiled changes%: DUMPDB in "FULL 27-Oct-2021 ..." dated "27-Oct-2021 08:19:55") (FILECREATED "27-Oct-2021 10:55:18" {DSK}larry>medley>library>DATABASEFNS.;7 16051 changes to%: (FNS DUMPDB) previous date%: "24-Oct-2021 20:18:51" {DSK}larry>medley>library>DATABASEFNS.;6) (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 :D8 (NAME SI::*UNWIND-PROTECT* P 8 *PACKAGE* P 7 *READTABLE* I 0 SI::*CLEANUP-FORMS* F 9 ASKFLAG F 10 FILE F 11 SI::*RESETFORMS*) M po o W WW \ L"Woi Mi i hLWnMdg K-oi Ki oi i hCg dgi-gh#`dgMgg wK i gL hhWcXdg%XdgXgHgHg`M`N Mg YqgMgg h=`M` +`goMh gMgg hZd Jdg Ini Ki oi i hMgK K (586 FULLNAME 579 /PUT 564 TERPRI 557 PRIN1 545 PRIN1 537 TERPRI 526 MSMARKCHANGED 520 GETP 506 EXPRP 493 /PUT 467 ASKUSER 439 TESTTABLE 414 /PUT 382 GETP 370 UPDATEFILES 364 STORETABLE 345 READATABASE 311 READ 304 READ 289 READ 283 READ 267 READ 251 INPUT 239 LISPXPRINT 233 FULLNAME 221 /PUT 166 GETPROP 152 TERPRI 145 PRIN1 133 PRIN1 125 PRIN1 109 GETPROP 86 TERPRI 79 PRIN1 71 PRIN1 52 FULLNAME 45 \LOADDB/DBFILE 35 NAMEFIELD 25 CL:FIND-PACKAGE 12 FIND-READTABLE) (573 DATABASEFILENAME 515 EXPR 488 NO 483 DATABASE 472 Y 453 Y 448 DWIMWAIT 432 MSFILETABLE 424 MSFILETABLE 409 NONE 404 DATABASE 395 NO 377 FILE 358 MSFILETABLE 351 MSFILETABLE 338 STOP 327 STOP 319 READATABASE 296 ARGS 274 FNS 245 INPUT 216 YES 211 DATABASE 199 YES 193 LOADDBFLG 183 NO 172 YES 161 DATABASE 104 DATABASEFILENAME) ( 551 " is not a database file!" 458 "load database for" 139 " already loaded." 119 "Database " 65 "no database file found for " 20 "INTERLISP" 7 "INTERLISP") LOADDB :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 ASKFLAG I 0 FILE F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 LOADDBA0001) (8 SI::RESETUNWIND) () \LOADDB/DBFILE :D8 (L (1 ASKFLAG 0 FILE) F 1 *COMPILED-EXTENSIONS*) @ .dg Q ghghg@ bg @ g A@ @ bd @H @H (125 \LOADDB/DBFILE1 110 FILEDATE 101 FINDFILE 94 INFILEP 83 GETPROP 73 NAMEFIELD 65 FILENAMEFIELD 53 PACKFILENAME 26 MEMB 20 FILENAMEFIELD 7 INPUT) (78 FILEDATES 60 VERSION 46 BODY 40 VERSION 34 EXTENSION 15 EXTENSION) () \LOADDB/DBFILE1 :D8 (L (1 FILEDATES 0 F)) rggghg@  Hd:A 3Hggggg@  YhAA I(106 \LOADDB/DBFILE2 90 REMOVE 85 FILDIR 80 PACKFILENAME 45 \LOADDB/DBFILE2 32 INFILEP 27 PACKFILENAME) (73 BODY 68 * 63 VERSION 58 DATABASE 53 EXTENSION 20 BODY 14 VERSION 9 DATABASE 4 EXTENSION) () \LOADDB/DBFILE2 :D8 (L (1 FILEDATES 0 DBF) F 0 SI::*RESETFORMS* F 1 *NEW-INTERLISP-MAKEFILE-ENVIRONMENT*) xo@g bhPc@Q @ @d j$@ g1@ g!@ A@  @@ h(116 CLOSEF 107 STREQUAL 101 READ 92 READ 76 READ 60 READ 49 GETFILEPTR 42 SET-READER-ENVIRONMENT 36 READ-READER-ENVIRONMENT 31 MAKE-READER-ENVIRONMENT 15 OPENSTREAM) (83 PRETTYCOMPRINT 67 FILECREATED 10 INPUT) ( 4 (PROGN (CLOSEF? OLDVALUE))) LOAD :D8 (L (2 PRINTFLG 1 LDFLG 0 FILE)) @AB bAgdi @(24 LOADDB 7 OLDLOAD) (15 SYSLOAD) () LOADFROM :D8 (L (2 LDFLG 1 FNS 0 FILE)) @AB bdi @(16 LOADDB 7 OLDLOADFROM) NIL () MAKEFILE :D8 (L (3 SOURCEFILE 2 REPRINTFNS 1 OPTIONS 0 FILE)) @ABC bdi @(17 DUMPDB 8 OLDMAKEFILE) NIL () DUMPDB :D8 (L (1 PROPFLG 0 FILE)) q@dldd3@@ Y@ @ IN`H` hb5AHg #i @i oi i hA@Hg g-`g `H` `H`Hg  hggghg@ oggggg@hohhggIhhhh AJ i HgJ Hgg J(365 /PUT 348 /PUT 334 PRINT 328 FULLNAME 319 PRETTYDEF 243 PACKFILENAME 213 STORETABLE 207 GETPROP 177 TESTTABLE 132 GETPROP 116 TERPRI 109 PRIN1 97 PRIN1 89 TERPRI 81 /REMPROP 62 TESTTABLE 36 FILEFNSLST 30 NAMEFIELD 18 STRINGP) (360 YES 355 DATABASE 342 DATABASEFILENAME 300 QUOTE 295 DUMPDATABASE 273 QUOTE 268 GETPROP 263 CAR 258 PRINT 253 E 236 BODY 230 VERSION 225 DATABASE 220 EXTENSION 202 FILEDATES 196 MSFILETABLE 188 MSFILETABLE 170 MSFILETABLE 158 MSFILETABLE 150 YES 145 SAVEDBFLG 137 YES 127 DATABASE 76 DATABASE 55 MSFILETABLE 47 MSFILETABLE) ( 282 ((QUOTE FILEDATES)) 248 (P (PROGN (PRIN1 "Use LOADDB to load database files!" T) (ERROR!))) 103 " has no functions.") MAKEDB :D8 (L (0 F)) @ big@ h@g oU`oH`@` 3@g`go ggg (128 /PUT 105 ASKUSER 77 TESTTABLE 37 GETPROP 24 INFILECOMS? 19 FILECOMS 5 NAMEFIELD) (123 NO 117 YES 110 Y 95 N 90 DWIMWAIT 85 DATABASE 70 MSFILETABLE 63 MSFILETABLE 50 SAVEDBFLG 32 DATABASE 13 FNS) ( 100 "Do you want a Masterscope Database for this file? " 55 (YES NO) 42 (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))) (INITVARS (MSFILETABLE)) (* ; "To permit MSHASH interface") (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? MSFILETABLE) (PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993)) NIL