(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 2-Nov-93 14:58:35" ("compiled on " |{DSK}export>lispcore>sources>CLTL2>CMLFILESYS.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" |in| "Medley 19-Feb-93 ..." |dated| "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 11:06:53" "{Pele:mv:envos}Sources>CLTL2>CMLFILESYS.;2" 8169 |previous| |date:| " 3-Aug-91 11:23:10" "{Pele:mv:envos}Sources>CLTL2>CMLFILESYS.;1") (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 FILE) T`lðohdSc¿U hoc0T cµH ºIµ JhY¸°æJ&¹°á(66 PATHNAME 55 \\GENERATENEXTFILE 44 \\GENERATEFILES 33 DIRECTORY.FILL.PATTERN 28 CL:NAMESTRING) (4 \\MACHINETYPE) ( 39 (SORT RESETLST) 13 (AND RESETSTATE (\\UFS.ABORT.CL-DIRECTORY))) CL:DIRECTORY :D8 (P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 FILE P 0 GENERATOR I 0 PATHNAME F 5 LISPXHIST) 1@ ˜@ b¿ U!g ¿$(42 SI::RESETUNWIND 37 \\MVLIST 32 CL::DIRECTORYA0001 12 CL:TRANSLATE-LOGICAL-PATHNAME 5 CL::LOGICAL-PATHNAME-P) (27 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)) f@dÃ²6¿@d ²¿@Éµ@ Éµ@ d²/ g ™@ b°±@g d” (99 PATHNAME 92 \\GETFILENAME 77 CL:TRANSLATE-LOGICAL-PATHNAME 70 TYPEP 59 PATHNAME 51 INFILEP 35 PATHNAME 16 OPENP) (87 OLD 65 CL:LOGICAL-PATHNAME 41 STREAM 25 STREAM 6 STREAM) () CL:RENAME-FILE :D8 (L (1 CL::NEW-NAME 0 CL::FILE)) ˜0@d ™¿i¸@ „ ¹hºA ši¸A b¿@ ²,@d ¿o@ °"Éµ@bA ZH‘I€@A Z¿J²H–J †A@ IJ $o (149 CL:ERROR 135 PATHNAME 128 CL:MERGE-PATHNAMES 120 PATHNAME 107 RENAMEFILE 94 RENAMEFILE 74 CL:ERROR 61 OPENP 52 STREAMP 43 CL:TRANSLATE-LOGICAL-PATHNAME 34 CL::LOGICAL-PATHNAME-P 25 PATHNAME 19 CL:TRANSLATE-LOGICAL-PATHNAME 9 CL::LOGICAL-PATHNAME-P) (81 STREAM) ( 144 "Rename failed" 68 "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 1991 1993)) NIL