(FILECREATED " 4-Jul-85 18:31:42" ("compiled on " {ERIS}LOCALFILE>SCAVENGEDSKDIRECTORY.;1) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED " 4-Jul-85 18:31:16" {ERIS}LOCALFILE>SCAVENGEDSKDIRECTORY.;1 6523 changes to: ( VARS SCAVENGEDSKDIRECTORYCOMS) (FNS SCAVENGEVOLUME) previous date: " 4-Mar-85 17:28:56" {DSK}SCAVENGEDSKDIRECTORY.;1) SCAVENGEDSKDIRECTORYA0001 D1 (NAME ERRORSET L (0 NIL) P 10Q \INTERRUPTABLE F 11Q volName F 12Q RESETY) `hi W qHd o Hn'@ Hn'A IJhH H JZd_`dOH dKdn'A ]\lLln MgH N NO hH hgggHlHll( ci(300Q PACKFILENAME.STRING 275Q U-CASE 272Q \PFFetchString 235Q \LFMakeDirEntry 232Q \LFGetDirectory 221Q \LFScavVersion 213Q \LFScavFileName 207Q \PFVolumeNumber 176Q \PFFetchString 152Q \LFOpenOldFile 132Q \PFVolumeNumber 103Q \LFMakeVolumeDirectory 76Q \LFPurgeDirectory 56Q \VFMGenerateFileIDs 46Q \VFMGenerateFileIDs 36Q ERROR 25Q \PFPilotVolumeP 15Q \LFEntryPoint 7 OBTAIN.MONITORLOCK) (255Q DIRECTORY 252Q DSK 247Q HOST 203Q ExpandedName 156Q STREAM 117Q FileDescriptorTYPE# 2 \LFtopMonitor) ( 33Q "Non-pilot volume") SCAVENGEDSKDIRECTORY D1 (P 1 RESETY P 0 LISPXHIST I 0 volName F 3 LISPXHIST F 4 RESETVARSLST) L@l@og S!Tog hgZ JIJddJo (111Q VALUEERROR 63Q ERROR! 55Q RESETRESTORE 43Q SCAVENGEDSKDIRECTORYA0001 23Q ASSERTFAULT) (51Q ERROR 40Q INTERNAL 20Q volName) ( 106Q (ONEOF NIL STRINGP) 35Q (SCAVENGEDSKDIRECTORYA0001) 15Q (ONEOF ATOM STRINGP)) SCAVENGEVOLUME D1 (L (0 volName)) @ (3 SCAVENGEDSKDIRECTORY) NIL () \LFScavFileName D1 (L (0 NAME&VERSION)) @dldog @ qHkٽHMHؼHCjh_Mk]LONMNMdl;I!HHY h/g %J KhZK&Z jJiIHHddihHHo (263Q VALUEERROR 203Q \LFCASEARRAYFETCH 154Q CHCON 151Q GENSYM 33Q MKSTRING 26Q ASSERTFAULT) (146Q TRASHEDFILENAME 23Q NAME&VERSION) ( 260Q (LISTP OF SMALLP) 20Q (ONEOF ATOM STRINGP)) \LFScavVersion D1 (L (1 FILEID 0 NAME&VERSION)) K@l@og Adgg @g A kn dg (110Q VALUEERROR 75Q RAND 55Q FILENAMEFIELD 45Q ASSERTFAULT 23Q ASSERTFAULT) (105Q SMALLP 52Q VERSION 42Q FILEID 37Q FIXP 20Q NAME&VERSION) ( 15Q (ONEOF ATOM STRINGP)) \VFMGenerateFileIDsA0001 D1 (NAME ERRORSET P 0 \INTERRUPTABLE F 5 vol F 6 RESETY F 7 desiredType) h`hi U l 1Ilo Idj llĿIdI` Jc iWIIK Lh[L&(77Q EQP 52Q \VFMGet 43Q \PUTSWAPPEDFIXP 25Q \ALLOCBLOCK 17Q \VFMContextSet 7 OBTAIN.MONITORLOCK) (74Q \VFMmaxID 2 \VFMmonitor) ( 40Q 17777777777Q) \VFMGenerateFileIDs D1 (P 2 RESETY P 1 LISPXHIST I 1 desiredType I 0 vol F 4 LISPXHIST F 5 RESETVARSLST) w@Hl Hngg Agg T!Uog hg[ KJHddddihHHo (164Q VALUEERROR 112Q ERROR! 104Q RESETRESTORE 72Q \VFMGenerateFileIDsA0001 52Q ASSERTFAULT 34Q ASSERTFAULT) (100Q ERROR 67Q INTERNAL 47Q desiredType 44Q SMALLP 31Q vol 26Q LogicalVolumeDescriptor) ( 161Q (LST OF FIXP) 64Q (\VFMGenerateFileIDsA0001)) (PRETTYCOMPRINT SCAVENGEDSKDIRECTORYCOMS) (RPAQQ SCAVENGEDSKDIRECTORYCOMS ((DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) LFDIRECTORY LFFILEMAP) (FILES DECL)) (DECLARE: (LOCALVARS . T) (IGNOREDECL)) (* * Directory (LFDIRECTORY) level stuff) (FNS SCAVENGEDSKDIRECTORY SCAVENGEVOLUME \LFScavFileName \LFScavVersion) (GLOBALVARS \LFtopMonitor) (* * Volume file map (LFFILEMAP) level stuff) (FNS \VFMGenerateFileIDs))) (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (DECLARE: DOEVAL@COMPILE DONTEVAL@LOAD DONTCOPY (RESETSAVE COMPILEIGNOREDECL (QUOTE NIL))) (PUTPROPS SCAVENGEDSKDIRECTORY COPYRIGHT ("Xerox Corporation" 1985)) NIL