(FILECREATED "19-Sep-86 16:56:24" ("compiled on " {ERIS}LIBRARY>CMLPATHNAME.;26) "16-Sep-86 11:57:30" in "" dated "16-Sep-86 12:29:41") (FILECREATED "19-Sep-86 15:57:55" {ERIS}LIBRARY>CMLPATHNAME.;26 38587 changes to: (FNS %%PRINT-PATHNAME PATHNAME-DEVICE PATHNAME-DIRECTORY PATHNAME-NAME PATHNAME-TYPE PATHNAME-VERSION ENOUGH-NAMESTRING) (FUNCTIONS NAMESTRING PARSE-NAMESTRING PARSE-NAMESTRING1 TRUENAME INTERLISP-NAMESTRING UNPACKPATHNAME.STRING DIRECTORY-NAMESTRING %%WILD-NAME) (VARS CMLPATHNAMECOMS) previous date: "18-Sep-86 21:44:04" {ERIS}LIBRARY>CMLPATHNAME.;24) (RPAQQ CMLPATHNAMECOMS ((* ;; "Common Lisp pathname functions") (PROP FILETYPE CMLPATHNAME) ( 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) (* ;; "") (* ;; "Interlisp-D compatibility") (* ;; "") (FUNCTIONS UNPACKPATHNAME.STRING) (FUNCTIONS FILE-NAMESTRING DIRECTORY-NAMESTRING) (DECLARE: DOEVAL@LOAD DONTCOPY (FUNCTIONS %%WILD-NAME %%COMPONENT-STRING %%UNPACKFILE1)) (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) %%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)) @g (6 \INSTANCE-P) (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 %%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³O` ]°G _4¿J¥O4 ½N§O4 _¿O§O4 _¿O§O4 _"¿O$§O4 _*¿O,§O4 _2¿M¢±¯Mg ±¦agð–JkØa±þëJlÔZ±þÚagð–LkØa±þîLlÔ\±þÜagð—OkØa±þðOlÔ_±þÛagð—OkØa±þõOlÔ_±þßagð—O kØa±þúO lÔ_ ±þäagð—O(kØa±þÿO(lÔ_(±þéagð—O0kØa±ÿO0lÔ_0±þîMOd˜¿Og OO"d˜¿O"g O*d˜¿O*g O2 (765Q %%MAKE-PATHNAME 757Q COERCE 740Q COERCE 717Q COERCE 432Q COERCE 411Q %%PATHNAME-VERSION 376Q %%PATHNAME-TYPE 363Q %%PATHNAME-NAME 350Q %%PATHNAME-DIRECTORY 335Q %%PATHNAME-DEVICE 325Q %%PATHNAME-HOST 313Q PATHNAME 305Q %%PATHNAME-HOST) (754Q SIMPLE-STRING 735Q SIMPLE-STRING 714Q SIMPLE-STRING 653Q :VERSION 623Q :TYPE 573Q :NAME 543Q :DIRECTORY 513Q :DEVICE 466Q :HOST 441Q :DEFAULTS 427Q SIMPLE-STRING 302Q *DEFAULT-PATHNAME-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)) @ Hd ‘H (21Q MKSTRING 13Q STREAMP 3 FULLNAME) NIL () 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µyOµSO²(O³OL µo ²gOoO_¿O¢±‡O¨OL :³zgOoOµoL µo ²¢gOO_¿i_¿°L µo ’±ÿ{gOoNo _¿±ÿcL µo ¢±ÿOM_¿±ÿHO(400Q STRING-NOT-EQUAL 367Q %%PATHNAME-DEVICE 355Q CONCATENATE 327Q EQUALP 316Q %%PATHNAME-DIRECTORY 301Q CONCATENATE 265Q STRING-NOT-EQUAL 254Q %%PATHNAME-NAME 247Q CONCATENATE 220Q %%PATHNAME-VERSION 176Q CONCATENATE 156Q STRING-NOT-EQUAL 145Q %%PATHNAME-TYPE 73Q %%PATHNAME-VERSION 64Q %%PATHNAME-TYPE 55Q %%PATHNAME-NAME 50Q %%PATHNAME-DIRECTORY 43Q %%PATHNAME-DEVICE 36Q PATHNAME 31Q PATHNAME) (336Q SIMPLE-STRING 272Q SIMPLE-STRING 226Q SIMPLE-STRING 163Q SIMPLE-STRING 20Q *DEFAULT-PATHNAME-DEFAULTS*) ( 375Q "" 351Q ">" 344Q "<" 324Q "" 262Q "" 244Q "" 234Q ";" 171Q "." 153Q "" 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 ¿@dÉ¤o bd a@ ¹@ º@ »@ ¼@ ½h¾HŸgoHo¾I˜gNI¾J²gNoJdgð”¿oo ¾K²gNKdgð”¿o¾L²gNoLdgð”¿o¾M²8gNMdgð–¿o°"gð•o°M¤ogoM N(341Q CONCATENATE 336Q CONCATENATE 333Q PRINC-TO-STRING 250Q CONCATENATE 215Q CONCATENATE 166Q CONCATENATE 126Q CONCATENATE 113Q CONCATENATE 67Q %%PATHNAME-VERSION 62Q %%PATHNAME-TYPE 55Q %%PATHNAME-NAME 50Q %%PATHNAME-DIRECTORY 43Q %%PATHNAME-DEVICE 34Q %%PATHNAME-HOST 26Q PATHNAME 4 STREAMP) (323Q SIMPLE-STRING 301Q :NEWEST 265Q :WILD 257Q SIMPLE-STRING 236Q :WILD 224Q SIMPLE-STRING 203Q :WILD 175Q SIMPLE-STRING 147Q :WILD 135Q SIMPLE-STRING 121Q SIMPLE-STRING 77Q SIMPLE-STRING 13Q STREAM) ( 327Q ";" 317Q "" 307Q ";" 274Q ";*" 245Q "*" 231Q "." 212Q "*" 162Q ">" 156Q "*" 142Q "<" 110Q "}" 103Q "{" 22Q "") PARSE-NAMESTRING D1 (L (0 -args-)) ŠekaálHñ‘h‚laºlHñ“`‚la»Hl½¼MdLó²N¿j¾Hl_¿_¿OdOó²M¿h_¿Hl_¿_¿OdOó²M¿K£`»J¤K ºI_d ²F¿Ig Y°jagð•MkØa°¬MlÔ]°žagð–OkØa°¬OlÔ_°›agð³±OlÔ_°¡`ð•IN Odlð—¿I Y°lð•I Y‡oI ¿O¦I _¿INO __¿gOg'gOg'gOg'do “¿ggOg'do “¿ggOg'do “¿ggOg'_do •¿g°o “g†Od’ NOÔ (607Q VALUES 577Q MAKE-PATHNAME 573Q MKATOM 557Q CL:EQUAL 541Q CL:EQUAL 511Q STRING-EQUAL 463Q STRING-EQUAL 435Q STRING-EQUAL 364Q PARSE-NAMESTRING1 361Q SUBSEQ 347Q CL:LENGTH 337Q CL:ERROR 325Q SYMBOL-NAME 311Q FILE-NAME 273Q VALUES 164Q COERCE 152Q CL:STRINGP 142Q %%PATHNAME-HOST) (563Q :WILD 546Q :NEWEST 526Q VERSION 521Q :VERSION 516Q :WILD 500Q TYPE 473Q :TYPE 470Q :WILD 452Q NAME 445Q :NAME 442Q :WILD 424Q DIRECTORY 417Q :DIRECTORY 413Q DEVICE 406Q :DEVICE 402Q HOST 375Q :HOST 264Q PATHNAMETYPE# 244Q :JUNK-ALLOWED 216Q :END 173Q :START 161Q SIMPLE-STRING 133Q *DEFAULT-PATHNAME-DEFAULTS* 33Q *DEFAULT-PATHNAME-DEFAULTS*) ( 554Q "*" 536Q "" 506Q "*" 460Q "*" 432Q "*" 333Q "This is of an inappropriate type for parse-namestring: ~S") PARSE-NAMESTRING1 D1 (L (0 FILE)) Žk@µHhlð³,@d ³&¿@d3³dlð²ÉµHg@hb„ ¿@k dl{ð“¿l}dl[ð“¿l]†l(ð²ð²¿OHð˜O¥g_¿mþ‚¿mÿ_¿@OOµoOM]HM @H dl/ðœ¿l/@HkØY°dl<ð¤dl>ð›¿l>@HkØY¿h²!@HkØIkÙµogM½IkØ¸i_¿@HY ^µ‚±ŸHM @HIkÙµoK®Nl.ð£g¼g[°MLµNl.ð£g€i¼g°:gð´@H dlPð•¿g°$dlAð™¿HkÔ¸g°dlTð¤dlSð”¿gƒ¿gM½N¢±‹IkØX°l'ð”IkÔYˆNl/ð¤Nl>ð¿@IkÔY ^l.ð¬Ndl!ð§dl;ð¢µÕNl.ð² K³o@IkØZ@JkØ Z”J3 ²ÄO¢±ÿ3@HOkÙµogM½OkØ¸h_¿N’±ÿHIð¢±ÿHM (1212Q DREVERSE 1143Q SUBSTRING 1115Q NTHCHAR 1104Q STRPOS 1036Q NTHCHARCODE 707Q NTHCHARCODE 622Q SUBSTRING 610Q DREVERSE 574Q NTHCHARCODE 541Q SUBSTRING 521Q LASTCHPOS 472Q LASTCHPOS 453Q NTHCHARCODE 444Q DREVERSE 422Q SUBSTRING 347Q NTHCHARCODE 313Q DREVERSE 304Q NTHCHARCODE 240Q SUBSTRING 227Q LASTCHPOS 206Q DREVERSE 155Q SUBSTRING 136Q \UPF.NEXTPOS 77Q NTHCHARCODE 71Q \ILLEGAL.ARG 25Q CL:STRINGP) (1154Q SUBDIRECTORY 764Q VERSION 757Q TEMPORARY 737Q ACCOUNT 720Q PROTECTION 677Q ; 672Q TYPE 664Q ; 646Q NAME 642Q ; 552Q DIRECTORY 376Q SUBDIRECTORY 277Q DIRECTORY 271Q RETURN 251Q DEVICE 166Q HOST 55Q NAME) ( 1151Q "" 1075Q "." 630Q "" 547Q "" 430Q "" 246Q "" 163Q "") TRUENAME D1 (L (0 PATHNAME)) @ Hµo@ H(24Q CL:ERROR 21Q NAMESTRING 3 PROBE-FILE) NIL ( 15Q "The file ~S does not exist.") INTERLISP-NAMESTRING D1 (L (0 PATHNAME)) Í@d ¿@dÉ¤o bd @ @ @ @ @ oHœoHo¾I•NI ¾J²NoJdgð”¿oo¾K²NKdgð”¿o ¾L²NoLdgð”¿o¾M²2NMdgð–¿o°gð•o°M¤oŠoM N(310Q CONCAT 305Q CONCAT 302Q PRINC-TO-STRING 225Q CONCAT 175Q CONCAT 151Q CONCAT 115Q CONCAT 105Q CONCAT 60Q %%PATHNAME-VERSION 54Q %%PATHNAME-TYPE 50Q %%PATHNAME-NAME 44Q %%PATHNAME-DIRECTORY 40Q %%PATHNAME-DEVICE 34Q %%PATHNAME-HOST 26Q PATHNAME 4 STREAMP) (253Q :NEWEST 237Q :WILD 213Q :WILD 163Q :WILD 133Q :WILD 13Q STREAM) ( 276Q ";" 271Q "" 261Q ";" 246Q ";*" 222Q "*" 206Q "." 172Q "*" 146Q ">" 142Q "*" 126Q "<" 102Q "}" 75Q "{" 64Q "" 22Q "") %%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 ¦g‚`dg dg `(44Q setf-%%PATHNAME-VERSION 32Q PARSE-NAMESTRING 27Q FILENAMEFIELD 5 BOUNDP) (47Q *DEFAULT-PATHNAME-DEFAULTS* 41Q :NEWEST 35Q *DEFAULT-PATHNAME-DEFAULTS* 24Q HOST 20Q \CONNECTED.DIRECTORY 14Q \CONNECTED.DIRECTORY 11Q {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