(FILECREATED "11-Mar-85 21:21:12" ("compiled on " {ERIS}INTERMEZZO>SOURCES>LOCALFILE.;5) " 7-Mar-85 12:37:06" recompiled changes: \LFEventFn in "INTERLISP-D 7-Mar-85 ..." dated " 7-Mar-85 13:57:43") (FILECREATED "11-Mar-85 21:19:46" {ERIS}INTERMEZZO>SOURCES>LOCALFILE.;5 42568 changes to: (FNS \LFEventFn) (VARS LOCALFILECOMS) previous date: " 6-Mar-85 22:42:00" {ERIS}INTERMEZZO>SOURCES>LOCALFILE.;3) CREATEDSKDIRECTORYA0001 D1 (NAME ERRORSET L (0 NIL) P 3 \INTERRUPTABLE F 4 volName F 5 smashDirectory F 6 RESETY) `hi Thi !H o UH H o g Y`IgIgg Z`JgJgH Hi gggT c i(241Q PACKFILENAME.STRING 236Q U-CASE 217Q \LFOpenDevice 213Q \LFMakeVolumeDirectory 205Q \LFMakeVolumeDirectory 143Q \GETDEVICEFROMNAME 134Q \LFCreateDevice 73Q \GETDEVICEFROMNAME 61Q ERROR 51Q \LFDirectoryP 44Q \LFPurgeDirectory 35Q ERROR 25Q \PFPilotVolumeP 16Q \LFEntryPoint 7 OBTAIN.MONITORLOCK) (232Q DIRECTORY 227Q DSK 224Q HOST 177Q NILL 172Q FDEV 164Q \LFCloseFile 157Q FDEV 150Q FDEVTYPE# 140Q DSK 127Q NILL 122Q FDEV 114Q \LFCloseFile 107Q FDEV 100Q FDEVTYPE# 70Q DSK 2 \LFtopMonitor) ( 56Q "Directory already created" 32Q "Non-pilot volume") CREATEDSKDIRECTORY D1 (P 1 RESETY P 0 LISPXHIST I 1 smashDirectory I 0 volName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q CREATEDSKDIRECTORYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (CREATEDSKDIRECTORYA0001)) PURGEDSKDIRECTORYA0001 D1 (NAME ERRORSET L (0 NIL) P 5 \INTERRUPTABLE F 6 volName F 7 \OPENFILES F 10Q dontDeleteFiles F 11Q RESETY) `hi Vhi AH o WhZ&WgggHlHll( p[Y`AI `4K l H` o` K ` Jd` o` L ` H hci(312Q \LFCloseDevice 306Q \LFFindDirectoryVol 302Q \LFPurgeDirectory 271Q PRIN1 263Q DELFILE 256Q PRIN1 243Q TERPRI 225Q PRIN1 217Q CLOSEF 212Q PRIN1 177Q TERPRI 165Q \PFGetVol 162Q \GETBASEFIXP 113Q FILDIR 110Q PACKFILENAME 105Q \PFFetchString 35Q ERROR 25Q \PFPilotVolumeP 16Q \LFEntryPoint 7 OBTAIN.MONITORLOCK) (266Q PROMPTWINDOW 253Q PROMPTWINDOW 240Q PROMPTWINDOW 222Q PROMPTWINDOW 207Q PROMPTWINDOW 174Q PROMPTWINDOW 155Q FileDescriptor 150Q STREAM 141Q FileDescriptorTYPE# 133Q STREAM 124Q STREAMTYPE# 70Q DIRECTORY 65Q DSK 62Q HOST 2 \LFtopMonitor) ( 250Q "Deleting " 204Q "Closing " 32Q "Non-pilot volume") PURGEDSKDIRECTORY D1 (P 1 RESETY P 0 LISPXHIST I 1 dontDeleteFiles I 0 volName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q PURGEDSKDIRECTORYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (PURGEDSKDIRECTORYA0001)) LISPDIRECTORYPA0001 D1 (NAME ERRORSET F 0 volumeName F 1 RESETY) 1`hi dgdgPhi d hhhci(44Q \LFDirectoryP 37Q \LFEntryPoint 13Q MACHINETYPE 7 OBTAIN.MONITORLOCK) (25Q DOVE 17Q DANDELION 2 \LFtopMonitor) () LISPDIRECTORYP D1 (P 1 RESETY P 0 LISPXHIST I 0 volumeName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q LISPDIRECTORYPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (LISPDIRECTORYPA0001)) VOLUMES D1 NIL Fdgdg6hi @$d[lKll( IHhZH&J(62Q MKATOM 57Q U-CASE 54Q \PFFetchString 33Q \PFGetVols 25Q \LFEntryPoint 2 MACHINETYPE) (14Q DOVE 6 DANDELION) () VOLUMESIZE D1 (L (1 recompute 0 volName)) @ HH(3 \LFEntryPoint) NIL () \DFSCurrentVolume D1 NIL !hi HlHll(  (36Q MKATOM 33Q U-CASE 27Q \PFFetchString 7 \PFCurrentVol 4 \LFEntryPoint) NIL () \DFSFreeDiskPagesA0001 D1 (NAME ERRORSET F 0 volName F 1 recompute F 2 RESETY) `hi P Q ci(20Q \PFFreeDiskPages 14Q \LFEntryPoint 7 OBTAIN.MONITORLOCK) (2 \LFtopMonitor) () \DFSFreeDiskPages D1 (P 1 RESETY P 0 LISPXHIST I 1 recompute I 0 volName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \DFSFreeDiskPagesA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\DFSFreeDiskPagesA0001)) \LFEntryPoint D1 (L (2 dontDefault 1 noVolName 0 volName)) Ndgdgo o A#@ Bhh H o Hh(110Q ERROR 73Q \LFFindDirectoryVol 60Q \PFGetLVPage 55Q \LFNormalizeVolumeName 45Q ERROR 35Q \PFVersionOK 32Q \PFEnsureInitialized 26Q ERROR 2 MACHINETYPE) (14Q DOVE 6 DANDELION) ( 105Q "Volume not on local disk" 42Q "Wrong Pilot version on disk" 23Q "Wrong machinetype") \LFNormalizeVolumeName D1 (L (0 volName)) o@ @ @(14Q \LFParseFileName 7 STRPOS) NIL ( 3 "{") \LFCreateDevice D1 NIL g ,`H`Hg Hg``dk dgdgdgdgdg dgdgdgdgdgdgdg dgdgdgdg:dg8dg6dg4dg2dg0dg.dg*dg$ (346Q \MAKE.PMAP.DEVICE 5 BOUNDP) (351Q \LFdevice 340Q \GENERIC.READP 331Q NILL 322Q \IS.NOT.RANDACCESSP 313Q \ILLEGAL.DEVICEOP 304Q \IS.NOT.RANDACCESSP 275Q \ILLEGAL.DEVICEOP 266Q \GENERIC.BINS 257Q \GENERIC.BOUTS 250Q \GENERIC.RENAMEFILE 241Q NILL 232Q \LFDirectoryNameP 223Q \LFEventFn 214Q \LFGenerateFiles 205Q \LFOpenFile 176Q \LFWritePages 167Q NILL 160Q \LFReadPages 151Q \LFOpenFile 142Q \LFGetFileName 133Q \LFGetFileInfo 124Q \LFTruncateFile 115Q \LFDeleteFile 106Q \LFCloseFile 77Q DSK 64Q FDEVTYPE# 60Q \LFdevice 52Q NILL 45Q FDEV 36Q \LFCloseFile 31Q FDEV 22Q FDEVTYPE# 12Q \LFdevice 2 \LFdevice) () \LFOpenDeviceA0001 D1 (NAME ERRORSET L (0 NIL) F 2 RESETY) ]`hi dgdg?i 6Hh(g` Y I IiHX׿hci(111Q \LFDirectoryP 104Q \LFCloseDirectory 75Q \GETDEVICEFROMNAME 72Q \DEFINEDEVICE 46Q \PFGetVols 41Q \PFVersionOK 35Q \PFEnsureInitialized 13Q MACHINETYPE 7 OBTAIN.MONITORLOCK) (67Q \LFdevice 64Q DSK 25Q DOVE 17Q DANDELION 2 \LFtopMonitor) () \LFOpenDevice D1 (P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFOpenDeviceA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFOpenDeviceA0001)) \LFCloseDeviceA0001 D1 (NAME ERRORSET F 0 RESETY) .`hi i ` d hci(42Q \LFCloseDirectory 34Q \PFGetVols 27Q \PFVersionOK 23Q \REMOVEDEVICE 14Q \PFEnsureInitialized 7 OBTAIN.MONITORLOCK) (20Q \LFdevice 2 \LFtopMonitor) () \LFCloseDevice D1 (P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFCloseDeviceA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFCloseDeviceA0001)) \LFOpenFileA0001 D1 (NAME ERRORSET L (0 NIL) F 1 FILE F 2 OTHERINFO F 3 ACCESS F 4 RECOG F 5 RESETY F 6 OLDSTREAM) `hi gR H Qd`# `QcH QTSdghR ch)SgQQj j QVgRSh Qc i(170Q \LFUpdateLeaderPage 115Q \LFGetStreamForFile 72Q IDATE 17Q FASSOC 7 OBTAIN.MONITORLOCK) (157Q DON'T.CHANGE.DATE 141Q STREAM 135Q STREAM 127Q OUTPUT 105Q INPUT 56Q STREAM 47Q FileDescriptorTYPE# 41Q STREAM 33Q STREAMTYPE# 13Q CREATIONDATE 2 \LFtopMonitor) () \LFOpenFile D1 (L (4 FDEV) P 1 RESETY P 0 LISPXHIST I 5 OLDSTREAM I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFOpenFileA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFOpenFileA0001)) \LFGetStreamForFile D1 (L (4 OTHERINFO 3 CREATEFLG 2 ACCESS 1 RECOG 0 NAME) P 4 \INTERRUPTABLE) @A 1HdvZ3`HY J dKdlI dn'AH J Hd*n` o` i@l hC HD (177Q \LFCreateFile 163Q \LISPERROR 151Q PRIN1 136Q TERPRI 101Q \LFOpenOldFile 75Q \LFFullFileName 57Q \PUTBASEFIXP 42Q \LFReadFileID 36Q \LFGetDirectory 4 \LFFileSpec) (146Q PROMPTWINDOW 133Q PROMPTWINDOW 24Q FileDescriptorTYPE#) ( 143Q "Version number too high") \LFOpenOldFile D1 (L (2 directoryPointer 1 fullFileName 0 fileDesc)) l Hn1H`dAd`dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhYd@ IBIH1@ [@lK @j@j H Hl K Hl HKkټnJL JM J(307Q \GETBASEFIXP 300Q EQP 274Q \GETBASEFIXP 266Q \PFGetPage 262Q \PFFindPageAddr 253Q \PUTBASEFIXP 240Q \PFFindFileSize) (337Q STREAM 330Q STREAM 245Q FileDescriptor 225Q STREAM 215Q STREAM 205Q STREAM 132Q \STREAM.DEFAULT.MAXBUFFERS 116Q FILELINELENGTH 101Q \FILEOUTCHARFN 72Q \EOSERROR 63Q \NOIMAGEOPS 54Q \STREAM.NOT.OPEN 45Q \STREAM.NOT.OPEN 36Q \LFdevice 24Q STREAMTYPE#) () \LFGenFileID D1 (L (0 vol)) @ls@t@sk (17Q \PUTSWAPPEDFIXP) NIL () \LFCreateFile D1 (L (1 info 0 fileName) P 0 \INTERRUPTABLE) p@ h`@ dK`I dLI dlM dn'Ad`dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhdN ZIJ `dj dlj dl` JJ @ A J@I J(360Q \LFMakeDirEntry 355Q \LFGetDirectory 345Q \LFMakeLeaderPage 341Q \LFFileName 323Q \PFNewPages 317Q \PUTSWAPPEDFIXP 304Q \PUTSWAPPEDFIXP 273Q \PUTSWAPPEDFIXP 63Q \PUTBASEFIXP 53Q \PFVolumeNumber 41Q \LFGenFileID 23Q \LFFullFileName 10Q \PFGetVol) (333Q STREAM 327Q STREAM 314Q \LFrunSize 265Q PageGroupTYPE# 260Q STREAM 246Q STREAM 174Q \STREAM.DEFAULT.MAXBUFFERS 160Q FILELINELENGTH 143Q \FILEOUTCHARFN 134Q \EOSERROR 125Q \NOIMAGEOPS 116Q \STREAM.NOT.OPEN 107Q \STREAM.NOT.OPEN 100Q \LFdevice 34Q FileDescriptorTYPE# 16Q STREAMTYPE#) () \LFMakeLeaderPage D1 (L (2 Info 1 fileName 0 file)) gB `gB dgB l Hn1HKHgjkͱKlI KlI Kl@ Kl @l Kl j KjKlKlnA KlKll@J Kl@j@j K K(256Q \PFPutPage 252Q \PFFindPageAddr 236Q \PFReplaceString 220Q \PFReplaceString 175Q \PUTBASEFIXP 166Q \PUTBASEFIXP 163Q \GETBASEFIXP 147Q \PUTBASEFIXP 133Q \PUTBASEFIXP 124Q \PUTBASEFIXP 57Q USERNAME 50Q FASSOC 41Q IDATE 24Q FASSOC 6 FASSOC) (156Q FileDescriptor 142Q FileDescriptor 106Q TEXT 44Q AUTHOR 20Q CREATIONDATE 15Q DEFAULTFILETYPE 2 TYPE) () \LFUpdateLeaderPage D1 (L (1 access 0 stream) P 0 \INTERRUPTABLE) 0@Yl @ I@ Il @ l Il @ l AgAgAdgIlJ AgAgIlJ @ h(175Q \LFWriteLeaderPage 170Q \PUTBASEFIXP 144Q \PUTBASEFIXP 111Q \PUTBASEFIXP 106Q \GETBASEFIXP 65Q \PUTBASEFIXP 62Q \GETBASEFIXP 30Q \PUTBASEFIXP 13Q DAYTIME) (157Q BOTH 151Q INPUT 132Q APPEND 123Q BOTH 115Q OUTPUT 101Q FileDescriptor 74Q STREAM 55Q FileDescriptor 50Q STREAM 35Q STREAM 23Q STREAM 6 STREAM) () \LFWriteLeaderPage D1 (L (0 stream)) -@ l @ IjIj @ h(51Q \PFPutPage 40Q \PFFindPageAddr 20Q \PFGetVol 15Q \GETBASEFIXP) (44Q STREAM 24Q STREAM 10Q FileDescriptor 3 STREAM) () \LFCloseFileA0001 D1 (NAME ERRORSET P 0 \INTERRUPTABLE F 1 STREAM F 2 RESETY) r`hi Q Q gAQ Q l Q Q Q jmjl Q Q l Qci(152Q \PFSaveBuffers 147Q \PFGetVol 144Q \GETBASEFIXP 125Q \LFUpdateLeaderPage 120Q \PFTrimHelper 60Q \PFGetVol 55Q \GETBASEFIXP 36Q \LFTruncateFile 21Q \GETACCESS 14Q \CLEARMAP 7 OBTAIN.MONITORLOCK) (137Q FileDescriptor 132Q STREAM 100Q STREAM 72Q STREAM 64Q STREAM 50Q FileDescriptor 43Q STREAM 24Q INPUT 2 \LFtopMonitor) () \LFCloseFile D1 (P 1 RESETY P 0 LISPXHIST I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFCloseFileA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFCloseFileA0001)) \LFDeleteFileA0001 D1 (NAME ERRORSET L (0 NIL) P 4 \INTERRUPTABLE F 5 fileName F 6 RESETY) `hi Ugg H`HI hhj[JKiIYHd l H l H j H l Hc i(224Q \PFSaveBuffers 221Q \PFGetVol 216Q \GETBASEFIXP 177Q \PFTrimHelper 165Q \PFGetVol 162Q \GETBASEFIXP 143Q \LFRemoveDirEntry 140Q \LFGetDirectory 135Q \PFGetVol 132Q \GETBASEFIXP 22Q \LFGetStreamForFile 7 OBTAIN.MONITORLOCK) (231Q STREAM 211Q FileDescriptor 204Q STREAM 171Q STREAM 155Q FileDescriptor 150Q STREAM 125Q FileDescriptor 120Q STREAM 70Q STREAM 43Q STREAM 37Q \OPENFILES 17Q BOTH 14Q OLDEST 2 \LFtopMonitor) () \LFDeleteFile D1 (L (1 dev) P 1 RESETY P 0 LISPXHIST I 0 fileName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFDeleteFileA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFDeleteFileA0001)) \LFReadPages D1 (L (2 buffers 1 firstPage 0 stream)) C@ @ @ jmjBAjIKIhIIK@JLH ԻJkԺ(71Q \LFReadOnePage 3 \UPDATEOF) (15Q STREAM 7 STREAM) () \LFReadOnePage D1 (L (4 offset 3 lastStreamPage 2 buffer 1 streamPageNumber 0 stream)) d@ l @ Ak3AC7IJIJ B AC@ [djnnKMLBMjǿMk]KBB j(140Q \ZEROPAGE 54Q \PFGetPage 50Q \PFFindPageAddr 20Q \PFGetVol 15Q \GETBASEFIXP) (64Q STREAM 24Q STREAM 10Q FileDescriptor 3 STREAM) () \LFWritePages D1 (L (2 buffers 1 firstPage 0 stream)) #BAHdHhHH@IJ IkԹ(32Q \LFWriteOnePage) NIL () \LFWriteOnePage D1 (L (2 buffer 1 streamPageNumber 0 stream)) @@ l @ AkJIl @Jk IJIJ B h(74Q \PFPutPage 70Q \PFFindPageAddr 60Q \LFExtendFile 46Q \GETBASEFIXP 20Q \PFGetVol 15Q \GETBASEFIXP) (41Q FileDescriptor 24Q STREAM 10Q FileDescriptor 3 STREAM) () \LFExtendFile D1 (L (1 page 0 stream) P 4 \INTERRUPTABLE) g@ l @ "HI`Il dJ dlj AIl ` dlK @ @ h(143Q \LFUpdateLeaderPage 136Q \UPDATEOF 131Q \PFNewPages 125Q \PUTSWAPPEDFIXP 114Q MAX 105Q \GETBASEFIXP 72Q \PUTSWAPPEDFIXP 61Q \PUTSWAPPEDFIXP 53Q \GETBASEFIXP 20Q \PFGetVol 15Q \GETBASEFIXP) (110Q \LFrunSize 100Q FileDescriptor 46Q FileDescriptor 41Q PageGroupTYPE# 24Q STREAM 10Q FileDescriptor 3 STREAM) () \LFGetFileInfoA0001 D1 (NAME ERRORSET L (0 NIL) F 1 stream F 2 attribute F 3 RESETY) 4`hi QH` H `+Qgg cH` H `QR dgQ Q nQ رdgQ Q Q nرdgHȱjg}gxdgHl fdgHl TdgHl BdgHl 3dgHl $dgHl gHlHll@ ci(455Q \PFFetchString 430Q \GETBASEFIXP 411Q \GETBASEFIXP 372Q \GETBASEFIXP 353Q GDATE 350Q \GETBASEFIXP 331Q GDATE 326Q \GETBASEFIXP 307Q GDATE 304Q \GETBASEFIXP 210Q \UPDATEOF 147Q \UPDATEOF 133Q MKATOM 130Q U-CASE 54Q \LFGetStreamForFile 7 OBTAIN.MONITORLOCK) (435Q AUTHOR 417Q ICREATIONDATE 400Q IREADDATE 361Q IWRITEDATE 337Q CREATIONDATE 315Q READDATE 273Q WRITEDATE 265Q BINARY 260Q TEXT 243Q TYPE 223Q STREAM 215Q STREAM 200Q SIZE 166Q STREAM 154Q STREAM 137Q LENGTH 117Q STREAM 103Q FileDescriptorTYPE# 75Q STREAM 66Q STREAMTYPE# 51Q INPUT 46Q OLD 36Q FileDescriptorTYPE# 30Q STREAM 21Q STREAMTYPE# 2 \LFtopMonitor) () \LFGetFileInfo D1 (L (2 device) P 1 RESETY P 0 LISPXHIST I 1 attribute I 0 stream F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFGetFileInfoA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFGetFileInfoA0001)) \LFGetFileNameA0001 D1 (NAME ERRORSET F 0 FileName F 1 Recog F 2 RESETY) `hi PQ d ci(24Q \LFFullFileName 15Q \LFFileSpec 7 OBTAIN.MONITORLOCK) (2 \LFtopMonitor) () \LFGetFileName D1 (L (2 Dev) P 1 RESETY P 0 LISPXHIST I 1 Recog I 0 FileName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFGetFileNameA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFGetFileNameA0001)) \LFEventFnA0001 D1 (NAME ERRORSET L (0 NIL) F 1 Event F 2 Dev F 3 RESETY) `hi Qdgdgdgdg;i g dgZdgSRggEdgdgdgdg)QgR Hd HXhci(227Q \PFSaveBuffers 223Q \LFDirectoryP 205Q \PFGetVols 201Q \FLUSH.OPEN.STREAMS 76Q MACHINETYPE 72Q DSKDISPLAY 67Q DSKDISPLAY 60Q \LFOpenDevice 54Q \PFEnsureInitialized 47Q \LFCloseDevice 7 OBTAIN.MONITORLOCK) (173Q BEFORELOGOUT 163Q BEFORESAVEVM 155Q BEFOREMAKESYS 147Q BEFORESYSOUT 140Q BEFORELOGOUT 132Q NILL 124Q NILL 121Q FDEV 111Q DOVE 102Q DANDELION 64Q CLOSED 40Q AFTERSAVEVM 32Q AFTERMAKESYS 24Q AFTERSYSOUT 15Q AFTERLOGOUT 2 \LFtopMonitor) () \LFEventFn D1 (P 1 RESETY P 0 LISPXHIST I 1 Event I 0 Dev F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFEventFnA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFEventFnA0001)) \LFDirectoryNamePA0001 D1 (NAME ERRORSET L (0 NIL) F 3 DirSpec F 4 RESETY) c`hi 0S XdK YCgggIlIll( gl>Hk dZHkJk ci(134Q PACKFILENAME.STRING 130Q U-CASE 125Q SUBSTRING 101Q LASTCHPOS 64Q U-CASE 61Q \PFFetchString 30Q \LFFindDirectoryVol 17Q \LFParseFileName 7 OBTAIN.MONITORLOCK) (67Q NAME 44Q DIRECTORY 41Q DSK 36Q HOST 2 \LFtopMonitor) () \LFDirectoryNameP D1 (P 1 RESETY P 0 LISPXHIST I 0 DirSpec F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LFDirectoryNamePA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LFDirectoryNamePA0001)) \LFTruncateFile D1 (L (2 OFFSET 1 PAGE# 0 STREAM) P 0 \INTERRUPTABLE) @ Ad@ bBd@ bP@0@kIAnB@ n@ պk[J@j Kk԰@L @A @B @ @ l h(217Q \PFSaveBuffers 214Q \PFGetVol 211Q \GETBASEFIXP 173Q \LFUpdateLeaderPage 150Q \SETFILEPTR 135Q \BOUT 3 \UPDATEOF) (204Q FileDescriptor 177Q STREAM 164Q STREAM 155Q STREAM 116Q STREAM 104Q STREAM 61Q FDEV 54Q STREAM 40Q STREAM 17Q STREAM) () (PRETTYCOMPRINT LOCALFILECOMS) (RPAQQ LOCALFILECOMS ((DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) LFPILOTFILE) (FILES DECL) (* * File system datatypes) (CONSTANTS (lispFileVersion 2) (leaderPageSeal 54321)) (RECORDS LFDEV DLIONSTREAM LeaderPage) (* * Error mechanism) (MACROS DiskError)) (DECLARE: (LOCALVARS . T) ( IGNOREDECL . T)) (* * Public entry) (FNS CREATEDSKDIRECTORY PURGEDSKDIRECTORY LISPDIRECTORYP VOLUMES VOLUMESIZE) (FNS \DFSCurrentVolume \DFSFreeDiskPages) (FNS \LFEntryPoint \LFNormalizeVolumeName) (* * Device management) (FNS \LFCreateDevice \LFOpenDevice \LFCloseDevice) (GLOBALVARS \LFdevice \LFtopMonitor \LFrunSize) (P (\LFCreateDevice)) (INITVARS (\LFtopMonitor (CREATE.MONITORLOCK (QUOTE topMonitor))) (\LFrunSize 20)) (* * Device methods) (FNS \LFOpenFile \LFGetStreamForFile \LFOpenOldFile \LFGenFileID \LFCreateFile \LFMakeLeaderPage \LFUpdateLeaderPage \LFWriteLeaderPage) ( FNS \LFCloseFile) (FNS \LFDeleteFile) (FNS \LFReadPages \LFReadOnePage) (FNS \LFWritePages \LFWriteOnePage \LFExtendFile) (FNS \LFGetFileInfo) (FNS \LFGetFileName) (FNS \LFEventFn) (FNS \LFDirectoryNameP) (FNS \LFTruncateFile) (* * Load other file system modules) (FILES LFDIRECTORY LFPILOTFILE))) (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (DECLARE: DOEVAL@COMPILE DONTEVAL@LOAD DONTCOPY (RESETSAVE COMPILEIGNOREDECL (QUOTE T))) (\LFCreateDevice) (RPAQ? \LFtopMonitor (CREATE.MONITORLOCK (QUOTE topMonitor))) (RPAQ? \LFrunSize 20) (FILESLOAD LFDIRECTORY LFPILOTFILE) (PUTPROPS LOCALFILE COPYRIGHT ("Xerox Corporation" 1985)) NIL