(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "23-Jan-2022 12:32:55" ("compiled on " |{DSK}kaplan>Local>medley3.5>my-medley>sources>CMLFILESYS.;4|) "22-Jan-2022 13:21:35" "COMPILE-FILEd" |in| "FULL 22-Jan-2022 ..." |dated| "22-Jan-2022 13:21:40") (FILECREATED "23-Jan-2022 12:32:16" |{DSK}kaplan>Local>medley3.5>my-medley>sources>CMLFILESYS.;4| 6055 :CHANGES-TO (FUNCTIONS CL:DIRECTORY) :PREVIOUS-DATE "22-Jan-2022 09:26:49" |{DSK}kaplan>Local>medley3.5>my-medley>sources>CMLFILESYS.;3|) (RPAQQ CMLFILESYSCOMS ((FUNCTIONS CL:DIRECTORY CL:FILE-AUTHOR CL:FILE-LENGTH CL:FILE-POSITION CL:USER-HOMEDIR-PATHNAME CL:FILE-WRITE-DATE) (FUNCTIONS CL:PROBE-FILE CL:RENAME-FILE CL:DELETE-FILE) ( PROP FILETYPE CMLFILESYS))) CL::DIRECTORYA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS* F 4 GENERATOR F 5 PATHNAME F 6 CL::DEFAULTEXT F 7 CL::DEFAULTVERS F 8 FILE) W`lðohdSc¿U VWhoc0T cµH ºIµ JhY¸°æJ&¹°á(69 PATHNAME 58 \\GENERATENEXTFILE 47 \\GENERATEFILES 36 DIRECTORY.FILL.PATTERN 28 CL:NAMESTRING) (4 \\MACHINETYPE) ( 42 (SORT RESETLST) 13 (AND RESETSTATE (\\UFS.ABORT.CL-DIRECTORY))) CL:DIRECTORY :D8 (L (0 |-args-|) P 12 RESETSTATE P 11 SI::*RESETFORMS* P 10 LISPXHIST P 9 FILE P 8 GENERATOR P 7 CL::DEFAULTVERS P 6 CL::DEFAULTEXT P 1 PATHNAME F 13 LISPXHIST) p ekaAHl»ºKJó²4hHl½¼MdLó²:¿h! W!g ¿$Kdagð¥lÔ[°¼kØa°¼agð•MkØa°¾MlÔ]°°(63 SI::RESETUNWIND 58 \\MVLIST 53 CL::DIRECTORYA0001) (95 :DEFAULTVERS 76 :DEFAULTEXT 48 SI::RESETUNWIND) () CL:FILE-AUTHOR :D8 (L (0 CL::FILE)) @g d™g (22 COERCE 10 GETFILEINFO) (17 CL:SIMPLE-STRING 5 AUTHOR) () CL:FILE-LENGTH :D8 (L (0 FILE-STREAM)) @ ´@ ´@ (21 GETEOFPTR 13 OPENP 5 STREAMP) NIL () CL:FILE-POSITION :D8 (L (0 |-args-|)) Zeka!lHñ‘h„iºla»I ¦I ¿J²-I ´$IKdgð’¿jŽgð–I €K iI (87 GETFILEPTR 79 SETFILEPTR 72 GETEOFPTR 44 RANDACCESSP 34 \\ILLEGAL.ARG 27 STREAMP) (64 :END 54 :START) () CL:USER-HOMEDIR-PATHNAME :D8 (L (0 HOST)) hg ²K@µ0gggo gg o ²¾h`µ` (101 PATHNAME 80 CL:STRING-NOT-EQUAL 75 UNIX-GETPARM 65 STRING 59 CL:MAKE-PATHNAME 54 UNPACKFILENAME.STRING 39 UNIX-GETENV 9 MACHINETYPE) (96 *DEFAULT-PATHNAME-DEFAULTS* 89 LOGINHOST/DIR 49 RETURN 44 DIRECTORY 29 :DIRECTORY 24 :DSK 19 :HOST 4 MAIKO) ( 70 "HOSTNAME" 34 "HOME") CL:FILE-WRITE-DATE :D8 (L (0 FILE)) *@ d²!g nmlÖl<Öl<ÖÔoÔkÔ(18 GETFILEINFO 5 CL:PROBE-FILE) (13 ICREATIONDATE) ( 36 2147483647) CL:PROBE-FILE :D8 (L (0 FILE)) P@d ²6¿@d ²¿@Éµ@ Éµ@ d² g d” (77 PATHNAME 70 \\GETFILENAME 59 PATHNAME 51 INFILEP 35 PATHNAME 16 OPENP 6 STREAMP) (65 OLD 41 STREAM 25 STREAM) () CL:RENAME-FILE :D8 (L (1 NEW-NAME 0 FILE)) f@ @d ²-¿@d ¿o@ °Éµ@bA YˆA Y¿I²A@ HI $o (99 CL:ERROR 85 PATHNAME 78 CL:MERGE-PATHNAMES 66 RENAMEFILE 58 RENAMEFILE 38 CL:ERROR 25 OPENP 15 STREAMP 5 PATHNAME) (45 STREAM) ( 94 "Rename failed" 32 "Renaming open streams is not supported: ~S") CL:DELETE-FILE :D8 (L (0 FILE)) O@ @ œ@gi¿Hµ@ ³&o@ ¿° ªo@ i(75 CL:ERROR 63 DELFILE 58 INTERLISP-NAMESTRING 50 CL:ERROR 37 STREAMP 27 CL:CLOSE 14 STREAMP 5 CL:PROBE-FILE) (21 :ABORT) ( 69 "Could not delete the file ~S" 44 "File to be deleted does not exist: ~S") (PUTPROPS CMLFILESYS FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLFILESYS COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990)) NIL