(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "14-Nov-86 23:30:06" ("compiled on " {ERIS}SOURCES>CMLPATHNAME.;26) "12-Nov-86 10:23:13" "COMPILE-FILEd" in "" dated "12-Nov-86 10:58:24") (FILECREATED "14-Nov-86 23:29:16" {ERIS}SOURCES>CMLPATHNAME.;26 40139 changes to%: ( VARIABLES *DEFAULT-PATHNAME-DEFAULTS*) previous date%: " 7-Nov-86 16:38:03" {ERIS}SOURCES>CMLPATHNAME.;23) (RPAQQ CMLPATHNAMECOMS ((* ;; "Common Lisp pathname functions") (COMS (* ;; "useful macros") ( FUNCTIONS %%WILD-NAME %%COMPONENT-STRING %%UNPACKFILE1)) (STRUCTURES PATHNAME) (FNS %%PRINT-PATHNAME CL:MAKE-PATHNAME) (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) (VARIABLES *DEFAULT-PATHNAME-DEFAULTS*) (COMS (* ;; "Interlisp-D compatibility") (FUNCTIONS INTERLISP-NAMESTRING UNPACKPATHNAME.STRING)) (FUNCTIONS CL:FILE-NAMESTRING CL:DIRECTORY-NAMESTRING) (COMS (* ; "Directories, filenames, and directory defaulting") (FNS CNDIR DIRECTORYNAME DIRECTORYNAMEP HOSTNAMEP \ADD.CONNECTED.DIR)) (PROP FILETYPE CMLPATHNAME) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CL:ENOUGH-NAMESTRING CL:HOST-NAMESTRING FILE-NAME CL:MERGE-PATHNAMES PATHNAME CL:MAKE-PATHNAME %%PRINT-PATHNAME))))) expand-%%WILD-NAME D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$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 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (8 OR) ( 13 ("")) (SETF-MACRO-FUNCTION (QUOTE %%COMPONENT-STRING) (QUOTE expand-%%COMPONENT-STRING)) expand-%%UNPACKFILE1 D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) Ü @ÁH¹HZ»J\½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)) (LET* ((A2553 (QUOTE PATHNAME)) (A2554 T) (A2555 (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) NIL T)))) (CL::SET-PARSED-STRUCTURE A2553 A2555)) (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)) 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) () CL::definline-PATHNAMEP D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (CL::OBJECT) (CL:BLOCK CL:PATHNAMEP (TYPEP CL::OBJECT (QUOTE PATHNAME))))) (LET* ((A2558 (QUOTE CL:PATHNAMEP)) (A2559 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2561 (CL:ADJOIN (QUOTE CL::definline-PATHNAMEP) (GET A2558 A2559)))) (PUTPROP A2558 A2559 A2561)) %%PATHNAME-HOST D1 (L (0 PATHNAME)) @ÉNIL (3 PATHNAME) () definline-%%PATHNAME-HOST D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME) (CL:BLOCK %%PATHNAME-HOST (FETCHFIELD (QUOTE (PATHNAME 0 POINTER)) PATHNAME)))) (LET* ((A2563 (QUOTE %%PATHNAME-HOST)) (A2564 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2566 (CL:ADJOIN ( QUOTE definline-%%PATHNAME-HOST) (GET A2563 A2564)))) (PUTPROP A2563 A2564 A2566)) %%PATHNAME-DEVICE D1 (L (0 PATHNAME)) @ÉNIL (3 PATHNAME) () definline-%%PATHNAME-DEVICE D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME) (CL:BLOCK %%PATHNAME-DEVICE (FETCHFIELD (QUOTE (PATHNAME 2 POINTER)) PATHNAME)))) (LET* ((A2568 (QUOTE %%PATHNAME-DEVICE)) (A2569 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2571 (CL:ADJOIN ( QUOTE definline-%%PATHNAME-DEVICE) (GET A2568 A2569)))) (PUTPROP A2568 A2569 A2571)) %%PATHNAME-DIRECTORY D1 (L (0 PATHNAME)) @ÉNIL (3 PATHNAME) () definline-%%PATHNAME-DIRECTORY D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME) (CL:BLOCK %%PATHNAME-DIRECTORY (FETCHFIELD (QUOTE (PATHNAME 4 POINTER)) PATHNAME)))) (LET* ((A2573 (QUOTE %%PATHNAME-DIRECTORY)) (A2574 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2576 (CL:ADJOIN (QUOTE definline-%%PATHNAME-DIRECTORY) (GET A2573 A2574)))) (PUTPROP A2573 A2574 A2576)) %%PATHNAME-NAME D1 (L (0 PATHNAME)) @ÉNIL (3 PATHNAME) () definline-%%PATHNAME-NAME D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME) (CL:BLOCK %%PATHNAME-NAME (FETCHFIELD (QUOTE (PATHNAME 6 POINTER)) PATHNAME)))) (LET* ((A2578 (QUOTE %%PATHNAME-NAME)) (A2579 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2581 (CL:ADJOIN ( QUOTE definline-%%PATHNAME-NAME) (GET A2578 A2579)))) (PUTPROP A2578 A2579 A2581)) %%PATHNAME-TYPE D1 (L (0 PATHNAME)) @ÉNIL (3 PATHNAME) () definline-%%PATHNAME-TYPE D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME) (CL:BLOCK %%PATHNAME-TYPE (FETCHFIELD (QUOTE (PATHNAME 8 POINTER)) PATHNAME)))) (LET* ((A2583 (QUOTE %%PATHNAME-TYPE)) (A2584 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2586 (CL:ADJOIN ( QUOTE definline-%%PATHNAME-TYPE) (GET A2583 A2584)))) (PUTPROP A2583 A2584 A2586)) %%PATHNAME-VERSION D1 (L (0 PATHNAME)) @É NIL (3 PATHNAME) () definline-%%PATHNAME-VERSION D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME) (CL:BLOCK %%PATHNAME-VERSION (FETCHFIELD (QUOTE (PATHNAME 10 POINTER)) PATHNAME)))) (LET* ((A2588 (QUOTE %%PATHNAME-VERSION)) (A2589 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2591 (CL:ADJOIN ( QUOTE definline-%%PATHNAME-VERSION) (GET A2588 A2589)))) (PUTPROP A2588 A2589 A2591)) (REMPROP (QUOTE %%PATHNAME-HOST) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE %%PATHNAME-HOST) (QUOTE SETF-INVERSE) (QUOTE %%%%SETF-%%PATHNAME-HOST)) %%%%SETF-%%PATHNAME-HOST D1 (L (1 CL::VALUE 0 PATHNAME)) @AANIL (3 PATHNAME) () definline-%%%%SETF-%%PATHNAME-HOST D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME CL::VALUE) (CL:BLOCK %%%%SETF-%%PATHNAME-HOST (CL:SETF (FETCHFIELD (QUOTE (PATHNAME 0 POINTER)) PATHNAME) CL::VALUE)))) (LET* ((A2593 (QUOTE %%%%SETF-%%PATHNAME-HOST)) (A2594 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2596 ( CL:ADJOIN (QUOTE definline-%%%%SETF-%%PATHNAME-HOST) (GET A2593 A2594)))) (PUTPROP A2593 A2594 A2596)) (REMPROP (QUOTE %%PATHNAME-DEVICE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE %%PATHNAME-DEVICE) (QUOTE SETF-INVERSE) (QUOTE %%%%SETF-%%PATHNAME-DEVICE)) %%%%SETF-%%PATHNAME-DEVICE D1 (L (1 CL::VALUE 0 PATHNAME)) @AANIL (3 PATHNAME) () definline-%%%%SETF-%%PATHNAME-DEVICE D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME CL::VALUE) (CL:BLOCK %%%%SETF-%%PATHNAME-DEVICE (CL:SETF (FETCHFIELD (QUOTE (PATHNAME 2 POINTER)) PATHNAME) CL::VALUE)))) (LET* ((A2598 (QUOTE %%%%SETF-%%PATHNAME-DEVICE)) (A2599 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2601 ( CL:ADJOIN (QUOTE definline-%%%%SETF-%%PATHNAME-DEVICE) (GET A2598 A2599)))) (PUTPROP A2598 A2599 A2601 )) (REMPROP (QUOTE %%PATHNAME-DIRECTORY) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE %%PATHNAME-DIRECTORY) (QUOTE SETF-INVERSE) (QUOTE %%%%SETF-%%PATHNAME-DIRECTORY)) %%%%SETF-%%PATHNAME-DIRECTORY D1 (L (1 CL::VALUE 0 PATHNAME)) @AANIL (3 PATHNAME) () definline-%%%%SETF-%%PATHNAME-DIRECTORY D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME CL::VALUE) (CL:BLOCK %%%%SETF-%%PATHNAME-DIRECTORY (CL:SETF (FETCHFIELD (QUOTE (PATHNAME 4 POINTER)) PATHNAME) CL::VALUE)))) (LET* ((A2603 (QUOTE %%%%SETF-%%PATHNAME-DIRECTORY)) (A2604 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2606 ( CL:ADJOIN (QUOTE definline-%%%%SETF-%%PATHNAME-DIRECTORY) (GET A2603 A2604)))) (PUTPROP A2603 A2604 A2606)) (REMPROP (QUOTE %%PATHNAME-NAME) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE %%PATHNAME-NAME) (QUOTE SETF-INVERSE) (QUOTE %%%%SETF-%%PATHNAME-NAME)) %%%%SETF-%%PATHNAME-NAME D1 (L (1 CL::VALUE 0 PATHNAME)) @AANIL (3 PATHNAME) () definline-%%%%SETF-%%PATHNAME-NAME D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME CL::VALUE) (CL:BLOCK %%%%SETF-%%PATHNAME-NAME (CL:SETF (FETCHFIELD (QUOTE (PATHNAME 6 POINTER)) PATHNAME) CL::VALUE)))) (LET* ((A2608 (QUOTE %%%%SETF-%%PATHNAME-NAME)) (A2609 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2611 ( CL:ADJOIN (QUOTE definline-%%%%SETF-%%PATHNAME-NAME) (GET A2608 A2609)))) (PUTPROP A2608 A2609 A2611)) (REMPROP (QUOTE %%PATHNAME-TYPE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE %%PATHNAME-TYPE) (QUOTE SETF-INVERSE) (QUOTE %%%%SETF-%%PATHNAME-TYPE)) %%%%SETF-%%PATHNAME-TYPE D1 (L (1 CL::VALUE 0 PATHNAME)) @AANIL (3 PATHNAME) () definline-%%%%SETF-%%PATHNAME-TYPE D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME CL::VALUE) (CL:BLOCK %%%%SETF-%%PATHNAME-TYPE (CL:SETF (FETCHFIELD (QUOTE (PATHNAME 8 POINTER)) PATHNAME) CL::VALUE)))) (LET* ((A2613 (QUOTE %%%%SETF-%%PATHNAME-TYPE)) (A2614 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2616 ( CL:ADJOIN (QUOTE definline-%%%%SETF-%%PATHNAME-TYPE) (GET A2613 A2614)))) (PUTPROP A2613 A2614 A2616)) (REMPROP (QUOTE %%PATHNAME-VERSION) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE %%PATHNAME-VERSION) (QUOTE SETF-INVERSE) (QUOTE %%%%SETF-%%PATHNAME-VERSION)) %%%%SETF-%%PATHNAME-VERSION D1 (L (1 CL::VALUE 0 PATHNAME)) @A ANIL (3 PATHNAME) () definline-%%%%SETF-%%PATHNAME-VERSION D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME CL::VALUE) (CL:BLOCK %%%%SETF-%%PATHNAME-VERSION (CL:SETF (FETCHFIELD (QUOTE (PATHNAME 10 POINTER)) PATHNAME) CL::VALUE)))) (LET* ((A2618 (QUOTE %%%%SETF-%%PATHNAME-VERSION)) (A2619 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2621 ( CL:ADJOIN (QUOTE definline-%%%%SETF-%%PATHNAME-VERSION) (GET A2618 A2619)))) (PUTPROP A2618 A2619 A2621)) %%%%MAKE-PATHNAME D1 (L (0 -args-)) BeHkJdIó¢±¬¿hñHk»ºKdJó¢±¬¿h¼Hk¾½NdMó¢±²¿h_¿Hk_¿_¿OdOó¢±°¿h_¿Hk_¿_¿OdOó¢±±¿h_¿Hk_¿_¿OdOó¢±²¿h_ ¿`_"IO"LO"OO"OO"OO"O O"agð–JkØa±ÿOJlÔZ±ÿ>agð–KkØa±ÿOKlÔ[±ÿ>agð–NkØa±ÿINlÔ^±ÿ8agð—OkØa±ÿJOlÔ_±ÿ6agð—OkØa±ÿIOlÔ_±ÿ5agð—OkØa±ÿHOlÔ_±ÿ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)) [@HÃ²B`H@ÉH@ÉH@ÉH@ÉH@ÉH@É HigHgb°¨(84 CHECK-TYPE-FAIL) (81 PATHNAME 77 PATHNAME 66 PATHNAME 57 PATHNAME 48 PATHNAME 39 PATHNAME 30 PATHNAME 21 PATHNAME 13 |PATHNAMETYPE#| 7 PATHNAME) () definline-COPY-PATHNAME D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (PATHNAME) (CL:BLOCK COPY-PATHNAME (CL:CHECK-TYPE PATHNAME PATHNAME) (LET ((CL::NEW (NCREATE (QUOTE PATHNAME)))) (CL:SETF (FFETCHFIELD (QUOTE (PATHNAME 0 POINTER)) CL::NEW) (FFETCHFIELD (QUOTE (PATHNAME 0 POINTER)) PATHNAME)) (CL:SETF (FFETCHFIELD (QUOTE (PATHNAME 2 POINTER)) CL::NEW) (FFETCHFIELD (QUOTE (PATHNAME 2 POINTER)) PATHNAME)) (CL:SETF (FFETCHFIELD (QUOTE (PATHNAME 4 POINTER)) CL::NEW) (FFETCHFIELD (QUOTE (PATHNAME 4 POINTER)) PATHNAME)) (CL:SETF (FFETCHFIELD (QUOTE (PATHNAME 6 POINTER)) CL::NEW) (FFETCHFIELD (QUOTE (PATHNAME 6 POINTER)) PATHNAME)) (CL:SETF (FFETCHFIELD (QUOTE (PATHNAME 8 POINTER)) CL::NEW) (FFETCHFIELD (QUOTE (PATHNAME 8 POINTER)) PATHNAME)) (CL:SETF (FFETCHFIELD (QUOTE (PATHNAME 10 POINTER)) CL::NEW) (FFETCHFIELD (QUOTE (PATHNAME 10 POINTER)) PATHNAME)) CL::NEW)))) (LET* ((A2626 (QUOTE COPY-PATHNAME)) (A2627 (QUOTE COMPILER:OPTIMIZER-LIST)) (A2629 (CL:ADJOIN (QUOTE definline-COPY-PATHNAME) (GET A2626 A2627)))) (PUTPROP A2626 A2627 A2629)) %%PRINT-PATHNAME D1 (L (2 D 1 STREAM 0 S)) Aog@ (14 CL:FORMAT 11 CL:NAMESTRING) (7 PATHNAME) ( 4 "#.(~S ~S)") CL:MAKE-PATHNAME D1 (L (0 -args-) F 27 *DEFAULT-PATHNAME-DEFAULTS*) ÷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³NW6 ]°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 (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’ (11 CL:STRING-UPCASE 6 %%PATHNAME-HOST 3 PATHNAME) NIL () CL:PATHNAME-DEVICE D1 (L (0 PATHNAME)) @ d’ (11 CL:STRING-UPCASE 6 %%PATHNAME-DEVICE 3 PATHNAME) NIL () CL:PATHNAME-DIRECTORY D1 (L (0 PATHNAME)) @ d’ (8 CL:STRING-UPCASE 3 %%PATHNAME-DIRECTORY) NIL () CL:PATHNAME-NAME D1 (L (0 PATHNAME)) @ d’ (11 CL:STRING-UPCASE 6 %%PATHNAME-NAME 3 PATHNAME) NIL () CL:PATHNAME-TYPE D1 (L (0 PATHNAME)) @ d’ (11 CL:STRING-UPCASE 6 %%PATHNAME-TYPE 3 PATHNAME) NIL () CL:PATHNAME-VERSION D1 (L (0 PATHNAME)) @ (6 %%PATHNAME-VERSION 3 PATHNAME) 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*) xekaalHñ’W‚laºlHñ‘h‚la»I ¼J ½L ¾L _¿L µM OµM L µM NµM L µM L µN¥M µ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¡lHñ’W‚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(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@QHÈkÙ»HÉ¼KHÈØºHÊCjð‘h€i½KkØ[Jñ³M•LKÐÈ‚LKÂ¹l0Iñ¥Il9ñ²ãhi(3 CL:STRINGP) NIL () CL: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²2gNMdgð–¿o°gð¡M¤ogoM N(216 CL:CONCATENATE 213 CL:CONCATENATE 210 CL:PRINC-TO-STRING 165 CL:CONCATENATE 138 CL:CONCATENATE 115 CL:CONCATENATE 83 CL:CONCATENATE 72 CL:CONCATENATE 52 %%PATHNAME-VERSION 47 %%PATHNAME-TYPE 42 %%PATHNAME-NAME 37 %%PATHNAME-DIRECTORY 32 %%PATHNAME-DEVICE 25 %%PATHNAME-HOST 19 PATHNAME 4 STREAMP) (202 CL:SIMPLE-STRING 190 :NEWEST 178 :WILD 172 CL:SIMPLE-STRING 155 :WILD 145 CL:SIMPLE-STRING 128 :WILD 122 CL:SIMPLE-STRING 100 :WILD 90 CL:SIMPLE-STRING 78 CL:SIMPLE-STRING 60 CL:SIMPLE-STRING) ( 206 ";" 198 "" 185 ";*" 162 "*" 150 "." 135 "*" 111 ">" 107 "*" 95 "<" 69 "}" 64 "{" 15 "") CL:PARSE-NAMESTRING D1 (L (0 -args-) F 16 *DEFAULT-PATHNAME-DEFAULTS*) ˆekaálHñ‘h‚laºlHñ’W ‚la»Hl½¼MdLó²M¿j¾Hl_¿_¿OdOó²L¿h_¿Hl_¿_¿OdOó²L¿K¢W »J¤K ºI_d ²F¿Ig Y°fagð•MkØa°MlÔ]°Ÿagð–OkØa°OlÔ_°œagð³²OlÔ_°¢Ã•IN OdÃ—¿I Y°Ã•I Y‡oI ¿O¦I _¿INO __¿gOg'gOg'gOg'do “¿ggOg'do “¿ggOg'do “¿ggOg'_›Odo •¿g°o “g„O 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(ð²ð²¿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 (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)) -@d Ÿ¿@dÉ©¿o@ Hµo@ H(41 CL:ERROR 38 CL:NAMESTRING 24 CL:PROBE-FILE 20 CL:ERROR 4 STREAMP) NIL ( 34 "The file ~S does not exist." 16 "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) () %%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 () (CL:PROCLAIM (QUOTE (CL:SPECIAL *DEFAULT-PATHNAME-DEFAULTS*))) (OR (BOUNDP (QUOTE *DEFAULT-PATHNAME-DEFAULTS*)) (SETQ *DEFAULT-PATHNAME-DEFAULTS* (PROGN ( CL:MAKE-PATHNAME (QUOTE :HOST) "{DSK}" (QUOTE :DEVICE) NIL (QUOTE :DIRECTORY) NIL (QUOTE :NAME) NIL ( QUOTE :TYPE) NIL (QUOTE :VERSION) (QUOTE :NEWEST))))) INTERLISP-NAMESTRING D1 (L (0 PATHNAME)) @ (6 MKSTRING 3 CL:NAMESTRING) NIL () UNPACKPATHNAME.STRING D1 (L (3 ATOMFLG 2 DIRFLG 1 ONEFIELDFLG 0 FILE)) Aµ@ X´‚±gC²tH °od›¿Ao bgð•@ °HAdgð–¿@ °:gð•@ °/Adgð–¿@ °!gð•@ °Adgð•¿@ †gð´hC”H HHHh@ X´gC”H €Hh@ X´gC”H €Hh@ X´gC”H €Hh@ X´gC”H €Hh@ X´gC”H ƒ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²@gIJdgð–¿o°*gð•o°Jµo°gð´goJ 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 "") CNDIR D1 (P 1 REAL-HOST/DIR-PATHNAME P 0 REAL-HOST/DIR I 0 HOST/DIR F 2 *DEFAULT-PATHNAME-DEFAULTS*) 4@igHd’ H²RI ¿RI ‡o@ H(48 ERROR 39 %%%%SETF-%%PATHNAME-DIRECTORY 36 %%PATHNAME-DIRECTORY 30 %%%%SETF-%%PATHNAME-HOST 27 %%PATHNAME-HOST 16 PATHNAME 7 DIRECTORYNAME) (4 ASK) ( 44 "Non-existent directory") DIRECTORYNAME D1 (P 4 HOST P 2 FDEV P 1 DN P 0 CONNECTED-DIRECTORY I 2 CREATE? I 1 STRPTR I 0 DIRNAME F 5 *DEFAULT-PATHNAME-DEFAULTS*) tU 1@dið“¿H°S©`µMg°H@g Lµg@gHbg Zd²(É»@JBlKYd²iðgJÉg@¹AµI ið²ùI (113 MKATOM 104 MKSTRING 96 PACKFILENAME.STRING 61 \GETDEVICEFROMHOSTNAME 58 FILENAMEFIELD 50 PACKFILENAME.STRING 33 FILENAMEFIELD 3 INTERLISP-NAMESTRING) (92 DIRECTORY 86 HOST 55 HOST 46 DIRECTORY 42 DIRECTORY 30 HOST 24 {DSK} 19 LOGINHOST/DIR) () DIRECTORYNAMEP D1 (P 1 FDEV P 0 DN I 1 HOSTNAME I 0 DIRNAME F 3 *DEFAULT-PATHNAME-DEFAULTS*) 2A˜g@gAŠg@gS !Hi Yd›ÉºHIlJ´i(32 \GETDEVICEFROMNAME 24 PACKFILENAME.STRING 21 INTERLISP-NAMESTRING) (17 DIRECTORY 13 DIRECTORY 8 HOST 4 DIRECTORY) () HOSTNAMEP D1 (P 3 D P 0 N I 0 NAME) f @dlð“ Š´?@ X l{ð²HlgHld² kÙX€H` `Jµh´i[É¹HkI•Kµði°íJZ°ä(62 MEMB 53 SUBATOM 45 STRPOS 28 CHCON1 24 MKATOM 21 U-CASE 12 U-CASE) (66 \FILEDEVICES 59 \FILEDEVICENAMES 39 }) () \ADD.CONNECTED.DIR D1 (I 0 FILENAME F 0 *DEFAULT-PATHNAME-DEFAULTS*) %@dlð¤²@g ®g@gP @(32 PACKFILENAME 29 INTERLISP-NAMESTRING 17 FILENAMEFIELD) (25 DIRECTORY 21 BODY 14 HOST) () (PUTPROPS CMLPATHNAME FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLPATHNAME COPYRIGHT ("Xerox Corporation" 1986)) NIL