(FILECREATED " 9-Oct-86 15:25:29" ("compiled on " {ERIS}SOURCES>CMLPATHNAME.;17) " 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:21:44" {ERIS}SOURCES>CMLPATHNAME.;17 38671 changes to: (FUNCTIONS NAMESTRING TRUENAME %%WILD-NAME %%UNPACKFILE1) (FNS FILE-NAME) (VARS CMLPATHNAMECOMS) previous date: " 2-Oct-86 10:05:03" {ERIS}SOURCES>CMLPATHNAME.;12) (RPAQQ CMLPATHNAMECOMS ((* ;; "Common Lisp pathname functions") (PROP FILETYPE CMLPATHNAME) (COMS (* ;; "useful macros") (FUNCTIONS %%WILD-NAME %%COMPONENT-STRING %%UNPACKFILE1)) (STRUCTURES PATHNAME) ( FNS %%PRINT-PATHNAME MAKE-PATHNAME PATHNAME-HOST PATHNAME-DEVICE PATHNAME-DIRECTORY PATHNAME-NAME PATHNAME-TYPE PATHNAME-VERSION) (FNS PATHNAME MERGE-PATHNAMES FILE-NAME HOST-NAMESTRING ENOUGH-NAMESTRING %%NUMERIC-STRING-P) (FUNCTIONS NAMESTRING PARSE-NAMESTRING PARSE-NAMESTRING1 TRUENAME) (FUNCTIONS INTERLISP-NAMESTRING) (FUNCTIONS %%PATHNAME-EQUAL) (FUNCTIONS %%INITIALIZE-DEFAULT-PATHNAME) (COMS (* ;; "Interlisp-D compatibility") (FUNCTIONS UNPACKPATHNAME.STRING)) (FUNCTIONS FILE-NAMESTRING DIRECTORY-NAMESTRING) (DECLARE: DONTEVAL@LOAD DOCOPY (P (%%INITIALIZE-DEFAULT-PATHNAME))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA ENOUGH-NAMESTRING HOST-NAMESTRING FILE-NAME MERGE-PATHNAMES PATHNAME PATHNAME-VERSION PATHNAME-TYPE PATHNAME-NAME PATHNAME-DIRECTORY PATHNAME-DEVICE PATHNAME-HOST MAKE-PATHNAME %%PRINT-PATHNAME))))) (PUTPROPS CMLPATHNAME FILETYPE COMPILE-FILE) expand-%%WILD-NAME D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ggHhhoNIL (13Q S 10Q LET) ( 25Q ((CL:IF (STRING-EQUAL S "*") :WILD S))) (SETF-MACRO-FUNCTION (QUOTE %%WILD-NAME) (QUOTE expand-%%WILD-NAME)) expand-%%COMPONENT-STRING D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q OR) ( 15Q ("")) (SETF-MACRO-FUNCTION (QUOTE %%COMPONENT-STRING) (QUOTE expand-%%COMPONENT-STRING)) expand-%%UNPACKFILE1 D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) Ü @ÁH¹HZ»J\½L^_¿N__¿O__¿O_¿ggOhggOggOgOKMhhiggOKMhohhgIOhhhggIOhgggOgOKMhhiggOKMhohhhhNIL (267Q SUBSTRING 264Q OR 244Q SUBATOM 237Q COND 234Q RETURN 231Q then 217Q EQMEMB 214Q elseif 172Q CONS 141Q SUBSTRING 136Q OR 116Q SUBATOM 111Q COND 106Q CONS 101Q SETQ 76Q then 66Q NOT 63Q if) ( 304Q ("") 156Q ("")) (SETF-MACRO-FUNCTION (QUOTE %%UNPACKFILE1) (QUOTE expand-%%UNPACKFILE1)) %%PATHNAME-VERSION D1 (L (0 OBJECT)) @É NIL (3 PATHNAME) () setf-%%PATHNAME-VERSION D1 (L (1 VALUE 0 OBJECT)) @A ANIL (3 PATHNAME) () (REMPROP (QUOTE %%PATHNAME-VERSION) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS %%PATHNAME-VERSION SETF-INVERSE setf-%%PATHNAME-VERSION) %%PATHNAME-TYPE D1 (L (0 OBJECT)) @ÉNIL (3 PATHNAME) () setf-%%PATHNAME-TYPE D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PATHNAME) () (REMPROP (QUOTE %%PATHNAME-TYPE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS %%PATHNAME-TYPE SETF-INVERSE setf-%%PATHNAME-TYPE) %%PATHNAME-NAME D1 (L (0 OBJECT)) @ÉNIL (3 PATHNAME) () setf-%%PATHNAME-NAME D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PATHNAME) () (REMPROP (QUOTE %%PATHNAME-NAME) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS %%PATHNAME-NAME SETF-INVERSE setf-%%PATHNAME-NAME) %%PATHNAME-DIRECTORY D1 (L (0 OBJECT)) @ÉNIL (3 PATHNAME) () setf-%%PATHNAME-DIRECTORY D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PATHNAME) () (REMPROP (QUOTE %%PATHNAME-DIRECTORY) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS %%PATHNAME-DIRECTORY SETF-INVERSE setf-%%PATHNAME-DIRECTORY) %%PATHNAME-DEVICE D1 (L (0 OBJECT)) @ÉNIL (3 PATHNAME) () setf-%%PATHNAME-DEVICE D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PATHNAME) () (REMPROP (QUOTE %%PATHNAME-DEVICE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS %%PATHNAME-DEVICE SETF-INVERSE setf-%%PATHNAME-DEVICE) %%PATHNAME-HOST D1 (L (0 OBJECT)) @ÉNIL (3 PATHNAME) () setf-%%PATHNAME-HOST D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PATHNAME) () (REMPROP (QUOTE %%PATHNAME-HOST) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS %%PATHNAME-HOST SETF-INVERSE setf-%%PATHNAME-HOST) PATHNAMEP D1 (L (0 OBJECT)) @ÃNIL (3 PATHNAME) () COPY-PATHNAME D1 (L (0 OBJECT)) `@ (6 NCREATE2) (2 PATHNAMETYPE#) () (DEFPRINT (QUOTE PATHNAME) (FUNCTION (LAMBDA (X STREAM) (APPLY* (FUNCTION %%PRINT-PATHNAME) X STREAM 0 ) T))) %%internal-make-PATHNAME D1 (L (0 -args-)) +eHkJdIó¢±•¿hñHk»ºKdJó¢±˜¿h¼Hk¾½NdMó¢±ž¿h_¿Hk_¿_¿OdOó¢±œ¿h_¿Hk_¿_¿OdOó¢±¿h_¿Hk_¿_¿OdOó¢±ž¿h_ ¿`dI¿dL¿dO¿dO¿dO¿dO ¿agð–JkØa±ÿfJlÔZ±ÿUagð–KkØa±ÿcKlÔ[±ÿRagð–NkØa±ÿ]NlÔ^±ÿLagð—OkØa±ÿ^OlÔ_±ÿJagð—OkØa±ÿ]OlÔ_±ÿIagð—OkØa±ÿ\OlÔ_±ÿHNIL (425Q :VERSION 375Q :TYPE 345Q :NAME 320Q :DIRECTORY 273Q :DEVICE 246Q :HOST 176Q PATHNAMETYPE#) () %%MAKE-PATHNAME D1 (L (5 VERSION 4 TYPE 3 NAME 2 DIRECTORY 1 DEVICE 0 HOST)) $`d@¿dA¿dB¿dC¿dD¿dE ¿NIL (2 PATHNAMETYPE#) () (PUTPROP (QUOTE PATHNAME) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%internal-make-PATHNAME)) (PUTPROP (QUOTE PATHNAME) (QUOTE %%STRUCTURE-CLASS) (QUOTE STRUCTURE-CLASS)) (PUTPROP (QUOTE PATHNAME) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (HOST DEVICE DIRECTORY NAME TYPE VERSION) )) (PUTPROP (QUOTE PATHNAME) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (VERSION TYPE NAME DIRECTORY DEVICE HOST)) ) (/DECLAREDATATYPE (QUOTE PATHNAME) (QUOTE (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))) (QUOTE 12)) %%PRINT-PATHNAME D1 (L (2 D 1 CL:STREAM 0 S)) Ao@ (13Q FORMAT 10Q NAMESTRING) NIL ( 4 "#.(PATHNAME ~S)") MAKE-PATHNAME D1 (L (0 -args-)) eHkJdIó¢±Ç¿hñ iºHk¼»LdKó¢±Å¿hZ½i¾Hk_¿_¿OdOó¢±Â¿h^_¿i_¿Hk_¿_¿OdOó¢±¾¿h__¿i_¿Hk_ ¿_¿O dOó¢±¹¿h__"¿i_$¿Hk_(¿_&¿O(dO&ó¢±´¿h_$_*¿i_,¿Hk_0¿_.¿O0dO.ó¢±¯¿h_,_2¿IµJ¢±h± _4¿J¢±©h±¦agð–JkØa±ÿ4JlÔZ±ÿ#agð–LkØa±ÿ7LlÔ\±ÿ%agð—OkØa±ÿ9OlÔ_±ÿ$agð—OkØa±ÿ>OlÔ_±ÿ(agð—O kØa±ÿCO lÔ_ ±ÿ-agð—O(kØa±ÿHO(lÔ_(±ÿ2agð—O0kØa±ÿMO0lÔ_0±ÿ7i•O4 ½N‘h€i—O4 _¿O‘h€i—O4 _¿O‘h€i—O4 _"¿O$‘h€i—O4 _*¿O,‘h€i—O4 _2¿M²Mg Œi²ò` ]°êMOd˜¿Og OO"d˜¿O"g O*d˜¿O*g O2 (1027Q %%MAKE-PATHNAME 1021Q COERCE 1002Q COERCE 761Q COERCE 736Q %%PATHNAME-HOST 724Q COERCE 705Q %%PATHNAME-VERSION 666Q %%PATHNAME-TYPE 647Q %%PATHNAME-NAME 630Q %%PATHNAME-DIRECTORY 611Q %%PATHNAME-DEVICE 575Q %%PATHNAME-HOST 310Q PATHNAME) (1016Q SIMPLE-STRING 777Q SIMPLE-STRING 756Q SIMPLE-STRING 733Q *DEFAULT-PATHNAME-DEFAULTS* 721Q SIMPLE-STRING 542Q :VERSION 512Q :TYPE 462Q :NAME 432Q :DIRECTORY 402Q :DEVICE 355Q :HOST 330Q :DEFAULTS) () PATHNAME-HOST D1 (L (0 PATHNAME)) @d ’¿@‚ (16Q %%PATHNAME-HOST 13Q PATHNAME 4 PATHNAMEP) NIL () PATHNAME-DEVICE D1 (L (0 PATHNAME)) @d ’¿@‚ (16Q %%PATHNAME-DEVICE 13Q PATHNAME 4 PATHNAMEP) NIL () PATHNAME-DIRECTORY D1 (L (0 PATHNAME)) @d ’¿@‚ (16Q %%PATHNAME-DIRECTORY 13Q PATHNAME 4 PATHNAMEP) NIL () PATHNAME-NAME D1 (L (0 PATHNAME)) @d ’¿@‚ (16Q %%PATHNAME-NAME 13Q PATHNAME 4 PATHNAMEP) NIL () PATHNAME-TYPE D1 (L (0 PATHNAME)) @d ’¿@‚ (16Q %%PATHNAME-TYPE 13Q PATHNAME 4 PATHNAMEP) NIL () PATHNAME-VERSION D1 (L (0 PATHNAME)) @d ’¿@‚ (16Q %%PATHNAME-VERSION 13Q PATHNAME 4 PATHNAMEP) NIL () PATHNAME D1 (L (0 THING)) @ (6 VALUES 3 PARSE-NAMESTRING) NIL () MERGE-PATHNAMES D1 (L (0 -args-)) yekaalHñ“`‚laºlHñ‘h‚la»I ¼J ½L ¾L _¿L µM OµM L µM NµM L µM L µN¥M µK (166Q %%MAKE-PATHNAME 157Q %%PATHNAME-VERSION 147Q %%PATHNAME-VERSION 143Q %%PATHNAME-TYPE 135Q %%PATHNAME-TYPE 131Q %%PATHNAME-NAME 122Q %%PATHNAME-DIRECTORY 114Q %%PATHNAME-DIRECTORY 110Q %%PATHNAME-DEVICE 100Q %%PATHNAME-HOST 72Q %%PATHNAME-HOST 63Q %%PATHNAME-DEVICE 56Q %%PATHNAME-NAME 51Q PATHNAME 44Q PATHNAME) (20Q *DEFAULT-PATHNAME-DEFAULTS*) () FILE-NAME D1 (L (0 FILE)) @ d ”o (20Q MKSTRING 7 STREAMP 3 FULLNAME) NIL ( 14Q "") HOST-NAMESTRING D1 (L (0 PATHNAME)) @ µo(6 %%PATHNAME-HOST 3 PATHNAME) NIL ( 14Q "") ENOUGH-NAMESTRING D1 (L (0 -args-)) eka¡lHñ“`‚laºI »J ¼K ½K ¾K _¿K _¿K _¿o_¿h_¿Mµ}NµhOµBO²(O³OL µo ²gOoO_¿O¢±”O³zOL :²nh°lL µo ²³gOO_¿i_¿° L µo ²h°L µo ¢±ÿwM_¿±ÿpi¢±ÿngOoNo _¿±ÿVi²gOoOµoO(423Q CONCATENATE 366Q CONCATENATE 324Q STRING-NOT-EQUAL 313Q %%PATHNAME-DEVICE 302Q EQUALP 271Q %%PATHNAME-DIRECTORY 254Q CONCATENATE 240Q STRING-NOT-EQUAL 227Q %%PATHNAME-NAME 215Q %%PATHNAME-VERSION 172Q CONCATENATE 152Q STRING-NOT-EQUAL 141Q %%PATHNAME-TYPE 73Q %%PATHNAME-VERSION 64Q %%PATHNAME-TYPE 55Q %%PATHNAME-NAME 50Q %%PATHNAME-DIRECTORY 43Q %%PATHNAME-DEVICE 36Q PATHNAME 31Q PATHNAME) (402Q SIMPLE-STRING 347Q SIMPLE-STRING 245Q SIMPLE-STRING 157Q SIMPLE-STRING 20Q *DEFAULT-PATHNAME-DEFAULTS*) ( 420Q "" 410Q ";" 362Q ">" 355Q "<" 321Q "" 277Q "" 235Q "" 165Q "." 147Q "" 102Q "") %%NUMERIC-STRING-P D1 (P 1 CHAR I 0 STRING) I@ ´A@QHÈkÙ»HÉ¼KHÈØºHÊCjð‘h€i½KkØ[Jñ³M•LKÐÈ‚LKÂ¹l0Iñ¥Il9ñ²ãhi(3 CL:STRINGP) NIL () NAMESTRING D1 (L (0 PATHNAME)) å@d ²¿@É‘h€i”o@ bd a@ ¹@ º@ »@ ¼@ ½h¾HŸgoHo¾I˜gNI¾J²gNoJdgð”¿oo ¾K²gNKdgð”¿o¾L²gNoLdgð”¿o¾M²2gNMdgð–¿o°gð¡M¤ogoM N(340Q CONCATENATE 335Q CONCATENATE 332Q PRINC-TO-STRING 255Q CONCATENATE 222Q CONCATENATE 173Q CONCATENATE 133Q CONCATENATE 120Q CONCATENATE 74Q %%PATHNAME-VERSION 67Q %%PATHNAME-TYPE 62Q %%PATHNAME-NAME 55Q %%PATHNAME-DIRECTORY 50Q %%PATHNAME-DEVICE 41Q %%PATHNAME-HOST 33Q PATHNAME 4 STREAMP) (322Q SIMPLE-STRING 306Q :NEWEST 272Q :WILD 264Q SIMPLE-STRING 243Q :WILD 231Q SIMPLE-STRING 210Q :WILD 202Q SIMPLE-STRING 154Q :WILD 142Q SIMPLE-STRING 126Q SIMPLE-STRING 104Q SIMPLE-STRING 13Q STREAM) ( 326Q ";" 316Q "" 301Q ";*" 252Q "*" 236Q "." 217Q "*" 167Q ">" 163Q "*" 147Q "<" 115Q "}" 110Q "{" 26Q "") PARSE-NAMESTRING D1 (L (0 -args-)) —ekaálHñ‘h‚laºlHñ“`‚la»Hl½¼MdLó²3¿j¾Hl_¿_¿OdOó²2¿h_¿Hl_¿_¿OdOó²2¿K²>h°ð²¿OHðœO‘h€i•g_¿mþ‚¿mÿ_¿@OOµoOM]HM @H dl/ðœ¿l/@HkØY°dl<ð¤dl>ð›¿l>@HkØY¿h²!@HkØIkÙµogM½IkØ¸i_¿@HY ^µ‚±HM i²$o@IkØZ²@JkØ ZšJ3 ‘h€i’±ÏO²*@HOkÙµogM½OkØ¸h_¿N¦HdIð³¬¿@HIkÙµoK‘h€ižNl.ð£g¼g[°QL‘h€iŸNl.ð£g€i¼g°;Lgð´@H dlPð•¿g°$dlAð™¿HkÔ¸g°dlTð¤dlSð”¿gƒ¿gM½N¢±ÿ0IkØX° l'ð•IkÔY°Nl/ð¤Nl>ðšO‘h€i“K¡i¿@IkÔY ^l.ð¬Ndl!ð§dl;ð¢µÉNl.ð¢±ÿK¢±þëh±þè(1210Q NTHCHARCODE 1045Q NTHCHARCODE 750Q SUBSTRING 701Q SUBSTRING 647Q NTHCHAR 635Q STRPOS 615Q DREVERSE 601Q NTHCHARCODE 546Q SUBSTRING 526Q LASTCHPOS 477Q LASTCHPOS 460Q NTHCHARCODE 451Q DREVERSE 427Q SUBSTRING 350Q NTHCHARCODE 314Q DREVERSE 305Q NTHCHARCODE 241Q SUBSTRING 230Q LASTCHPOS 207Q DREVERSE 156Q SUBSTRING 137Q \UPF.NEXTPOS 100Q NTHCHARCODE 72Q \ILLEGAL.ARG 25Q CL:STRINGP) (1122Q VERSION 1115Q TEMPORARY 1075Q ACCOUNT 1056Q PROTECTION 1035Q ; 1027Q TYPE 1021Q ; 1000Q NAME 774Q ; 712Q SUBDIRECTORY 557Q DIRECTORY 403Q SUBDIRECTORY 300Q DIRECTORY 272Q RETURN 252Q DEVICE 167Q HOST 56Q NAME 42Q STREAM) ( 756Q "" 707Q "" 626Q "." 554Q "" 435Q "" 247Q "" 164Q "") TRUENAME D1 (L (0 PATHNAME)) 7@d ²¿@É‘h€i˜o@ @ H‘h€išo@ H(63Q CL:ERROR 60Q NAMESTRING 37Q PROBE-FILE 32Q CL:ERROR 4 STREAMP) (13Q STREAM) ( 54Q "The file ~S does not exist." 26Q "The stream ~S has no corresponding named file.") INTERLISP-NAMESTRING D1 (L (0 PATHNAME)) Ò@d ²¿@É‘h€i”o@ bd @ @ @ @ @ oHœoHo¾I•NI ¾J²NoJdgð”¿oo¾K²NKdgð”¿o ¾L²NoLdgð”¿o¾M²2NMdgð–¿o°gð•o°M¤oŠoM N(315Q CONCAT 312Q CONCAT 307Q PRINC-TO-STRING 232Q CONCAT 202Q CONCAT 156Q CONCAT 122Q CONCAT 112Q CONCAT 65Q %%PATHNAME-VERSION 61Q %%PATHNAME-TYPE 55Q %%PATHNAME-NAME 51Q %%PATHNAME-DIRECTORY 45Q %%PATHNAME-DEVICE 41Q %%PATHNAME-HOST 33Q PATHNAME 4 STREAMP) (260Q :NEWEST 244Q :WILD 220Q :WILD 170Q :WILD 140Q :WILD 13Q STREAM) ( 303Q ";" 276Q "" 266Q ";" 253Q ";*" 227Q "*" 213Q "." 177Q "*" 153Q ">" 147Q "*" 133Q "<" 107Q "}" 102Q "{" 71Q "" 26Q "") %%PATHNAME-EQUAL D1 (L (1 PATHNAME2 0 PATHNAME1)) N@ A ´A@ A ´4@ A ´'@ A ´@ A ´ @ A (113Q CL:EQUAL 110Q %%PATHNAME-VERSION 104Q %%PATHNAME-VERSION 76Q CL:EQUAL 73Q %%PATHNAME-TYPE 67Q %%PATHNAME-TYPE 61Q CL:EQUAL 56Q %%PATHNAME-NAME 52Q %%PATHNAME-NAME 44Q CL:EQUAL 41Q %%PATHNAME-DIRECTORY 35Q %%PATHNAME-DIRECTORY 27Q CL:EQUAL 24Q %%PATHNAME-DEVICE 20Q %%PATHNAME-DEVICE 12Q CL:EQUAL 7 %%PATHNAME-HOST 3 %%PATHNAME-HOST) NIL () %%INITIALIZE-DEFAULT-PATHNAME D1 NIL .g ‘h€i–g‚`dg dg `(50Q setf-%%PATHNAME-VERSION 36Q PARSE-NAMESTRING 33Q FILENAMEFIELD 5 BOUNDP) (53Q *DEFAULT-PATHNAME-DEFAULTS* 45Q :NEWEST 41Q *DEFAULT-PATHNAME-DEFAULTS* 30Q HOST 24Q \CONNECTED.DIRECTORY 20Q \CONNECTED.DIRECTORY 15Q {DSK} 2 \CONNECTED.DIRECTORY) () UNPACKPATHNAME.STRING D1 (L (3 ATOMFLG 2 DIRFLG 1 ONEFIELDFLG 0 FILE)) þAµ@ X´vgC²jH °ed›¿Ao bgð•@ °>Adgð–¿@ °0gð•@ °%Adgð–¿@ °gð”@ ŠAgð´@ C”H HHHh@ X´gC”H €Hh@ X´gC”H €Hh@ X´gC”H €Hh@ X´gC”H €Hh@ X´gC”H ƒH h (373Q \APPEND2 370Q \APPEND2 365Q \APPEND2 362Q \APPEND2 357Q \APPEND2 351Q MKSTRING 344Q MKATOM 330Q PATHNAME-VERSION 317Q MKATOM 303Q PATHNAME-TYPE 272Q MKATOM 256Q PATHNAME-NAME 245Q MKATOM 231Q PATHNAME-DIRECTORY 220Q MKATOM 204Q PATHNAME-DEVICE 167Q MKATOM 156Q PATHNAME-VERSION 142Q PATHNAME-TYPE 127Q PATHNAME-NAME 111Q PATHNAME-DIRECTORY 76Q PATHNAME-DEVICE 60Q PATHNAME-HOST 44Q CL:INTERSECTION 26Q MKATOM 11Q PATHNAME-HOST) (336Q VERSION 311Q EXTENSION 264Q NAME 237Q DIRECTORY 212Q DEVICE 147Q VERSION 134Q EXTENSION 120Q NAME 103Q DIRECTORY 67Q DEVICE 52Q HOST 17Q HOST) ( 41Q (HOST DEVICE DIRECTORY NAME EXTENSION VERSION)) FILE-NAMESTRING D1 (L (0 PATHNAME)) f@ !gH µooH µo¹H Z²8gIJdgð–¿o°"gð•o°J¤ogoJ I(141Q CONCATENATE 136Q CONCATENATE 133Q PRINC-TO-STRING 51Q %%PATHNAME-VERSION 44Q CONCATENATE 33Q %%PATHNAME-TYPE 15Q %%PATHNAME-NAME 3 PATHNAME) (123Q SIMPLE-STRING 101Q :NEWEST 65Q :WILD 57Q SIMPLE-STRING 11Q SIMPLE-STRING) ( 127Q ";" 117Q "" 107Q ";" 74Q ";*" 41Q "" 27Q "." 23Q "") DIRECTORY-NAMESTRING D1 (L (0 PATHNAME)) @ µo(6 %%PATHNAME-DIRECTORY 3 PATHNAME) NIL ( 14Q "") (%%INITIALIZE-DEFAULT-PATHNAME) (PUTPROPS CMLPATHNAME COPYRIGHT ("Xerox Corporation" 1986)) NIL