$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLPATHNAME.DCOM!23
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r ( f i l e c r
0000100 e a t e d " 3 - N o v - 8 6
0000120 1 6 : 4 0 : 4 0 " ( " c o m
0000140 p i l e d o n " { e r i s
0000160 } < l i s p c o r e > s o u r c
0000200 e s > c m l p a t h n a m e . \
0000220 ; 2 0 ) \r " 3 - N o v - 8 6
0000240 1 5 : 4 3 : 0 0 " " C O M P
0000260 I L E - F I L E d " | i n |
0000300 " X e r o x L i s p 3 1 - O
0000320 c t - 8 6 . . . " | d a t e
0000340 d | " 3 1 - O c t - 8 6 1 7
0000360 : 4 8 : 3 9 " ) \r ( f i l e c r
0000400 e a t e d " 3 1 - O c t - 8 6
0000420 2 2 : 5 1 : 1 0 " { e r i s
0000440 } < l i s p c o r e > s o u r c
0000460 e s > c m l p a t h n a m e . \
0000500 ; 2 0 3 8 2 0 7 | c h a n g
0000520 e s | | t o : | ( f n s \r
0000540 % p r i n t - p a t h n a m e )
0000560 | p r e v i o u s | | d a t
0000600 e : | " 2 8 - O c t - 8 6 2
0000620 2 : 1 6 : 4 0 " { e r i s } <
0000640 l i s p c o r e > s o u r c e s
0000660 > c m l p a t h n a m e . \ ; 1
0000700 9 ) \r ( r p a q q c m l p a t
0000720 h n a m e c o m s ( ( * | ;
0000740 ; | " C o m m o n L i s p
0000760 p a t h n a m e f u n c t i o
0001000 n s " ) ( p r o p f i l e t
0001020 y p e c m l p a t h n a m e )
0001040 ( c o m s ( * \r | ; ; |
0001060 " u s e f u l m a c r o s " )
0001100 ( f u n c t i o n s % w i l
0001120 d - n a m e % c o m p o n e n
0001140 t - s t r i n g % u n p a c k
0001160 f i l e 1 ) ) ( s t r u c t u
0001200 r e s p a t h n a m e ) ( \r
0001220 f n s % p r i n t - p a t h n
0001240 a m e c l : m a k e - p a t h
0001260 n a m e c l : p a t h n a m e
0001300 - h o s t c l : p a t h n a m
0001320 e - d e v i c e c l : p a t h
0001340 n a m e - d i r e c t o r y \r
0001360 c l : p a t h n a m e - n a m e
0001400 c l : p a t h n a m e - t y p
0001420 e c l : p a t h n a m e - v e
0001440 r s i o n ) ( f n s p a t h
0001460 n a m e c l : m e r g e - p a
0001500 t h n a m e s f i l e - n a m
0001520 e \r c l : h o s t - n a m e s
0001540 t r i n g c l : e n o u g h -
0001560 n a m e s t r i n g % n u m e
0001600 r i c - s t r i n g - p ) ( f
0001620 u n c t i o n s c l : n a m e
0001640 s t r i n g c l : p a r s e -
0001660 n a m e s t r i n g \r p a r s
0001700 e - n a m e s t r i n g 1 c l
0001720 : t r u e n a m e ) ( f u n c
0001740 t i o n s % m a k e - p a t h
0001760 n a m e ) ( f u n c t i o n s
0002000 i n t e r l i s p - n a m e s
0002020 t r i n g ) ( f u n c t i o n
0002040 s \r % p a t h n a m e - e q u
0002060 a l ) ( f u n c t i o n s %
0002100 i n i t i a l i z e - d e f a u
0002120 l t - p a t h n a m e ) ( v a
0002140 r i a b l e s * d e f a u l t
0002160 - p a t h n a m e - d e f a u l
0002200 t s * ) ( \r c o m s ( * |
0002220 ; ; | " I n t e r l i s p - D
0002240 c o m p a t i b i l i t y " )
0002260 ( f u n c t i o n s u n p a
0002300 c k p a t h n a m e . s t r i n
0002320 g ) ) ( f u n c t i o n s \r
0002340 c l : f i l e - n a m e s t r i
0002360 n g c l : d i r e c t o r y -
0002400 n a m e s t r i n g ) ( d e c
0002420 l a r e \ : d o n t e v a l @
0002440 l o a d d o c o p y ( p (
0002460 \r % i n i t i a l i z e - d e f
0002500 a u l t - p a t h n a m e ) ) )
0002520 ( d e c l a r e \ : d o n t
0002540 e v a l @ l o a d d o e v a l
0002560 @ c o m p i l e d o n t c o p
0002600 y c o m p i l e r v a r s (
0002620 a d d v a r s \r ( n l a m a )
0002640 ( n l a m l ) ( l a m a c
0002660 l : e n o u g h - n a m e s t r
0002700 i n g c l : h o s t - n a m e
0002720 s t r i n g f i l e - n a m e
0002740 c l : m e r g e - p a t h n a
0002760 m e s p a t h n a m e \r c l
0003000 : p a t h n a m e - v e r s i o
0003020 n c l : p a t h n a m e - t y
0003040 p e c l : p a t h n a m e - n
0003060 a m e c l : p a t h n a m e -
0003100 d i r e c t o r y c l : p a t
0003120 h n a m e - d e v i c e \r c l
0003140 : p a t h n a m e - h o s t c
0003160 l : m a k e - p a t h n a m e
0003200 % p r i n t - p a t h n a m e )
0003220 ) ) ) ) \r ( p u t p r o p s c
0003240 m l p a t h n a m e f i l e t
0003260 y p e c l : c o m p i l e - f
0003300 i l e ) \r | e x p a n d - % W I
0003320 L D - N A M E | d 1 \r ( l (
0003340 1 s i : : $ $ m a c r o - e n
0003360 v i r o n m e n t 0 s i : :
0003400 $ $ m a c r o - f o r m ) ) \0
0003420 032 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 g \0
0003440 \0 H h 032 032 h 032 o \0 \0 \0 032 032 020 \0 n
0003460 i l \r ( 1 1 s 8 l e t ) \r
0003500 ( 2 1 ( ( c l : i f ( s t
0003520 r i n g - e q u a l s " * "
0003540 ) : w i l d s ) ) ) \r ( s e
0003560 t f - m a c r o - f u n c t i o
0003600 n ( q u o t e % w i l d - n
0003620 a m e ) ( q u o t e | e x p
0003640 a n d - % W I L D - N A M E | )
0003660 ) \r | e x p a n d - % C O M P O
0003700 N E N T - S T R I N G | d 1 \r
0003720 ( l ( 1 s i : : $ $ m a c r
0003740 o - e n v i r o n m e n t 0
0003760 s i : : $ $ m a c r o - f o r m
0004000 ) ) \0 022 001 \0 \0 002 @ 002 001 021 001 \0 g
0004020 \0 \0 H o \0 \0 \0 032 032 020 \0 n i l \r (
0004040 8 o r ) \r ( 1 3 ( " " ) )
0004060 \r ( s e t f - m a c r o - f u n
0004100 c t i o n ( q u o t e % c o
0004120 m p o n e n t - s t r i n g )
0004140 ( q u o t e | e x p a n d - %
0004160 C O M P O N E N T - S T R I N G
0004200 | ) ) \r | e x p a n d - % U N P
0004220 A C K F I L E 1 | d 1 \r ( l
0004240 ( 1 s i : : $ $ m a c r o - e
0004260 n v i r o n m e n t 0 s i :
0004300 : $ $ m a c r o - f o r m ) )
0004320 \0 334 \r \0 \0 002 @ 002 021 301 \f H 001 271 H 002
0004340 Z 001 273 J 002 \ 001 275 L 002 ^ 001 _ 016 277 N
0004360 002 _ 020 001 _ 022 277 O 020 002 _ 024 001 _ 026 277
0004400 O 024 002 001 _ 030 277 g \0 \0 g \0 \0 O 026 h
0004420 032 032 g \0 \0 g \0 \0 O 030 g \0 \0 g \0 \0
0004440 O 022 g \0 \0 O 016 K M h 032 032 032 032 h 032
0004460 032 i g \0 \0 g \0 \0 O 016 K M h 032 032 032
0004500 032 o \0 \0 \0 032 032 h 032 032 h 032 032 032 g \0
0004520 \0 I O 030 h 032 032 032 h 032 032 032 h 032 032 032
0004540 g \0 \0 g \0 \0 I O 026 h 032 032 032 g \0 \0
0004560 g \0 \0 g \0 \0 O 022 g \0 \0 O 016 K M h
0004600 032 032 032 032 h 032 032 i g \0 \0 g \0 \0 O 016
0004620 K M h 032 032 032 032 o \0 \0 \0 032 032 h 032 032
0004640 h 032 032 032 h 032 032 h 032 032 032 032 032 032 032 032
0004660 020 \0 n i l \r ( 1 8 3 s u b s t
0004700 r i n g 1 8 0 o r 1 6 4
0004720 s u b a t o m 1 5 9 c o n d
0004740 1 5 6 r e t u r n 1 5 3
0004760 | t h e n | 1 4 3 e q m e m
0005000 b 1 4 0 | e l s e i f | 1
0005020 2 2 c o n s 9 7 s u b s t
0005040 r i n g 9 4 o r 7 8 s u
0005060 b a t o m 7 3 c o n d 7 0
0005100 c o n s 6 5 s e t q 6 2
0005120 | t h e n | 5 4 n o t 5
0005140 1 | i f | ) \r ( 1 9 6 ( "
0005160 " ) 1 1 0 ( " " ) ) \r ( s e
0005200 t f - m a c r o - f u n c t i o
0005220 n ( q u o t e % u n p a c k
0005240 f i l e 1 ) ( q u o t e | e
0005260 x p a n d - % U N P A C K F I L
0005300 E 1 | ) ) \r ( c l : : s e t - p
0005320 a r s e d - s t r u c t u r e
0005340 ( q u o t e p a t h n a m e )
0005360 ( q u o t e ( c l : : p s
0005400 p a t h n a m e % % m a k e -
0005420 p a t h n a m e ( h o s t d
0005440 e v i c e \r d i r e c t o r y
0005460 n a m e t y p e v e r s i
0005500 o n ) c l : : d a t a t y p e
0005520 n i l n i l % p a t h n a
0005540 m e - ( % % m a k e - p a t h
0005560 n a m e . : n o n e ) c l
0005600 : p a t h n a m e p \r % p r i
0005620 n t - p a t h n a m e c o p y
0005640 - p a t h n a m e n i l 0
0005660 ( ( h o s t n i l t n i l
0005700 ( p a t h n a m e 0 p o i
0005720 n t e r ) % p a t h n a m e -
0005740 h o s t ) ( d e v i c e n i
0005760 l \r t n i l ( p a t h n a
0006000 m e 2 p o i n t e r ) % p
0006020 a t h n a m e - d e v i c e )
0006040 ( d i r e c t o r y n i l t
0006060 n i l ( p a t h n a m e 4
0006100 p o i n t e r ) \r % p a t h
0006120 n a m e - d i r e c t o r y )
0006140 ( n a m e n i l t n i l
0006160 ( p a t h n a m e 6 p o i n
0006200 t e r ) % p a t h n a m e - n
0006220 a m e ) ( t y p e n i l t
0006240 n i l ( p a t h n a m e 8
0006260 \r p o i n t e r ) % p a t h
0006300 n a m e - t y p e ) ( v e r s
0006320 i o n n i l t n i l ( p
0006340 a t h n a m e 1 0 p o i n t
0006360 e r ) % p a t h n a m e - v e
0006400 r s i o n ) ) ( ( h o s t n
0006420 i l t n i l \r ( p a t h n
0006440 a m e 0 p o i n t e r ) %
0006460 p a t h n a m e - h o s t ) (
0006500 d e v i c e n i l t n i l
0006520 ( p a t h n a m e 2 p o i
0006540 n t e r ) % p a t h n a m e -
0006560 d e v i c e ) ( \r d i r e c t
0006600 o r y n i l t n i l ( p
0006620 a t h n a m e 4 p o i n t e
0006640 r ) % p a t h n a m e - d i r
0006660 e c t o r y ) ( n a m e n i
0006700 l t n i l ( p a t h n a m
0006720 e 6 p o i n t e r ) \r % p
0006740 a t h n a m e - n a m e ) ( t
0006760 y p e n i l t n i l ( p
0007000 a t h n a m e 8 p o i n t e
0007020 r ) % p a t h n a m e - t y p
0007040 e ) ( v e r s i o n n i l
0007060 t n i l ( p a t h n a m e
0007100 1 0 \r p o i n t e r ) % p a
0007120 t h n a m e - v e r s i o n ) )
0007140 n i l n i l ( p o i n t e
0007160 r p o i n t e r p o i n t e
*
0007220 r p o i n t e r ) n i l ) )
0007240 ) \r ( s i : : % s t r u c t u r
0007260 e - d e c l a r e - d a t a t y
0007300 p e ( q u o t e p a t h n a
0007320 m e ) ( q u o t e ( p o i n
0007340 t e r p o i n t e r p o i n
*
0007400 t e r \r p o i n t e r ) ) (
0007420 q u o t e ( ( p a t h n a m e
0007440 0 p o i n t e r ) ( p a t
0007460 h n a m e 2 p o i n t e r )
0007500 ( p a t h n a m e 4 p o i
0007520 n t e r ) ( p a t h n a m e
0007540 6 p o i n t e r ) \r ( p a t
0007560 h n a m e 8 p o i n t e r )
0007600 ( p a t h n a m e 1 0 p o
0007620 i n t e r ) ) ) 1 2 ( q u o
0007640 t e c l : : s t r u c t u r e
0007660 - o b j e c t ) ) \r c l : : | t
0007700 y p e - e x p a n d - P A T H N
0007720 A M E | d 1 \r ( l ( 0 $ $
0007740 t y p e - f o r m ) ) \0 006 \0 \0
0007760 \0 001 o \0 \0 \0 020 \0 n i l \r n i l \r
0010000 ( 3 ( d a t a t y p e p a
0010020 t h n a m e ) ) \r ( p u t ( q
0010040 u o t e p a t h n a m e ) (
0010060 q u o t e t y p e - e x p a n
0010100 d e r ) ( q u o t e c l : :
0010120 | t y p e - e x p a n d - P A T
0010140 H N A M E | ) ) \r c l : p a t h
0010160 n a m e p d 1 \r ( l ( 0 c
0010200 l : : o b j e c t ) ) \0 \t \0 \0
0010220 \0 001 @ 303 \0 \0 264 003 i 020 \0 n i l \r (
0010240 3 p a t h n a m e ) \r ( ) \r %
0010260 p a t h n a m e - h o s t d 1
0010300 \r ( l ( 0 p a t h n a m e )
0010320 ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 \0 020 \0
0010340 n i l \r ( 3 p a t h n a m e )
0010360 \r ( ) \r % p a t h n a m e - d e
0010400 v i c e d 1 \r ( l ( 0 p a
0010420 t h n a m e ) ) \0 \b \0 \0 \0 001 @
0010440 006 \0 \0 311 002 020 \0 n i l \r ( 3 p a
0010460 t h n a m e ) \r ( ) \r % p a t h
0010500 n a m e - d i r e c t o r y d
0010520 1 \r ( l ( 0 p a t h n a m e
0010540 ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 004 020
0010560 \0 n i l \r ( 3 p a t h n a m e
0010600 ) \r ( ) \r % p a t h n a m e - n
0010620 a m e d 1 \r ( l ( 0 p a t
0010640 h n a m e ) ) \0 \b \0 \0 \0 001 @ 006
0010660 \0 \0 311 006 020 \0 n i l \r ( 3 p a t
0010700 h n a m e ) \r ( ) \r % p a t h n
0010720 a m e - t y p e d 1 \r ( l (
0010740 0 p a t h n a m e ) ) \0 \b \0
0010760 \0 \0 001 @ 006 \0 \0 311 \b 020 \0 n i l \r (
0011000 3 p a t h n a m e ) \r ( ) \r %
0011020 p a t h n a m e - v e r s i o n
0011040 d 1 \r ( l ( 0 p a t h n a
0011060 m e ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311
0011100 \n 020 \0 n i l \r ( 3 p a t h n a
0011120 m e ) \r ( ) \r ( r e m p r o p
0011140 ( q u o t e % p a t h n a m e
0011160 - h o s t ) ( q u o t e s e
0011200 t f - m e t h o d - e x p a n d
0011220 e r ) ) \r ( p u t p r o p ( q
0011240 u o t e % p a t h n a m e - h
0011260 o s t ) ( q u o t e s e t f
0011300 - i n v e r s e ) ( q u o t e
0011320 % % s e t f - % p a t h n a m
0011340 e - h o s t ) ) \r % % s e t f -
0011360 % p a t h n a m e - h o s t d
0011400 1 \r ( l ( 1 c l : : v a l u
0011420 e 0 p a t h n a m e ) ) \0
0011440 \n \0 \0 \0 002 @ 006 \0 \0 A 024 \0 A 020 \0 n
0011460 i l \r ( 3 p a t h n a m e ) \r
0011500 ( ) \r ( r e m p r o p ( q u o
0011520 t e % p a t h n a m e - d e v
0011540 i c e ) ( q u o t e s e t f
0011560 - m e t h o d - e x p a n d e r
0011600 ) ) \r ( p u t p r o p ( q u o
0011620 t e % p a t h n a m e - d e v
0011640 i c e ) ( q u o t e s e t f
0011660 - i n v e r s e ) ( q u o t e
0011700 % % s e t f - % p a t h n a m
0011720 e - d e v i c e ) ) \r % % s e t
0011740 f - % p a t h n a m e - d e v i
0011760 c e d 1 \r ( l ( 1 c l : :
0012000 v a l u e 0 p a t h n a m e
0012020 ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 002
0012040 A 020 \0 n i l \r ( 3 p a t h n a
0012060 m e ) \r ( ) \r ( r e m p r o p
0012100 ( q u o t e % p a t h n a m e
0012120 - d i r e c t o r y ) ( q u o
0012140 t e s e t f - m e t h o d - e
0012160 x p a n d e r ) ) \r ( p u t p r
0012200 o p ( q u o t e % p a t h n
0012220 a m e - d i r e c t o r y ) (
0012240 q u o t e s e t f - i n v e r
0012260 s e ) ( q u o t e % % s e t
0012300 f - % p a t h n a m e - d i r e
0012320 c t o r y ) ) \r % % s e t f - %
0012340 p a t h n a m e - d i r e c t o
0012360 r y d 1 \r ( l ( 1 c l : :
0012400 v a l u e 0 p a t h n a m e
0012420 ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 004
0012440 A 020 \0 n i l \r ( 3 p a t h n a
0012460 m e ) \r ( ) \r ( r e m p r o p
0012500 ( q u o t e % p a t h n a m e
0012520 - n a m e ) ( q u o t e s e
0012540 t f - m e t h o d - e x p a n d
0012560 e r ) ) \r ( p u t p r o p ( q
0012600 u o t e % p a t h n a m e - n
0012620 a m e ) ( q u o t e s e t f
0012640 - i n v e r s e ) ( q u o t e
0012660 % % s e t f - % p a t h n a m
0012700 e - n a m e ) ) \r % % s e t f -
0012720 % p a t h n a m e - n a m e d
0012740 1 \r ( l ( 1 c l : : v a l u
0012760 e 0 p a t h n a m e ) ) \0
0013000 \n \0 \0 \0 002 @ 006 \0 \0 A 024 006 A 020 \0 n
0013020 i l \r ( 3 p a t h n a m e ) \r
0013040 ( ) \r ( r e m p r o p ( q u o
0013060 t e % p a t h n a m e - t y p
0013100 e ) ( q u o t e s e t f - m
0013120 e t h o d - e x p a n d e r ) )
0013140 \r ( p u t p r o p ( q u o t e
0013160 % p a t h n a m e - t y p e )
0013200 ( q u o t e s e t f - i n v
0013220 e r s e ) ( q u o t e % % s
0013240 e t f - % p a t h n a m e - t y
0013260 p e ) ) \r % % s e t f - % p a t
0013300 h n a m e - t y p e d 1 \r ( l
0013320 ( 1 c l : : v a l u e 0
0013340 p a t h n a m e ) ) \0 \n \0 \0 \0
0013360 002 @ 006 \0 \0 A 024 \b A 020 \0 n i l \r (
0013400 3 p a t h n a m e ) \r ( ) \r (
0013420 r e m p r o p ( q u o t e %
0013440 p a t h n a m e - v e r s i o n
0013460 ) ( q u o t e s e t f - m e
0013500 t h o d - e x p a n d e r ) ) \r
0013520 ( p u t p r o p ( q u o t e
0013540 % p a t h n a m e - v e r s i o
0013560 n ) ( q u o t e s e t f - i
0013600 n v e r s e ) ( q u o t e %
0013620 % s e t f - % p a t h n a m e -
0013640 v e r s i o n ) ) \r % % s e t f
0013660 - % p a t h n a m e - v e r s i
0013700 o n d 1 \r ( l ( 1 c l : :
0013720 v a l u e 0 p a t h n a m e
0013740 ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 \n
0013760 A 020 \0 n i l \r ( 3 p a t h n a
0014000 m e ) \r ( ) \r % % m a k e - p a
0014020 t h n a m e d 1 \r ( l ( 0
0014040 | - a r g s - | ) ) 001 B 022 \0 002
0014060 \0 e 021 001 \0 H k 021 002 002 J d I 363 242 261
0014100 \0 254 277 h 022 021 361 020 021 020 021 H k 273 272 K
0014120 d J 363 242 261 \0 254 277 h 274 H k 276 275 N d
0014140 M 363 242 261 \0 262 277 h _ 016 277 H k _ 022 277
0014160 _ 020 277 O 022 d O 020 363 242 261 \0 260 277 h _
0014200 024 277 H k _ 030 277 _ 026 277 O 030 d O 026 363
0014220 242 261 \0 261 277 h _ 032 277 H k _ 036 277 _ 034
0014240 277 O 036 d O 034 363 242 261 \0 262 277 h _ 277
0014260 ` \0 \0 037 _ " 006 \0 \0 I 024 \0 O " 006 \0
0014300 \0 L 024 002 O " 006 \0 \0 O 016 024 004 O " 006
0014320 \0 \0 O 024 024 006 O " 006 \0 \0 O 032 024 \b O
0014340 " 006 \0 \0 O 024 \n O " 020 a g \0 \0 360
0014360 226 J k 330 a 261 377 O J l 002 324 Z 261 377 >
0014400 a g \0 \0 360 226 K k 330 a 261 377 O K l 002
0014420 324 [ 261 377 > a g \0 \0 360 226 N k 330 a 261
0014440 377 I N l 002 324 ^ 261 377 8 a g \0 \0 360 227
0014460 O 022 k 330 a 261 377 J O 022 l 002 324 _ 022 261
0014500 377 6 a g \0 \0 360 227 O 030 k 330 a 261 377 I
0014520 O 030 l 002 324 _ 030 261 377 5 a g \0 \0 360 227
0014540 O 036 k 330 a 261 377 H O 036 l 002 324 _ 036 261
0014560 377 4 \0 n i l \r ( 3 0 0 : v e r
0014600 s i o n 2 7 6 : t y p e 2
0014620 5 2 : n a m e 2 3 1 : d i
0014640 r e c t o r y 2 1 0 : d e v
0014660 i c e 1 8 9 : h o s t 1 7
0014700 8 p a t h n a m e 1 6 9 p
0014720 a t h n a m e 1 6 0 p a t h
0014740 n a m e 1 5 1 p a t h n a m
0014760 e 1 4 3 p a t h n a m e 1
0015000 3 5 p a t h n a m e 1 2 9
0015020 | 004 003 P A T H N A M E T Y P E #
0015040 | ) \r ( ) \r c o p y - p a t h n
0015060 a m e d 1 \r ( l ( 0 p a t
0015100 h n a m e ) ) \0 [ 001 \0 \0 001 @ 021
0015120 001 \0 H 303 \0 \0 262 B 023 ` \0 \0 037 021 001 \0
0015140 H 006 \0 \0 @ 311 \0 024 \0 H 006 \0 \0 @ 311 002
0015160 024 002 H 006 \0 \0 @ 311 004 024 004 H 006 \0 \0 @
0015200 311 006 024 006 H 006 \0 \0 @ 311 \b 024 \b H 006 \0
0015220 \0 @ 311 \n 024 \n H 020 i g \0 \0 H g \0 \0
0015240 \f \0 \0 b \0 023 260 250 \0 ( 8 4 c h e
0015260 c k - t y p e - f a i l ) \r ( 8
0015300 1 p a t h n a m e 7 7 p a
0015320 t h n a m e 6 6 p a t h n a
0015340 m e 5 7 p a t h n a m e 4
0015360 8 p a t h n a m e 3 9 p a
0015400 t h n a m e 3 0 p a t h n a
0015420 m e 2 1 p a t h n a m e 1
0015440 3 | 004 003 P A T H N A M E T Y P
0015460 E # | 7 p a t h n a m e ) \r
0015500 ( ) \r % p r i n t - p a t h n a
0015520 m e d 1 \r ( l ( 2 d 1
0015540 s t r e a m 0 s ) ) \0 021 \0
0015560 \0 \0 003 A o \0 \0 \0 g \0 \0 @ \t \0 \0 \f
0015600 \0 \0 020 \0 ( 1 4 c l : f o r m a
0015620 t 1 1 c l : n a m e s t r i
0015640 n g ) \r ( 7 p a t h n a m e )
0015660 \r ( 4 " # . ( ~ S ~ S ) "
0015700 ) \r c l : m a k e - p a t h n a
0015720 m e d 1 \r ( l ( 0 | - a r
0015740 g s - | ) ) 001 370 033 \0 002 \0 e 021 001
0015760 \0 H k 021 002 002 J d I 363 242 261 001 020 277 h
0016000 022 021 361 020 021 240 032 i 272 H k 274 273 L d K
0016020 363 242 261 001 016 277 h Z 275 i 276 H k _ 020 277
0016040 _ 016 277 O 020 d O 016 363 242 261 001 \v 277 h ^
0016060 _ 022 277 i _ 024 277 H k _ 030 277 _ 026 277 O
0016100 030 d O 026 363 242 261 001 \a 277 h _ 024 _ 032 277
0016120 i _ 034 277 H k _ 277 _ 036 277 O d O
0016140 036 363 242 261 001 002 277 h _ 034 _ " 277 i _ $
0016160 277 H k _ ( 277 _ & 277 O ( d O & 363 242
0016200 261 \0 375 277 h _ $ _ * 277 i _ , 277 H k
0016220 _ 0 277 _ . 277 O 0 d O . 363 242 261 \0 370
0016240 277 h _ , _ 2 277 I 265 016 J 263 O ` \0 \0
0016260 \t \0 \0 ] 260 G \t \0 \0 _ 4 277 J 245 O 4
0016300 \t \0 \0 275 N 247 O 4 \t \0 \0 _ 022 277 O 024
0016320 247 O 4 \t \0 \0 _ 032 277 O 034 247 O 4 \t \0
0016340 \0 _ " 277 O $ 247 O 4 \t \0 \0 _ * 277 O
0016360 , 247 O 4 \t \0 \0 _ 2 277 M 005 \a 242 261 \0
0016400 257 M g \0 \0 \n \0 \0 261 \0 246 a g \0 \0 360
0016420 226 J k 330 a 261 376 353 J l 002 324 Z 261 376 332
0016440 a g \0 \0 360 226 L k 330 a 261 376 356 L l 002
0016460 324 \ 261 376 334 a g \0 \0 360 227 O 020 k 330 a
0016500 261 376 360 O 020 l 002 324 _ 020 261 376 333 a g \0
0016520 \0 360 227 O 030 k 330 a 261 376 365 O 030 l 002 324
0016540 _ 030 261 376 337 a g \0 \0 360 227 O k 330 a
0016560 261 376 372 O l 002 324 _ 261 376 344 a g \0
0016600 \0 360 227 O ( k 330 a 261 376 377 O ( l 002 324
0016620 _ ( 261 376 351 a g \0 \0 360 227 O 0 k 330 a
0016640 261 377 004 O 0 l 002 324 _ 0 261 376 356 M O 022
0016660 d 005 \a 230 277 O 022 g \0 \0 \n \0 \0 O 032 O
0016700 " d 005 \a 230 277 O " g \0 \0 \n \0 \0 O *
0016720 d 005 \a 230 277 O * g \0 \0 \n \0 \0 O 2 \r
0016740 006 \0 \0 020 \0 ( 5 0 1 % m a k e -
0016760 p a t h n a m e 4 9 5 c o e
0017000 r c e 4 8 0 c o e r c e 4
0017020 6 3 c o e r c e 2 8 2 c o
0017040 e r c e 2 6 5 % p a t h n a
0017060 m e - v e r s i o n 2 5 4 %
0017100 p a t h n a m e - t y p e 2 4
0017120 3 % p a t h n a m e - n a m e
0017140 2 3 2 % p a t h n a m e - d
0017160 i r e c t o r y 2 2 1 % p a
0017200 t h n a m e - d e v i c e 2 1
0017220 3 % p a t h n a m e - h o s t
0017240 2 0 3 p a t h n a m e 1 9
0017260 7 % p a t h n a m e - h o s t
0017300 ) \r ( 4 9 2 c l : s i m p l e
0017320 - s t r i n g 4 7 7 c l : s
0017340 i m p l e - s t r i n g 4 6 0
0017360 c l : s i m p l e - s t r i n
0017400 g 4 2 7 : v e r s i o n 4
0017420 0 3 : t y p e 3 7 9 : n a
0017440 m e 3 5 5 : d i r e c t o r
0017460 y 3 3 1 : d e v i c e 3 1
0017500 0 : h o s t 2 8 9 : d e f
0017520 a u l t s 2 7 9 c l : s i m
0017540 p l e - s t r i n g 1 9 4 *
0017560 d e f a u l t - p a t h n a m e
0017600 - d e f a u l t s * ) \r ( ) \r c
0017620 l : p a t h n a m e - h o s t
0017640 d 1 \r ( l ( 0 p a t h n a m
0017660 e ) ) \0 021 \0 \0 \0 001 @ d \t \0 \0 222
0017700 277 @ 202 \t \0 \0 \t \0 \0 020 \0 ( 1 4 %
0017720 p a t h n a m e - h o s t 1 1
0017740 p a t h n a m e 4 c l : p
0017760 a t h n a m e p ) \r n i l \r ( )
0020000 \r c l : p a t h n a m e - d e v
0020020 i c e d 1 \r ( l ( 0 p a t
0020040 h n a m e ) ) \0 021 \0 \0 \0 001 @ d
0020060 \t \0 \0 222 277 @ 202 \t \0 \0 \t \0 \0 020 \0 (
0020100 1 4 % p a t h n a m e - d e v
0020120 i c e 1 1 p a t h n a m e
0020140 4 c l : p a t h n a m e p ) \r
0020160 n i l \r ( ) \r c l : p a t h n a
0020200 m e - d i r e c t o r y d 1 \r
0020220 ( l ( 0 p a t h n a m e ) )
0020240 \0 021 \0 \0 \0 001 @ d \t \0 \0 222 277 @ 202
0020260 \t \0 \0 \t \0 \0 020 \0 ( 1 4 % p a t
0020300 h n a m e - d i r e c t o r y
0020320 1 1 p a t h n a m e 4 c l
0020340 : p a t h n a m e p ) \r n i l \r
0020360 ( ) \r c l : p a t h n a m e - n
0020400 a m e d 1 \r ( l ( 0 p a t
0020420 h n a m e ) ) \0 021 \0 \0 \0 001 @ d
0020440 \t \0 \0 222 277 @ 202 \t \0 \0 \t \0 \0 020 \0 (
0020460 1 4 % p a t h n a m e - n a m
0020500 e 1 1 p a t h n a m e 4
0020520 c l : p a t h n a m e p ) \r n i
0020540 l \r ( ) \r c l : p a t h n a m e
0020560 - t y p e d 1 \r ( l ( 0 p
0020600 a t h n a m e ) ) \0 021 \0 \0 \0 001
0020620 @ d \t \0 \0 222 277 @ 202 \t \0 \0 \t \0 \0 020
0020640 \0 ( 1 4 % p a t h n a m e - t
0020660 y p e 1 1 p a t h n a m e
0020700 4 c l : p a t h n a m e p ) \r
0020720 n i l \r ( ) \r c l : p a t h n a
0020740 m e - v e r s i o n d 1 \r ( l
0020760 ( 0 p a t h n a m e ) ) \0
0021000 021 \0 \0 \0 001 @ d \t \0 \0 222 277 @ 202 \t \0
0021020 \0 \t \0 \0 020 \0 ( 1 4 % p a t h n
0021040 a m e - v e r s i o n 1 1 p
0021060 a t h n a m e 4 c l : p a t
0021100 h n a m e p ) \r n i l \r ( ) \r p
0021120 a t h n a m e d 1 \r ( l ( 0
0021140 t h i n g ) ) \0 \t \0 \0 \0 001 @
0021160 \t \0 \0 \t \0 \0 020 \0 ( 6 c l : v a
0021200 l u e s 3 c l : p a r s e -
0021220 n a m e s t r i n g ) \r n i l \r
0021240 ( ) \r c l : m e r g e - p a t h
0021260 n a m e s d 1 \r ( l ( 0 |
0021300 - a r g s - | ) ) \0 y \b \0 002 \0
0021320 e 021 001 \0 k a 021 a \a l 002 H 361 223 ` \0
0021340 \0 202 l 002 a 272 l 003 H 361 221 h 202 l 003 a
0021360 273 I \t \0 \0 274 J \t \0 \0 275 L \t \0 \0 276
0021400 L \t \0 \0 _ 016 277 L \t \0 \0 265 006 M \t \0
0021420 \0 O 016 265 006 M \t \0 \0 L \t \0 \0 265 006 M
0021440 \t \0 \0 N 265 006 M \t \0 \0 L \t \0 \0 265 006
0021460 M \t \0 \0 L \t \0 \0 265 \v N 245 M \t \0 \0
0021500 265 003 K \r 006 \0 \0 020 \0 ( 1 1 8 % m
0021520 a k e - p a t h n a m e 1 1 1
0021540 % p a t h n a m e - v e r s i
0021560 o n 1 0 3 % p a t h n a m e
0021600 - v e r s i o n 9 9 % p a t
0021620 h n a m e - t y p e 9 3 % p
0021640 a t h n a m e - t y p e 8 9
0021660 % p a t h n a m e - n a m e 8
0021700 2 % p a t h n a m e - d i r e
0021720 c t o r y 7 6 % p a t h n a
0021740 m e - d i r e c t o r y 7 2
0021760 % p a t h n a m e - d e v i c e
0022000 6 4 % p a t h n a m e - h o
0022020 s t 5 8 % p a t h n a m e -
0022040 h o s t 5 1 % p a t h n a m
0022060 e - d e v i c e 4 6 % p a t
0022100 h n a m e - n a m e 4 1 p a
0022120 t h n a m e 3 6 p a t h n a
0022140 m e ) \r ( 1 6 * d e f a u l t
0022160 - p a t h n a m e - d e f a u l
0022200 t s * ) \r ( ) \r f i l e - n a m
0022220 e d 1 \r ( l ( 0 f i l e )
0022240 ) \0 023 \0 \0 \0 001 @ \t \0 \0 d \t \0 \0
0022260 224 o \0 \0 \0 020 \t \0 \0 020 \0 ( 1 6 m
0022300 k s t r i n g 7 s t r e a m
0022320 p 3 f u l l n a m e ) \r n i
0022340 l \r ( 1 2 " " ) \r c l : h o
0022360 s t - n a m e s t r i n g d 1
0022400 \r ( l ( 0 p a t h n a m e )
0022420 ) \0 017 \0 \0 \0 001 @ \t \0 \0 \t \0 \0 265
0022440 006 o \0 \0 \0 020 \0 ( 6 % p a t h n
0022460 a m e - h o s t 3 p a t h n
0022500 a m e ) \r n i l \r ( 1 2 " "
0022520 ) \r c l : e n o u g h - n a m e
0022540 s t r i n g d 1 \r ( l ( 0
0022560 | - a r g s - | ) ) 001 020 \f \0 002
0022600 \0 e 021 001 \0 k a 021 241 \v l 002 H 361 223 `
0022620 \0 \0 202 l 002 a 272 I \t \0 \0 273 J \t \0 \0
0022640 274 K \t \0 \0 275 K \t \0 \0 276 K \t \0 \0 _
0022660 016 277 K \t \0 \0 _ 020 277 K \t \0 \0 _ 022 277
0022700 o \0 \0 \0 _ 024 277 h _ 026 277 M 265 003 202 261
0022720 \0 246 N 265 y O 016 265 S O 020 262 ( O 026 263
0022740 023 O 020 L \t \0 \0 265 006 o \0 \0 \0 \n \0 \0
0022760 262 023 g \0 \0 O 024 o \0 \0 \0 O 020 \f \0 \0
0023000 _ 024 277 O 022 242 261 \0 207 O 026 250 O 022 L \t
0023020 \0 \0 : 263 z g \0 \0 O 024 o \0 \0 \0 O 022
0023040 265 006 o \0 \0 \0 \f \0 \0 020 L \t \0 \0 265 006
0023060 o \0 \0 \0 \n \0 \0 262 242 g \0 \0 O 024 O 016
0023100 \v \0 \0 _ 024 277 i _ 026 277 260 217 L \t \0 \0
0023120 265 006 o \0 \0 \0 \n \0 \0 222 261 377 { g \0 \0
0023140 O 024 o \0 \0 \0 N o \0 \0 \0 \r 005 \0 \0 _
0023160 024 277 261 377 c L \t \0 \0 265 006 o \0 \0 \0 \n
0023200 \0 \0 242 261 377 O M _ 024 277 261 377 H O 024 020
0023220 \0 ( 2 5 6 c l : s t r i n g -
0023240 n o t - e q u a l 2 4 7 % p
0023260 a t h n a m e - d e v i c e 2
0023300 3 7 c l : c o n c a t e n a t
0023320 e 2 1 5 c l : e q u a l p
0023340 2 0 6 % p a t h n a m e - d i
0023360 r e c t o r y 1 9 3 c l : c
0023400 o n c a t e n a t e 1 8 1 c
0023420 l : s t r i n g - n o t - e q u
0023440 a l 1 7 2 % p a t h n a m e
0023460 - n a m e 1 6 7 c l : c o n
0023500 c a t e n a t e 1 4 4 % p a
0023520 t h n a m e - v e r s i o n 1
0023540 2 6 c l : c o n c a t e n a t
0023560 e 1 1 0 c l : s t r i n g -
0023600 n o t - e q u a l 1 0 1 % p
0023620 a t h n a m e - t y p e 5 9
0023640 % p a t h n a m e - v e r s i o
0023660 n 5 2 % p a t h n a m e - t
0023700 y p e 4 5 % p a t h n a m e
0023720 - n a m e 4 0 % p a t h n a
0023740 m e - d i r e c t o r y 3 5
0023760 % p a t h n a m e - d e v i c e
0024000 3 0 p a t h n a m e 2 5
0024020 p a t h n a m e ) \r ( 2 2 2 c
0024040 l : s i m p l e - s t r i n g
0024060 1 8 6 c l : s i m p l e - s t
0024100 r i n g 1 5 0 c l : s i m p
0024120 l e - s t r i n g 1 1 5 c l
0024140 : s i m p l e - s t r i n g 1
0024160 6 * d e f a u l t - p a t h n
0024200 a m e - d e f a u l t s * ) \r (
0024220 2 5 3 " " 2 3 3 " > "
0024240 2 2 8 " < " 2 1 2 " " 1
0024260 7 8 " " 1 6 4 " " 1 5 6
0024300 " ; " 1 2 1 " . " 1 0 7
0024320 " " 6 6 " " ) \r % n u m e
0024340 r i c - s t r i n g - p d 1 \r
0024360 ( p 1 c h a r i 0 s t
0024400 r i n g ) \0 I 006 \0 \0 001 @ \t \0 \0
0024420 264 A @ 021 Q 005 H 310 003 k 331 273 H 311 \0 274
0024440 K H 310 002 330 272 H 312 \0 C j 360 221 h 200 i
0024460 275 K k 330 [ J 361 263 033 M 225 L K 320 310 \0
0024500 202 L K 302 271 l 0 I 361 245 I l 9 361 262 343
0024520 h 020 i 020 \0 ( 3 c l : s t r i n
0024540 g p ) \r n i l \r ( ) \r c l : n a
0024560 m e s t r i n g d 1 \r ( l (
0024600 0 p a t h n a m e ) ) \0 340 \a
0024620 \0 \0 001 @ d \t \0 \0 235 277 @ d 006 \0 \0 311
0024640 004 244 o \0 \0 \0 020 \t \0 \0 b \0 d \t \0 \0
0024660 021 a 006 @ \t \0 \0 271 @ \t \0 \0 272 @ \t \0
0024700 \0 273 @ \t \0 \0 274 @ \t \0 \0 275 h 276 H 237
0024720 g \0 \0 o \0 \0 \0 H o \0 \0 \0 \f \0 \0 276
0024740 I 230 g \0 \0 N I \v \0 \0 276 J 262 037 g \0
0024760 \0 N o \0 \0 \0 J d g \0 \0 360 224 277 o \0
0025000 \0 \0 o \0 \0 \0 \r 005 \0 \0 276 K 262 026 g \0
0025020 \0 N K d g \0 \0 360 224 277 o \0 \0 \0 \v \0
0025040 \0 276 L 262 032 g \0 \0 N o \0 \0 \0 L d g
0025060 \0 \0 360 224 277 o \0 \0 \0 \f \0 \0 276 M 262 2
0025100 g \0 \0 N M d g \0 \0 360 226 277 o \0 \0 \0
0025120 260 034 g \0 \0 360 241 M 244 o \0 \0 \0 215 g \0
0025140 \0 o \0 \0 \0 M \t \0 \0 \v \0 \0 \v \0 \0 020
0025160 N 020 \0 ( 2 1 9 c l : c o n c a
0025200 t e n a t e 2 1 6 c l : c o
0025220 n c a t e n a t e 2 1 3 c l
0025240 : p r i n c - t o - s t r i n g
0025260 1 6 8 c l : c o n c a t e n
0025300 a t e 1 4 1 c l : c o n c a
0025320 t e n a t e 1 1 8 c l : c o
0025340 n c a t e n a t e 8 6 c l :
0025360 c o n c a t e n a t e 7 5 c
0025400 l : c o n c a t e n a t e 5 5
0025420 % p a t h n a m e - v e r s i
0025440 o n 5 0 % p a t h n a m e -
0025460 t y p e 4 5 % p a t h n a m
0025500 e - n a m e 4 0 % p a t h n
0025520 a m e - d i r e c t o r y 3 5
0025540 % p a t h n a m e - d e v i c
0025560 e 2 8 % p a t h n a m e - h
0025600 o s t 2 2 p a t h n a m e
0025620 4 s t r e a m p ) \r ( 2 0 5
0025640 c l : s i m p l e - s t r i n g
0025660 1 9 3 : n e w e s t 1 8 1
0025700 : w i l d 1 7 5 c l : s i
0025720 m p l e - s t r i n g 1 5 8
0025740 : w i l d 1 4 8 c l : s i m
0025760 p l e - s t r i n g 1 3 1 :
0026000 w i l d 1 2 5 c l : s i m p
0026020 l e - s t r i n g 1 0 3 : w
0026040 i l d 9 3 c l : s i m p l e
0026060 - s t r i n g 8 1 c l : s i
0026100 m p l e - s t r i n g 6 3 c
0026120 l : s i m p l e - s t r i n g
0026140 1 1 s t r e a m ) \r ( 2 0 9
0026160 " ; " 2 0 1 " " 1 8 8
0026200 " ; * " 1 6 5 " * " 1 5 3
0026220 " . " 1 3 8 " * " 1 1 4
0026240 " > " 1 1 0 " * " 9 8
0026260 " < " 7 2 " } " 6 7 " {
0026300 " 1 8 " " ) \r c l : p a r s
0026320 e - n a m e s t r i n g d 1 \r
0026340 ( l ( 0 | - a r g s - | ) )
0026360 001 212 020 \0 002 \0 e 021 001 \0 k a 021 341 017
0026400 l 002 H 361 221 h 202 l 002 a 272 l 003 H 361 223
0026420 ` \0 \0 202 l 003 a 273 H l 004 275 274 M d L
0026440 363 262 N 277 j 276 H l 004 _ 020 277 _ 016 277 O
0026460 020 d O 016 363 262 M 277 h _ 022 277 H l 004 _
0026500 026 277 _ 024 277 O 026 d O 024 363 262 M 277 K 243
0026520 ` \0 \0 273 J 244 K \t \0 \0 272 I _ 030 d \t
0026540 \0 \0 262 F 277 I g \0 \0 \n \0 \0 Y 260 f a
0026560 g \0 \0 360 225 M k 330 a 260 254 M l 002 324 ]
0026600 260 236 a g \0 \0 360 226 O 020 k 330 a 260 254 O
0026620 020 l 002 324 _ 020 260 233 a g \0 \0 360 263 261 O
0026640 026 l 002 324 _ 026 260 241 303 \0 \0 225 I N \n \0
0026660 \0 020 O 030 d 303 \0 \0 227 277 I \t \0 \0 Y 260
0026700 024 303 \0 \0 225 I \t \0 \0 Y 207 o \0 \0 \0 I
0026720 \n \0 \0 277 O 022 246 I \t \0 \0 _ 022 277 I N
0026740 O 022 \v \0 \0 \t \0 \0 \t \0 \0 _ 032 002 _ 034
0026760 277 g \0 \0 O 034 g \0 \0 ' g \0 \0 O 034 g
0027000 \0 \0 ' g \0 \0 O 034 g \0 \0 ' d o \0 \0
0027020 \0 \n \0 \0 223 277 g \0 \0 g \0 \0 O 034 g \0
0027040 \0 ' d o \0 \0 \0 \n \0 \0 223 277 g \0 \0 g
0027060 \0 \0 O 034 g \0 \0 ' d o \0 \0 \0 \n \0 \0
0027100 223 277 g \0 \0 g \0 \0 O 034 g \0 \0 ' _ 036
0027120 233 O 036 d o \0 \0 \0 \n \0 \0 225 277 g \0 \0
0027140 260 023 o \0 \0 \0 \n \0 \0 223 g \0 \0 204 O 036
0027160 \t \0 \0 \r \f \0 \0 N O 032 001 324 \n \0 \0 020
0027200 \0 ( 3 9 1 c l : v a l u e s
0027220 3 8 3 c l : m a k e - p a t h
0027240 n a m e 3 7 9 m k a t o m
0027260 3 6 9 c l : e q u a l 3 5 5
0027300 c l : e q u a l 3 2 8 s t
0027320 r i n g - e q u a l 3 0 6 s
0027340 t r i n g - e q u a l 2 8 4
0027360 s t r i n g - e q u a l 2 4 3
0027400 p a r s e - n a m e s t r i n
0027420 g 1 2 4 0 m k s t r i n g
0027440 2 3 7 c l : s u b s e q 2 2
0027460 7 c l : l e n g t h 2 1 9
0027500 c l : e r r o r 2 0 9 c l :
0027520 s y m b o l - n a m e 1 9 8
0027540 f i l e - n a m e 1 8 5 c l
0027560 : v a l u e s 1 1 6 c o e r
0027600 c e 1 0 6 c l : s t r i n g
0027620 p 9 8 % p a t h n a m e - h
0027640 o s t ) \r ( 3 7 3 : w i l d
0027660 3 6 0 : n e w e s t 3 4 1
0027700 v e r s i o n 3 3 6 : v e r
0027720 s i o n 3 3 3 : w i l d 3
0027740 1 9 t y p e 3 1 4 : t y p
0027760 e 3 1 1 : w i l d 2 9 7
0030000 n a m e 2 9 2 : n a m e 2
0030020 8 9 : w i l d 2 7 5 d i r
0030040 e c t o r y 2 7 0 : d i r e
0030060 c t o r y 2 6 6 d e v i c e
0030100 2 6 1 : d e v i c e 2 5 7
0030120 h o s t 2 5 2 : h o s t
0030140 2 0 4 l i t a t o m 1 9 2
0030160 s t r e a m 1 7 9 p a t h n
0030200 a m e 1 6 4 : j u n k - a l
0030220 l o w e d 1 4 2 : e n d 1
0030240 2 3 : s t a r t 1 1 3 c l
0030260 : s i m p l e - s t r i n g 9
0030300 1 * d e f a u l t - p a t h n
0030320 a m e - d e f a u l t s * 2 7
0030340 * d e f a u l t - p a t h n a
0030360 m e - d e f a u l t s * ) \r (
0030400 3 6 6 " * " 3 5 2 " " 3
0030420 2 5 " * " 3 0 3 " * " 2
0030440 8 1 " * " 2 1 5 " T h i s
0030460 i s o f a n i n a p p r
0030500 o p r i a t e t y p e f o r
0030520 p a r s e - n a m e s t r i n
0030540 g : ~ S " ) \r p a r s e - n a
0030560 m e s t r i n g 1 d 1 \r ( l
0030600 ( 0 f i l e ) ) 002 217 \f \0 \0 001
0030620 k 021 201 \b @ 265 006 H h 032 020 004 l 004 360 263
0030640 - @ d \t \0 \0 263 ' 277 @ d 3 020 263 d
0030660 303 \0 \0 262 025 277 @ 311 004 265 \f H g \0 \0 @
0030700 h 032 032 032 020 b \0 204 \t \0 \0 277 @ k \n \0
0030720 \0 d l { 360 223 277 l } 217 d l [ 360 223 277
0030740 l ] 206 l ( 360 262 < l ) @ l 002 \v \0 \0
0030760 265 003 j k 331 Y 262 , @ l 002 I \v \0 \0 265
0031000 006 o \0 \0 \0 g \0 \0 M 032 032 275 I d m 377
0031020 360 227 277 H M \t \0 \0 032 020 l 002 330 270 i _
0031040 016 277 l : @ H \v \0 \0 Y 264 036 @ H I \v
0031060 \0 \0 265 006 o \0 \0 \0 g \0 \0 M 032 032 275 I
0031100 k 330 270 i _ 016 277 h g \0 \0 360 262 l g \0
0031120 \0 @ H \n \0 \0 265 \t H M \t \0 \0 032 020 d
0031140 l / 360 244 d l < 360 224 277 H k 330 201 277 H
0031160 021 022 \v @ m 377 \n \0 \0 d l / 360 245 d l
0031200 > 360 262 024 277 O 024 H 360 230 O 016 245 g \0 \0
0031220 _ 022 277 m 376 202 277 m 377 _ 026 277 @ O 024 O
0031240 026 \v \0 \0 265 006 o \0 \0 \0 O 022 M 032 032 ]
0031260 023 H M \t \0 \0 032 020 @ H \n \0 \0 d l /
0031300 360 234 277 l / @ H k 330 \v \0 \0 Y 260 032 d
0031320 l < 360 244 d l > 360 233 277 l > @ H k 330
0031340 \v \0 \0 Y 201 277 h 262 ! @ H k 330 I k 331
0031360 \v \0 \0 265 006 o \0 \0 \0 g \0 \0 M 032 032 275
0031400 I k 330 270 i _ 016 277 @ H Y \n \0 \0 ^ 265
0031420 003 202 261 \0 237 H M \t \0 \0 032 020 @ H I k
0031440 331 \v \0 \0 265 006 o \0 \0 \0 K 256 N l . 360
0031460 243 g \0 \0 274 g \0 \0 [ 260 M L 265 022 N l
0031500 . 360 243 g \0 \0 200 i 274 g \0 \0 260 : g \0
0031520 \0 360 264 \a @ H \n \0 \0 d l P 360 225 277 g
0031540 \0 \0 260 $ d l A 360 231 277 H k 324 270 g \0
0031560 \0 260 025 d l T 360 244 d l S 360 224 277 g \0
0031600 \0 203 277 g \0 \0 M 032 032 275 N 242 261 \0 213 I
0031620 k 330 X 260 024 l ' 360 224 I k 324 Y 210 N l
0031640 / 360 244 N l > 360 277 @ I k 324 Y \n \0 \0
0031660 ^ l . 360 254 N d l ! 360 247 d l ; 360 242
0031700 265 325 N l . 360 262 K 263 035 o \0 \0 \0 @
0031720 I k 330 \v \0 \0 Z 235 @ J k 330 \n \0 \0 Z
0031740 224 J 3 262 304 O 020 242 261 377 3 @ H O 020
0031760 k 331 \v \0 \0 265 006 o \0 \0 \0 g \0 \0 M 032
0032000 032 275 O 020 k 330 270 h _ 020 277 N 222 261 377 017
0032020 H I 360 242 261 377 \b H M \t \0 \0 032 020 \0 (
0032040 6 5 1 d r e v e r s e 6 1 2
0032060 s u b s t r i n g 5 9 0 n
0032100 t h c h a r 5 8 1 s t r p o
0032120 s 5 4 3 n t h c h a r c o d
0032140 e 4 5 6 n t h c h a r c o d
0032160 e 4 0 3 s u b s t r i n g
0032200 3 9 3 d r e v e r s e 3 8 1
0032220 n t h c h a r c o d e 3 5 4
0032240 s u b s t r i n g 3 3 8 l
0032260 a s t c h p o s 3 1 5 l a s
0032300 t c h p o s 3 0 0 n t h c h
0032320 a r c o d e 2 9 3 d r e v e
0032340 r s e 2 7 5 s u b s t r i n
0032360 g 2 3 2 n t h c h a r c o d
0032400 e 2 0 4 d r e v e r s e 1
0032420 9 7 n t h c h a r c o d e 1
0032440 6 1 s u b s t r i n g 1 5 2
0032460 l a s t c h p o s 1 3 5 d
0032500 r e v e r s e 1 1 0 s u b s
0032520 t r i n g 9 5 \ \ u p f . n
0032540 e x t p o s 6 4 n t h c h a
0032560 r c o d e 5 8 \ \ i l l e g
0032600 a l . a r g 2 1 c l : s t r
0032620 i n g p ) \r ( 6 2 1 s u b d i
0032640 r e c t o r y 5 0 1 v e r s
0032660 i o n 4 9 6 t e m p o r a r
0032700 y 4 8 0 a c c o u n t 4 6
0032720 5 p r o t e c t i o n 4 4 8
0032740 \ ; 4 4 3 t y p e 4 3 7
0032760 \ ; 4 2 3 n a m e 4 1 9
0033000 \ ; 3 6 3 d i r e c t o r
0033020 y 2 5 5 s u b d i r e c t o
0033040 r y 1 9 2 d i r e c t o r y
0033060 1 8 6 r e t u r n 1 7 0
0033100 d e v i c e 1 1 9 h o s t
0033120 4 6 n a m e 3 4 s t r e a
0033140 m ) \r ( 6 1 8 " " 5 7 4
0033160 " . " 4 0 9 " " 3 6 0 "
0033200 " 2 8 1 " " 1 6 7 " "
0033220 1 1 6 " " ) \r c l : t r u e n
0033240 a m e d 1 \r ( l ( 0 p a t
0033260 h n a m e ) ) \0 1 001 \0 \0 001 @ d
0033300 \t \0 \0 262 025 277 @ d 006 \0 \0 311 004 251 277 o
0033320 \0 \0 \0 @ \n \0 \0 020 \t \0 \0 021 001 \0 H 265
0033340 016 o \0 \0 \0 @ \t \0 \0 \n \0 \0 H 020 \0 (
0033360 4 5 c l : e r r o r 4 2 c
0033400 l : n a m e s t r i n g 2 8
0033420 c l : p r o b e - f i l e 2 4
0033440 c l : e r r o r 4 s t r e
0033460 a m p ) \r ( 1 2 s t r e a m )
0033500 \r ( 3 8 " T h e f i l e
0033520 ~ S d o e s n o t e x i s
0033540 t . " 2 0 " T h e s t r e
0033560 a m ~ S h a s n o c o r
0033600 r e s p o n d i n g n a m e d
0033620 f i l e . " ) \r % m a k e - p
0033640 a t h n a m e d 1 \r ( l ( 5
0033660 v e r s i o n 4 t y p e
0033700 3 n a m e 2 d i r e c t o
0033720 r y 1 d e v i c e 0 h o
0033740 s t ) ) \0 036 \0 \0 \0 006 g \0 \0 @ g
0033760 \0 \0 A g \0 \0 B g \0 \0 C g \0 \0 D g
0034000 \0 \0 E \r \f \0 \0 020 \0 ( 2 7 % % m
0034020 a k e - p a t h n a m e ) \r ( 2
0034040 2 : v e r s i o n 1 8 : t
0034060 y p e 1 4 : n a m e 1 0
0034100 : d i r e c t o r y 6 : d e
0034120 v i c e 2 : h o s t ) \r ( )
0034140 \r i n t e r l i s p - n a m e s
0034160 t r i n g d 1 \r ( l ( 0 p
0034200 a t h n a m e ) ) \0 315 \a \0 \0 001
0034220 @ d \t \0 \0 235 277 @ d 006 \0 \0 311 004 244 o
0034240 \0 \0 \0 020 \t \0 \0 b \0 d \t \0 \0 @ \t \0
0034260 \0 @ \t \0 \0 @ \t \0 \0 @ \t \0 \0 @ \t \0
0034300 \0 o \0 \0 \0 021 \a 006 H 234 o \0 \0 \0 H o
0034320 \0 \0 \0 \v \0 \0 276 I 225 N I \n \0 \0 276 J
0034340 262 033 N o \0 \0 \0 J d g \0 \0 360 224 277 o
0034360 \0 \0 \0 o \0 \0 \0 \f \0 \0 276 K 262 023 N K
0034400 d g \0 \0 360 224 277 o \0 \0 \0 \n \0 \0 276 L
0034420 262 027 N o \0 \0 \0 L d g \0 \0 360 224 277 o
0034440 \0 \0 \0 \v \0 \0 276 M 262 2 N M d g \0 \0
0034460 360 226 277 o \0 \0 \0 260 037 g \0 \0 360 225 o \0
0034500 \0 \0 260 024 M 244 o \0 \0 \0 212 o \0 \0 \0 M
0034520 \t \0 \0 \n \0 \0 \n \0 \0 020 N 020 \0 ( 2 0
0034540 0 c o n c a t 1 9 7 c o n
0034560 c a t 1 9 4 c l : p r i n c
0034600 - t o - s t r i n g 1 4 9 c
0034620 o n c a t 1 2 5 c o n c a t
0034640 1 0 5 c o n c a t 7 7 c
0034660 o n c a t 6 9 c o n c a t
0034700 4 8 % p a t h n a m e - v e r
0034720 s i o n 4 4 % p a t h n a m
0034740 e - t y p e 4 0 % p a t h n
0034760 a m e - n a m e 3 6 % p a t
0035000 h n a m e - d i r e c t o r y
0035020 3 2 % p a t h n a m e - d e v
0035040 i c e 2 8 % p a t h n a m e
0035060 - h o s t 2 2 p a t h n a m
0035100 e 4 s t r e a m p ) \r ( 1 7
0035120 1 : n e w e s t 1 5 9 : w
0035140 i l d 1 3 9 : w i l d 1 1
0035160 5 : w i l d 9 1 : w i l d
0035200 1 1 s t r e a m ) \r ( 1 9
0035220 0 " ; " 1 8 5 " " 1 7 7
0035240 " ; " 1 6 6 " ; * " 1 4
0035260 6 " * " 1 3 4 " . " 1 2
0035300 2 " * " 1 0 2 " > " 9 8
0035320 " * " 8 6 " < " 6 6 "
0035340 } " 6 1 " { " 5 2 " "
0035360 1 8 \r " " ) \r % p a t h n a m
0035400 e - e q u a l d 1 \r ( l ( 1
0035420 p a t h n a m e 2 0 p a t
0035440 h n a m e 1 ) ) \0 N \0 \0 \0 002 @
0035460 \t \0 \0 A \t \0 \0 \n \0 \0 264 A @ \t \0 \0
0035500 A \t \0 \0 \n \0 \0 264 4 @ \t \0 \0 A \t \0
0035520 \0 \n \0 \0 264 ' @ \t \0 \0 A \t \0 \0 \n \0
0035540 \0 264 032 @ \t \0 \0 A \t \0 \0 \n \0 \0 264 \r
0035560 @ \t \0 \0 A \t \0 \0 \n \0 \0 020 \0 ( 7 5
0035600 c l : e q u a l 7 2 % p a
0035620 t h n a m e - v e r s i o n 6
0035640 8 % p a t h n a m e - v e r s
0035660 i o n 6 2 c l : e q u a l
0035700 5 9 % p a t h n a m e - t y p
0035720 e 5 5 % p a t h n a m e - t
0035740 y p e 4 9 c l : e q u a l
0035760 4 6 % p a t h n a m e - n a m
0036000 e 4 2 % p a t h n a m e - n
0036020 a m e 3 6 c l : e q u a l
0036040 3 3 % p a t h n a m e - d i r
0036060 e c t o r y 2 9 % p a t h n
0036100 a m e - d i r e c t o r y 2 3
0036120 c l : e q u a l 2 0 % p a
0036140 t h n a m e - d e v i c e 1 6
0036160 % p a t h n a m e - d e v i c
0036200 e 1 0 c l : e q u a l 7
0036220 % p a t h n a m e - h o s t 3
0036240 % p a t h n a m e - h o s t )
0036260 \r n i l \r ( ) \r % i n i t i a l
0036300 i z e - d e f a u l t - p a t h
0036320 n a m e d 1 \r n i l \0 * \0 \0
0036340 \0 \0 g \0 \0 \t \0 \0 246 g \0 \0 027 \0 \0 202
0036360 ` \0 \0 d g \0 \0 \n \0 \0 \n \0 \0 027 \0 \0
0036400 d g \0 \0 \n \0 \0 ` \0 \0 020 \0 ( 3 6
0036420 % % s e t f - % p a t h n a m e
0036440 - v e r s i o n 2 6 c l : p
0036460 a r s e - n a m e s t r i n g
0036500 2 3 f i l e n a m e f i e l d
0036520 5 b o u n d p ) \r ( 3 9 *
0036540 d e f a u l t - p a t h n a m e
0036560 - d e f a u l t s * 3 3 : n
0036600 e w e s t 2 9 * d e f a u l
0036620 t - p a t h n a m e - d e f a u
0036640 l t s * 2 0 h o s t 1 6
0036660 \ \ c o n n e c t e d . d i r e
0036700 c t o r y 1 2 \ \ c o n n e
0036720 c t e d . d i r e c t o r y 9
0036740 { d s k } 2 \ \ c o n n e
0036760 c t e d . d i r e c t o r y ) \r
0037000 ( ) \r ( c l : p r o c l a i m
0037020 ( q u o t e ( g l o b a l *
0037040 d e f a u l t - p a t h n a m e
0037060 - d e f a u l t s * ) ) ) \r u n
0037100 p a c k p a t h n a m e . s t r
0037120 i n g d 1 \r ( l ( 3 a t o
0037140 m f l g 2 d i r f l g 1
0037160 o n e f i e l d f l g 0 f i
0037200 l e ) ) \0 376 001 \0 \0 004 A 265 030 021 020
0037220 \0 @ \t \0 \0 X 264 v g \0 \0 C 262 j H \t
0037240 \0 \0 260 e d 003 233 277 A o \0 \0 \0 \n \0 \0
0037260 001 b 002 g \0 \0 360 225 @ \t \0 \0 260 > A d
0037300 g \0 \0 360 226 277 @ \t \0 \0 260 0 g \0 \0 360
0037320 225 @ \t \0 \0 260 % A d g \0 \0 360 226 277 @
0037340 \t \0 \0 260 027 g \0 \0 360 224 @ \t \0 \0 212 A
0037360 g \0 \0 360 264 006 @ \t \0 \0 021 001 \0 C 224 H
0037400 \t \0 \0 020 H 020 H H h 032 032 032 @ \t \0 \0
0037420 X 264 020 g \0 \0 C 224 H \t \0 \0 200 H h 032
0037440 032 @ \t \0 \0 X 264 020 g \0 \0 C 224 H \t \0
0037460 \0 200 H h 032 032 @ \t \0 \0 X 264 020 g \0 \0
0037500 C 224 H \t \0 \0 200 H h 032 032 @ \t \0 \0 X
0037520 264 020 g \0 \0 C 224 H \t \0 \0 200 H h 032 032
0037540 @ \t \0 \0 X 264 023 g \0 \0 C 224 H \t \0 \0
0037560 203 H \t \0 \0 h 032 032 \n \0 \0 \n \0 \0 \n \0
0037600 \0 \n \0 \0 \n \0 \0 020 \0 ( 2 5 1 \ \
0037620 a p p e n d 2 2 4 8 \ \ a p
0037640 p e n d 2 2 4 5 \ \ a p p e
0037660 n d 2 2 4 2 \ \ a p p e n d
0037700 2 2 3 9 \ \ a p p e n d 2
0037720 2 3 3 m k s t r i n g 2 2 8
0037740 m k a t o m 2 1 6 c l : p
0037760 a t h n a m e - v e r s i o n
0040000 2 0 7 m k a t o m 1 9 5 c
0040020 l : p a t h n a m e - t y p e
0040040 1 8 6 m k a t o m 1 7 4 c
0040060 l : p a t h n a m e - n a m e
0040100 1 6 5 m k a t o m 1 5 3 c
0040120 l : p a t h n a m e - d i r e c
0040140 t o r y 1 4 4 m k a t o m
0040160 1 3 2 c l : p a t h n a m e -
0040200 d e v i c e 1 1 9 m k a t o
0040220 m 1 1 0 c l : p a t h n a m
0040240 e - v e r s i o n 9 8 c l :
0040260 p a t h n a m e - t y p e 8 7
0040300 c l : p a t h n a m e - n a m
0040320 e 7 3 c l : p a t h n a m e
0040340 - d i r e c t o r y 6 2 c l
0040360 : p a t h n a m e - d e v i c e
0040400 4 8 c l : p a t h n a m e -
0040420 h o s t 3 6 c l : i n t e r
0040440 s e c t i o n 2 2 m k a t o
0040460 m 9 c l : p a t h n a m e -
0040500 h o s t ) \r ( 2 2 2 v e r s i
0040520 o n 2 0 1 e x t e n s i o n
0040540 1 8 0 n a m e 1 5 9 d i
0040560 r e c t o r y 1 3 8 d e v i
0040600 c e 1 0 3 v e r s i o n 9
0040620 2 e x t e n s i o n 8 0 n
0040640 a m e 6 7 d i r e c t o r y
0040660 5 5 d e v i c e 4 2 h o
0040700 s t 1 5 h o s t ) \r ( 3 3
0040720 ( h o s t d e v i c e d i
0040740 r e c t o r y n a m e e x t
0040760 e n s i o n v e r s i o n ) )
0041000 \r c l : f i l e - n a m e s t r
0041020 i n g d 1 \r ( l ( 0 p a t
0041040 h n a m e ) ) \0 f 003 \0 \0 001 @ \t
0041060 \0 \0 021 ! 002 g \0 \0 H \t \0 \0 265 006 o \0
0041100 \0 \0 o \0 \0 \0 H \t \0 \0 265 006 o \0 \0 \0
0041120 \f \0 \0 271 H \t \0 \0 Z 262 8 g \0 \0 I J
0041140 d g \0 \0 360 226 277 o \0 \0 \0 260 " g \0 \0
0041160 360 225 o \0 \0 \0 260 027 J 244 o \0 \0 \0 215 g
0041200 \0 \0 o \0 \0 \0 J \t \0 \0 \v \0 \0 \v \0 \0
0041220 020 I 020 \0 ( 9 7 c l : c o n c a
0041240 t e n a t e 9 4 c l : c o n
0041260 c a t e n a t e 9 1 c l : p
0041300 r i n c - t o - s t r i n g 4
0041320 1 % p a t h n a m e - v e r s
0041340 i o n 3 6 c l : c o n c a t
0041360 e n a t e 2 7 % p a t h n a
0041400 m e - t y p e 1 3 % p a t h
0041420 n a m e - n a m e 3 p a t h
0041440 n a m e ) \r ( 8 3 c l : s i m
0041460 p l e - s t r i n g 6 5 : n
0041500 e w e s t 5 3 : w i l d 4
0041520 7 c l : s i m p l e - s t r i
0041540 n g 9 c l : s i m p l e - s
0041560 t r i n g ) \r ( 8 7 " ; "
0041600 7 9 " " 7 1 " ; " 6 0
0041620 " ; * " 3 3 " " 2 3 " .
0041640 " 1 9 " " ) \r c l : d i r e
0041660 c t o r y - n a m e s t r i n g
0041700 d 1 \r ( l ( 0 p a t h n a
0041720 m e ) ) \0 017 \0 \0 \0 001 @ \t \0 \0 \t
0041740 \0 \0 265 006 o \0 \0 \0 020 \0 ( 6 % p a
0041760 t h n a m e - d i r e c t o r y
0042000 3 p a t h n a m e ) \r n i l
0042020 \r ( 1 2 " " ) \r ( % i n i t
0042040 i a l i z e - d e f a u l t - p
0042060 a t h n a m e ) \r ( p u t p r o
0042100 p s c m l p a t h n a m e c
0042120 o p y r i g h t ( " X e r o x
0042140 C o r p o r a t i o n " 1 9
0042160 8 6 ) ) \r n i l \r
0042171