1/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-PATHNAMEMKSTRINGJSYS1RECOPYSTRINGTONULLINIT-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,  ~ ~ ,+ >},~xxxxxxxxxxxxx>, Bx @,  x >+x>, Bx F,  x >+x>, Bx L,  x >+x>, Bx R,  x >+x>, Bx X,  x >+x>, Bx ^,  x >+x,>6h1V+b +b *3B+g@@ x,3Bi+g +g *>,~>x 6p1V+m +m *3B+p q +
,~>x
+PathNameconvertible to a pathname> Bx,3B+{ x+60V+~ x>+60V+ x,>+ x,3B+	 x B ,   ,>+ 
 
 x>+>,~>xrtx
.><:>, Bx, B x,
 B x,
 B~ x,	 B~ x,	 
 ~ ~   B} D} F| H|3J+& ,, B{ Q,  {,+' Q, B{3@|+1 P, B{ |,, Bz P,  z,  {,+1 Q, B{3@|+5 |,+5 Q, Bz },3B+: },2B+? O, Bz },,  z,+@ Q, Bz },2B+H O, By },,  y,+H Q,  z,  z,  {,  {>y+.>, Bx, B x,
 B x,
    B~ D~3F+^ ,+_ r, B}3@~+f r, B} ~,,  },+f r, B}3@~+m r, B| ~,,  |,+n r,  },  }>|+RS><>,,	 Bx3B+ , B x,, B ,  ,  >~+ >~,~stuPS>Z$Z"2, BxZ*@@@@@@@@, B  ,   x B F~Z*@@@@, , B ~ B~ ,   ~ , ~ B~ ,   ~ , ~>},~xxxINIT> Bx, B B .,  x  ,  B .,  -  , >~,~ xx> 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>},~xxxxxxxxxxxx  %w: %p%nAn object of flavor PATHNAME, has instance variable values:%n,> E, x  E D, x  D D, x  C D, x  C D, x  B D, x  B D, >,~xxxxx&x(LOCAL X2L+J W L X2L+M  D X2L+O  D X2L+R  D X2L+T  D X2L+V @ ,~Fx ,~ ,~ ,~ ,~ ,~ ,~Invalid host specified for pathname.> Bx6{0V+k , x B8+z  B3B+n +o *2B+r *6{1V+r 3B+x3D+x6|0V+x , x B8+z |>+>,~>>>aInvalid device specified for pathname.> Bx60V+ , x B8+2D+	 @ +  B3B+ +
 *2B+ *61V+ 3B+60V+ , x B8+60V+3D +2D+  x B8+ >+>,~>>>}xxInvalid directory specified for pathname.> Bx6A0V++ , x B8+@2D+- @ +@  B3B+0 +1 *2B+4 *6B1V+4 3B+96B0V+9 , x B8+@6A0V+?3DD+=2DC+?  x B8+@ C>+>,~>>> xxInvalid name specified for pathname.> Bx6e0V+N , x B8+d2D+Q @ +d  B3B+T +T *2B+X *6e1V+X 3B+]6f0V+] , x B8+d6e0V+b3Dg+`2Dg+b  x B8+d f>+>,~>>>DxxInvalid type specified for pathname.,>6{0V+q , x B8+z2D+t @ +z6{0V+y3D}+w2D|+y D +z |>+>,~>hxxInvalid version specified for pathname.61V+0v+4$ D ,~2D+	 @ ,~60V+3D+3D+3D+2D+ D ,~ +>}x!x!xx> Bx  , Bn@@n 
 ^x:@@  B D F~ H~ J} n L} n L| }3,~+" + } x," B} > x:d"0B+2 | B| }/}/& } x,",# B{ 
 |,  { | ,+0B+= | B| }/}/& }: x,",# B{ 
 |,  { | ,+0B+g: }/}/& } x," B 0L+P | B| ,# B{ 	 |,  { | , }3,~+ | B| 	,   | ,+ 0L+_ | B| ,# B{ 	 |,  { | , }3,~+ | B| ,   | ,+ 0L+ | B| ,# B{  |,  { | ,+: }/}> } x," B 0L+t | B| ,# B{ 	 |,  { | ,+ 0L+| | B| ,# B{ 	 |,  { | ,+ 0L+ | B| ,# B{  |,  { | , } L}+  |>{,~:xxxxxxx,> 
^:  x:d$" 0B+:3*+ +#  x:d$" :0B+ +#3*+ +#  x:d$" :0B+! +#0B+  >,~:*,>6/0V+.^5$* 0+. 0,$3B+- /+. x>,~>x%x*0-2,>6G0V+F^5$8 +F J,$3B+; J+F I x,$3B+? I+F H x,$3B+B H+F x,$3B+F x>+% x>,~>x1x!2x!3,^4"N ,~ *,~%w*0-26b1V+a2Bf+X f,~2Be+Z e,~2Bd+\ d,~2Bc+^ c,~2B+` d,~  b+%,~>OPxQxRx!Sx!> Bx@@^ B D 3l+m *+s  x:dt",&2B+r +s:+j>~,~:Z&Z$+&x$xx'x@x$yx$zx${x$|xx@ ,' ,(3B+   ,(Z&  ,)Z&;  ,)Z&A  ,)Z&G  ,)Z&M  ,)Z&S  ,)Z&Y  ,)Z&_  ,)Z&j  
,)Z&r  
,)Z&x  ,)Z&  ,)Z&T  ,)Z&v  ,)Z&  
,)Z&!  
,)Z&/  	,) 	 ,)2B+),*  	 ,*Z&  ,*   ,*   ,*   ,+Z&0  ,)   ,+Z&H  ,)   ,+Z&Y  ,)   ,+Z&Z  ,)   ,+Z&\  ,)   ,+Z&]  ,)   ,+Z&_  ,)   ,+Z&`  ,) ~ ~ ,+Z&f  ~,) } } ,+Z&  },) | | ,+Z&&  |,) { { ,+Z&I  {,) z z ,+Z&m  z,) y y ,+Z&  y,)Z&  x,)Z&  x,)Z&&  w,)Z&4  w,)Z&K  v,)Z&T  v,)Z&g  u+)x$xxx#x#x"xxx xx xxxxxxxxxxxxxxxxxxxxx+xx,xx,x-$vx-x.xxxxxxxxxxxx
x
x	x	xxx.x/<ux%$w:(@A 
(PPE@(QA x"@PaX"@PaX"A(P(AH
QD P(` AQ UPQ A*U
AA**( @_|A*AP( T
P 
AE ~DD(ADpD @D 
@"
@" D D
A @~
A( T
@`Q" DxAE"Q""(T Q(U @x""(T Q(U @xA"QDA"UQ`ET
`D(
U*G*@DAQ"(DQD@(AAD (A @D D DA?@@@ DET*?"(U*(Dr@E"Q(
@"zQ*EE"Q(TT*
EE"Q(TT**T*U
UE*Q*TU**EU"U(UT*U
UE*Q*TU**EE"Q(TT*?`