(FILECREATED "31-Aug-85 22:10:49" ("compiled on " {ERIS}LIBRARY>CMLPATHNAME.;3) "16-Aug-85 06:20:26" tcompl'd in "INTERLISP-D 16-Aug-85 ..." dated "16-Aug-85 08:01:07") (FILECREATED "31-Aug-85 22:10:33" {ERIS}LIBRARY>CMLPATHNAME.;3 8800 changes to: (MACROS DEFPATHNAMEPRINTER PATHNAMEP \PATHNAME-DEVICE \PATHNAME-DIRECTORY \PATHNAME-HOST \PATHNAME-NAME \PATHNAME-OSTYPE \PATHNAME-TYPE \PATHNAME-VERSION) (VARS CMLPATHNAMECOMS) (RECORDS PATHNAME) previous date: "13-Aug-85 23:55:22" {ERIS}LIBRARY>CMLPATHNAME.;2) NAMESTRING D1 (P 0 OSTYPE I 0 PATHNAME F 2 *PATHNAME-PRINTER-FUNCTIONS*) 4@‘@@`ð´&@É µ @É Hµ@ R¹@kI(50Q \PATHNAME-DEFAULT-PRINTER 36Q GETOSTYPE) (31Q PATHNAME 21Q PATHNAME 12Q PATHNAMETYPE#) () PATHNAME D1 (I 0 PATHNAME) /@d `ð‘@@ —@ b°ê@§@dlð•¿@  (54Q \ILLEGAL.ARG 50Q \PATHNAME-COERCE 24Q FULLNAME 17Q STREAMP) (7 PATHNAMETYPE#) () PATHNAME-DEVICE D1 (I 0 PATHNAME) @d`ð¢ É(12Q PATHNAME) (15Q PATHNAME 5 PATHNAMETYPE#) () PATHNAME-DIRECTORY D1 (I 0 PATHNAME) @d`ð¢ É(12Q PATHNAME) (15Q PATHNAME 5 PATHNAMETYPE#) () PATHNAME-HOST D1 (I 0 PATHNAME) @d`ð¢ É(12Q PATHNAME) (15Q PATHNAME 5 PATHNAMETYPE#) () PATHNAME-NAME D1 (I 0 PATHNAME) @d`ð¢ É(12Q PATHNAME) (15Q PATHNAME 5 PATHNAMETYPE#) () PATHNAME-OSTYPE D1 (I 0 PATHNAME) @d`ð¢ É (12Q PATHNAME) (15Q PATHNAME 5 PATHNAMETYPE#) () PATHNAME-TYPE D1 (I 0 PATHNAME) @d`ð¢ É(12Q PATHNAME) (15Q PATHNAME 5 PATHNAMETYPE#) () PATHNAME-VERSION D1 (I 0 PATHNAME) @d`ð¢ É (12Q PATHNAME) (15Q PATHNAME 5 PATHNAMETYPE#) () TRUENAME D1 (I 0 PATHNAME) )@d  —@ @§@dlð˜¿@  (46Q \ILLEGAL.ARG 42Q \PATHNAME-COERCE 37Q INFILEP 16Q PATHNAME 13Q FULLNAME 6 STREAMP) NIL () \PATHNAME-COERCE D1 (P 2 COMPONENT P 1 PATHNAME P 0 UNPACKED.NAME I 0 NAME) ¢@ `H±‰dZdgð²¿IJ¿IJ  °bdgð›¿IJ°Pdgð›¿IJ°>dgð›¿IJ°,dgð›¿IJ°gð™IJ ˆoJ ¿µ‚±ÿvI(224Q ERROR 60Q GETOSTYPE 6 UNPACKFILENAME.STRING 3 MKSTRING) (205Q PATHNAME 177Q VERSION 165Q PATHNAME 156Q EXTENSION 143Q PATHNAME 134Q NAME 121Q PATHNAME 112Q DIRECTORY 77Q PATHNAME 70Q DEVICE 52Q PATHNAME 40Q PATHNAME 30Q HOST 11Q PATHNAMETYPE#) ( 217Q "Unexpected pathname component") \PATHNAME-DEFAULT-PRINTER D1 (I 0 PATHNAME) Bo@Éo@Éo@Éo@Éo@Éo@É (77Q CONCAT) (71Q PATHNAME 57Q PATHNAME 45Q PATHNAME 33Q PATHNAME 21Q PATHNAME 7 PATHNAME) ( 65Q " VERSION " 53Q " TYPE " 41Q " NAME " 27Q " DIRECTORY " 15Q " DEVICE " 3 "HOST ") \PATHNAME-PRINTER D1 (P 0 OSTYPE I 0 PATHNAME F 1 \CML.READPREFIX) @É Qo@ o h(30Q CONCAT 21Q NAMESTRING) (3 PATHNAME) ( 25Q ")" 15Q ".(PATHNAME ") (PRETTYCOMPRINT CMLPATHNAMECOMS) (RPAQQ CMLPATHNAMECOMS ((MACROS DEFPATHNAMEPRINTER PATHNAMEP \PATHNAME-DEVICE \PATHNAME-DIRECTORY \PATHNAME-HOST \PATHNAME-NAME \PATHNAME-OSTYPE \PATHNAME-TYPE \PATHNAME-VERSION) (VARS ( *PATHNAME-PRINTER-FUNCTIONS* (HASHARRAY 10 1.1))) (RECORDS PATHNAME) (FNS NAMESTRING PATHNAME PATHNAME-DEVICE PATHNAME-DIRECTORY PATHNAME-HOST PATHNAME-NAME PATHNAME-OSTYPE PATHNAME-TYPE PATHNAME-VERSION TRUENAME \PATHNAME-COERCE \PATHNAME-DEFAULT-PRINTER \PATHNAME-PRINTER) (P ( DEFPATHNAMEPRINTER INTERLISP { HOST } < DIRECTORY > NAME %. TYPE ; VERSION) (DEFPATHNAMEPRINTER UNIX { HOST } / DIRECTORY / NAME %. TYPE ; VERSION) (DEFPATHNAMEPRINTER VMS { HOST } "[" DIRECTORY "]" NAME %. TYPE ; VERSION) (DEFPATHNAMEPRINTER TOPS-20 { HOST } < DIRECTORY > NAME %. TYPE %. VERSION) ( DEFPATHNAMEPRINTER NS %( HOST %) DIRECTORY / NAME %. TYPE ! VERSION) (DEFPATHNAMEPRINTER SYMBOLICS-3600 HOST : > DIRECTORY > NAME %. TYPE %. VERSION)))) (DEFMACRO DEFPATHNAMEPRINTER (OSTYPE &REST ARGS) (BQUOTE (PROGN (DEFUN (\, (PACK* (QUOTE \NAMESTRING-) OSTYPE)) (PATHNAME) (CONCAT (\,@ (for X in ARGS collect (COND ((FMEMB X (QUOTE (HOST DEVICE DIRECTORY NAME TYPE VERSION))) (BQUOTE ((\, (PACK* (QUOTE \PATHNAME-) X)) PATHNAME))) (T (KWOTE X))))))) ( PUTHASH (QUOTE (\, OSTYPE)) (PACK* (QUOTE \NAMESTRING-) (QUOTE (\, OSTYPE))) *PATHNAME-PRINTER-FUNCTIONS*)))) (DEFMACRO PATHNAMEP (X) (BQUOTE (TYPENAMEP (\, X) (QUOTE PATHNAME)))) (DEFMACRO \PATHNAME-DEVICE (PATHNAME) (BQUOTE (fetch (PATHNAME DEVICE) of (\, PATHNAME)))) (DEFMACRO \PATHNAME-DIRECTORY (PATHNAME) (BQUOTE (fetch (PATHNAME DIRECTORY) of (\, PATHNAME)))) (DEFMACRO \PATHNAME-HOST (PATHNAME) (BQUOTE (fetch (PATHNAME HOST) of (\, PATHNAME)))) (DEFMACRO \PATHNAME-NAME (PATHNAME) (BQUOTE (fetch (PATHNAME NAME) of (\, PATHNAME)))) (DEFMACRO \PATHNAME-OSTYPE (PATHNAME) (BQUOTE (fetch (PATHNAME OSTYPE) of (\, PATHNAME)))) (DEFMACRO \PATHNAME-TYPE (PATHNAME) (BQUOTE (fetch (PATHNAME TYPE) of (\, PATHNAME)))) (DEFMACRO \PATHNAME-VERSION (PATHNAME) (BQUOTE (fetch (PATHNAME VERSION) of (\, PATHNAME)))) (RPAQ *PATHNAME-PRINTER-FUNCTIONS* (HASHARRAY 10 1.1)) (DATATYPE PATHNAME (HOST DEVICE DIRECTORY NAME TYPE VERSION OSTYPE)) (/DECLAREDATATYPE (QUOTE PATHNAME) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) ( QUOTE ((PATHNAME 0 POINTER) (PATHNAME 2 POINTER) (PATHNAME 4 POINTER) (PATHNAME 6 POINTER) (PATHNAME 8 POINTER) (PATHNAME 10 POINTER) (PATHNAME 12 POINTER))) (QUOTE 14)) (DEFPATHNAMEPRINTER INTERLISP { HOST } < DIRECTORY > NAME %. TYPE ; VERSION) (DEFPATHNAMEPRINTER UNIX { HOST } / DIRECTORY / NAME %. TYPE ; VERSION) (DEFPATHNAMEPRINTER VMS { HOST } "[" DIRECTORY "]" NAME %. TYPE ; VERSION) (DEFPATHNAMEPRINTER TOPS-20 { HOST } < DIRECTORY > NAME %. TYPE %. VERSION) (DEFPATHNAMEPRINTER NS %( HOST %) DIRECTORY / NAME %. TYPE ! VERSION) (DEFPATHNAMEPRINTER SYMBOLICS-3600 HOST : > DIRECTORY > NAME %. TYPE %. VERSION) (PUTPROPS CMLPATHNAME COPYRIGHT ("Xerox Corporation" 1985)) NIL