(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 12:57:12" ("compiled on " {DSK}sources>DSK.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "31-May-90 12:23:59" {DSK}mitani>medley>system>DSK.;1 2878 changes to%: (FNS \DSKEventFn) previous date%: "16-May-90 16:13:07" {DSK}local>lde>lispcore>sources>DSK.;2) \DSKCreateDevice :D8 NIL 3g ``gg (43 \UFS.CREATE.DEVICE 9 BOUNDP) (48 \DSKdevice 38 \DSKEventFn 33 DSK 27 \DSKdevice 21 FDEV 16 \DSKdevice 4 \DSKdevice) () \DSKOpenDeviceA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) &`hg gH H(34 \DEFINEDEVICE 20 \DSKCreateDevice 15 OBTAIN.MONITORLOCK) (28 DSK 10 WITH.MONITOR 4 \DSKtopMonitor) () \DSKOpenDevice :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR*)  g $(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \DSKOpenDeviceA0001) (7 SI::MONITOR-UNWIND) () \DSKCloseDeviceA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `hg ` h(25 \REMOVEDEVICE 15 OBTAIN.MONITORLOCK) (20 \DSKdevice 10 WITH.MONITOR 4 \DSKtopMonitor) () \DSKCloseDevice :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR*)  g $(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \DSKCloseDeviceA0001) (7 SI::MONITOR-UNWIND) () \DSKEventFnA0001A0002 :D8 (L (1 KEY 0 VAL)) @ (5 \UFS.UNREGISTER.GFS) NIL () \DSKEventFnA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 Dev F 1 Event) `hg QdgdgdgdgDg0P P `g ` gP P (138 \FLUSH.OPEN.STREAMS 131 \UNVISIBLE.FLUSH.OPEN.STREAMS 116 CLRHASH 105 MAPHASH 89 \PAGED.REVALIDATEFILELST 82 \UNVISIBLE.PAGED.REVALIDATEFILELST 75 \DSKOpenDevice 62 MACHINETYPE 57 \DSKCloseDevice 15 OBTAIN.MONITORLOCK) (122 BEFORELOGOUT 111 \UFS.GFS.TABLE 100 \DSKEventFnA0001A0002 95 \UFS.GFS.TABLE 67 MAIKO 48 AFTERSAVEVM 40 AFTERMAKESYS 31 AFTERSYSOUT 22 AFTERLOGOUT 10 WITH.MONITOR 4 \DSKtopMonitor) () \DSKEventFn :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 1 Event I 0 Dev)  g $(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \DSKEventFnA0001) (7 SI::MONITOR-UNWIND) () (PRETTYCOMPRINT DSKCOMS) (RPAQQ DSKCOMS ((PROP (FILETYPE MAKEFILE-ENVIRONMENT) DSK) (* ;; " Create FDEV function.") (FNS \DSKCreateDevice \DSKOpenDevice \DSKCloseDevice) (* ;; "UNIX File System's FDEV methods. Only one here--the rest are shared with UFS") (FNS \DSKEventFn) (* ;; "Variables for UFS.") (INITVARS (\DSKDefaultConnDir "~/") (\DSKdevice) (\DSKtopMonitor ( CREATE.MONITORLOCK "DSKTopMonitor"))) (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \DSKdevice \DSKtopMonitor \DSKDefaultConnDir) (FILES (LOADCOMP) UFS)))) (PUTPROPS DSK FILETYPE :BCOMPL) (PUTPROPS DSK MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)) (RPAQ? \DSKDefaultConnDir "~/") (RPAQ? \DSKdevice) (RPAQ? \DSKtopMonitor (CREATE.MONITORLOCK "DSKTopMonitor")) (PUTPROPS DSK COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990)) NIL