(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "28-Oct-86 22:12:01" ("compiled on " {ERIS}SOURCES>CMLPATHNAME.;18) "21-Oct-86 04:13:01" "COMPILE-FILEd" in "Xerox Lisp 21-Oct-86 ..." dated "21-Oct-86 04:48:43") (FILECREATED "23-Oct-86 16:45:29" {ERIS}SOURCES>CMLPATHNAME.;18 38110 changes to%: ( STRUCTURES PATHNAME) (FNS CL:MAKE-PATHNAME) (VARS CMLPATHNAMECOMS) (VARIABLES *DEFAULT-PATHNAME-DEFAULTS*) (FUNCTIONS %%MAKE-PATHNAME) previous date%: " 9-Oct-86 15:21:44" {ERIS}SOURCES>CMLPATHNAME.;17) (RPAQQ CMLPATHNAMECOMS ((* ;; "Common Lisp pathname functions") (PROP FILETYPE CMLPATHNAME) (COMS (* ;; "useful macros") (FUNCTIONS %%WILD-NAME %%COMPONENT-STRING %%UNPACKFILE1)) (STRUCTURES PATHNAME) ( FNS %%PRINT-PATHNAME CL:MAKE-PATHNAME CL:PATHNAME-HOST CL:PATHNAME-DEVICE CL:PATHNAME-DIRECTORY CL:PATHNAME-NAME CL:PATHNAME-TYPE CL:PATHNAME-VERSION) (FNS PATHNAME CL:MERGE-PATHNAMES FILE-NAME CL:HOST-NAMESTRING CL:ENOUGH-NAMESTRING %%NUMERIC-STRING-P) (FUNCTIONS CL:NAMESTRING CL:PARSE-NAMESTRING PARSE-NAMESTRING1 CL:TRUENAME) (FUNCTIONS %%MAKE-PATHNAME) (FUNCTIONS INTERLISP-NAMESTRING) ( FUNCTIONS %%PATHNAME-EQUAL) (FUNCTIONS %%INITIALIZE-DEFAULT-PATHNAME) (VARIABLES *DEFAULT-PATHNAME-DEFAULTS*) (COMS (* ;; "Interlisp-D compatibility") (FUNCTIONS UNPACKPATHNAME.STRING )) (FUNCTIONS CL:FILE-NAMESTRING CL:DIRECTORY-NAMESTRING) (DECLARE%: DONTEVAL@LOAD DOCOPY (P ( %%INITIALIZE-DEFAULT-PATHNAME))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA) (NLAML) (LAMA CL:ENOUGH-NAMESTRING CL:HOST-NAMESTRING FILE-NAME CL:MERGE-PATHNAMES PATHNAME CL:PATHNAME-VERSION CL:PATHNAME-TYPE CL:PATHNAME-NAME CL:PATHNAME-DIRECTORY CL:PATHNAME-DEVICE CL:PATHNAME-HOST CL:MAKE-PATHNAME %%PRINT-PATHNAME))))) (PUTPROPS CMLPATHNAME FILETYPE COMPILE-FILE) expand-%%WILD-NAME D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ggHhhoNIL (11 S 8 LET) ( 21 ((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 (8 OR) ( 13 ("")) (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 (183 SUBSTRING 180 OR 164 SUBATOM 159 COND 156 RETURN 153 then 143 EQMEMB 140 elseif 122 CONS 97 SUBSTRING 94 OR 78 SUBATOM 73 COND 70 CONS 65 SETQ 62 then 54 NOT 51 if) ( 196 ("") 110 ("")) (SETF-MACRO-FUNCTION (QUOTE %%UNPACKFILE1) (QUOTE expand-%%UNPACKFILE1)) (SI::%%STRUCTURE-DECLARE-DATATYPE (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))) 12 (QUOTE NIL)) CL::type-expand-PATHNAME D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE PATHNAME)) (PUT (QUOTE PATHNAME) (QUOTE TYPE-EXPANDER) (QUOTE CL::type-expand-PATHNAME)) CL:PATHNAMEP D1 (L (0 CL::OBJECT)) @iNIL (3 PATHNAME) () %%PATHNAME-HOST D1 (L (0 PATHNAME)) @NIL (3 PATHNAME) () %%PATHNAME-DEVICE D1 (L (0 PATHNAME)) @NIL (3 PATHNAME) () %%PATHNAME-DIRECTORY D1 (L (0 PATHNAME)) @NIL (3 PATHNAME) () %%PATHNAME-NAME D1 (L (0 PATHNAME)) @NIL (3 PATHNAME) () %%PATHNAME-TYPE D1 (L (0 PATHNAME)) @NIL (3 PATHNAME) () %%PATHNAME-VERSION D1 (L (0 PATHNAME)) @ NIL (3 PATHNAME) () (REMPROP (QUOTE %%PATHNAME-HOST) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS %%PATHNAME-HOST SETF-INVERSE %%%%SETF-%%PATHNAME-HOST) %%%%SETF-%%PATHNAME-HOST D1 (L (1 CL::VALUE 0 PATHNAME)) @AANIL (3 PATHNAME) () (REMPROP (QUOTE %%PATHNAME-DEVICE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS %%PATHNAME-DEVICE SETF-INVERSE %%%%SETF-%%PATHNAME-DEVICE) %%%%SETF-%%PATHNAME-DEVICE D1 (L (1 CL::VALUE 0 PATHNAME)) @AANIL (3 PATHNAME) () (REMPROP (QUOTE %%PATHNAME-DIRECTORY) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS %%PATHNAME-DIRECTORY SETF-INVERSE %%%%SETF-%%PATHNAME-DIRECTORY) %%%%SETF-%%PATHNAME-DIRECTORY D1 (L (1 CL::VALUE 0 PATHNAME)) @AANIL (3 PATHNAME) () (REMPROP (QUOTE %%PATHNAME-NAME) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS %%PATHNAME-NAME SETF-INVERSE %%%%SETF-%%PATHNAME-NAME) %%%%SETF-%%PATHNAME-NAME D1 (L (1 CL::VALUE 0 PATHNAME)) @AANIL (3 PATHNAME) () (REMPROP (QUOTE %%PATHNAME-TYPE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS %%PATHNAME-TYPE SETF-INVERSE %%%%SETF-%%PATHNAME-TYPE) %%%%SETF-%%PATHNAME-TYPE D1 (L (1 CL::VALUE 0 PATHNAME)) @AANIL (3 PATHNAME) () (REMPROP (QUOTE %%PATHNAME-VERSION) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS %%PATHNAME-VERSION SETF-INVERSE %%%%SETF-%%PATHNAME-VERSION) %%%%SETF-%%PATHNAME-VERSION D1 (L (1 CL::VALUE 0 PATHNAME)) @A ANIL (3 PATHNAME) () %%%%MAKE-PATHNAME D1 (L (0 -args-)) BeHkJdIhHkKdJhHkNdMh_Hk__OdOh_Hk__OdOh_Hk__OdOh_ `_"IO"LO"OO"OO"OO"O  O"agJkaOJlZ>agKkaOKl[>agNkaINl^8agOkaJOl_6agOkaIOl_5agOkaHOl_4NIL (300 :VERSION 276 :TYPE 252 :NAME 231 :DIRECTORY 210 :DEVICE 189 :HOST 178 PATHNAME 169 PATHNAME 160 PATHNAME 151 PATHNAME 143 PATHNAME 135 PATHNAME 129 |PATHNAMETYPE#|) () COPY-PATHNAME D1 (L (0 PATHNAME)) [@HB`H@H@H@H@H@H@  HigHg b(84 CHECK-TYPE-FAIL) (81 PATHNAME 77 PATHNAME 66 PATHNAME 57 PATHNAME 48 PATHNAME 39 PATHNAME 30 PATHNAME 21 PATHNAME 13 |PATHNAMETYPE#| 7 PATHNAME) () (DEFPRINT (QUOTE PATHNAME) (QUOTE %%PRINT-PATHNAME)) (CL::SET-PARSED-STRUCTURE (QUOTE PATHNAME) (QUOTE (CL::PS PATHNAME %%%%MAKE-PATHNAME (HOST DEVICE DIRECTORY NAME TYPE VERSION) CL::DATATYPE NIL NIL %%PATHNAME- (%%%%MAKE-PATHNAME . :NONE) CL:PATHNAMEP %%PRINT-PATHNAME COPY-PATHNAME NIL 0 ((HOST NIL T NIL (PATHNAME 0 POINTER) %%PATHNAME-HOST) (DEVICE NIL T NIL (PATHNAME 2 POINTER) %%PATHNAME-DEVICE) (DIRECTORY NIL T NIL (PATHNAME 4 POINTER) %%PATHNAME-DIRECTORY) (NAME NIL T NIL (PATHNAME 6 POINTER) %%PATHNAME-NAME) (TYPE NIL T NIL (PATHNAME 8 POINTER) %%PATHNAME-TYPE) (VERSION NIL T NIL (PATHNAME 10 POINTER) %%PATHNAME-VERSION)) ((HOST NIL T NIL (PATHNAME 0 POINTER) %%PATHNAME-HOST) (DEVICE NIL T NIL (PATHNAME 2 POINTER) %%PATHNAME-DEVICE) ( DIRECTORY NIL T NIL (PATHNAME 4 POINTER) %%PATHNAME-DIRECTORY) (NAME NIL T NIL (PATHNAME 6 POINTER) %%PATHNAME-NAME) (TYPE NIL T NIL (PATHNAME 8 POINTER) %%PATHNAME-TYPE) (VERSION NIL T NIL (PATHNAME 10 POINTER) %%PATHNAME-VERSION)) NIL NIL (POINTER POINTER POINTER POINTER POINTER POINTER)))) %%PRINT-PATHNAME D1 (L (2 D 1 STREAM 0 S)) Ao@ (11 FORMAT 8 CL:NAMESTRING) NIL ( 4 "#.(PATHNAME ~S)") CL:MAKE-PATHNAME D1 (L (0 -args-) F 27 *DEFAULT-PATHNAME-DEFAULTS*) eHkJdIhiHkLdK hZiHk__OdO h^_i_Hk__OdOh__i_Hk_ _O dOh__"i_$Hk_(_&O(dO&h_$_*i_,Hk_0_.O0dO.h_,_2I JNW6 ]G _4JO4 NO4 _OO4 _OO4 _"O$O4 _*O,O4 _2MMg agJkaJlZagLkaLl\agOkaOl_agOkaOl_agO kaO l_ agO(kaO(l_(agO0kaO0l_0MOdOg OO"dO"g O*dO*g O2 (500 %%MAKE-PATHNAME 494 COERCE 479 COERCE 462 COERCE 281 COERCE 264 %%PATHNAME-VERSION 253 %%PATHNAME-TYPE 242 %%PATHNAME-NAME 231 %%PATHNAME-DIRECTORY 220 %%PATHNAME-DEVICE 212 %%PATHNAME-HOST 202 PATHNAME 196 %%PATHNAME-HOST) (491 CL:SIMPLE-STRING 476 CL:SIMPLE-STRING 459 CL:SIMPLE-STRING 426 :VERSION 402 :TYPE 378 :NAME 354 :DIRECTORY 330 :DEVICE 309 :HOST 288 :DEFAULTS 278 CL:SIMPLE-STRING) () CL:PATHNAME-HOST D1 (L (0 PATHNAME)) @d @ (14 %%PATHNAME-HOST 11 PATHNAME 4 CL:PATHNAMEP) NIL () CL:PATHNAME-DEVICE D1 (L (0 PATHNAME)) @d @ (14 %%PATHNAME-DEVICE 11 PATHNAME 4 CL:PATHNAMEP) NIL () CL:PATHNAME-DIRECTORY D1 (L (0 PATHNAME)) @d @ (14 %%PATHNAME-DIRECTORY 11 PATHNAME 4 CL:PATHNAMEP) NIL () CL:PATHNAME-NAME D1 (L (0 PATHNAME)) @d @ (14 %%PATHNAME-NAME 11 PATHNAME 4 CL:PATHNAMEP) NIL () CL:PATHNAME-TYPE D1 (L (0 PATHNAME)) @d @ (14 %%PATHNAME-TYPE 11 PATHNAME 4 CL:PATHNAMEP) NIL () CL:PATHNAME-VERSION D1 (L (0 PATHNAME)) @d @ (14 %%PATHNAME-VERSION 11 PATHNAME 4 CL:PATHNAMEP) NIL () PATHNAME D1 (L (0 THING)) @ (6 CL:VALUES 3 CL:PARSE-NAMESTRING) NIL () CL:MERGE-PATHNAMES D1 (L (0 -args-) F 8 *DEFAULT-PATHNAME-DEFAULTS*) xekaalHWlalHhlaI J L L _L M OM L M NM L M L NM K (117 %%MAKE-PATHNAME 110 %%PATHNAME-VERSION 102 %%PATHNAME-VERSION 98 %%PATHNAME-TYPE 92 %%PATHNAME-TYPE 88 %%PATHNAME-NAME 81 %%PATHNAME-DIRECTORY 75 %%PATHNAME-DIRECTORY 71 %%PATHNAME-DEVICE 63 %%PATHNAME-HOST 57 %%PATHNAME-HOST 50 %%PATHNAME-DEVICE 45 %%PATHNAME-NAME 40 PATHNAME 35 PATHNAME) NIL () FILE-NAME D1 (L (0 FILE)) @ d o (16 MKSTRING 7 STREAMP 3 FULLNAME) NIL ( 12 "") CL:HOST-NAMESTRING D1 (L (0 PATHNAME)) @ o(6 %%PATHNAME-HOST 3 PATHNAME) NIL ( 12 "") CL:ENOUGH-NAMESTRING D1 (L (0 -args-) F 12 *DEFAULT-PATHNAME-DEFAULTS*)  eka lHWlaI 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(255 CL:STRING-NOT-EQUAL 246 %%PATHNAME-DEVICE 236 CL:CONCATENATE 214 CL:EQUALP 205 %%PATHNAME-DIRECTORY 192 CL:CONCATENATE 180 CL:STRING-NOT-EQUAL 171 %%PATHNAME-NAME 166 CL:CONCATENATE 143 %%PATHNAME-VERSION 125 CL:CONCATENATE 109 CL:STRING-NOT-EQUAL 100 %%PATHNAME-TYPE 58 %%PATHNAME-VERSION 51 %%PATHNAME-TYPE 44 %%PATHNAME-NAME 39 %%PATHNAME-DIRECTORY 34 %%PATHNAME-DEVICE 29 PATHNAME 24 PATHNAME) (221 CL:SIMPLE-STRING 185 CL:SIMPLE-STRING 149 CL:SIMPLE-STRING 114 CL:SIMPLE-STRING) ( 252 "" 232 ">" 227 "<" 211 "" 177 "" 163 "" 155 ";" 120 "." 106 "" 65 "") %%NUMERIC-STRING-P D1 (P 1 CHAR I 0 STRING) I@ A@QHkٻHKHغHCjhiKk[JMLKLK¹l0IIl9hi(3 CL:STRINGP) NIL () CL:NAMESTRING D1 (L (0 PATHNAME)) @d @do bd a@ @ @ @ @ hHgoHo IgNI JgNoJdgoo KgNKdgo LgNoLdgo M:gNMdgo$gMoggoM N(227 CL:CONCATENATE 224 CL:CONCATENATE 221 CL:PRINC-TO-STRING 168 CL:CONCATENATE 141 CL:CONCATENATE 118 CL:CONCATENATE 86 CL:CONCATENATE 75 CL:CONCATENATE 55 %%PATHNAME-VERSION 50 %%PATHNAME-TYPE 45 %%PATHNAME-NAME 40 %%PATHNAME-DIRECTORY 35 %%PATHNAME-DEVICE 28 %%PATHNAME-HOST 22 PATHNAME 4 STREAMP) (213 CL:SIMPLE-STRING 207 OTHERWISE 193 :NEWEST 181 :WILD 175 CL:SIMPLE-STRING 158 :WILD 148 CL:SIMPLE-STRING 131 :WILD 125 CL:SIMPLE-STRING 103 :WILD 93 CL:SIMPLE-STRING 81 CL:SIMPLE-STRING 63 CL:SIMPLE-STRING 11 STREAM) ( 217 ";" 202 "" 188 ";*" 165 "*" 153 "." 138 "*" 114 ">" 110 "*" 98 "<" 72 "}" 67 "{" 18 "") CL:PARSE-NAMESTRING D1 (L (0 -args-) F 16 *DEFAULT-PATHNAME-DEFAULTS*) ekalHhlalHW laHlMdLMjHl__OdOLh_Hl__OdOLKW JK I_d FIg YfagMkaMl]agOkaOl_agOl_IN OdI YI YoI OI _INO __gOg'gOg'gOg'do ggOg'do ggOg'do ggOg'_Odo go gO NO (389 CL:VALUES 381 CL:MAKE-PATHNAME 377 MKATOM 367 CL:EQUAL 353 CL:EQUAL 326 STRING-EQUAL 304 STRING-EQUAL 282 STRING-EQUAL 241 PARSE-NAMESTRING1 238 MKSTRING 235 CL:SUBSEQ 225 CL:LENGTH 217 CL:ERROR 207 CL:SYMBOL-NAME 196 FILE-NAME 183 CL:VALUES 114 COERCE 104 CL:STRINGP 96 %%PATHNAME-HOST) (371 :WILD 358 :NEWEST 339 VERSION 334 :VERSION 331 :WILD 317 TYPE 312 :TYPE 309 :WILD 295 NAME 290 :NAME 287 :WILD 273 DIRECTORY 268 :DIRECTORY 264 DEVICE 259 :DEVICE 255 HOST 250 :HOST 202 LITATOM 190 STREAM 177 PATHNAME 162 :JUNK-ALLOWED 140 :END 121 :START 111 CL:SIMPLE-STRING) ( 364 "*" 350 "" 323 "*" 301 "*" 279 "*" 213 "This is of an inappropriate type for parse-namestring: ~S") PARSE-NAMESTRING1 D1 (L (0 FILE))  k@Hhl-@d '@d3 d@ 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 (651 DREVERSE 612 SUBSTRING 590 NTHCHAR 581 STRPOS 543 NTHCHARCODE 456 NTHCHARCODE 403 SUBSTRING 393 DREVERSE 381 NTHCHARCODE 354 SUBSTRING 338 LASTCHPOS 315 LASTCHPOS 300 NTHCHARCODE 293 DREVERSE 275 SUBSTRING 232 NTHCHARCODE 204 DREVERSE 197 NTHCHARCODE 161 SUBSTRING 152 LASTCHPOS 135 DREVERSE 110 SUBSTRING 95 \UPF.NEXTPOS 64 NTHCHARCODE 58 \ILLEGAL.ARG 21 CL:STRINGP) (621 SUBDIRECTORY 501 VERSION 496 TEMPORARY 480 ACCOUNT 465 PROTECTION 448 ; 443 TYPE 437 ; 423 NAME 419 ; 363 DIRECTORY 255 SUBDIRECTORY 192 DIRECTORY 186 RETURN 170 DEVICE 119 HOST 46 NAME 34 STREAM) ( 618 "" 574 "." 409 "" 360 "" 281 "" 167 "" 116 "") CL:TRUENAME D1 (L (0 PATHNAME)) 1@d @do@  Ho@ H(45 CL:ERROR 42 CL:NAMESTRING 28 CL:PROBE-FILE 24 CL:ERROR 4 STREAMP) (12 STREAM) ( 38 "The file ~S does not exist." 20 "The stream ~S has no corresponding named file.") %%MAKE-PATHNAME D1 (L (5 VERSION 4 TYPE 3 NAME 2 DIRECTORY 1 DEVICE 0 HOST)) g@gAgBgCgDgE (27 %%%%MAKE-PATHNAME) (22 :VERSION 18 :TYPE 14 :NAME 10 :DIRECTORY 6 :DEVICE 2 :HOST) () INTERLISP-NAMESTRING D1 (L (0 PATHNAME)) @d @do bd @ @ @ @ @ oHoHo INI JNoJdgoo KNKdgo LNoLdgo M:NMdgo'goMog oM N(208 CONCAT 205 CONCAT 202 CL:PRINC-TO-STRING 149 CONCAT 125 CONCAT 105 CONCAT 77 CONCAT 69 CONCAT 48 %%PATHNAME-VERSION 44 %%PATHNAME-TYPE 40 %%PATHNAME-NAME 36 %%PATHNAME-DIRECTORY 32 %%PATHNAME-DEVICE 28 %%PATHNAME-HOST 22 PATHNAME 4 STREAMP) (191 OTHERWISE 171 :NEWEST 159 :WILD 139 :WILD 115 :WILD 91 :WILD 11 STREAM) ( 198 ";" 186 "" 177 ";" 166 ";*" 146 "*" 134 "." 122 "*" 102 ">" 98 "*" 86 "<" 66 "}" 61 "{" 52 "" 18 "") %%PATHNAME-EQUAL D1 (L (1 PATHNAME2 0 PATHNAME1)) N@ A A@ A 4@ A '@ A @ A @ A (75 CL:EQUAL 72 %%PATHNAME-VERSION 68 %%PATHNAME-VERSION 62 CL:EQUAL 59 %%PATHNAME-TYPE 55 %%PATHNAME-TYPE 49 CL:EQUAL 46 %%PATHNAME-NAME 42 %%PATHNAME-NAME 36 CL:EQUAL 33 %%PATHNAME-DIRECTORY 29 %%PATHNAME-DIRECTORY 23 CL:EQUAL 20 %%PATHNAME-DEVICE 16 %%PATHNAME-DEVICE 10 CL:EQUAL 7 %%PATHNAME-HOST 3 %%PATHNAME-HOST) NIL () %%INITIALIZE-DEFAULT-PATHNAME D1 NIL *g g`dg dg `(36 %%%%SETF-%%PATHNAME-VERSION 26 CL:PARSE-NAMESTRING 23 FILENAMEFIELD 5 BOUNDP) (39 *DEFAULT-PATHNAME-DEFAULTS* 33 :NEWEST 29 *DEFAULT-PATHNAME-DEFAULTS* 20 HOST 16 \CONNECTED.DIRECTORY 12 \CONNECTED.DIRECTORY 9 {DSK} 2 \CONNECTED.DIRECTORY) () (CL:PROCLAIM (QUOTE (GLOBAL *DEFAULT-PATHNAME-DEFAULTS*))) UNPACKPATHNAME.STRING D1 (L (3 ATOMFLG 2 DIRFLG 1 ONEFIELDFLG 0 FILE))  A@ XgCtH odAo bg@ HAdg@ :g@ /Adg@ !g@ Adg@ ghCH HHHh@ XgCH Hh@ XgCH Hh@ XgCH Hh@ XgCH Hh@ XgCH H h (265 \APPEND2 262 \APPEND2 259 \APPEND2 256 \APPEND2 253 \APPEND2 247 MKSTRING 242 MKATOM 230 CL:PATHNAME-VERSION 221 MKATOM 209 CL:PATHNAME-TYPE 200 MKATOM 188 CL:PATHNAME-NAME 179 MKATOM 167 CL:PATHNAME-DIRECTORY 158 MKATOM 146 CL:PATHNAME-DEVICE 133 MKATOM 116 CL:PATHNAME-VERSION 102 CL:PATHNAME-TYPE 91 CL:PATHNAME-NAME 77 CL:PATHNAME-DIRECTORY 66 CL:PATHNAME-DEVICE 52 CL:PATHNAME-HOST 40 CL:INTERSECTION 26 MKATOM 9 CL:PATHNAME-HOST) (236 VERSION 215 EXTENSION 194 NAME 173 DIRECTORY 152 DEVICE 120 OTHERWISE 109 VERSION 96 EXTENSION 84 NAME 71 DIRECTORY 59 DEVICE 46 HOST 19 HOST) ( 37 (HOST DEVICE DIRECTORY NAME EXTENSION VERSION)) CL:FILE-NAMESTRING D1 (L (0 PATHNAME)) n@ !gH ooH o H Z@gIJdgo*goJoggoJ I(105 CL:CONCATENATE 102 CL:CONCATENATE 99 CL:PRINC-TO-STRING 41 %%PATHNAME-VERSION 36 CL:CONCATENATE 27 %%PATHNAME-TYPE 13 %%PATHNAME-NAME 3 PATHNAME) (91 CL:SIMPLE-STRING 85 OTHERWISE 65 :NEWEST 53 :WILD 47 CL:SIMPLE-STRING 9 CL:SIMPLE-STRING) ( 95 ";" 80 "" 71 ";" 60 ";*" 33 "" 23 "." 19 "") CL:DIRECTORY-NAMESTRING D1 (L (0 PATHNAME)) @ o(6 %%PATHNAME-DIRECTORY 3 PATHNAME) NIL ( 12 "") (%%INITIALIZE-DEFAULT-PATHNAME) (PUTPROPS CMLPATHNAME COPYRIGHT ("Xerox Corporation" 1986)) NIL