/MAKE-PATHNAMEINSTANTIATE-FLAVOROBJECT-GET-HANDLERFASTAPPLYSET-VERSIONVERSIONSET-TYPETYPESET-NAMENAMESET-DIRECTORYDIRECTORYSET-DEVICEDEVICESET-HOSTHOSTPATHNAMEPATHNAME-HOSTPATHNAME-DEVICEPATHNAME-DIRECTORYPATHNAME-NAMEPATHNAME-TYPEPATHNAME-VERSIONPATHNAMEPGETVSTREAMPOBJECT-GET-HANDLER-QUIETLYFILE-NAMETRUENAMESTRING-TO-PATHNAMEID2STRINGTYPEERRORNAMESTRINGPATHNAME-FIELD-TO-STRINGSTRINGIFYCONCAT
PATHNAME-EMPTY-FIELD?FILE-NAMESTRING	DIRECTORY-NAMESTRING
USER-HOMEDIR-PATHNAMEJSYS1MKSTRINGRECOPYSTRINGTONULLINIT-FILE-PATHNAMEMERGE-PATHNAME-DEFAULTSCOPYVECTORPATHNAME$DESCRIBEPRINTF
PATHNAME$DEFAULT-INIT*UNBOUND*PATHNAME$VERSIONPATHNAME$TYPEPATHNAME$NAMEPATHNAME$DIRECTORYPATHNAME$DEVICEPATHNAME$HOSTPATHNAME$SET-HOSTSTRING-UPCASESTDERROR	PATHNAME$SET-DEVICEWILDUNSPECIFIC
PATHNAME$SET-DIRECTORYPATHNAME$SET-NAMEPATHNAME$SET-TYPE	PATHNAME$SET-VERSIONOLDESTNEWESTPATHNAME-BITESUBPATHNAME-FIELD-FROM-STRING
PATHNAME-VERSION-FROM-STRINGEQSTRSTRING-IS-INTEGERSTRING2INTEGERBLDMSGDIGITPMAKESTRINGINTOLISPINTEGEROBJECTSEVLOADFUNBOUNDPPUTDPUTENTRYGETASSOCIATION-CREATEPUT
$FLAVOR-DEFINE-METHODDEFAULT-INITDESCRIBEINITABLE-VARIABLESVARIABLE-NAMES	INSTANCE-VECTOR-SIZEMETHOD-TABLENEXPREXPR)> Bx  :, B2@x+ +2 x  B x  Dx3D+  B~  Dx 2L9+  B~ 9,  ~ ~ ,+ 2L8+  B~ 8,  ~ ~ ,+ 2L7+  B~ 7,  ~ ~ ,+ 2L6+%  B~ 6,  ~ ~ ,+ 2L5+,  B~ 5,  ~ ~ ,+ 2L4+  B~ 4,  ~ ~ ,+ >},~<<<<<<<<<<<<<>, Bx @,  x >+<>, Bx F,  x >+<>, Bx L,  x >+<>, Bx R,  x >+<>, Bx X,  x >+<>, Bx ^,  x >+<,>6h1V+b +b *3B+g@@ x,3Bi+g +g *>,~<< 6p1V+m +m *3B+p q +
,~<<
+PathNameconvertible to a pathname> Bx,3B+{ x+60V+~ x>+60V+ x,>+ x,3B+	 x B ,   ,>+ 
 
 x>+>,~<xrt<
.><:>, Bx,	 B x,	 B x,
 B~ x,
 B~ x, 
 ~ ~   D} F} H| J|3B+&,, B{ Q,  {,+& P, B{3@}+0 P, B{ },, Bz O,  z,  {,+1 P, B{3@}+4 },+5 P, Bz |,3B+: |,2B+? O, Bz |,,  z,+? P, Bz |,2B+G O, By |,,  y,+H P,  z,  z,  {,  {>y+.>, Bx,
 B x,
 B x,    D~ F~3B+],+^ q, B}3@~+e q, B} ~,,  },+e q, B}3@~+l q, B| ~,,  |,+m q,  },  }>|+QR><>,,	 Bx3B+ , B x,, B ,  ,  >~+ >~,~rstPS>  , BxZ*@@@@@@@@, BZ$Z"2,   x B F~Z*@@@@ ~, ~, B~  B~ ,   ~ ,  B~ ,  ~ ~ , >},~<<<INIT> Bx, B B .,  x  ,  B -,  -  , >~,~<<> D F H~, Bx , B x, Bx B~ %,  ~ ,2B+C x B~  B} %,  } , B} % ~,  } ~ , x B~ $,  ~ ,2B+` x B~  B} $,  } , B} $ ~,  } ~ , x B~ #,  ~ ,2B+` x B~  B} #,  } , B} # ~,  } ~ , x B~ ",  ~ ,2B+ x B~  B} ",  } , B} " ~,  } ~ , x B~ !,  ~ ,2B+} x B~  B} !,  } , B} ! ~,  } ~ , x B~  ,  ~ ,2B+ x B~  B}  ,  } , B}   ~,  } ~ , x B~ !,  ~ ,2B+ x B~ !,   ~ , x B~  ,  ~ ,2B+ x B~  ,  ~ ~ , x>},~<<<<<<<<<<<<  %w: %p%nAn object of flavor PATHNAME, has instance variable values:%n,> E, x  D D, x  C D, x  C D, x  B D, x  B D, x  A D, >,~<<<<<&<(LOCAL W2L+J W L W2L+L  D W2L+O  D W2L+Q  D W2L+T  D W2L+V @ ,~E< ,~ ,~ ,~ ,~ ,~ ,~Invalid host specified for pathname.> Bx6z0V+k , x B8+y  B3B+n +n *2B+r *6{1V+r 3B+x3D+x6{0V+x , x B8+y |>+>,~<<<aInvalid device specified for pathname.> Bx60V+ , x B8+2D+	 @ +  B3B+ + *2B+ *61V+ 3B+60V+ , x B8+60V+3D+2D+  x B8+ >+>,~<<<|<<Invalid directory specified for pathname.> Bx6A0V+* , x B8+@2D+- @ +@  B3B+0 +0 *2B+4 *6A1V+4 3B+96B0V+9 , x B8+@6A0V+>3DC+<2DC+>  x B8+@ B>+>,~<<< <<Invalid name specified for pathname.> Bx6d0V+N , x B8+c2D+P @ +c  B3B+S +T *2B+W *6e1V+W 3B+\6e0V+\ , x B8+c6d0V+b3Dg+`2Df+b  x B8+c f>+>,~<<<D<<Invalid type specified for pathname.,>6{0V+q , x B8+z2D+s @ +z6{0V+x3D|+w2D|+x D +z {>+>,~<g<<Invalid version specified for pathname.61V+0v+4$ D ,~2D+	 @ ,~60V+3D+3D+3D+2D+ D ,~ +<}<!<!<<> Bx  , @n@@n x 8*	bJ
n

:  @@ B D F~ H~ J} n L} n L| 3,}+# +  x," B~ > xd"p:l" d"0B+4  B| ~//&  x,",# B{ 
 |,  { | ,+0B+?  B| ~//& : x,",# B{ 
 |,  { | ,+0B+i:} ~//&  x," B| }0L+R  B| |,# B{  |,  { | , ~3,}+  B| ,   | ,+ }0L+a  B| |,# B{  |,  { | , ~3,}+  B| ,   | ,+ }0L+  B| |,# B{  |,  { | ,+:} ~/>  x," B| }0L+v  B| |,# B{  |,  { | ,+ }0L+~  B| |,# B{  |,  { | ,+ }0L+  B| |,# B{  |,  { | , ~ L+! >{,~x<<<<<<<,> 
 ",bB,n-:  xd"p:l" d" 0B+ :3*+ +*  xd"p:l" d" :0B+ +*3*+" +*  xd"p:l" d" :0B+) +*0B+   >,~x*,>690V+8 $9bD:n:5$4 <+8 ;,$3B+7 ;+8 x>,~<x<-<*0-2,>6T0V+S $UbDUnV5$E +S Y,$3B+H X+S X x,$3B+L W+S W x,$3B+O V+S x,$3B+S x>+% x>,~<x<<<!=<!>, "_bB_n`4"^ ,~ *,~x%w*0-26s1V+s2Bx+i w,~2Bw+k v,~2Bv+m u,~2Bu+o t,~2B+q u,~  t+%,~<`a<b<c<!d<!> Bx $bDn	@@ B D 3l+ *+  xd"p:l" d",&2B+ +:+}>~,~xZ&Z$+&<
<'<@<<<<<<@ ),' (,(3B+ ( ' (,(Z& ' &,)Z&; ' &,)Z&A ' %,)Z&G ' %,)Z&M ' $,)Z&S ' $,)Z&Y ' #,)Z&_ ' #,)Z&j ' ",)Z&r ' ",)Z&x ' !,)Z& ' !,)Z&T '  ,)Z&u '  ,)Z& ' ,)Z&! ' ,)Z&/ ' ,)  !,)2B+>,*   !,*Z&  !,*   !,*   !,*   !,+Z&/ ' ,)   !,+Z&G ' ,)   !,+Z&X ' ,)   !,+Z&Z ' ,)   !,+Z&[ ' ,)   !,+Z&] ' ,)   !,+Z&^ ' ,)   !,+Z&` ' ,)   !,+Z&f ' ,)   !,+Z& ' ,)   !,+Z&% ' ,)   !,+Z&I ' ,)   !,+Z&l ' ,)   !,+Z& ' ,)Z& ' 
,)Z& ' 
,)Z&/ ' ,)Z&@ ' ,)Z&Z ' ,)Z&f ' ,)Z&y ' 
+)<$<<<#<#<"<<< << <<<<<<<<<<<<<<<<<<<<<+<<,<<,<-<-<.<<<<<<<<<<<<
<
<	<	<<<.</
<%;(@A 
(PPE@(QA x"@PaX"@PaX"A(P(AH
QD P(` AET
AE(TD*(( Ap"(T
AA*xA(P `@
A ~ P @ P@P@
(@
@( @ D@D (D
@?xP* TP*"DAD`"T EADA"QDA"UQ`A"QDA"UQ`" @E
D

TD?D D
P(@? *U(|*@A@(DQ"Q@D A @" P@"@@"@"A~(DD"U"P`"TT*D*DT"r @U
E PP?|PT_jET*
EE"Q(TT*
EE"Q(UQ"Q*TU**EU"U(UT*U
UE*Q*TU**EU"U(UT*
EE"Q(U