(FILECREATED " 4-Apr-86 09:42:34" ("compiled on " {ERIS}KOTO>DUMPER.;1) "12-Nov-85 14:59:23" bcompl'd in "INTERLISP-D 7-Feb-86 ..." dated " 7-Feb-86 11:43:05") (FILECREATED "25-Mar-86 13:22:34" {LOGOS:AFB:SIP}LISP>DUMPER.;10 8672 changes to: (FNS DUMP.DUMP DUMP.DIRECTORY DUMP DUMP.LOG.FILENAME DUMP.NEW.FILENAME DUMP.DIRECTORIES) (VARS DUMPERCOMS) previous date: "24-Mar-86 21:40:40" {LOGOS:AFB:SIP}LISP>DUMPER.;7) DUMPA0001 D1 (NAME ERRORSET L (0 NIL) P 13Q FILES P 12Q DIR P 10Q SPEC P 7 DIR P 6 FILES P 5 LOG P 4 FILTERS P 3 IDATE F 14Q HOST F 15Q NEWERTHAN F 16Q RESETVARSLST F 17Q TO.DIRECTORY F 20Q NVERSIONS F 21Q then F 22Q else F 23Q 'OUTPUT F 24Q LOG.FILE F 25Q 'NEW F 26Q 'CLOSEF? F 27Q RESETY F 30Q DUMP.IGNORE.DIRS)  WW"W W$j 0`d IHhZH&J"K3 Wo oW Wo W(W&W* W,MhhhWcoM WM oM M oM WM oM M oM W oM oM K M oM M oM W0doM OM M oM `doM OM M M W ! O'M M oM M M c.i_i WOKW LM _oi O i oi OWM oi i O_(675Q TERPRI 670Q PRIN1 657Q DUMP.DUMP 646Q PRIN1 635Q PRIN1 631Q FLENGTH 623Q PRIN1 610Q DUMP.DIRECTORY 572Q PRIN1 556Q CLOSEF 551Q TERPRI 544Q PRIN1 533Q PRIN1 527Q DATE 523Q TERPRI 506Q DUMP.DIRECTORIES 500Q TERPRI 473Q TERPRI 462Q PRIN1 453Q PRIN1 430Q PRIN1 417Q TERPRI 406Q PRIN1 377Q PRIN1 355Q PRIN1 344Q TERPRI 337Q PRIN1 326Q PRIN1 322Q GDATE 315Q PRIN1 304Q PRIN1 267Q PRIN1 256Q TERPRI 251Q PRIN1 240Q PRIN1 231Q PRIN1 220Q PRIN1 214Q DATE 210Q PRIN1 177Q PRIN1 170Q PRIN1 137Q OPENSTREAM 125Q ERROR 113Q STRPOS 110Q MKSTRING 76Q ERROR 34Q DIRECTORY.MATCH.SETUP 17Q if 10Q IDATE) (434Q DUMP.IGNORE.SPECS 25Q DUMP.IGNORE.SPECS) ( 664Q "OK" 642Q ")" 617Q "(" 540Q " Done with backups." 447Q " " 424Q "Not dumping files which match :" 373Q " " 351Q "Not dumping files on directories :" 333Q "." 311Q " versions of each file written since " 300Q "all" 263Q "Dumping " 245Q "." 225Q " to " 204Q " on " 164Q "Dump of server " 122Q "NOT AN NS HOST" 103Q ":" 73Q "ARG NOT A DATE STRING") DUMP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 NVERSIONS I 3 NEWERTHAN I 2 LOG.FILE I 1 TO.DIRECTORY I 0 HOST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q DUMPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMPA0001)) DUMP.DUMP D1 (L (2 LOG 1 TO.DIR 0 FILES) F 2 N9) @kHhhcHIkԹNIL NIL () (PRETTYCOMPRINT DUMPERCOMS) (RPAQQ DUMPERCOMS ((FNS DUMP DUMP.DUMP DUMP.NEW.FILENAME DUMP.DIRECTORIES DUMP.DIRECTORY DUMP.GENERATE.NEWERTHAN DUMP.NVERSIONS) (INITVARS (DUMP.IGNORE.DIRS ' (FONTS CLEARINGHOUSE SYSTEMFILES DESKTOPS)) (DUMP.IGNORE.SPECS ' (*.DCOM;* *.SYSOUT;*)) (DUMP.DIRECTORY.SEPARATOR "\")))) NIL