(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 9-Sep-94 09:39:33" ("compiled on " {DSK}lispusers>DUMPLOAD.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED " 7-Jan-88 15:36:10" "{ERINYES}Lyric>DUMPLOAD.;4" 5124 changes to%: (FNS \DUMP.COPY \DUMP.PURGE DUMPREAD) (VARS DUMPLOADCOMS) (PROPS (DUMPREAD ARGNAMES)) previous date%: " 4-Dec-83 17:53:41" {ERINYES}KOTO>LISPUSERS>DUMPLOAD.;1) DUMPREADA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 *UPPER-CASE-FILE-NAMES* P 0 *STANDARD-OUTPUT* I 0 SI::*CLEANUP-FORMS* F 8 STREAM F 9 COPYFLG F 10 OUTSTREAM F 11 ASKFLG F 12 PRINTFLG F 13 COLLECT F 14 COLLECTP F 15 DATEFLG F 16 FILE)  ig qWWiiZchcWicJig coWocW ggo cW _OdlKlW \Odl&W WWMoo ]loW OlLoi i h=WoNLM +W&ioLM J?gi i iJ5WWi Wjdi i zWoi W^gWgL ghdogMhh cWW W hcWLi i W _WLKW _h]oW s(496 ERROR 491 FULLNAME 470 \DUMP.PURGE 451 \DUMP.PURGE 442 TERPRI 435 PRIN1 419 CLOSEF 412 \DUMP.COPY 400 OPENSTREAM 370 PACKFILENAME.STRING 346 PRIN1 328 TERPRI 321 TAB 307 \DUMP.COPY 288 TERPRI 281 PRIN1 266 CL:FORMAT 247 CL:Y-OR-N-P 227 TERPRI 220 PRIN1 195 ERROR 190 FULLNAME 170 GDATE 145 \DUMP.PARSEDATE 126 \DUMP.PARSENAME 97 OPENSTREAM 53 GETSTREAM 10 GETSTREAM) (387 CREATIONDATE 375 OUTPUT 364 BODY 357 DIRECTORY 275 %: 87 OLD 82 INPUT 48 OUTPUT 5 OUTPUT) ( 484 "Bad Block Type in dump file" 382 (SEQUENTIAL T) 340 " -> " 259 "~A~@[ [~A]~]" 239 "~A ~A~@[ [~A]~]? " 214 "[Skipping nameless data...]" 183 "Error block encountered in dump file" 165 (DATEFORMAT TIME.ZONE) 159 -2147483648 92 ((SEQUENTIAL T)) 71 "Copy" 61 "See") DUMPREADA0002 :D8 (F 0 OUTSTREAM F 1 COPYFLG F 2 STREAM) PQiP Rd (25 CLOSEF 16 DELFILE 11 CLOSEF) NIL () DUMPREAD :D8 (L (0 -args-) P 19 OUTSTREAM P 18 STREAM P 17 COLLECT P 16 COLLECTP P 15 DATEFLG P 14 PRINTFLG P 13 ASKFLG P 12 COPYFLG P 1 FILE) 'eka HlKJi HlMdLh Hl_OdNiHl__OdOii_ Hl__OdOh_ !g O&OiO& O$O$ $Kdagl[WkaXagMka[Ml]JagOkaXOl_EagOkaVOl_BagOkaZOl_D(164 CLOSEF 153 DELFILE 148 CLOSEF 132 \MVLIST 127 DUMPREADA0001) (273 :COLLECT 247 :DATES 221 :PRINT 198 :ASK 177 :COPY-TO 122 DUMPREADA0002) () \DUMP.PARSEDATE :D8 (I 0 INSTREAM) @ @ @ @ @ @ NIL NIL () \DUMP.PARSENAME :D8 (P 8 CH P 7 I P 5 RESULT P 4 CHARS P 3 CH I 0 INSTREAM) X @ @ @@ [djHL ]LkNMI JhYJ&_MOO NOk_(73 RPLCHARCODE 31 ALLOCSTRING 26 LENGTH) NIL () \DUMP.COPY :D8 (P 0 TYPE I 2 TTYP I 1 OUTSTREAM I 0 INSTREAM) "@A@ @ @ @ @ XlH(21 COPYBYTES) NIL () \DUMP.PURGE :D8 (I 0 STREAM) (@d @ @ @ @ @ XlH(27 SETFILEPTR 21 GETFILEPTR) NIL () (PRETTYCOMPRINT DUMPLOADCOMS) (RPAQQ DUMPLOADCOMS ((FNS DUMPREAD \DUMP.PARSEDATE \DUMP.PARSENAME \DUMP.COPY \DUMP.PURGE) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS * DUMPTYPES)) (PROP ARGNAMES DUMPREAD) (PROP FILETYPE DUMPLOAD) ( DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA DUMPREAD)) ))) (PUTPROPS DUMPREAD ARGNAMES (FILE &KEY :ASK :COPY-TO :DATES :PRINT :COLLECT)) (PUTPROPS DUMPLOAD FILETYPE :COMPILE-FILE) (PUTPROPS DUMPLOAD COPYRIGHT ("Xerox Corporation" 1983 1988)) NIL