$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>SAMEDIR!1
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 " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 3
0000120 1 - O c t - 8 6 1 1 : 1 3 : 0
0000140 5 " 006 004 { E R I S } < L I S P
0000160 C O R E > L I B R A R Y > S A M
0000200 E D I R . ; 4 006 001 3 9 6 7
0000220 \r \r c h a n g e s
0000240 t o % : ( F N S C H E C
0000260 K S A M E D I R H O S T & D I
0000300 R E C T O R Y F I E L D ) \r \r
0000320 p r e v i o u s d a
0000340 t e % : " 9 - J u n - 8 5
0000360 2 3 : 5 6 : 2 7 " { E R I S }
0000400 < L I S P C O R E > L I B R A R
0000420 Y > S A M E D I R . ; 3 ) \r \r \r
0000440 ( * " \r C o p y r i g h t (
0000460 c ) 1 9 8 2 , 1 9 8 4 , 1
0000500 9 8 5 , 1 9 8 6 b y X e r
0000520 o x C o r p o r a t i o n .
0000540 A l l r i g h t s r e s e
0000560 r v e d . \r " ) \r \r ( P R E T T
0000600 Y C O M P R I N T S A M E D I
0000620 R C O M S ) \r \r ( R P A Q Q 006
0000640 002 S A M E D I R C O M S 006 001 (
0000660 ( F N S C H E C K S A M E D I
0000700 R H O S T & D I R E C T O R Y
0000720 F I E L D ) \r
0000740 ( A D D V
0000760 A R S [ M A K E F I L E F O R
0001000 M S ( O R ( N L S E T Q (
0001020 C H E C K S A M E D I R F I L
0001040 E ) ) \r
0001060
*
0001120 ( R E T F R O M ' M A
0001140 K E F I L E ] \r
0001160
0001200 ( M I G R A T I O N S ) )
0001220 \r
0001240 ( G L O B A L V A R S
0001260 M I G R A T I O N S ) ) ) \r (
0001300 D E F I N E Q \r \r ( 006 004 C H E C
0001320 K S A M E D I R 006 001 \r [ L A
0001340 M B D A ( F I L E ) 006 006 006 001
0001360
*
0001420 006 006 ( *
0001440 m d d " 3 1 - O c t - 8 6
0001460 1 1 : 1 2 " ) 006 001 006 006 006 001 \r
0001500
*
0001560 006 006 ( * ; ; \r 006 001
0001600
0001620 006 006 " f i x
0001640 e d 3 1 - O c t - 8 6 b y
0001660 m d d t o ( f i n a l l y !
0001700 ) d o c a s e - i n s e n s
0001720 i t i v e c o m p a r i s o n
0001740 s " ) 006 001 \r ( P R O G
0001760 ( ( D A T E S ( G E T P F I
0002000 L E ' F I L E D A T E S ) ) \r
0002020 H O S T /
0002040 D I R H O S T D I R L S T
0002060 N E W V O K H O S T / D I R
0002100 S ) \r A G A I N \r
0002120 ( O R ( L I
0002140 S T P D A T E S ) \r
0002160 ( R E T U R N
0002200 ) ) \r [ S E
0002220 T Q O K H O S T / D I R S (
0002240 C O N S ( S E T Q H O S T /
0002260 D I R ( U - C A S E ( D I R
0002300 E C T O R Y N A M E T T ) )
0002320 ) \r
0002340
0002360 ( M K L I S T ( C D R
0002400 ( F A S S O C H O S T / D I
0002420 R M I G R A T I O N S ] \r
0002440 ( C O N D \r
0002460 ( ( 006 002 f
0002500 o r 006 001 O L D F I L E 006 002 i
0002520 n 006 001 D A T E S 006 002 b i n d
0002540 006 001 H O S T D I R 006 002 n e
0002560 v e r 006 001 ( F M E M B ( 006 002
0002600 H O S T & D I R E C T O R Y F I
0002620 E L D 006 001 ( C D R O L D F I
0002640 L E ) ) \r
0002660
*
0002740 O K H O S T / D I R S )
0002760 ) \r
0003000 ( S E L E C T Q [ A S K U S E
0003020 R 1 0 ' Y ( L I S T ' "
0003040 Y o u h a v e n ' t l o a d
0003060 e d o r w r i t t e n " F
0003100 I L E ' \r
0003120
*
0003160 " i n y o u r c o n n e
0003200 c t e d d i r e c t o r y "
0003220 H O S T / D I R ' \r
0003240
*
0003300 " - - s h o u l
0003320 d I w r i t e i t o u t
0003340 a n y w a y " ) \r
0003360
0003400 ` ( ( O % ,
0003420 ( C O N C A T " o p s ! C
0003440 o n n e c t t o " ( S E T
0003460 Q H O S T / D I R ( 006 002 H O
0003500 S T & D I R E C T O R Y F I E L
0003520 D 006 001 \r
0003540
*
0003640 ( C D A R D A T E
0003660 S ) ) ) \r
0003700
*
0003740 " [ c o n f i r m ] " )
0003760 \r
0004000
0004020 C O N F I R M F L G T
0004040 ) \r
0004060
0004100 ( C " o n n e c t t o
0004120 o t h e r d i r e c t o r y :
0004140 " ) \r
0004160
0004200 ( Y " e s , w r i t
0004220 e i t h e r e \r " ) \r
0004240
0004260 ( N
0004300 " o , a b o r t M A K E F I
0004320 L E \r " ] \r
0004340 ( Y ( R E T U
0004360 R N ) ) \r
0004400 ( N ( E R R O R
0004420 ! ) ) \r
0004440 ( C ( S E T Q H
0004460 O S T / D I R ) ) \r
0004500 ( O ) \r
0004520
0004540 ( S H O U L D N T ) ) \r
0004560 [ N L S
0004600 E T Q ( C N D I R ( O R H
0004620 O S T / D I R ( R E A D T
0004640 T ] \r
0004660 ( G O A G A I N ) ) \r
0004700 ( ( A N D
0004720 [ S E T Q N E W V ( I N F I
0004740 L E P ( P A C K F I L E N A M
0004760 E ' V E R S I O N N I L '
0005000 B O D Y ( C D A R D A T E S
0005020 ] \r
0005040 ( N E Q N E W V (
0005060 C D A R D A T E S ) ) ) \r
0005100 ( S E L
0005120 E C T Q ( A S K U S E R 1 5
0005140 ' Y ( L I S T ( C D A R
0005160 D A T E S ) \r
0005200
*
0005240 " i s n o t t h e m
0005260 o s t r e c e n t v e r s i
0005300 o n ( v e r s i o n " \r
0005320
*
0005360 ( M K S T R I
0005400 N G ( F I L E N A M E F I E L
0005420 D N E W V ' V E R S I O N )
0005440 ) \r
0005460
0005500 " h
0005520 a s s i n c e a p p e a r e
0005540 d ) . " \r
0005560
*
0005620 " D o y o u w a n t t
0005640 o m a k e t h e f i l e
0005660 a n y w a y " ) ) \r
0005700 ( Y ) \r
0005720
0005740 ( N ( E R R O R ! ) ) \r
0005760
0006000 ( S H O U L D N T ] ) \r \r ( 006
0006020 004 H O S T & D I R E C T O R Y F
0006040 I E L D 006 001 \r [ L A M B D A
0006060 ( F I L E N A M E ) 006 006 006 001
0006100
*
0006140 006 006 ( * m d d
0006160 " 3 1 - O c t - 8 6 1 0 : 5
0006200 6 " ) 006 001 006 006 006 001 \r
0006220
*
0006260 006 006 ( *
0006300 ; ; \r 006 001
0006320
0006340 006 006 " R e t u r n s t
0006360 h e h o s t & d i r f i e l
0006400 d s p a c k e d t o g e t h
0006420 e r . U p p e r c a s e t
0006440 h e m a s w e g o . " ) 006
0006460 001 \r ( 006 002 f o r 006 001 T
0006500 A I L 006 002 o n 006 001 ( U N P A
0006520 C K F I L E N A M E F I L E N
0006540 A M E ) 006 002 b y 006 001 ( C D D
0006560 R T A I L ) \r 006
0006600 002 d o 006 001 [ C O N D \r
0006620 ( ( F M E M B
0006640 ( C A R T A I L ) \r
0006660
0006700 ' ( H O S T D I R E C T O R
0006720 Y D E V I C E ) ) \r
0006740 ( 006 002 p u s h
0006760 006 001 $ $ V A L ( C A R T A
0007000 I L ) \r
0007020 ( U - C A S E
0007040 ( C A D R T A I L ] 006 002 f i
0007060 n a l l y 006 001 ( R E T U R N
0007100 ( P A C K F I L E N A M E $ $
0007120 V A L ] ) \r ) \r \r ( A D D T O V
0007140 A R 006 002 M A K E F I L E F O R
0007160 M S 006 001 ( O R ( N L S E T Q
0007200 ( C H E C K S A M E D I R F
0007220 I L E ) ) \r
0007240
0007260 ( R E T F R O M ' M A K E
0007300 F I L E ) ) ) \r \r ( A D D T O V
0007320 A R 006 002 M I G R A T I O N S 006
0007340 001 ) \r ( D E C L A R E % : D
0007360 O E V A L @ C O M P I L E D O
0007400 N T C O P Y \r \r ( G L O B A L V
0007420 A R S M I G R A T I O N S ) \r
0007440 ) \r ( P U T P R O P S S A M E
0007460 D I R C O P Y R I G H T ( "
0007500 X e r o x C o r p o r a t i o
0007520 n " 1 9 8 2 1 9 8 4 1 9 8
0007540 5 1 9 8 6 ) ) \r ( D E C L A R
0007560 E % : D O N T C O P Y \r (
0007600 F I L E M A P ( N I L ( 7 0
0007620 3 3 6 7 1 ( C H E C K S A M
0007640 E D I R 7 1 3 . 3 0 8 4 )
0007660 ( H O S T & D I R E C T O R Y
0007700 F I E L D 3 0 8 6 . 3 6 6
0007720 9 ) ) ) ) ) \r S T O P \r
0007734