(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 2-Nov-93 23:59:23" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLPATHNAME.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "25-Oct-91 16:21:24" {DSK}local>lde>lispcore>sources>CMLPATHNAME.;3 56939 changes to%: (FNS %%PRINT-PATHNAME %%PRINT-LP) previous date%: " 3-Sep-91 15:54:13" {DSK}local>lde>lispcore>sources>CMLPATHNAME.;2) (RPAQQ CMLPATHNAMECOMS ((* ;; "Common Lisp pathname functions") (PROP FILETYPE CMLPATHNAME) (COMS (* ;; "useful macros") (FUNCTIONS %%MAKE-LP %%MERGE-DIRECTORY-LISTS %%WILD-NAME %%COMPONENT-STRING %%UNPACKFILE1)) (STRUCTURES PATHNAME DIRECTORY-COMPONENT CL:LOGICAL-PATHNAME) (DECLARE%: DONTCOPY EVAL@COMPILE (RECORDS PATHNAMECASE)) (FNS %%PARSE-DIRECTORY-PATH %%PRINT-LP %%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 PARSE-NAMESTRING1 CL:TRUENAME) (FUNCTIONS %%MAKE-PATHNAME) ( FUNCTIONS %%PATHNAME-EQUAL %%DIRECTORY-COMPONENT-EQUAL) (FUNCTIONS %%INITIALIZE-DEFAULT-PATHNAME) ( VARIABLES *DEFAULT-PATHNAME-DEFAULTS* CL::*LOGICAL-PATHNAME-TRANSLATION-TABLE* CL::LOGICAL-WORD-BITTABLE \HOSTTOPATHNAMECASE) (COMS (* ;; "Interlisp-D compatibility") (FUNCTIONS INTERLISP-NAMESTRING UNPACKPATHNAME.STRING)) (FUNCTIONS CL:FILE-NAMESTRING CL:DIRECTORY-NAMESTRING) (COMS (* ;; "Backward compatibility with old directory-components (superceded by CLtL2 list-structured components)" ) (FUNCTIONS %%CONVERT-DIRECTORY-COMPONENT)) (COMS (* ;; "Funky pattern matcher for logical pathname support") (FUNCTIONS CL::MATCH&MAP CL::MM1 CL::MATCH-DIRECTORY-LISTS CL::MDL1) (* ;; "Direct logical pathname support") (DEFINE-TYPES CL::LOGICAL-HOSTS) (FUNCTIONS CL::DEF-LOGICAL-HOST CL::UNDEFINE-LOGICAL-HOST) (FUNCTIONS CL:LOGICAL-PATHNAME-TRANSLATIONS CL::UNDOABLY-SETF-LOGICAL-PATHNAME-TRANSLATIONS) (SETFS CL:LOGICAL-PATHNAME-TRANSLATIONS) (PROP :UNDOABLE-SETF-INVERSE CL:LOGICAL-PATHNAME-TRANSLATIONS) ( FUNCTIONS CL::LOGICAL-HOST-P CL::MUNG-PATHNAME-ELT CL:LOGICAL-PATHNAME CL:PATHNAME-MATCH-P CL:TRANSLATE-LOGICAL-PATHNAME CL:TRANSLATE-PATHNAME CL:LOAD-LOGICAL-PATHNAME-TRANSLATIONS CL:WILD-PATHNAME-P) (FUNCTIONS LOOKUP-PATHNAMECASE REGISTER-PATHNAMECASE UNREGISTER-PATHNAMECASE) (FNS UNPACKLOGICALNAME.STRING)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (%%INITIALIZE-DEFAULT-PATHNAME))) (FNS FLIP-MONOCASE FLIP-MONOCASE-STRING) (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 %%PRINT-LP))))) (PUTPROPS CMLPATHNAME FILETYPE CL:COMPILE-FILE) %%MAKE-LP :D8 (L (5 VERSION 4 TYPE 3 NAME 2 DIRECTORY 1 DEVICE 0 HOST)) 0g@gggBgCgDgE (45 %%%%MAKE-LP) (38 :VERSION 32 :TYPE 26 :NAME 20 :DIRECTORY 15 :UNSPECIFIC 10 :DEVICE 4 :HOST) () %%MERGE-DIRECTORY-LISTS :D8 (L (1 DEFAULTS 0 DIRLIST)) /Aoô§Aoô‘@@dgð•¿Aµ@µA@ (44 \APPEND2) (25 :RELATIVE) ( 13 (:ABSOLUTE :WILD) 5 (:ABSOLUTE :WILD-INFERIORS)) 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 (CL:IF (STRING-EQUAL S "") NIL 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)) expand-%%UNPACKFILE1 :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ÁH¹HZ»J\½L^_¿N__¿O__¿O_¿ggOhggOggOgOKMhhiggOKMhohhgIOhhhggIOhgggOgOKMhhiggOKMhohhhhNIL (220 SUBSTRING 215 OR 197 SUBATOM 190 COND 185 RETURN 180 then 168 EQMEMB 163 elseif 143 CONS 115 SUBSTRING 110 OR 92 SUBATOM 85 COND 80 CONS 73 SETQ 68 then 58 NOT 53 if) ( 234 ("") 129 ("")) (SETF-MACRO-FUNCTION (QUOTE %%UNPACKFILE1) (QUOTE expand-%%UNPACKFILE1)) (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-)) eiñHk»ºKJó¢±ÒhY¼i½Hk_¿¾OdNó¢±Õ¿h]_¿i_¿Hk_¿_¿OdOó¢±Ó¿h__¿i_¿Hk_¿_¿OdOó¢±Ð¿h__ ¿i_"¿Hk_&¿_$¿O&dO$ó¢±Í¿h_"_(¿i_*¿Hk_.¿_,¿O.dO,ó¢±Ê¿h_*_0¿l_2¿I•O2L¿M–O2O¿O–O2O¿O–O2O ¿O"–O2O(¿O*•O2O0 O2Kdagð¦lÔ[±ÿkØa±ÿagð—OkØa±ÿ$OlÔ_±ÿagð—OkØa±ÿ'OlÔ_±ÿagð—OkØa±ÿ*OlÔ_±ÿagð—O&kØa±ÿ-O&lÔ_&±ÿagð—O.kØa±ÿ0O.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) () (PUTPROP (QUOTE PATHNAME) (QUOTE CL::STRUCTURE-PRINTER) (QUOTE CL::STRUCTURE-WITH-USER-PRINTER)) (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 Hk»ºKJó²6hY¼i½Hk_¿¾OdNó²9¿h]_¿`_¿I•OL¿M•OOOKdagð¥lÔ[°ºkØa°»agð–OkØa°¿OlÔ_°®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) () (PUTPROP (QUOTE DIRECTORY-COMPONENT) (QUOTE CL::STRUCTURE-PRINTER) (QUOTE CL::STRUCTURE-WITH-USER-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE CL:LOGICAL-PATHNAME) T (QUOTE (CL::PS CL:LOGICAL-PATHNAME %%%%MAKE-LP (HOST DEVICE DIRECTORY NAME TYPE VERSION) CL::DATATYPE NIL PATHNAME "LOGICAL-PATHNAME-" ( %%%%MAKE-LP) CL::LOGICAL-PATHNAME-P %%PRINT-LP COPY-LOGICAL-PATHNAME NIL 0 NIL ((HOST NIL T NIL (CL:LOGICAL-PATHNAME 0 POINTER) LOGICAL-PATHNAME-HOST) (DEVICE NIL T NIL (CL:LOGICAL-PATHNAME 2 POINTER) LOGICAL-PATHNAME-DEVICE) (DIRECTORY NIL T NIL (CL:LOGICAL-PATHNAME 4 POINTER) LOGICAL-PATHNAME-DIRECTORY) (NAME NIL T NIL (CL:LOGICAL-PATHNAME 6 POINTER) LOGICAL-PATHNAME-NAME) (TYPE NIL T NIL (CL:LOGICAL-PATHNAME 8 POINTER) LOGICAL-PATHNAME-TYPE) (VERSION NIL T NIL ( CL:LOGICAL-PATHNAME 10 POINTER) LOGICAL-PATHNAME-VERSION)) NIL NIL (POINTER POINTER POINTER POINTER POINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%%STRUCTURE-DECLARE-DATATYPE (QUOTE CL:LOGICAL-PATHNAME) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((CL:LOGICAL-PATHNAME 0 POINTER) (CL:LOGICAL-PATHNAME 2 POINTER) ( CL:LOGICAL-PATHNAME 4 POINTER) (CL:LOGICAL-PATHNAME 6 POINTER) (CL:LOGICAL-PATHNAME 8 POINTER) ( CL:LOGICAL-PATHNAME 10 POINTER))) 12 (QUOTE PATHNAME)) (PUTPROP (QUOTE CL:LOGICAL-PATHNAME) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) CL::LOGICAL-PATHNAME-P :D8 (L (0 CL::OBJECT)) @ÃNIL (5 CL:LOGICAL-PATHNAME) () (CL::ESTABLISH-PREDICATE (QUOTE CL:LOGICAL-PATHNAME)) LOGICAL-PATHNAME-HOST :D8 (L (0 CL:LOGICAL-PATHNAME)) @ÉNIL (5 CL:LOGICAL-PATHNAME) () LOGICAL-PATHNAME-DEVICE :D8 (L (0 CL:LOGICAL-PATHNAME)) @ÉNIL (5 CL:LOGICAL-PATHNAME) () LOGICAL-PATHNAME-DIRECTORY :D8 (L (0 CL:LOGICAL-PATHNAME)) @ÉNIL (5 CL:LOGICAL-PATHNAME) () LOGICAL-PATHNAME-NAME :D8 (L (0 CL:LOGICAL-PATHNAME)) @ÉNIL (5 CL:LOGICAL-PATHNAME) () LOGICAL-PATHNAME-TYPE :D8 (L (0 CL:LOGICAL-PATHNAME)) @ÉNIL (5 CL:LOGICAL-PATHNAME) () LOGICAL-PATHNAME-VERSION :D8 (L (0 CL:LOGICAL-PATHNAME)) @É NIL (5 CL:LOGICAL-PATHNAME) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE CL:LOGICAL-PATHNAME)) %%%%MAKE-LP :D8 (L (0 -args-)) ‚eiñHk»ºKJó¢±ÕhY¼i½Hk_¿¾OdNó¢±Ø¿h]_¿i_¿Hk_¿_¿OdOó¢±Ö¿h__¿i_¿Hk_¿_¿OdOó¢±Ó¿h__ ¿i_"¿Hk_&¿_$¿O&dO$ó¢±Ð¿h_"_(¿i_*¿Hk_.¿_,¿O.dO,ó¢±Í¿h_*_0¿`_2¿I•O2L¿M–O2O¿O–O2O¿O–O2O ¿O"–O2O(¿O*•O2O0 O2Kdagð¦lÔ[±ÿkØa±ÿagð—OkØa±ÿ!OlÔ_±ÿ agð—OkØa±ÿ$OlÔ_±ÿagð—OkØa±ÿ'OlÔ_±ÿagð—O&kØa±ÿ*O&lÔ_&±ÿagð—O.kØa±ÿ-O.lÔ_.±ÿNIL (364 :VERSION 338 :TYPE 312 :NAME 286 :DIRECTORY 260 :DEVICE 239 :HOST 168 CL::|LOGICAL-PATHNAMETYPE#|) () COPY-LOGICAL-PATHNAME :D8 (L (0 CL:LOGICAL-PATHNAME)) U@HÃ²2`H@ÉH@ÉH@ÉH@ÉH@ÉH@É HigHgh b°®(78 CHECK-TYPE-FAIL) (71 CL:LOGICAL-PATHNAME 65 CL:LOGICAL-PATHNAME 17 CL::|LOGICAL-PATHNAMETYPE#| 9 CL:LOGICAL-PATHNAME) () (PUTPROP (QUOTE CL:LOGICAL-PATHNAME) (QUOTE CL::STRUCTURE-PRINTER) (QUOTE CL::STRUCTURE-WITH-USER-PRINTER)) %%PARSE-DIRECTORY-PATHA0001 :D8 (L (0 P)) 9@do •gdo •go •g@(46 CL::SIMPLE-STRING= 29 CL::SIMPLE-STRING= 11 CL::SIMPLE-STRING=) (52 :BACK 35 :WILD-INFERIORS 17 :WILD) ( 41 ".." 24 "**" 6 "*") %%PARSE-DIRECTORY-PATH :D8 (P 4 #:G544 P 3 PIECE P 2 POINT P 1 TAIL P 0 REM I 0 PS) [@ ²R@k 1goH Z³H–HkLI¹I HkJkÕ[kLI¹HJkÔhH¸°Ä@(84 SUBSTRING 66 SUBSTRING 55 CL:NREVERSE 36 STRPOSL 14 SUBSTRING 5 STRINGP) (22 %%PARSE-DIRECTORY-PATHA0001) ( 30 (MAKEBITTABLE (QUOTE (/ > ;)))) %%PRINT-LP :D8 (L (2 D 1 STREAM 0 S) F 0 CL:*PRINT-READABLY* F 1 CL:*READ-EVAL*) #PQ«@o ¿Ao@ (32 CL:FORMAT 27 CL:NAMESTRING 14 CL::CHECK-READABLY) NIL ( 21 "#.(LOGICAL-PATHNAME ~S)" 9 "its print-method when *READ-EVAL* is NIL") %%PRINT-PATHNAME :D8 (L (2 D 1 STREAM 0 S) F 0 *PRINT-ESCAPE*) AoP@ (17 CL:FORMAT 12 CL:NAMESTRING) NIL ( 5 "~:[~;#P~]~S") CL::MAKE-PATHNAMEA0001 :D8 (L (0 CL::DS) F 2 DEFAULTS) M@ @d kÕ¶Yo:¨Io:²"R²gHRÉ gHgH(58 %%MERGE-DIRECTORY-LISTS 15 CL:LENGTH 5 %%PARSE-DIRECTORY-PATH) (72 :ABSOLUTE 64 :RELATIVE 51 PATHNAME 43 :RELATIVE) ( 32 #\/ 24 #\>) CL::MAKE-PATHNAMEA0002 :D8 (L (0 X) F 0 COMMON-TO-LOCAL) @d ”¿@kP(6 CL:STRINGP) NIL () CL:MAKE-PATHNAME :D8 (L (0 -args-) P 38 COMMON-TO-LOCAL P 3 DEFAULTS F 43 *CLTL2-PEDANTIC*) M+eHkJIó¢±Íhñð!@%i¼Hk¾½NdMó¢±Ë¿h\_¿i_¿Hk_¿_¿OdOó¢±Æ¿h__¿i_¿Hk_¿_¿OdOó¢±Ã¿h__¿i_ ¿Hk_$¿_"¿O$dO"ó¢±À¿h_ _&¿i_(¿Hk_,¿_*¿O,dO*ó¢±½¿h_(_.¿i_0¿Hk_4¿_2¿O4dO2ó¢±º¿h_0_6¿Hk_:¿_8¿O:dO8ó¢±»¿g_<¿Hk_@¿_>¿O@dO>ó¢±º¿h_B¿Kµ‚±…L³O®`É_¿OO@lÔ_@±þ*dkg_P¿ORµ OPh_T‚OP&_R¿µàOT_¿O ²O& ˜O&kOL_&¿O(²O. ˜O.kOL_.¿OBªWVO •g„g_D¿Od œ¿Og Od œ¿Og Od¢±»dd3@ð²9¿Odgð—¿o°$gð“O°WVœoO †O __J_F˜OFÃ²K²iOKÉ °ZOJdÃ™¿O °G ²>O jó´5Od kÕ¶_Ho:¨OHo:•g„gO OO&d œ¿O&g O.d œ¿O.g O6lOD(1091 COERCE 1077 STRINGP 1069 COERCE 1055 STRINGP 1043 %%PARSE-DIRECTORY-PATH 1004 CL:LENGTH 992 CL:LENGTH 983 CL:STRINGP 976 %%CONVERT-DIRECTORY-COMPONENT 957 %%MERGE-DIRECTORY-LISTS 923 STRING 915 ERROR 856 COERCE 842 STRINGP 834 COERCE 820 STRINGP 797 CL::LOGICAL-HOST-P 773 CL:STRINGP 752 CL:STRINGP 383 PATHNAME 350 CL:STRINGP 326 CL:STRINGP 305 CL:STRINGP 288 LOOKUP-PATHNAMECASE) (1086 CL:SIMPLE-STRING 1064 CL:SIMPLE-STRING 1036 :ABSOLUTE 1030 :RELATIVE 967 DIRECTORY-COMPONENT 950 PATHNAME 937 LISTP 894 :UNSPECIFIC 879 :WILD 851 CL:SIMPLE-STRING 829 CL:SIMPLE-STRING 809 %%MAKE-PATHNAME 803 %%MAKE-LP 709 CL::MAKE-PATHNAMEA0002 681 :LOGICAL 655 :CASE 629 :VERSION 603 :TYPE 577 :NAME 551 :DIRECTORY 525 :DEVICE 502 :HOST 481 :DEFAULTS 465 PATHNAME 448 PATHNAME 434 PATHNAME 420 PATHNAME 406 PATHNAME 392 PATHNAME 360 CL::MAKE-PATHNAMEA0001 276 :COMMON 264 PATHNAME 259 *DEFAULT-PATHNAME-DEFAULTS* 215 :LOCAL) ( 1023 #\> 1014 #\/ 908 "Symbol as :DIRECTORY component" 887 (:ABSOLUTE :WILD-INFERIORS)) %%PRINT-DIRECTORY-COMPONENT :D8 (L (2 D 1 STREAM 0 S) F 2 \FILENAME.SYNTAX) h@ÉAo@ÉYgð¨Igð²gHo°'HgðœgRo‡gRHR(101 CL:FORMAT 96 CL:CONCATENATE 57 CL:CONCATENATE) (85 STRING 72 STRING 65 :WILD 46 STRING 38 :RELATIVE 30 :SUBDIRECTORY 22 DIRECTORY-COMPONENT 5 DIRECTORY-COMPONENT) ( 79 "*" 52 ">" 16 "~A") CL:PATHNAME-HOST :D8 (L (0 -args-)) rekaQHl»ºKJó²Bh¼I ½Lgð²EMdÉ ²6¿MÉ ¾MÉkNKdagð¥lÔ[°®kØa°®MÉ(66 LOOKUP-PATHNAMECASE 50 CL:STRINGP 26 PATHNAME) (109 PATHNAME 90 :CASE 76 PATHNAME 59 PATHNAME 43 PATHNAME 33 :COMMON) () CL:PATHNAME-DEVICE :D8 (L (0 -args-)) rekaQHl»ºKJó²Bh¼I ½Lgð²EMdÉ ²6¿MÉ ¾MÉkNKdagð¥lÔ[°®kØa°®MÉ(66 LOOKUP-PATHNAMECASE 50 CL:STRINGP 26 PATHNAME) (109 PATHNAME 90 :CASE 76 PATHNAME 59 PATHNAME 43 PATHNAME 33 :COMMON) () CL:PATHNAME-DIRECTORY :D8 (L (0 -args-)) Ÿ eka±Hl»ºKJó²Fh¼I ]É¾Lgð²qNd²m¿MÉ _¿N_¿h__¿OµOKdagð¥lÔ[°ªkØa°ª_d –¿OkO_¿O˜OO&_¿ˆOh__¿O_°¸N(116 CL:STRINGP 63 LOOKUP-PATHNAMECASE 26 PATHNAME) (94 :CASE 56 PATHNAME 41 :COMMON 32 PATHNAME) () CL:PATHNAME-NAME :D8 (L (0 -args-)) rekaQHl»ºKJó²Bh¼I ½Lgð²EMdÉ ²6¿MÉ ¾MÉkNKdagð¥lÔ[°®kØa°®MÉ(66 LOOKUP-PATHNAMECASE 50 CL:STRINGP 26 PATHNAME) (109 PATHNAME 90 :CASE 76 PATHNAME 59 PATHNAME 43 PATHNAME 33 :COMMON) () CL:PATHNAME-TYPE :D8 (L (0 -args-)) rekaQHl»ºKJó²Bh¼I ½Lgð²EMdÉ ²6¿MÉ ¾MÉkNKdagð¥lÔ[°®kØa°®MÉ(66 LOOKUP-PATHNAMECASE 50 CL:STRINGP 26 PATHNAME) (109 PATHNAME 90 :CASE 76 PATHNAME 59 PATHNAME 43 PATHNAME 33 :COMMON) () 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-)) ïeka¡lHñ•`‚laºh»lHñ•g„i»la¼I ½J ¾MÉµ NÉ_¿MÉ_¿MÉ_¿MÉ_¿NÉ_¿OOµ NÉO²OOdšO µOµOOµ NÉMÉµ NÉMÉ µO•K²L°NÉ µK‘L„g (236 %%MAKE-PATHNAME 154 %%MERGE-DIRECTORY-LISTS 55 PATHNAME 48 PATHNAME) (230 :NEWEST 217 PATHNAME 198 PATHNAME 190 PATHNAME 180 PATHNAME 172 PATHNAME 133 PATHNAME 116 PATHNAME 105 PATHNAME 94 PATHNAME 83 PATHNAME 72 PATHNAME 62 PATHNAME 35 :NEWEST 18 *DEFAULT-PATHNAME-DEFAULTS*) () 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-NAMESTRINGA0001 :D8 (L (0 CL::X)) @dgðhNIL (6 :UNSPECIFIC) () CL::ENOUGH-NAMESTRINGA0002 :D8 (L (0 CL::X) F 0 CL::DIR-TAIL) @ Ph(5 CL::MUNG-PATHNAME-ELT) NIL () CL:ENOUGH-NAMESTRING :D8 (L (0 -args-) P 17 CL::DIR-TAIL P 16 *PRINT-BASE* F 18 \FILENAME.SYNTAX) ekaálHñ•`‚laºl I »J ¼KÉkg½KÉkg¾KÉkg_¿KÉkg_¿KÉkg_¿KÉ kg_¿o_¿o_¿o_¿W$_¿W$_"¿W$_¿KÃ²>LÃ¬oKL¿o_¿o_¿o_¿o_"¿o_¿Mµ‚±\Nµ‚±Oµ‚±ÒOµ‚±OµHOµO LÉ kg ²ägOOdgð¢±ƒ¿gOo±’LÉkgµo ²šgOoO _¿±ÿ}LÉkgµo ¢±ÿUgOO _¿±ÿð²¿OHðšO§g_¿mþ‚¿mÿ_¿@OOµoOM]HkÙM @H dl/ðž¿l/@HkØY°dl<ð¤dl>ð¿l>@HkØY¿h²&@HkØIkÙµogM½IkØ¸i_¿@HY ^µ‚±½HkÙM @HIkÙµoK³Nl.ð¥g¼g[°]LµNl.ð¥g€i¼g°Fgð´ @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¢±ÿ@HOkÙµogM½OkØ¸h_¿N’±þëHIð¢±þäHkÙM (770 DREVERSE 724 SUBSTRING 700 NTHCHAR 689 STRPOS 648 NTHCHARCODE 551 NTHCHARCODE 484 SUBSTRING 472 DREVERSE 456 NTHCHARCODE 424 SUBSTRING 406 LASTCHPOS 381 LASTCHPOS 364 NTHCHARCODE 355 DREVERSE 332 SUBSTRING 285 NTHCHARCODE 255 DREVERSE 244 NTHCHARCODE 196 SUBSTRING 181 LASTCHPOS 162 DREVERSE 130 SUBSTRING 113 \UPF.NEXTPOS 80 NTHCHARCODE 72 \ILLEGAL.ARG 27 CL:STRINGP) (736 SUBDIRECTORY 604 VERSION 597 TEMPORARY 579 ACCOUNT 562 PROTECTION 541 ; 534 TYPE 526 ; 510 NAME 504 ; 436 DIRECTORY 310 SUBDIRECTORY 237 DIRECTORY 227 RETURN 208 DEVICE 142 HOST 58 NAME 42 STREAM) ( 731 "" 680 "." 491 "" 431 "" 339 "" 203 "" 137 "") CL:TRUENAME :D8 (L (0 PATHNAME)) S@ ².@d Ÿ¿@ b°ãÉ«o@ ¿@ Hµo@ H(79 CL:ERROR 74 CL:NAMESTRING 57 CL:PROBE-FILE 50 CL:ERROR 27 CL:SYMBOL-VALUE 22 CL: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)) .@ÉAÉ ´‚±@É µgAH¹@ÉAÉlI´‚±ßHº@ÉAÉlJ´‚±ÃH»@ÉAÉlK´‚±§@É AÉ ô³R@É @É d3@ð´wAÉ AÉ d3@ð´[H¼@É AÉ lL´C@dÉ²'¿AÉ²H@ÉAÉµ@ÉAÉô(280 CL:EVERY 195 STRINGP 167 STRINGP 39 LOOKUP-PATHNAMECASE 20 CL::SIMPLE-STRING-EQUAL) (296 PATHNAME 288 PATHNAME 273 PATHNAME 265 PATHNAME 253 PATHNAME 241 PATHNAME 226 PATHNAME 218 PATHNAME 202 PATHNAME 188 PATHNAME 174 PATHNAME 160 PATHNAME 149 PATHNAME 141 PATHNAME 123 PATHNAME 115 PATHNAME 95 PATHNAME 87 PATHNAME 67 PATHNAME 59 PATHNAME 48 EQUAL 32 PATHNAME 13 PATHNAME 5 PATHNAME) () %%DIRECTORY-COMPONENT-EQUAL :D8 (L (1 COMPONENT2 0 COMPONENT1)) <@dÃ²1¿AÃ²'@ÉAÉÌ´@ÉAÉÌ@AÌNIL (50 DIRECTORY-COMPONENT 42 DIRECTORY-COMPONENT 31 DIRECTORY-COMPONENT 23 DIRECTORY-COMPONENT 15 DIRECTORY-COMPONENT 6 DIRECTORY-COMPONENT) () %%INITIALIZE-DEFAULT-PATHNAME :D8 NIL Wg ªg¿g`dg g g g (84 GETTOPVAL 62 GETTOPVAL 52 SETTOPVAL 47 CL:PARSE-NAMESTRING 42 FILENAMEFIELD 9 BOUNDP) (79 *DEFAULT-PATHNAME-DEFAULTS* 72 :NEWEST 67 PATHNAME 57 *DEFAULT-PATHNAME-DEFAULTS* 37 HOST 31 \CONNECTED.DIRECTORY 26 *DEFAULT-PATHNAME-DEFAULTS* 20 \CONNECTED.DIRECTORY 15 {DSK} 4 \CONNECTED.DIRECTORY) () (CL:PROCLAIM (QUOTE (CL:SPECIAL *DEFAULT-PATHNAME-DEFAULTS*))) (CL:PROCLAIM (QUOTE (CL:SPECIAL CL::*LOGICAL-PATHNAME-TRANSLATION-TABLE*))) (OR (BOUNDP (QUOTE CL::*LOGICAL-PATHNAME-TRANSLATION-TABLE*)) (CL:SETQ CL::*LOGICAL-PATHNAME-TRANSLATION-TABLE* (CL:MAKE-HASH-TABLE :TEST (CL:FUNCTION CL:EQUAL)))) (XCL::SET-CONSTANTP (QUOTE CL::LOGICAL-WORD-BITTABLE) NIL) (SETQ CL::LOGICAL-WORD-BITTABLE (MAKEBITTABLE (MAPCAR (QUOTE (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0 1 2 3 4 5 6 7 8 9 - *)) (CL:FUNCTION CHARCODE)) T)) (CL:PROCLAIM (QUOTE (SI::CONSTANT CL::LOGICAL-WORD-BITTABLE))) (CL:PROCLAIM (QUOTE (CL:SPECIAL \HOSTTOPATHNAMECASE))) (OR (BOUNDP (QUOTE \HOSTTOPATHNAMECASE)) (CL:SETQ \HOSTTOPATHNAMECASE (LIST (CONS (QUOTE DSK) (CONS ( QUOTE STRING-EQUAL) (CONS (QUOTE FLIP-MONOCASE) (CONS (QUOTE FLIP-MONOCASE) NIL)))) (CONS (QUOTE CORE) (CONS (QUOTE STRING-EQUAL) (CONS (QUOTE FLIP-MONOCASE) (CONS (QUOTE FLIP-MONOCASE) NIL)))) ( CONS (QUOTE UNIX) (CONS (QUOTE CL:STRING=) (CONS (QUOTE FLIP-MONOCASE) (CONS (QUOTE FLIP-MONOCASE) NIL)))) (CONS (QUOTE FLOPPY) (CONS (QUOTE STRING-EQUAL) (CONS (QUOTE FLIP-MONOCASE) (CONS (QUOTE FLIP-MONOCASE) NIL))))))) 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µ%@ X´‚±›gC¢±‹H ±ƒdž¿Ao bgð—@ °RAdgð˜¿@ °@gð—@ °1Adgð˜¿@ °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 (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 7 *PRINT-RADIX* P 0 *PRINT-BASE* F 8 \FILENAME.SYNTAX) ¼l a@ YÉ ºIÉ »gJµo oKµo ¼IÉ ½IÃ¾MµLgð³øgLN•o„WMdgð—¿o°gð˜N´o…M (185 CL:CONCATENATE 180 CL:PRINC-TO-STRING 92 CL:CONCATENATE 87 MKSTRING 82 MKSTRING 64 MKSTRING 59 MKSTRING 40 CL::MUNG-PATHNAME-ELT 26 CL::MUNG-PATHNAME-ELT 13 PATHNAME) (163 :NEWEST 148 :WILD 127 CL:SIMPLE-STRING 119 :UNSPECIFIC 108 CL:LOGICAL-PATHNAME 99 PATHNAME 46 CL:SIMPLE-STRING 33 PATHNAME 19 PATHNAME) ( 173 "NEWEST" 156 "*" 135 "." 77 "" 69 "." 54 "") CL::DIRECTORY-NAMESTRINGA0001 :D8 (L (0 CL::L) F 0 CL::SEPERATOR) &@§@ g@ P@ (35 CL:CONCATENATE 30 CL::DIRECTORY-NAMESTRINGA0001 22 CL::MUNG-PATHNAME-ELT 9 CL::MUNG-PATHNAME-ELT) (15 STRING) () CL:DIRECTORY-NAMESTRING :D8 (L (0 PATHNAME) P 1 CL::SEPERATOR F 2 \FILENAME.SYNTAX) J@ Hgð¡H¥o@Ã•o‚RgH Hgð´I(71 CL:CONCATENATE 55 CL::DIRECTORY-NAMESTRINGA0001 5 CL:PATHNAME-DIRECTORY) (62 :RELATIVE 48 STRING 30 CL:LOGICAL-PATHNAME 14 :UNSPECIFIC) ( 36 ";" 23 "") %%CONVERT-DIRECTORY-COMPONENT :D8 (L (0 DC)) x@Édgð²(¿@É H—gHgHhgð²'@É H—gHgHho@É (117 ERROR 75 %%PARSE-DIRECTORY-PATH 30 %%PARSE-DIRECTORY-PATH) (110 DIRECTORY-COMPONENT 94 :ABSOLUTE 86 :ABSOLUTE 68 DIRECTORY-COMPONENT 59 :DIRECTORY 49 :RELATIVE 41 :RELATIVE 23 DIRECTORY-COMPONENT 13 :RELATIVE 5 DIRECTORY-COMPONENT) ( 104 "Funky directory-component type") CL::MATCH&MAP :D8 (L (1 CL::STR 0 CL::PAT) P 0 CL::*MAP*) @jAj´H(11 CL::MM1) NIL () CL::MM1 :D8 (L (3 CL::SP 2 CL::STR 1 CL::PP 0 CL::PAT) F 3 CL::*MAP*) ›A@ ýó¬CB ýóhðµeA@ ýó´ CB ýó¡h@dA¶o:²C¿CAkÔI@ ðžiºB ¸°HkÔ¸HB ýó›@IBHZ²èJ´ CHScA¶BC¶:´ù@AkÔBCkÔb¿b¿b¿b¿±ÿi(108 CL::MM1 96 CL:LENGTH 82 CL:LENGTH 72 CL:LENGTH 40 CL:LENGTH 29 CL:LENGTH 16 CL:LENGTH 6 CL:LENGTH) NIL ( 54 #\*) CL::MATCH-DIRECTORY-LISTS :D8 (L (1 CL::W 0 CL::P) P 0 CL::*MAP*) :AoÌ¨AoÌ²@Aðžik@ h$@jA´iH$(48 CL::MDL1 30 CL:LENGTH) NIL ( 13 (:RELATIVE :WILD-INFERIORS) 5 (:ABSOLUTE :WILD-INFERIORS)) CL::MDL1 :D8 (L (2 CL::W 1 CL::PL 0 CL::P) F 2 CL::*MAP*) Ò@¯Bhðµ‚±È@´‚±ÁBd¢±»gð²@AkÔB´‚± AdkÔRc@BÌ²@AkÔBb¿b¿b°®Bgð²=AB³Ad@ ÔRcAkÔb¿@b¿@›@ABY²éI´@HARc@ ´/B ´&B@ H´@AkÔB´ AHRc(198 CL::MDL1 180 CL::MATCH&MAP 169 CL:STRINGP 160 CL:STRINGP 139 CL::MDL1 110 CL:LENGTH 44 CL::MDL1) (91 :WILD-INFERIORS 29 :WILD) () (SET-DOCUMENTATION (QUOTE CL::LOGICAL-HOSTS) (QUOTE DEFINE-TYPES) (QUOTE "Logical hosts")) (SETQ PRETTYDEFMACROS (CL:ADJOIN (QUOTE (CL::LOGICAL-HOSTS XCL::X (P * ( XCL::%%DEFINE-TYPE-FILE-DEFINITIONS (QUOTE CL::LOGICAL-HOSTS) (QUOTE XCL::X))))) PRETTYDEFMACROS :TEST (QUOTE CL:EQUAL))) (SETQ PRETTYTYPELST (CL:ADJOIN (QUOTE (CL::CHANGEDLOGICAL-HOSTSLST CL::LOGICAL-HOSTS "Logical hosts")) PRETTYTYPELST :TEST (QUOTE CL:EQUAL))) (CL:PROCLAIM (QUOTE (GLOBAL CL::CHANGEDLOGICAL-HOSTSLST))) (OR (BOUNDP (QUOTE CL::CHANGEDLOGICAL-HOSTSLST)) (CL:SETQ CL::CHANGEDLOGICAL-HOSTSLST NIL)) (COND ((NOT (CL:GETHASH (QUOTE CL::LOGICAL-HOSTS) *DEFINITION-HASH-TABLE*)) (CL::PUTHASH (QUOTE CL::LOGICAL-HOSTS) *DEFINITION-HASH-TABLE* (CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50)))) (SETQ FILEPKGTYPES (CL:ADJOIN (QUOTE CL::LOGICAL-HOSTS) FILEPKGTYPES)) (PUTPROP (QUOTE CL::LOGICAL-HOSTS) (QUOTE GETDEF) (QUOTE XCL::%%DEFINE-TYPE-GETDEF)) (PUTPROP (QUOTE CL::LOGICAL-HOSTS) (QUOTE DELDEF) (QUOTE XCL::%%DEFINE-TYPE-DELDEF)) (PUTPROP (QUOTE CL::LOGICAL-HOSTS) (QUOTE PUTDEF) (QUOTE XCL::%%DEFINE-TYPE-PUTDEF)) (PUTPROP (QUOTE CL::LOGICAL-HOSTS) (QUOTE FILEGETDEF) (QUOTE XCL::%%DEFINE-TYPE-FILEGETDEF)) (PUTPROP (QUOTE CL::LOGICAL-HOSTS) (QUOTE FILEPKGCONTENTS) (QUOTE NILL)) (PUTPROP (QUOTE CL::LOGICAL-HOSTS) (QUOTE :UNDEFINERS) (CL:ADJOIN (QUOTE CL::UNDEFINE-LOGICAL-HOST) ( GET (QUOTE CL::LOGICAL-HOSTS) (QUOTE :UNDEFINERS)))) (PUTPROP (QUOTE CL::DEF-LOGICAL-HOST) (QUOTE :DEFINER-FOR) (QUOTE CL::LOGICAL-HOSTS)) (PUTPROP (QUOTE CL::LOGICAL-HOSTS) (QUOTE :DEFINED-BY) (CL:ADJOIN (QUOTE CL::DEF-LOGICAL-HOST) (GET ( QUOTE CL::LOGICAL-HOSTS) (QUOTE :DEFINED-BY)))) CL::definition-expander-DEF-LOGICAL-HOST :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) (@!H¹HºggIhgJhhNIL (29 QUOTE 20 CL:LOGICAL-PATHNAME-TRANSLATIONS 15 CL:SETF) () (PUTPROP (QUOTE CL::DEF-LOGICAL-HOST) (QUOTE :DEFINITION-EXPANDER) (QUOTE CL::definition-expander-DEF-LOGICAL-HOST)) (PUTPROP (QUOTE CL::DEF-LOGICAL-HOST) (QUOTE :DEFINITION-NAME) (QUOTE CL:SECOND)) (SETQ PRETTYPRINTMACROS (CL:ADJOIN (QUOTE (CL::DEF-LOGICAL-HOST . XCL::PPRINT-DEFINER)) PRETTYPRINTMACROS :TEST (QUOTE CL:EQUAL))) CL::expand-DEF-LOGICAL-HOST :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @A¹gggHIhNIL (20 CL::DEF-LOGICAL-HOST 15 CL::LOGICAL-HOSTS 10 XCL:DEFINER) () (SETF-MACRO-FUNCTION (QUOTE CL::DEF-LOGICAL-HOST) (QUOTE CL::expand-DEF-LOGICAL-HOST)) CL:LOGICAL-PATHNAME-TRANSLATIONS :D8 (L (0 CL::HOST) F 0 CL::*LOGICAL-PATHNAME-TRANSLATION-TABLE*) "@ @ P µ o@ (31 CL:ERROR 18 GETHASH 12 U-CASE 5 CL:STRINGP) NIL ( 25 "Not a logical host:~s") CL::UNDOABLY-SETF-LOGICAL-PATHNAME-TRANSLATIONSA0001 :D8 (L (2 A3577 1 A3579 0 A3578)) "g@A@A h @AB(31 CL::PUTHASH 23 UNDOSAVE 13 CL:GETHASH) (4 CL::UNDOABLY-SETF-LOGICAL-PATHNAME-TRANSLATIONSA0001) () CL::UNDOABLY-SETF-LOGICAL-PATHNAME-TRANSLATIONS :D8 (L (1 CL::TRANSLATIONS 0 CL::HOST) F 3 CL::*LOGICAL-PATHNAME-TRANSLATION-TABLE*) @ !S¹AºHIJ(20 CL::UNDOABLY-SETF-LOGICAL-PATHNAME-TRANSLATIONSA0001 5 U-CASE) NIL () CL::LOGICAL-PATHNAME-TRANSLATIONS-setf-expander :D8 (L (1 CL::LOGICAL-PATHNAME-TRANSLATIONS-setf-env 0 CL::ACCESS-FORM)) ^@1H³@K1@H¹ºH@JhI»gggKhoJhI$¹K”JI&º„IhZ»HX°«(74 GENSYM 22 GENSYM) (48 U-CASE 43 CL:GETHASH 38 CL:SETF) ( 57 (CL::*LOGICAL-PATHNAME-TRANSLATION-TABLE*)) (CL::SET-SETF-METHOD-EXPANDER (QUOTE CL:LOGICAL-PATHNAME-TRANSLATIONS) (QUOTE CL::LOGICAL-PATHNAME-TRANSLATIONS-setf-expander)) (PUTPROPS CL:LOGICAL-PATHNAME-TRANSLATIONS :UNDOABLE-SETF-INVERSE CL::UNDOABLY-SETF-LOGICAL-PATHNAME-TRANSLATIONS) CL::LOGICAL-HOST-P :D8 (L (0 CL::HOST) F 0 CL::*LOGICAL-PATHNAME-TRANSLATION-TABLE*) @ P ´i(11 GETHASH 5 U-CASE) NIL () CL::MUNG-PATHNAME-ELT :D8 (L (0 CL::X)) 6@dgð•odgð•ogð•o@dgðhNIL (48 :UNSPECIFIC 33 :BACK 20 :WILD-INFERIORS 6 :WILD) ( 40 ".." 27 "**" 13 "*") CL::LOGICAL-PATHNAMEA0001 :D8 (L (0 CL::S)) @ Ã(5 PATHNAME) (10 CL:LOGICAL-PATHNAME) () CL:LOGICAL-PATHNAME :D8 (L (0 PATHNAME) F 4 *CLTL2-PEDANTIC*) w@1HYdÃ‘@ZÃJ –@ I[Ã§K ´1@dd3@ð´¿T¢@µ@g ¿@ hdgi gHoh (116 CHECK-TYPE-FAIL 97 CL:PARSE-NAMESTRING 83 CL:SYMBOL-NAME 76 XCL::SYMBOL-AS-PATHNAME 49 CL:STRINGP 34 PATHNAME 27 CL::LOGICAL-PATHNAME-STREAM-P) (103 PATHNAME 90 :LOGICAL 71 CL:LOGICAL-PATHNAME 42 LITATOM 20 STREAM 11 CL:LOGICAL-PATHNAME) ( 109 (OR CL:LOGICAL-PATHNAME (AND STREAM (SATISFIES CL::LOGICAL-PATHNAME-STREAM-P)) (OR CL:SYMBOL STRING))) CL::PATHNAME-MATCH-PA0001 :D8 (L (1 CL::W 0 CL::P) F 0 CL::UPCASE?) [AhðµVAgðµMAdgð˜¿@gð@Ìµ7A ´/@ ´'P²@A µP–A €AP–@ €@ (88 CL::MATCH&MAP 81 U-CASE-STRINGS 71 U-CASE-STRINGS 61 CL::SIMPLE-STRING-EQUAL 49 CL:STRINGP 41 CL:STRINGP) (29 :UNSPECIFIC 20 :UNSPECIFIC 10 :WILD) () CL:PATHNAME-MATCH-P :D8 (L (1 CL::WILDNAME 0 PATHNAME) P 0 CL::UPCASE?) E@ bA bi!@ÉAÉlg´‚±@ gðX@ÉAÉlg´‚±Ñ@ÉAÉlg´‚±ª@ÉAÉlg´‚±ƒ@É AÉ glg´Z@ÉAÉº¹JhðµBJgð˜Igðµ1I“I´#J“J´H–I €IH–J €J d§g$g$g$g$g$g$(267 CL::MATCH-DIRECTORY-LISTS 260 U-CASE-STRINGS 250 U-CASE-STRINGS 60 LOOKUP-PATHNAMECASE 55 CL:PATHNAME-HOST 13 PATHNAME 5 PATHNAME) (319 :HOST 310 :DEVICE 301 :NAME 292 :TYPE 283 :VERSION 274 :DIRECTORY 227 :UNSPECIFIC 219 :UNSPECIFIC 204 PATHNAME 196 PATHNAME 187 CL::PATHNAME-MATCH-PA0001 180 :VERSION 173 PATHNAME 165 PATHNAME 152 CL::PATHNAME-MATCH-PA0001 143 PATHNAME 135 PATHNAME 122 CL::PATHNAME-MATCH-PA0001 113 PATHNAME 105 PATHNAME 92 CL::PATHNAME-MATCH-PA0001 83 PATHNAME 75 PATHNAME 67 STRING-EQUAL 42 CL::PATHNAME-MATCH-PA0001 33 PATHNAME 25 PATHNAME) () CL:TRANSLATE-LOGICAL-PATHNAME :D8 (L (0 PATHNAME) F 4 *CLTL2-PEDANTIC*) û@1HdÃ’± dÃ›¿@ b±YÃ§I ´k@dd3@ð²¿T¢@µ@g ¿@ b¿o@ [´@KdoÌ´@kKkÕZ —@J …@ b°gHoh @dÃ¡@ !Hµo@ °Ù¹@I Z @JIb°àHX°Í(240 CL:TRANSLATE-PATHNAME 229 CL:PATHNAME-MATCH-P 223 CL:LOGICAL-PATHNAME 210 CL:ERROR 192 CL:LOGICAL-PATHNAME-TRANSLATIONS 187 CL:PATHNAME-HOST 171 CHECK-TYPE-FAIL 149 PATHNAME 142 CL:PARSE-NAMESTRING 134 CL::LOGICAL-HOST-P 128 SUBSTRING 110 SUBSTRING 99 STRPOSL 85 U-CASE 80 CL:SYMBOL-NAME 73 XCL::SYMBOL-AS-PATHNAME 46 CL:STRINGP 28 PATHNAME) (179 CL:LOGICAL-PATHNAME 158 PATHNAME 68 CL:TRANSLATE-LOGICAL-PATHNAME 39 LITATOM 20 STREAM 10 PATHNAME) ( 204 "~S doesn't match any LOGICAL-PATHNAME-TRANSLATIONS" 164 (OR PATHNAME STREAM (OR CL:SYMBOL STRING)) 115 ":" 93 CL::LOGICAL-WORD-BITTABLE) CL::TRANSLATE-PATHNAMEA0001 :D8 (L (2 CL::TW 1 CL::S 0 CL:MAP)) joR@²oBgHZ³!HB ýó²QgIBH °>@»@b¿K^½N¼MLó³#gIJHó´ BHJAML¹JkÔ¸°‘I@$(114 CL:CONCATENATE 109 CL:SUBSEQ 101 CL:SUBSEQ 60 CL:CONCATENATE 55 CL:SUBSEQ 38 CL:LENGTH 28 CL:POSITION) (87 STRING 47 STRING 22 :START) ( 16 #\* 5 "") CL::TRANSLATE-PATHNAMEA0002 :D8 (L (2 CL::TW 1 CL::FW 0 CL::S)) †B˜Bdgð‘@ ²qoB ²d@ ²PAgð¯A ²@A ›j@ h°oA ˜A@ µoA@@Bo@ B(129 CL:ERROR 117 CL::TRANSLATE-PATHNAMEA0001 109 CL:ERROR 95 CL::MATCH&MAP 87 STRPOS 71 CL:LENGTH 63 CL::SIMPLE-STRING= 54 CL:STRINGP 38 CL:STRINGP 30 STRPOS 17 CL:STRINGP) (46 :WILD 8 :WILD) ( 123 "Can't take anything from ~s to translate" 102 "From-wildname piece and source piece don't match" 81 "*" 24 "*") CL::TRANSLATE-PATHNAMEA0003 :D8 (L (0 CL::X)) /@gðhð´$@gðhð´@ hðµo@ hð(42 STRPOS 27 CL:STRINGP) (16 :WILD-INFERIORS 5 :WILD) ( 36 "*") CL::TRANSLATE-PATHNAMEA0004 :D8 (F 10 CL::PIECES F 11 CL::S) ‡ Wµo ¿W‘ H¹HZd3²(¿Wc¿IdJð‘hJkÕð˜WI WIJ»JºK\½L¾MNó‘hŽWI MN_¿J¦Wc¿W__¿OOO(102 CL:SUBSEQ 95 CL:ELT 68 CL:SUBSEQ 58 CL:ELT 13 CL:ERROR) NIL ( 8 "Ran out of wildcards in TRANSLATE-PATHNAME") CL:TRANSLATE-PATHNAME :D8 (L (2 CL::TO-WILDNAME 1 CL::FROM-WILDNAME 0 CL::SOURCE) P 3 CL::PIECES P 0 CL::S) “ @ b¿A b@A ¬o@A¿B bg@ A B g@ A B g@ A B g@ A B g@ A B g@ A B £J™JdoÌ”¿H±‚•Jd²{¿gJ ’J°jH«oH ¿I—Ioð›oI ¿HI ]¼M»L’h\‹oHI¿J__¿h___¾O³HL Odgð²2¿jg_dŸ_µ±ÿL¼O°ò¬o ±çO±ßgð²1jg_dŸ¿oO ±¾¬o ±°O±¨oO _¢±”h¾j_¿O³7OO ýó›OO N¾g gN °VOOON^¢N¾jg_N¾O“OœoO ¿OkÔ_¿oOgO_±ÿzOL\¿O__¿±þÇ(634 CL:POSITION 607 CL:ERROR 568 CL:SUBSEQ 555 CL:APPLY 549 CL:NREVERSE 538 CL:SYMBOL-FUNCTION 525 CL:SUBSEQ 513 CL:LENGTH 488 CL:POSITION 468 CL:ERROR 454 CL:ERROR 413 CL:ERROR 361 CL:MAKE-PATHNAME 353 CL:NREVERSE 324 CL:ERROR 300 \MVLIST 295 CL::MATCH-DIRECTORY-LISTS 287 CL:ERROR 264 CL:ERROR 246 %%EVERY-SINGLE 208 CL:PATHNAME-DIRECTORY 202 CL:PATHNAME-DIRECTORY 196 CL:PATHNAME-DIRECTORY 185 CL::TRANSLATE-PATHNAMEA0002 180 CL:PATHNAME-VERSION 174 CL:PATHNAME-VERSION 168 CL:PATHNAME-VERSION 157 CL::TRANSLATE-PATHNAMEA0002 152 CL:PATHNAME-TYPE 146 CL:PATHNAME-TYPE 140 CL:PATHNAME-TYPE 129 CL::TRANSLATE-PATHNAMEA0002 124 CL:PATHNAME-NAME 118 CL:PATHNAME-NAME 112 CL:PATHNAME-NAME 101 CL::TRANSLATE-PATHNAMEA0002 96 CL:PATHNAME-DEVICE 90 CL:PATHNAME-DEVICE 84 CL:PATHNAME-DEVICE 73 CL::TRANSLATE-PATHNAMEA0002 68 CL:PATHNAME-HOST 62 CL:PATHNAME-HOST 56 CL:PATHNAME-HOST 43 PATHNAME 36 CL:ERROR 23 CL:PATHNAME-MATCH-P 14 PATHNAME 5 PATHNAME) (627 :START 582 CL::TRANSLATE-PATHNAMEA0004 543 STRING 533 CL:CONCATENATE 435 CL::TRANSLATE-PATHNAMEA0004 426 :WILD 380 CL::TRANSLATE-PATHNAMEA0004 370 :WILD-INFERIORS 239 CL::TRANSLATE-PATHNAMEA0003 190 :DIRECTORY 162 :VERSION 134 :TYPE 106 :NAME 78 :DEVICE 50 :HOST) ( 620 #\* 600 "Can't match *: ~s" 481 #\* 463 "NIL can't match :WILD-INFERIORS" 447 "Multiple directory levels ~s can't match :WILD" 408 "NIL can't match :WILD-INFERIORS" 317 "How can these not match? They matched a minute ago:~S ~S" 281 "Can't map this mess: ~s" 274 (:ABSOLUTE :WILD-INFERIORS) 258 "Can't take anything from ~s to translate" 220 (:ABSOLUTE :WILD-INFERIORS) 29 "~S doesn't match ~S in TRANSLATE-PATHNAME") CL:LOAD-LOGICAL-PATHNAME-TRANSLATIONS :D8 (L (0 CL::HOST)) U@d ¿o@ ¿@ ³7oHµo@ Y ŸI ¿@ ‘iHX°Öh(73 CL::LOGICAL-HOST-P 66 CL:LOAD 59 CL:PROBE-FILE 51 CL:ERROR 26 CL::LOGICAL-HOST-P 19 CL:ERROR 6 CL:STRINGP) NIL ( 45 "Found no translations for ~s" 33 ("LOGICAL-HOSTS" "{DSK}~/LOGICAL-HOSTS" "{DSK}/usr/local/lde/LOGICAL-HOSTS") 13 "~S not a string") CL::WILD-PATHNAME-PA0001 :D8 (L (0 CL::V)) !@gðµ@ ´o@ ´i(27 STRPOS 14 CL:STRINGP) (5 :WILD) ( 21 "*") CL::WILD-PATHNAME-PA0002 :D8 (L (0 CL::V)) *@gðµ!@gðµ@ ´o@ ´i(36 STRPOS 23 CL:STRINGP) (14 :WILD-INFERIORS 5 :WILD) ( 30 "*") CL:WILD-PATHNAME-P :D8 (L (1 CL::FIELD-KEY 0 PATHNAME)) @ bAHdgðž¿@ kgdgðž¿@ kggð@ kgHdgðž¿@ kggð@ kgHdgð²¿@ ´yg@ ³g@ kgµW@ kgµH@ kgµ9@ kgµ*@ kgµ@ ´g@ hgHo(281 ECASE-FAIL 263 %%SOME-SINGLE 258 CL:PATHNAME-DIRECTORY 244 CL:PATHNAME-DIRECTORY 229 CL:PATHNAME-VERSION 214 CL:PATHNAME-TYPE 199 CL:PATHNAME-NAME 184 CL:PATHNAME-DEVICE 169 CL:PATHNAME-HOST 160 %%SOME-SINGLE 155 CL:PATHNAME-DIRECTORY 141 CL:PATHNAME-DIRECTORY 116 CL:PATHNAME-VERSION 95 CL:PATHNAME-TYPE 71 CL:PATHNAME-NAME 50 CL:PATHNAME-DEVICE 27 CL:PATHNAME-HOST 5 PATHNAME) (270 CL::FIELD-KEY 252 CL::WILD-PATHNAME-PA0002 235 CL::WILD-PATHNAME-PA0001 220 CL::WILD-PATHNAME-PA0001 205 CL::WILD-PATHNAME-PA0001 190 CL::WILD-PATHNAME-PA0001 175 CL::WILD-PATHNAME-PA0001 149 CL::WILD-PATHNAME-PA0002 131 :DIRECTORY 122 CL::WILD-PATHNAME-PA0001 108 :VERSION 101 CL::WILD-PATHNAME-PA0001 86 :TYPE 77 CL::WILD-PATHNAME-PA0001 63 :NAME 56 CL::WILD-PATHNAME-PA0001 41 :DEVICE 33 CL::WILD-PATHNAME-PA0001 18 :HOST) ( 276 (:HOST :DEVICE :NAME :TYPE :VERSION :DIRECTORY NIL)) LOOKUP-PATHNAMECASEA0001 :D8 (L (0 HOST) F 0 \HOSTTOPATHNAMECASE) 2@Pµ-o@ §@ ´@ggdhPcd(22 ETHERHOSTNUMBER 15 STRPOS) (35 FLIP-MONOCASE-STRING 30 STRING-EQUAL) ( 9 ":") LOOKUP-PATHNAMECASE :D8 (L (0 HOST) F 1 \HOSTTOPATHNAMECASE) m@gð«o@ •o@ dd •o b@kgµ+@ X™Hkgµ@ggdhQcd(71 CANONICAL.HOSTNAME 50 MKATOM 38 CL::LOGICAL-HOST-P 31 U-CASE 18 STRPOS) (94 FLIP-MONOCASE-STRING 89 EQUAL 80 LOOKUP-PATHNAMECASEA0001 62 LOOKUP-PATHNAMECASEA0001 5 :WILD) ( 44 (NIL STRING-EQUAL CL:IDENTITY (LAMBDA (X) (COND ((STRINGP X) (U-CASE X)) (T X)))) 24 (NIL CL:STRING= CL:IDENTITY CL:IDENTITY) 12 "*") REGISTER-PATHNAMECASE :D8 (L (0 -args-) F 18 \HOSTTOPATHNAMECASE) AekañiºHl¼»LKó¢±Ähºg½i¾Hl_¿_¿OdOó¢±¾¿h¾g_¿i_¿Hl_¿_¿OdOó¢±¶¿h_¿g_¿Hl_¿_¿OdOó¢±°¿h_ ¿I µI YO ²J¥g½N§g_¿O§g_¿IW$_"µIMOOhW$c$MO"OO"OLdagð¦lÔ\±ÿ+kØa±ÿ2agð—OkØa±ÿ@OlÔ_±ÿ&agð—OkØa±ÿJOlÔ_±ÿ.agð—OkØa±ÿHOlÔ_±ÿ4(139 MKATOM 131 CANONICAL.HOSTNAME) (299 :CASE-INSENSITIVE 273 :COMMON-TO-LOCAL 247 :LOCAL-TO-COMMON 226 :STRING-COMPARE 170 FLIP-MONOCASE-STRING 159 FLIP-MONOCASE-STRING 151 STRING-EQUAL 98 FLIP-MONOCASE-STRING 62 FLIP-MONOCASE-STRING 32 CL:STRING=) () UNREGISTER-PATHNAMECASE :D8 (L (0 HOST/DEVICE) F 0 \HOSTTOPATHNAMECASE) @Pgg c(21 CL:DELETE 16 CL:SYMBOL-FUNCTION) (11 CAR 6 :KEY) () UNPACKLOGICALNAME.STRINGA0001 :D8 (L (0 TAG) F 0 STRING F 1 DELIM F 2 RESULT F 3 TBL) ]QP kÔÿ²R@PochcR@PkQkÕPQkÔhP²SP µ P kÔcochc(75 CL:LENGTH 67 STRPOSL 58 SUBSTRING 47 LISTPUT 42 SUBSTRING 19 LISTPUT 6 CL:LENGTH) NIL ( 85 "" 24 "") UNPACKLOGICALNAME.STRING :D8 (P 8 A3609 P 7 A3608 P 6 WHERE2 P 5 A3607 P 4 #:G575 P 3 DIR P 2 DELIM P 1 TBL P 0 RESULT I 1 HOST I 0 STRING) t gAggho"@ bI@ ZgJ²@JdoôœLgkMAµ%J¢±@Jdoô¢±žJkð²(g°&Hg'ô³ÕoAHg'¿°Àg»JI@JkÔZ²@Jdoô“J¾°âHK@Kgð’l€kNkÕ¿N@ ÿšob¿h°@NkÔh@¿I@ ZJ²OLgkOJ²>LgkO@oô³'Hg@oô•g€@¿ob¿hºJ³@oô«Hg@H(368 LISTPUT 333 LISTPUT 262 STRPOSL 254 SUBSTRING 230 CL:LENGTH 222 LISTPUT 217 SUBSTRING 183 SUBSTRING 172 STRPOSL 149 CL:ERROR 99 SUBSTRING 63 SUBSTRING 43 STRPOSL 34 U-CASE) (362 NAME 326 :NEWEST 313 VERSION 293 EXTENSION 276 NAME 203 DIRECTORY 157 RELATIVEDIRECTORY 143 HOST 127 HOST 119 DIRECTORY 79 HOST 49 UNPACKLOGICALNAME.STRINGA0001 15 :UNSPECIFIC 10 DEVICE 4 HOST) ( 354 "" 339 "" 319 "NEWEST" 304 "" 237 "" 188 ";" 136 "Host argument ~s doesn't match logical pathname string host ~s" 104 ";" 68 ":" 25 CL::LOGICAL-WORD-BITTABLE) (%%INITIALIZE-DEFAULT-PATHNAME) FLIP-MONOCASE :D8 (I 0 X) @ ¦@ –@ @(19 FLIP-CASE 12 L-CASEP 5 U-CASEP) NIL () FLIP-MONOCASE-STRING :D8 (I 0 X) @ –@ @(12 FLIP-MONOCASE 5 STRINGP) NIL () (PUTPROPS CMLPATHNAME COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991)) NIL