(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Apr-2022 20:29:09" ("compiled on " {DSK}kaplan>Local>medley3.5>my-medley>sources>CMLPATHNAME.;3) "23-Apr-2022 07:50:03" "COMPILE-FILEd" in "FULL 23-Apr-2022 ..." dated "23-Apr-2022 07:50:09") (FILECREATED "25-Apr-2022 20:29:09" {DSK}kaplan>Local>medley3.5>my-medley>sources>CMLPATHNAME.;3 32421 :CHANGES-TO (VARS CMLPATHNAMECOMS) :PREVIOUS-DATE "14-Jan-2022 11:40:58" {DSK}kaplan>Local>medley3.5>my-medley>sources>CMLPATHNAME.;2) (RPAQQ CMLPATHNAMECOMS ((* ;; "Common Lisp pathname functions") (PROP FILETYPE CMLPATHNAME) (COMS (* ;; "useful macros") (FUNCTIONS %%WILD-NAME %%COMPONENT-STRING)) (STRUCTURES PATHNAME DIRECTORY-COMPONENT) (FNS %%PRINT-PATHNAME CL:MAKE-PATHNAME %%PRINT-DIRECTORY-COMPONENT) (FUNCTIONS 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 CL:TRUENAME) (FUNCTIONS %%MAKE-PATHNAME) (FUNCTIONS %%PATHNAME-EQUAL %%DIRECTORY-COMPONENT-EQUAL) (FUNCTIONS %%INITIALIZE-DEFAULT-PATHNAME) (VARIABLES *DEFAULT-PATHNAME-DEFAULTS*) (COMS (* ;; "Interlisp-D compatibility") (FUNCTIONS INTERLISP-NAMESTRING 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 %%PRINT-DIRECTORY-COMPONENT CL:MAKE-PATHNAME %%PRINT-PATHNAME))))) (PUTPROPS CMLPATHNAME FILETYPE CL:COMPILE-FILE) expand-%%WILD-NAME :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhhoNIL (15 S 10 LET) ( 26 ((CL:IF (STRING-EQUAL S "*") :WILD S))) (SETF-MACRO-FUNCTION (QUOTE %%WILD-NAME) (QUOTE expand-%%WILD-NAME)) expand-%%COMPONENT-STRING :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHohNIL (15 OR 10 MKSTRING) ( 21 ("")) (SETF-MACRO-FUNCTION (QUOTE %%COMPONENT-STRING) (QUOTE expand-%%COMPONENT-STRING)) (CL::SET-PARSED-STRUCTURE (QUOTE PATHNAME) T (QUOTE (CL::PS PATHNAME %%%%MAKE-PATHNAME (HOST DEVICE DIRECTORY NAME TYPE VERSION) CL::DATATYPE NIL NIL %%PATHNAME- (%%%%MAKE-PATHNAME) CL:PATHNAMEP %%PRINT-PATHNAME COPY-PATHNAME NIL 0 NIL ((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) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (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 CL::STRUCTURE-OBJECT)) (PUTPROP (QUOTE PATHNAME) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) CL:PATHNAMEP :D8 (L (0 CL::OBJECT)) @NIL (5 PATHNAME) () (CL::ESTABLISH-PREDICATE (QUOTE PATHNAME)) %%PATHNAME-HOST :D8 (L (0 PATHNAME)) @NIL (5 PATHNAME) () %%PATHNAME-DEVICE :D8 (L (0 PATHNAME)) @NIL (5 PATHNAME) () %%PATHNAME-DIRECTORY :D8 (L (0 PATHNAME)) @NIL (5 PATHNAME) () %%PATHNAME-NAME :D8 (L (0 PATHNAME)) @NIL (5 PATHNAME) () %%PATHNAME-TYPE :D8 (L (0 PATHNAME)) @NIL (5 PATHNAME) () %%PATHNAME-VERSION :D8 (L (0 PATHNAME)) @ NIL (5 PATHNAME) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE PATHNAME)) %%%%MAKE-PATHNAME :D8 (L (0 -args-)) eiHkKJhYiHk_OdNտh]_i_Hk__OdOӿh__i_Hk__OdOпh__ i_"Hk_&_$O&dO$Ϳh_"_(i_*Hk_._,O.dO,ʿh_*_0l_2IO2LMO2OOO2OOO2O O"O2O(O*O2O0 O2Kdagl[kaagOka$Ol_agOka'Ol_agOka*Ol_agO&ka-O&l_&agO.ka0O.l_.NIL (361 :VERSION 335 :TYPE 309 :NAME 283 :DIRECTORY 257 :DEVICE 236 :HOST) () COPY-PATHNAME :D8 (L (0 PATHNAME)) R@H/lH@H@H@H@H@H@  HigHgh b(75 CHECK-TYPE-FAIL) (68 PATHNAME 62 PATHNAME 9 PATHNAME) () (CL::SET-PARSED-STRUCTURE (QUOTE DIRECTORY-COMPONENT) T (QUOTE (CL::PS DIRECTORY-COMPONENT %%MAKE-DIRECTORY-COMPONENT (TYPE PATH) CL::DATATYPE NIL NIL %%DIRECTORY-COMPONENT- ( %%MAKE-DIRECTORY-COMPONENT) %%DIRECTORY-COMPONENT-P %%PRINT-DIRECTORY-COMPONENT COPY-DIRECTORY-COMPONENT NIL 0 NIL ((TYPE NIL T NIL (DIRECTORY-COMPONENT 0 POINTER) %%DIRECTORY-COMPONENT-TYPE) (PATH NIL T NIL (DIRECTORY-COMPONENT 2 POINTER) %%DIRECTORY-COMPONENT-PATH )) NIL NIL (POINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%%STRUCTURE-DECLARE-DATATYPE (QUOTE DIRECTORY-COMPONENT) (QUOTE (POINTER POINTER)) (QUOTE (( DIRECTORY-COMPONENT 0 POINTER) (DIRECTORY-COMPONENT 2 POINTER))) 4 (QUOTE CL::STRUCTURE-OBJECT)) (PUTPROP (QUOTE DIRECTORY-COMPONENT) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) %%DIRECTORY-COMPONENT-P :D8 (L (0 CL::OBJECT)) @NIL (5 DIRECTORY-COMPONENT) () (CL::ESTABLISH-PREDICATE (QUOTE DIRECTORY-COMPONENT)) %%DIRECTORY-COMPONENT-TYPE :D8 (L (0 DIRECTORY-COMPONENT)) @NIL (5 DIRECTORY-COMPONENT) () %%DIRECTORY-COMPONENT-PATH :D8 (L (0 DIRECTORY-COMPONENT)) @NIL (5 DIRECTORY-COMPONENT) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE DIRECTORY-COMPONENT)) %%MAKE-DIRECTORY-COMPONENT :D8 (L (0 -args-)) s ei HkKJ6hYiHk_OdN9h]_`_IOLMOOOKdagl[kaagOkaOl_NIL (95 :PATH 76 :TYPE 45 |DIRECTORY-COMPONENTTYPE#|) () COPY-DIRECTORY-COMPONENT :D8 (L (0 DIRECTORY-COMPONENT)) =@H`H@H@HigHgh b(54 CHECK-TYPE-FAIL) (47 DIRECTORY-COMPONENT 41 DIRECTORY-COMPONENT 17 |DIRECTORY-COMPONENTTYPE#| 9 DIRECTORY-COMPONENT) () %%PRINT-PATHNAME :D8 (L (2 D 1 STREAM 0 S)) Aog@ (21 CL:FORMAT 16 CL:NAMESTRING) (10 PATHNAME) ( 5 "#.(~S ~S)") CL:MAKE-PATHNAME :D8 (L (0 -args-) F 31 *DEFAULT-PATHNAME-DEFAULTS*) 5eHkJI3hiHkLdK4hZiHk__OdO3h^_i_Hk__OdO1h__i_Hk_ _O dO.h__"i_$Hk_(_&O(dO&+h_$_*i_,Hk_0_.O0dO.(h_,_2IJlW>]a _4JO4NO4_OO4_OO4_"O$O4_*O,O4 _2M Mg JdaglZkaagLkaLl\agOkaOl_agOkaOl_agO kaO l_ agO(kaO(l_(agO0kaO0l_0MOd Og Odd:OO"d O"g O*d O*g O2 _6O6 Odd3@*Odggggg _IW>O k_<_:OO<_8o:O8o:UJgggOjO< HggggO:`OjO< gggO (816 %%MAKE-DIRECTORY-COMPONENT 792 CL:CONCATENATE 787 CL:SUBSEQ 739 CL:SUBSEQ 679 CL:LENGTH 657 STRING 650 %%MAKE-DIRECTORY-COMPONENT 601 CL:STRINGP 585 %%MAKE-PATHNAME 577 COERCE 563 STRINGP 555 COERCE 541 STRINGP 518 COERCE 504 STRINGP 316 COERCE 301 STRINGP 206 PATHNAME) (809 :PATH 804 :DIRECTORY 799 :TYPE 775 \FILENAME.SYNTAX 768 DIRECTORY-COMPONENT 761 STRING 756 :PATH 751 :DIRECTORY 746 :TYPE 729 :PATH 724 :RELATIVE 719 :TYPE 670 PATHNAME 645 :WILD 640 :PATH 635 :DIRECTORY 630 :TYPE 621 :WILD 593 LITATOM 572 CL:SIMPLE-STRING 550 CL:SIMPLE-STRING 528 DIRECTORY-COMPONENT 513 CL:SIMPLE-STRING 475 :VERSION 449 :TYPE 423 :NAME 397 :DIRECTORY 371 :DEVICE 348 :HOST 327 :DEFAULTS 311 CL:SIMPLE-STRING 290 PATHNAME 275 PATHNAME 260 PATHNAME 245 PATHNAME 230 PATHNAME 218 PATHNAME 196 PATHNAME) ( 708 #\/ 699 #\>) %%PRINT-DIRECTORY-COMPONENT :D8 (L (2 D 1 STREAM 0 S)) u@Ao@YgIggHo 4Hgg`og`H` (114 CL:FORMAT 109 CL:CONCATENATE 57 CL:CONCATENATE) (102 \FILENAME.SYNTAX 95 \FILENAME.SYNTAX 90 STRING 78 \FILENAME.SYNTAX 73 STRING 65 :WILD 46 STRING 38 :RELATIVE 30 :SUBDIRECTORY 22 DIRECTORY-COMPONENT 5 DIRECTORY-COMPONENT) ( 84 "*" 52 ">" 16 "~A") CL:PATHNAME-HOST :D8 (L (0 PATHNAME)) @ (5 PATHNAME) (10 PATHNAME) () CL:PATHNAME-DEVICE :D8 (L (0 PATHNAME)) @ (5 PATHNAME) (10 PATHNAME) () CL:PATHNAME-DIRECTORY :D8 (L (0 PATHNAME)) @ (5 PATHNAME) (10 PATHNAME) () CL:PATHNAME-NAME :D8 (L (0 PATHNAME)) @ (5 PATHNAME) (10 PATHNAME) () CL:PATHNAME-TYPE :D8 (L (0 PATHNAME)) @ (5 PATHNAME) (10 PATHNAME) () CL:PATHNAME-VERSION :D8 (L (0 PATHNAME)) @  (5 PATHNAME) (10 PATHNAME) () PATHNAME :D8 (L (0 THING)) @ (5 CL:PARSE-NAMESTRING) NIL () CL:MERGE-PATHNAMES :D8 (L (0 -args-) F 13 *DEFAULT-PATHNAME-DEFAULTS*)  eka lHWlahlHgilaI J M N_M_M_M_N_h_OO NOOOdgO_gO{Og!gggO KgOggO`O gOOOOO NM NM OKLN KLg (394 %%MAKE-PATHNAME 291 %%MAKE-DIRECTORY-COMPONENT 286 CL:CONCATENATE 237 %%MAKE-DIRECTORY-COMPONENT 52 PATHNAME 45 PATHNAME) (388 :NEWEST 375 PATHNAME 356 PATHNAME 348 PATHNAME 338 PATHNAME 330 PATHNAME 305 :WILD 298 DIRECTORY-COMPONENT 279 DIRECTORY-COMPONENT 270 \FILENAME.SYNTAX 263 DIRECTORY-COMPONENT 256 STRING 251 :PATH 244 :TYPE 230 DIRECTORY-COMPONENT 223 :PATH 218 :RELATIVE 213 :TYPE 205 :WILD 198 DIRECTORY-COMPONENT 185 :SUBDIRECTORY 176 DIRECTORY-COMPONENT 163 :SUBDIRECTORY 156 DIRECTORY-COMPONENT 134 PATHNAME 113 PATHNAME 102 PATHNAME 91 PATHNAME 80 PATHNAME 69 PATHNAME 59 PATHNAME 32 :NEWEST) () FILE-NAME :D8 (L (0 FILE)) @ d o (23 MKSTRING 11 STREAMP 5 FULLNAME) NIL ( 17 "") CL:HOST-NAMESTRING :D8 (L (0 PATHNAME)) @ o (24 MKSTRING 5 PATHNAME) (10 PATHNAME) ( 19 "") CL:ENOUGH-NAMESTRING :D8 (L (0 -args-) P 13 *PRINT-BASE* F 14 *DEFAULT-PATHNAME-DEFAULTS*) seka lHWlal  I J KKK_K_K_K _o_MHNOOvO:OO L gOOdgoLo gOoO _Lo rgOO _YL DO_gOggOO` Lo gON o _Lo goM o _OggO`ogO`O` _BgOogoO (624 CL:CONCATENATE 619 CL:CONCATENATE 614 CL:PRINC-TO-STRING 574 CL:CONCATENATE 496 CL:CONCATENATE 486 CL:PRINC-TO-STRING 466 CL:STRING-NOT-EQUAL 461 MKSTRING 435 CL:CONCATENATE 425 CL:PRINC-TO-STRING 408 CL:STRING-NOT-EQUAL 403 MKSTRING 380 CL:CONCATENATE 318 %%DIRECTORY-COMPONENT-EQUAL 299 CL:CONCATENATE 294 CL:PRINC-TO-STRING 276 CL:STRING-NOT-EQUAL 271 MKSTRING 246 CL:CONCATENATE 241 CL:PRINC-TO-STRING 220 CL:STRING-NOT-EQUAL 215 MKSTRING 164 CL:STRING-NOT-EQUAL 151 CL:PRINC-TO-STRING 38 PATHNAME 31 PATHNAME) (602 CL:SIMPLE-STRING 585 :NEWEST 566 \FILENAME.SYNTAX 559 DIRECTORY-COMPONENT 551 \FILENAME.SYNTAX 544 CL:SIMPLE-STRING 531 \FILENAME.SYNTAX 524 CL:SIMPLE-STRING 516 :WILD 509 DIRECTORY-COMPONENT 475 CL:SIMPLE-STRING 447 PATHNAME 417 CL:SIMPLE-STRING 389 PATHNAME 373 \FILENAME.SYNTAX 366 DIRECTORY-COMPONENT 357 CL:SIMPLE-STRING 347 :RELATIVE 338 :SUBDIRECTORY 329 DIRECTORY-COMPONENT 311 PATHNAME 285 CL:SIMPLE-STRING 257 PATHNAME 227 CL:SIMPLE-STRING 201 PATHNAME 181 :WILD 171 CL:SIMPLE-STRING 157 PATHNAME 96 PATHNAME 85 PATHNAME 74 PATHNAME 63 PATHNAME 54 PATHNAME 45 PATHNAME) ( 607 ";" 595 "" 537 "*" 491 "}" 480 "{" 456 "" 430 ":" 398 "" 266 "" 234 "." 210 "" 192 ";*" 106 "") %%NUMERIC-STRING-P :D8 (P 1 CHAR I 0 STRING) w@ o@QHdj Hdj KmHl غHdj lDKJ MLKLK¹l0IIl9hKk[i(72 %%ARRAY-TYPE-NUMBER 57 \GETBASEFIXP 41 %%ARRAY-BASE 24 %%ARRAY-OFFSET 5 CL:STRINGP) NIL () CL:NAMESTRING :D8 (L (0 PATHNAME)) @d @do qHHHHHH IoIohJdohKdY_gOgK`h+Kgh`K`hLddg ohMoMdg ohNdZgLMN`lcoI LNdgogoh`Nh `Ndgogo(377 CONCATLIST 372 \NCONC2 367 \NCONC2 362 \NCONC2 357 \NCONC2 352 \NCONC2 302 STREQUAL 297 U-CASE 292 MKSTRING 30 PATHNAME 6 STREAMP) (408 :NEWEST 393 :WILD 383 \FILENAME.SYNTAX 340 \FILENAME.SYNTAX 326 :NEWEST 311 :WILD 276 \MACHINETYPE 264 :NEWEST 243 :WILD 217 :WILD 201 \FILENAME.SYNTAX 194 DIRECTORY-COMPONENT 187 \FILENAME.SYNTAX 177 :WILD 170 DIRECTORY-COMPONENT 159 \FILENAME.SYNTAX 152 DIRECTORY-COMPONENT 143 :RELATIVE 134 :SUBDIRECTORY 125 DIRECTORY-COMPONENT 84 PATHNAME 75 PATHNAME 66 PATHNAME 57 PATHNAME 48 PATHNAME 39 PATHNAME 16 STREAM) ( 416 "" 401 "*" 333 "" 319 "*" 286 "UNIX" 252 "*" 236 "." 226 "*" 113 ":" 101 "}" 95 "{" 24 "") CL:PARSE-NAMESTRING :D8 (L (0 -args-)) Deka HlKdJ7jHlNdM>h_Hl__OdO=hI_d GagKkaKl[agNkaNl^agOkaOl_IL$Od&Id I  YI YoI OI _IkLO hdddi _gOg'gOg'gOg'Og'Og'O#gggOdo bZO#gggOdo =5O"gggOdo gggg gOg'do ggOg'do ggOg'_do̗go̕gO O$(572 CL:MAKE-PATHNAME 566 MKATOM 508 CL::SIMPLE-STRING-EQUAL 477 CL::SIMPLE-STRING-EQUAL 452 %%MAKE-DIRECTORY-COMPONENT 423 CL::SIMPLE-STRING-EQUAL 386 CL::SIMPLE-STRING-EQUAL 349 CL::SIMPLE-STRING-EQUAL 256 UNPACKFILENAME.STRING 245 SUBSTRING 231 CL:LENGTH 221 CL:ERROR 208 CL:SYMBOL-NAME 193 FILE-NAME 187 CL:PARSE-NAMESTRING 182 CL:SYMBOL-VALUE 177 XCL:SYNONYM-STREAM-SYMBOL 168 XCL:SYNONYM-STREAM-P 67 CL:STRINGP) (558 :WILD 544 :NEWEST 527 VERSION 520 :VERSION 515 :WILD 496 EXTENSION 489 :TYPE 484 :WILD 465 NAME 458 :NAME 447 :WILD 442 :PATH 437 :DIRECTORY 432 :TYPE 410 :PATH 405 :RELATIVE 400 :TYPE 373 :PATH 368 :SUBDIRECTORY 363 :TYPE 336 :PATH 331 :DIRECTORY 326 :TYPE 313 RELATIVEDIRECTORY 305 SUBDIRECTORY 297 DIRECTORY 290 :DIRECTORY 284 DEVICE 277 :DEVICE 271 HOST 264 :HOST 201 LITATOM 158 STREAM 143 PATHNAME 120 :JUNK-ALLOWED 99 :END 78 :START) ( 551 "*" 536 "" 503 "*" 472 "*" 418 "*" 381 "*" 344 "*" 215 "This is of an inappropriate type for parse-namestring: ~S") CL:TRUENAME :D8 (L (0 PATHNAME)) S@ .@d @ bo@ @ Ho@ H(79 CL:ERROR 74 CL:NAMESTRING 57 CL:PROBE-FILE 50 CL:ERROR 27 CL:SYMBOL-VALUE 22 XCL:SYNONYM-STREAM-SYMBOL 14 XCL:SYNONYM-STREAM-P 5 STREAMP) (36 STREAM) ( 68 "The file ~S does not exist." 44 "The stream ~S has no corresponding named file.") %%MAKE-PATHNAME :D8 (L (5 VERSION 4 TYPE 3 NAME 2 DIRECTORY 1 DEVICE 0 HOST)) ,g@gAgBgCgDgE (41 %%%%MAKE-PATHNAME) (34 :VERSION 28 :TYPE 22 :NAME 16 :DIRECTORY 10 :DEVICE 4 :HOST) () %%PATHNAME-EQUAL :D8 (L (1 PATHNAME2 0 PATHNAME1)) v@A̴c@A̴P@A 9@A̴&@A̴@ A (58 %%DIRECTORY-COMPONENT-EQUAL) (112 PATHNAME 104 PATHNAME 93 PATHNAME 85 PATHNAME 74 PATHNAME 66 PATHNAME 51 PATHNAME 43 PATHNAME 32 PATHNAME 24 PATHNAME 13 PATHNAME 5 PATHNAME) () %%DIRECTORY-COMPONENT-EQUAL :D8 (L (1 COMPONENT2 0 COMPONENT1)) <@d1A'@A̴@A@ANIL (50 DIRECTORY-COMPONENT 42 DIRECTORY-COMPONENT 31 DIRECTORY-COMPONENT 23 DIRECTORY-COMPONENT 15 DIRECTORY-COMPONENT 6 DIRECTORY-COMPONENT) () %%INITIALIZE-DEFAULT-PATHNAME :D8 NIL Dg g`dg dg `(42 CL:PARSE-NAMESTRING 37 FILENAMEFIELD 9 BOUNDP) (65 *DEFAULT-PATHNAME-DEFAULTS* 58 :NEWEST 53 PATHNAME 47 *DEFAULT-PATHNAME-DEFAULTS* 32 HOST 26 \CONNECTED.DIRECTORY 20 \CONNECTED.DIRECTORY 15 {DSK} 4 \CONNECTED.DIRECTORY) () (CL:PROCLAIM (QUOTE (CL:SPECIAL *DEFAULT-PATHNAME-DEFAULTS*))) INTERLISP-NAMESTRING :D8 (L (0 PATHNAME)) @ (10 MKSTRING 5 CL:NAMESTRING) NIL () UNPACKPATHNAME.STRING :D8 (L (3 ATOMFLG 2 DIRFLG 1 ONEFIELDFLG 0 FILE)) RA%@ XgCH dAo bg@ RAdg@ @g@ 1Adg@ g@ Ag@ CH HHHh@ XgCH Hh@ XgCH Hh@ XgCH Hh@ XgCH Hh@ XgCH H h (335 \APPEND2 330 \APPEND2 325 \APPEND2 320 \APPEND2 315 \APPEND2 307 MKSTRING 300 MKATOM 284 CL:PATHNAME-VERSION 273 MKATOM 257 CL:PATHNAME-TYPE 246 MKATOM 230 CL:PATHNAME-NAME 219 MKATOM 203 CL:PATHNAME-DIRECTORY 192 MKATOM 176 CL:PATHNAME-DEVICE 161 MKATOM 150 CL:PATHNAME-VERSION 134 CL:PATHNAME-TYPE 119 CL:PATHNAME-NAME 101 CL:PATHNAME-DIRECTORY 86 CL:PATHNAME-DEVICE 68 CL:PATHNAME-HOST 52 CL:INTERSECTION 34 MKATOM 11 CL:PATHNAME-HOST) (292 VERSION 265 EXTENSION 238 NAME 211 DIRECTORY 184 DEVICE 141 VERSION 126 EXTENSION 110 NAME 93 DIRECTORY 77 DEVICE 60 HOST 23 HOST) ( 47 (HOST DEVICE DIRECTORY NAME EXTENSION VERSION)) CL:FILE-NAMESTRING :D8 (L (0 PATHNAME) P 4 *PRINT-RADIX* P 0 *PRINT-BASE*) l 1@ gIo oIo I [BgJKdgo%gogoK J(154 CL:CONCATENATE 149 CL:CONCATENATE 144 CL:PRINC-TO-STRING 79 CL:CONCATENATE 74 MKSTRING 69 MKSTRING 44 MKSTRING 39 MKSTRING 13 PATHNAME) (133 CL:SIMPLE-STRING 119 :NEWEST 104 :WILD 96 CL:SIMPLE-STRING 86 PATHNAME 55 PATHNAME 25 PATHNAME 19 CL:SIMPLE-STRING) ( 138 ";" 126 ";" 112 ";*" 64 "" 49 "." 34 "") CL:DIRECTORY-NAMESTRING :D8 (L (0 PATHNAME)) @ o (24 MKSTRING 5 PATHNAME) (10 PATHNAME) ( 19 "") (%%INITIALIZE-DEFAULT-PATHNAME) (RPAQQ CMLPATHNAMECOMS ((* ;; "Common Lisp pathname functions") (PROP FILETYPE CMLPATHNAME) (COMS (* ;; "useful macros") (FUNCTIONS %%WILD-NAME %%COMPONENT-STRING)) (STRUCTURES PATHNAME DIRECTORY-COMPONENT) (FNS %%PRINT-PATHNAME CL:MAKE-PATHNAME %%PRINT-DIRECTORY-COMPONENT) (FUNCTIONS 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 CL:TRUENAME) (FUNCTIONS %%MAKE-PATHNAME) (FUNCTIONS %%PATHNAME-EQUAL %%DIRECTORY-COMPONENT-EQUAL) (FUNCTIONS %%INITIALIZE-DEFAULT-PATHNAME) (VARIABLES *DEFAULT-PATHNAME-DEFAULTS*) (COMS (* ;; "Interlisp-D compatibility") (FUNCTIONS INTERLISP-NAMESTRING 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:MERGE-PATHNAMES CL:MAKE-PATHNAME))))) (PUTPROPS CMLPATHNAME COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990)) NIL