(FILECREATED "11-Mar-85 15:49:27" ("compiled on " {ERIS}INTERMEZZO>SOURCES>SCAVENGEDSKDIRECTORY.;3) " 7-Mar-85 12:37:06" tcompl'd in "INTERLISP-D 7-Mar-85 ..." dated " 7-Mar-85 13:57:43") (FILECREATED "11-Mar-85 15:47:34" {ERIS}INTERMEZZO>SOURCES>SCAVENGEDSKDIRECTORY.;3 6333 changes to: (FNS \LFScavFileName) (VARS SCAVENGEDSKDIRECTORYCOMS) previous date: "28-Feb-85 20:15:51" {ERIS}INTERMEZZO>SOURCES>SCAVENGEDSKDIRECTORY.;2) 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 J]d_`dOH dlK dn'A ]\lLln MgH N NO hH hgggHlHll( ci(303Q PACKFILENAME.STRING 300Q U-CASE 275Q \PFFetchString 240Q \LFMakeDirEntry 235Q \LFGetDirectory 224Q \LFScavVersion 216Q \LFScavFileName 212Q \PFVolumeNumber 201Q \PFFetchString 155Q \LFOpenOldFile 142Q \PUTBASEFIXP 132Q \PFVolumeNumber 103Q \LFMakeVolumeDirectory 76Q \LFPurgeDirectory 56Q \VFMGenerateFileIDs 46Q \VFMGenerateFileIDs 36Q ERROR 25Q \PFPilotVolumeP 15Q \LFEntryPoint 7 OBTAIN.MONITORLOCK) (260Q DIRECTORY 255Q DSK 252Q HOST 206Q ExpandedName 161Q 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) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q SCAVENGEDSKDIRECTORYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (SCAVENGEDSKDIRECTORYA0001)) \LFScavFileName D1 (L (0 NAME&VERSION)) {@ qHkٽHMHؼHCjh_Mk]LONMNMdl;I!HHYh.g J KhZK&Z jJiIH(152Q \LFCASEARRAYFETCH 124Q CHCON 121Q GENSYM 3 MKSTRING) (116Q TRASHEDFILENAME.) () \LFScavVersion D1 (L (1 FILEID 0 NAME&VERSION)) @g A kn (26Q RAND 6 FILENAMEFIELD) (3 VERSION) () \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 1 RESETY P 0 LISPXHIST I 1 desiredType I 0 vol F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \VFMGenerateFileIDsA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\VFMGenerateFileIDsA0001)) (PRETTYCOMPRINT SCAVENGEDSKDIRECTORYCOMS) (RPAQQ SCAVENGEDSKDIRECTORYCOMS ((DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) LFDIRECTORY LFFILEMAP) (FILES DECL)) (DECLARE: (LOCALVARS . T) (IGNOREDECL . T)) (* * Directory (LFDIRECTORY) level stuff) (FNS SCAVENGEDSKDIRECTORY \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 T))) (PUTPROPS SCAVENGEDSKDIRECTORY COPYRIGHT ("Xerox Corporation" 1985)) NIL