(FILECREATED " 9-Oct-86 15:20:25" ("compiled on " {ERIS}SOURCES>CMLFILESYS.;4) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED " 9-Oct-86 15:19:15" {ERIS}SOURCES>CMLFILESYS.;4 4779 changes to: (FUNCTIONS PROBE-FILE DELETE-FILE) previous date: " 2-Oct-86 09:52:13" {ERIS}SOURCES>CMLFILESYS.;3) (RPAQQ CMLFILESYSCOMS ((FUNCTIONS CL:DIRECTORY FILE-AUTHOR FILE-LENGTH FILE-POSITION USER-HOMEDIR-PATHNAME FILE-WRITE-DATE) (FUNCTIONS PROBE-FILE RENAME-FILE DELETE-FILE) (PROP FILETYPE CMLFILESYS))) CL:DIRECTORY D1 (L (0 PATHNAME)) 7@ ho0H Y‘h€i³I ¼Kµ Lh[º°èL&»°ãJ(43Q PATHNAME 30Q \GENERATENEXTFILE 16Q \GENERATEFILES 6 DIRECTORY.FILL.PATTERN 3 NAMESTRING) NIL ( 13Q (SORT)) FILE-AUTHOR D1 (L (0 FILE)) @g µog (22Q COERCE 6 GETFILEINFO) (17Q SIMPLE-STRING 3 AUTHOR) ( 14Q "") FILE-LENGTH D1 (L (0 FILE-STREAM)) @ ´@ ´@ (17Q GETEOFPTR 11Q OPENP 3 STREAMP) NIL () FILE-POSITION D1 (L (0 -args-)) 9eka!lHñ‘h„iºla»J”I IKdgð’¿jŠgð”I €K i(65Q SETFILEPTR 60Q GETEOFPTR 33Q GETFILEPTR) (52Q :END 42Q :START) () USER-HOMEDIR-PATHNAME D1 (L (0 HOST)) `µ` (12Q PATHNAME) (7 *DEFAULT-PATHNAME-DEFAULTS* 2 LOGINHOST/DIR) () FILE-WRITE-DATE D1 (L (0 FILE)) @ dšg oÔ(13Q GETFILEINFO 3 PROBE-FILE) (10Q IWRITEDATE) ( 17Q 20170231600Q) PROBE-FILE D1 (L (0 FILE)) 7@d ²(¿@d ¿@Éµ@ Éµ@ d› d’ (64Q PATHNAME 57Q INFILEP 53Q PATHNAME 46Q INFILEP 32Q PATHNAME 14Q OPENP 4 STREAMP) (36Q STREAM 22Q STREAM) () RENAME-FILE D1 (L (1 NEW-NAME 0 FILE)) >@ @d ²¿@d ™¿o@ ŽÉµ@bA Y¿A@ HI (73Q VALUES 70Q PATHNAME 63Q MERGE-PATHNAMES 54Q RENAMEFILE 35Q CL:ERROR 23Q OPENP 13Q STREAMP 3 PATHNAME) (41Q STREAM) ( 31Q "Renaming open streams is not supported: ~S") DELETE-FILE D1 (L (0 FILE)) >@ @ ˜@gi¿Hµ@ ²h° ‘h€ižo…i—o@ i(72Q CL:ERROR 46Q DELFILE 43Q INTERLISP-NAMESTRING 33Q STREAMP 23Q CLOSE 12Q STREAMP 3 PROBE-FILE) (17Q :ABORT) ( 66Q "File to be deleted does not exist: ~S" 57Q "Could not delete the file ~S") (PUTPROPS CMLFILESYS FILETYPE COMPILE-FILE) (PUTPROPS CMLFILESYS COPYRIGHT ("Xerox Corporation" 1986)) NIL