(FILECREATED "28-Jul-86 14:58:53" ("compiled on " {ERIS}LIBRARY>CMLPATHNAME.;13) "22-Jul-86 10:49:38" "COMPILE-FILEd" in "" dated "22-Jul-86 11:05:42") (FILECREATED "28-Jul-86 14:57:37" {ERIS}LIBRARY>CMLPATHNAME.;13 32534 changes to: (FUNCTIONS FILE-NAMESTRING NAMESTRING %%INITIALIZE-DEFAULT-PATHNAME PARSE-NAMESTRING1 PARSE-NAMESTRING) ( STRUCTURES PATHNAME) (VARS CMLPATHNAMECOMS) (FNS %%NUMERIC-STRING-P PARSE-NAMESTRING PARSE-NAMESTRING1 ) previous date: "23-Jul-86 12:34:34" {ERIS}LIBRARY>CMLPATHNAME.;11) (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 %%PATHNAME-EQUAL) (FUNCTIONS %%INITIALIZE-DEFAULT-PATHNAME) (DECLARE: DONTEVAL@LOAD DOCOPY (P (%%INITIALIZE-DEFAULT-PATHNAME))) (FUNCTIONS FILE-NAMESTRING DIRECTORY-NAMESTRING) (DECLARE: DONTCOPY (FUNCTIONS %%WILD-NAME %%COMPONENT-STRING %%UNPACKFILE1)) ( 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)) @`NIL (4 PATHNAMETYPE#) () 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-)) +eHkJdIhHkKdJhHkNdMh_Hk__OdOh_Hk__OdOh_Hk__OdOh_ `dIdLdOdOdOdO  agJkafJlZUagKkacKl[RagNka]Nl^LagOka^Ol_JagOka]Ol_IagOka\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@dAdBdCdDdE 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) )) (/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 hiHkLdK hZiHk__OdOh^_i_Hk__OdOh__i_Hk_ _O dOh__"i_$Hk_(_&O(dO&h_$_*i_,Hk_0_.O0dO.h_,_2IJO` ]G _4JO4 NO4 _OO4 _OO4 _"O$O4 _*O,O4 _2MM agJkaJlZagLkaLl\agOkaOl_agOkaOl_agO kaO l_ agO(kaO(l_(agO0kaO0l_0MOdO OO"dO" O*dO* O2 (751Q %%MAKE-PATHNAME 743Q MKSTRING 727Q MKSTRING 711Q MKSTRING 427Q MKSTRING 411Q %%PATHNAME-VERSION 376Q %%PATHNAME-TYPE 363Q %%PATHNAME-NAME 350Q %%PATHNAME-DIRECTORY 335Q %%PATHNAME-DEVICE 325Q %%PATHNAME-HOST 313Q PATHNAME 305Q %%PATHNAME-HOST) (650Q :VERSION 620Q :TYPE 570Q :NAME 540Q :DIRECTORY 510Q :DEVICE 463Q :HOST 436Q :DEFAULTS 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`lalHhlaI J L L _L M OM L M NM L M L NM 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`laI J K K K _K _K _o_h_MNyOSO(OOL o gOoO _OOOL :zgOoOo L 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@QHkٻHKHغHCjhiKk[JMLKLK¹l0IIl9hi(3 CL:STRINGP) NIL () NAMESTRING D1 (L (0 PATHNAME)) @d @do bd q@ @ @ @ @ hHgoHo IgNI JgNoJdgoo KgNKdgo LgNoLdgo M;gNM_dgo#goOogoM N(344Q CONCATENATE 341Q CONCATENATE 336Q 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) (326Q SIMPLE-STRING 303Q :NEWEST 267Q :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) ( 332Q ";" 322Q "" 311Q ";" 276Q ";*" 245Q "*" 231Q "." 212Q "*" 162Q ">" 156Q "*" 142Q "<" 110Q "}" 103Q "{" 22Q "") PARSE-NAMESTRING D1 (L (0 -args-)) ekalHhlalH`laHlMdLKjHl__OdOJh_Hl__OdOJK`JK I_d CI YjagMkaMl]agOkaOl_agOl_`IN Odl I YlI YoI OI _INO __gOg'gOg'gOg'do ggOg'do ggOg'do ggOg'_do go gO NO (576Q VALUES 566Q MAKE-PATHNAME 553Q CL:EQUAL 536Q CL:EQUAL 506Q STRING-EQUAL 460Q STRING-EQUAL 432Q STRING-EQUAL 361Q PARSE-NAMESTRING1 356Q SUBSEQ 344Q CL:LENGTH 334Q CL:ERROR 322Q SYMBOL-NAME 306Q FILE-NAME 270Q VALUES 161Q MKSTRING 152Q CL:STRINGP 142Q %%PATHNAME-HOST) (557Q :WILD 543Q :NEWEST 523Q VERSION 516Q :VERSION 513Q :WILD 475Q TYPE 470Q :TYPE 465Q :WILD 447Q NAME 442Q :NAME 437Q :WILD 421Q DIRECTORY 414Q :DIRECTORY 410Q DEVICE 403Q :DEVICE 377Q HOST 372Q :HOST 261Q PATHNAMETYPE# 241Q :JUNK-ALLOWED 213Q :END 170Q :START 133Q *DEFAULT-PATHNAME-DEFAULTS* 33Q *DEFAULT-PATHNAME-DEFAULTS*) ( 550Q "*" 533Q "" 503Q "*" 455Q "*" 427Q "*" 330Q "This is of an inappropriate type for parse-namestring: ~S") PARSE-NAMESTRING1 D1 (L (0 FILE))  k@Hhl+@d&@d3dl  Hg@hb @k dl{l}dl[l]l(OHOg_mm_@OO oOM]HM @H dl/l/@Hk Ydl
l>@Hk Yh!@HkIk ogMIkظi_@HY ^HM @HIk oKNl.gg[MLNl.gig:g@H dlPg$dlAHkԸgdlTdlSggMNIkXl'IkYNl/Nl>@IkY ^l.Ndl!dl;Nl. Ko@Ik Z@Jk ZJ3 O3@HOk ogMOkظh_NHIHM (1211Q DREVERSE 1142Q SUBSTRING 1114Q NTHCHAR 1103Q STRPOS 1035Q NTHCHARCODE 706Q NTHCHARCODE 621Q SUBSTRING 607Q DREVERSE 573Q NTHCHARCODE 540Q SUBSTRING 520Q LASTCHPOS 471Q LASTCHPOS 452Q NTHCHARCODE 443Q DREVERSE 421Q SUBSTRING 346Q NTHCHARCODE 312Q DREVERSE 303Q NTHCHARCODE 237Q SUBSTRING 226Q LASTCHPOS 205Q DREVERSE 154Q SUBSTRING 135Q \UPF.NEXTPOS 76Q NTHCHARCODE 70Q \ILLEGAL.ARG) (1153Q SUBDIRECTORY 763Q VERSION 756Q TEMPORARY 736Q ACCOUNT 717Q PROTECTION 676Q ; 671Q TYPE 663Q ; 645Q NAME 641Q ; 551Q DIRECTORY 375Q SUBDIRECTORY 276Q DIRECTORY 270Q RETURN 250Q DEVICE 165Q HOST 54Q NAME) ( 1150Q "" 1074Q "." 627Q "" 546Q "" 427Q "" 245Q "" 162Q "") TRUENAME D1 (L (0 PATHNAME)) @ Ho@ H(24Q CL:ERROR 21Q NAMESTRING 3 PROBE-FILE) NIL ( 15Q "The file ~S does not exist.") %%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 `dg dg `(26Q setf-%%PATHNAME-VERSION 14Q PARSE-NAMESTRING 11Q FILENAMEFIELD) (31Q *DEFAULT-PATHNAME-DEFAULTS* 23Q :NEWEST 17Q *DEFAULT-PATHNAME-DEFAULTS* 6 HOST 2 \CONNECTED.DIRECTORY) () (%%INITIALIZE-DEFAULT-PATHNAME) FILE-NAMESTRING D1 (L (0 PATHNAME)) g@ 1gH ooH o H Z9gIJ[dgo"goKogoJ I(142Q CONCATENATE 137Q CONCATENATE 134Q PRINC-TO-STRING 51Q %%PATHNAME-VERSION 44Q CONCATENATE 33Q %%PATHNAME-TYPE 15Q %%PATHNAME-NAME 3 PATHNAME) (124Q SIMPLE-STRING 102Q :NEWEST 66Q :WILD 57Q SIMPLE-STRING 11Q SIMPLE-STRING) ( 130Q ";" 120Q "" 110Q ";" 75Q ";*" 41Q "" 27Q "." 23Q "") DIRECTORY-NAMESTRING D1 (L (0 PATHNAME)) @ o(6 %%PATHNAME-DIRECTORY 3 PATHNAME) NIL ( 14Q "") 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)) @ HHZJ\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)) (PUTPROPS CMLPATHNAME COPYRIGHT ("Xerox Corporation" 1986)) STOP