(FILECREATED "18-Feb-85 18:38:35" ("compiled on " {PHYLUM}LOCALFILE>HARMONY>DLIONFSPATCH.;9 ) "20-Dec-84 12:07:22" tcompl'd in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "18-Feb-85 18:38:18" {PHYLUM}LOCALFILE>HARMONY>DLIONFSPATCH.;9 9933 changes to: (FNS \VANILLAEVENTFN \MYREMOVEDEVICE.NAMES DFSCREATEDIRECTORY \DFSCreateDevice \DFSTruncateFile \FIX.TRUNCATEFILE \VANILLADISKINIT \VANILLAHOSTNAMEP) (VARS DLIONFSPATCHCOMS) previous date: "18-Feb-85 16:34:24" {PHYLUM}LOCALFILE>HARMONY>DLIONFSPATCH.;1) \DFSCloseFileA0001 D1 (NAME ERRORSET P 0 \INTERRUPTABLE F 1 STREAM F 2 RESETY) O`hi Q Q Q g.QQ Q Q jkl Q Qci(107Q \DFSUpdateLeaderPage 102Q \DFSTrimHelper 26Q \GETACCESS 21Q \UPDATEOF 14Q \CLEARMAP 7 OBTAIN.MONITORLOCK) (65Q STREAM 57Q STREAM 51Q STREAM 43Q STREAM 31Q INPUT 2 \DFStopMonitor) () \DFSCloseFile 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 \DFSCloseFileA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\DFSCloseFileA0001)) \DFSReadOnePage D1 (L (2 buffer 1 page 0 stream)) B@@ A@ @ j!A@ k Hd@ A B h(76Q \LvGetPage 72Q \DFSFindPageAddr 54Q EQP 14Q \UPDATEOF) (64Q STREAM 45Q STREAM 32Q STREAM 21Q STREAM 3 STREAM) () \DFSTruncateFile D1 (L (2 OFFSET 1 PAGE# 0 STREAM) P 0 \INTERRUPTABLE) @ Ad@ bBd@ bP@0@kIAnB@ n@ պk[J@j Kkذ@L @A @B @ h(173Q \DFSUpdateLeaderPage 150Q \SETFILEPTR 135Q \BOUT 3 \UPDATEOF) (164Q STREAM 155Q STREAM 116Q STREAM 104Q STREAM 61Q FDEV 54Q STREAM 40Q STREAM 17Q STREAM) () \DFSCreateDevice D1 (P 0 \INTERRUPTABLE)  `dk dgdgdgdgdg dgdgdgdgdgdgdg dgdgdgdg:dg8dg6dg4dg2dg0dg.dg*dg$ gI Io h I(317Q TERPRI 312Q PRIN1 277Q \DEFINEDEVICE 267Q \MAKE.PMAP.DEVICE) (303Q \DFSdevice 273Q DSK 261Q \GENERIC.READP 252Q NILL 243Q \IS.NOT.RANDACCESSP 234Q \ILLEGAL.DEVICEOP 225Q \IS.NOT.RANDACCESSP 216Q \ILLEGAL.DEVICEOP 207Q \GENERIC.BINS 200Q \GENERIC.BOUTS 171Q \GENERIC.RENAMEFILE 162Q \DFSHostNameP 153Q \DFSDirectoryNameP 144Q \DFSEventFn 135Q \DFSGenerateFiles 126Q \DFSOpenFile 117Q \DFSWritePages 110Q \DFSSetFileInfo 101Q \DFSReadPages 72Q \DFSOpenFile 63Q \DFSGetFileName 54Q \DFSGetFileInfo 45Q \DFSTruncateFile 36Q \DFSDeleteFile 27Q \DFSCloseFile 20Q DSK 5 FDEVTYPE#) ( 307Q "Opened local file system device {DSK}.") \FIX.TRUNCATEFILE D1 NIL ```ggNIL (27Q \DFSTruncateFile 22Q \DFSTruncateFile 17Q FDEV 14Q \DFSdevice 6 FDEVTYPE# 2 \DFSdevice) () \MYREMOVEDEVICE.NAMES D1 (L (1 NAMES 0 DEV)) J`1HYJ h` h@'AI[AAKAI` IhiI(72Q DREMOVE 24Q DREMOVE) (75Q \FILEDEVICENAMES 67Q \FILEDEVICENAMES 27Q \DEVICENAMETODEVICE 21Q \DEVICENAMETODEVICE 2 \DEVICENAMETODEVICE) () DFSCREATEDIRECTORYA0001 D1 (NAME ERRORSET L (0 NIL) P 4 \INTERRUPTABLE F 5 volName F 6 RESETY) `hi i U 1HoUo ljJIHJJhJkZio g [d`dgKg K`KgH H Uc i(241Q \DFSMakeVolumeDirectory 234Q \DFSVFMInitMap 227Q \DFSCreateDevice 201Q \MYREMOVEDEVICE.NAMES 145Q \GETDEVICEFROMNAME 133Q ERROR 104Q \DFSCurrentVol 61Q ERROR 56Q CONCAT 35Q \DFSGetLVPage 30Q ERROR 24Q \DFSPhysicalVolumeOK 17Q \DFSEnsureInitialized 13Q \DFSEnsureDlion 7 OBTAIN.MONITORLOCK) (222Q \DFSCloseFile 215Q FDEV 207Q FDEVTYPE# 176Q DSK 167Q \CORE.CLOSEFILE 162Q FDEV 153Q FDEVTYPE# 142Q DSK 2 \DFStopMonitor) ( 130Q "Can't make a lisp file directory on your vmem volume" 53Q " not on local disk" 46Q "Volume ") DFSCREATEDIRECTORY 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 DFSCREATEDIRECTORYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DFSCREATEDIRECTORYA0001)) \VANILLADISKINIT D1 (F 1 \FILEDEVICES) QHhh`dodgdgdg:dg8dg6dg4dg2dg0dg.dg*dg$dg do HX(177Q \REMOVEDEVICE 173Q EQUAL 154Q \DEFINEDEVICE) (162Q FDEV 146Q NILL 137Q \GENERIC.READP 130Q NILL 121Q \IS.NOT.RANDACCESSP 112Q \ILLEGAL.DEVICEOP 103Q \IS.NOT.RANDACCESSP 74Q \ILLEGAL.DEVICEOP 65Q \GENERIC.BINS 56Q \GENERIC.BOUTS 47Q \GENERIC.RENAMEFILE 40Q \VANILLAHOSTNAMEP 31Q NILL 14Q FDEVTYPE#) ( 170Q "VANILLADISK" 22Q "VANILLADISK") \VANILLAHOSTNAMEP D1 (L (0 NAME)) fdgdgD@ghg g ,`g g gg` `dgdg𴺿@ (143Q \M44HOSTNAMEP 115Q \DEFINEDEVICE 70Q \GETDEVICEFROMNAME 61Q COREDEVICE 44Q \DFSDEVICEP 35Q \DEFINEDP 2 MACHINETYPE) (133Q DORADO 125Q DOLPHIN 120Q \PSEUDODSK 112Q \PSEUDODSK 107Q DSK 101Q \VANILLAEVENTFN 76Q FDEV 73Q \PSEUDODSK 65Q PSEUDO-DSK 56Q PSEUDO-DSK 51Q \PSEUDODSK 41Q DSK 32Q \DFSDEVICEP 23Q DSK 14Q DOVE 6 DANDELION) () \VANILLAEVENTFN D1 (L (1 EVENT 0 FDEV)) #AgAgAgAg @g (40Q \MYREMOVEDEVICE.NAMES) (35Q DSK 26Q AFTERSAVEVM 20Q AFTERMAKESYS 12Q AFTERSYSOUT 3 AFTERLOGOUT) () (PRETTYCOMPRINT DLIONFSPATCHCOMS) (RPAQQ DLIONFSPATCHCOMS ((DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) DLIONFS)) (DECLARE: ( LOCALVARS . T)) (* * Dlionfs bug fixes -- \UPDATEOF) (FNS \DFSCloseFile \DFSReadOnePage) (* * Dlionfs bug fixes -- TRUNCATEFILE) (FNS \DFSTruncateFile \DFSCreateDevice \FIX.TRUNCATEFILE) (P ( \FIX.TRUNCATEFILE)) (* * Vanilladisk bug fixes.) (FNS \MYREMOVEDEVICE.NAMES) (FNS DFSCREATEDIRECTORY) (FNS \VANILLADISKINIT \VANILLAHOSTNAMEP \VANILLAEVENTFN) (INITVARS (\PSEUDODSK)) (GLOBALVARS \PSEUDODSK) (P (\VANILLADISKINIT) (MOVD (QUOTE NILL) (QUOTE \DFSDeviceConflict) T)))) (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS)) (\FIX.TRUNCATEFILE) (RPAQ? \PSEUDODSK) (\VANILLADISKINIT) (MOVD (QUOTE NILL) (QUOTE \DFSDeviceConflict) T) (PUTPROPS DLIONFSPATCH COPYRIGHT ("Xerox Corporation" 1985)) NIL