$ od -c -N 50000 [eris]<Lisp>Carol>LIBRARY>COPYFILES.TEDIT!1 0000000 T h e C O P Y F I L E S P a 0000020 c k a g e \r S t o r e d o n : 0000040 { P h y l u m } < L i s p c 0000060 o r e > L i b r a r y > C o p y 0000100 F i l e s . T e d i t , . P r 0000120 e s s \r L a s t M o d i f i e 0000140 d : 1 2 J u n e 8 4 \r B 0000160 y : S y b a l s k y \r T h i 0000200 s i s a p a c k a g e o 0000220 f e x t e n s i o n s t o 0000240 t h e C O P Y F I L E f u n 0000260 c t i o n , t o m a k e i 0000300 t e a s y t o c o p y g 0000320 r o u p s o f f i l e s a 0000340 n d t o c o p y f i l e s 0000360 o n l y w h e n t h e s 0000400 o u r c e i s n e w e r t 0000420 h a n t h e t a r g e t . 0000440 T h e r e a r e f o u r 0000460 f u n c t i o n s : \r ( C O P Y 0000500 F I L E ? F R O M T O ) \r C 0000520 o p i e s t h e f i l e F 0000540 R O M t o t h e f i l e 0000560 T O , o n l y i f F R O M 0000600 ' s c r e a t i o n d a t e 0000620 i s l a t e r t h a n T 0000640 O ' s . R e t u r n s T 0000660 i f t h e c o p y w a s 0000700 d o n e , N I L i f i t 0000720 w a s n ' t . \r ( C O P Y F I L 0000740 E S F I L E S F R O M L I B 0000760 T O L I B V E R B O S E ? ) 0001000 \r C o p i e s e a c h f i l 0001020 e i n F I L E S f r o m 0001040 F R O M L I B t o T O L I B 0001060 . T h i s i s d o n e 0001100 b y P A C K i n g F R O M L 0001120 I B a n d T O L I B o n t 0001140 o e a c h f i l e n a m e , 0001160 s o y o u c a n u s e 0001200 t h i s f o r a r b i t r a 0001220 r y h o s t / d i r e c t o r 0001240 y / s u b - d i r e c t o r y 0001260 c h a n g e s . I f V E R 0001300 B O S E ? i s n o n - N I L 0001320 , i t i s a s t r e a m 0001340 o n w h i c h t h e f u 0001360 n c t i o n w i l l p r i n 0001400 t a m e s s a g e f o r 0001420 e a c h f i l e i t c o p 0001440 i e s . \r ( C O P Y F I L E S ? 0001460 F I L E S F R O M L I B T 0001500 O L I B V E R B O S E ? ) \r C 0001520 o p i e s e a c h f i l e 0001540 i n F I L E S f r o m F R 0001560 O M L I B t o T O L I B ; 0001600 h o w e v e r , a f i l e 0001620 i s c o p i e d o n l y i 0001640 f ( 1 ) i t d o e s n ' t 0001660 e x i s t o n T O L I B , 0001700 o r ( 2 ) t h e c r e a 0001720 t i o n d a t e o n F R O 0001740 M L I B i s n e w e r t h 0001760 a n o n T O L I B . A g 0002000 a i n , t h i s i s d o n 0002020 e b y P A C K i n g F R O 0002040 M L I B a n d T O L I B o 0002060 n t o e a c h f i l e n a m 0002100 e , s o y o u c a n u s 0002120 e t h i s f o r a r b i t 0002140 r a r y h o s t / d i r e c t 0002160 o r y / s u b - d i r e c t o r 0002200 y c h a n g e s . I f V 0002220 E R B O S E ? i s n o n - N 0002240 I L , i t i s a s t r e 0002260 a m o n w h i c h t h e 0002300 f u n c t i o n w i l l p r 0002320 i n t a m e s s a g e f o 0002340 r e a c h f i l e i t c 0002360 o p i e s . \r ( C O M P A R E F 0002400 I L E S O L D F I L E N E W 0002420 F I L E ) \r C o i m p a r e s 0002440 t h e f i l e s O L D F I L 0002460 E a n d N E W F I L E t o 0002500 s e e i f t h e y a r e 0002520 i d e n t i c a l ; i f t 0002540 h e y a r e n ' t t h e s 0002560 a m e , C O M P A R E F I L E 0002600 S w i l l b r e a k . \r E x 0002620 a m p l e s : \r ( C O P Y F I L 0002640 E ? ' { P H Y L U M } < S Y B 0002660 A L S K Y > C O P Y F I L E . D 0002700 C O M \r ' 0002720 { P H Y L U M } < L I S P C O R 0002740 E > L I B R A R Y > C O P Y F I 0002760 L E . D C O M ) \r W o u l d b 0003000 e a r e a s o n a b l e w 0003020 a y t o i n s t a l l t h 0003040 i s p a c k a g e . \r ( C O P 0003060 Y F I L E S ? ' ( C O P Y F I 0003100 L E S C O P Y F I L E S . D C 0003120 O M ) \r 0003140 ' { P H Y L U M } < S Y B A L S 0003160 K Y > \r 0003200 ' { P H L Y U M } < L I S P C O 0003220 R E > L I B R A R Y > P R O M 0003240 P T W I N D O W ) \r W o u l d 0003260 b e b e t t e r y e t , a 0003300 n d w o u l d m a r k i t 0003320 s p r o g r e s s w i t h 0003340 m e s s a g e s i n t h e 0003360 p r o m p t w i n d o w . \0 \0 0003400 \0 \0 \0 002 \0 \0 \0 \0 001 324 \0 \0 \0 \0 \0 \0 0003420 \0 003 \0 \0 \0 026 \0 \0 \0 \t H E L V E T 0003440 I C A \0 022 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0003460 \0 \0 002 \0 \0 \0 \0 001 324 \0 \f \0 \0 \0 \0 \0 0003500 001 \0 \0 \0 g \0 \0 \0 \t H E L V E T I 0003520 C A \0 \b \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 \0 0003540 \0 002 \0 \0 \0 \0 001 324 \0 $ \0 \0 \0 \0 \0 004 0003560 \0 \0 \0 276 \0 \0 \0 005 G A C H A \0 \n \0 0003600 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 002 \0 \0 \0 0003620 \0 001 324 \0 022 \0 \0 \0 \0 \0 004 \0 \0 \0 024 \0 0003640 \0 \0 005 G A C H A \0 \f \0 \0 \0 \0 \0 \0 0003660 002 \0 \0 \0 \0 \0 \0 002 \0 030 \0 030 001 274 \0 006 0003700 \0 \0 \0 \0 \0 004 \0 \0 \0 211 \0 \0 \0 005 G A 0003720 C H A \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0003740 \0 \0 002 \0 \0 \0 \0 001 324 \0 022 \0 \0 \0 \0 \0 0003760 004 \0 \0 \0 ) \0 \0 \0 005 G A C H A \0 \f 0004000 \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 \0 002 \0 030 0004020 \0 030 001 274 \0 006 \0 \0 \0 \0 \0 004 \0 \0 001 $ 0004040 \0 \0 \0 005 G A C H A \0 \n \0 \0 \0 \0 \0 0004060 \0 \0 \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 001 324 \0 0004100 022 \0 \0 \0 \0 \0 004 \0 \0 \0 * \0 \0 \0 005 G 0004120 A C H A \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 0004140 \0 \0 \0 002 \0 030 \0 030 001 274 \0 006 \0 \0 \0 \0 0004160 \0 004 \0 \0 001 250 \0 \0 \0 005 G A C H A \0 0004200 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 002 \0 0004220 \0 \0 \0 001 324 \0 022 \0 \0 \0 \0 \0 004 \0 \0 \0 0004240 037 \0 \0 \0 005 G A C H A \0 \f \0 \0 \0 \0 0004260 \0 \0 002 \0 \0 \0 \0 \0 \0 002 \0 030 \0 030 001 274 0004300 \0 006 \0 \0 \0 \0 \0 004 \0 \0 \0 x \0 \0 \0 005 0004320 G A C H A \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 0004340 \0 \0 \0 \0 002 \0 \0 \0 \0 001 324 \0 $ \0 \0 \0 0004360 \0 \0 004 \0 \0 \0 \n \0 \0 \0 \t H E L V E 0004400 T I C A \0 \f \0 \0 \0 \0 \0 \0 003 \0 \0 \0 0004420 \0 \0 \0 002 \0 \0 \0 \0 001 324 \0 022 \0 \0 \0 \0 0004440 \0 001 \0 \0 \0 , \0 \0 \0 005 G A C H A \0 0004460 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 \0 002 \0 0004500 \0 \0 \0 001 324 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 0004520 5 \0 \0 \0 005 G A C H A \0 \f \0 \0 \0 \0 0004540 \0 \0 002 \0 \0 \0 \0 \0 \0 002 \0 030 \0 030 001 274 0004560 \0 006 \0 \0 \0 \0 \0 004 \0 \0 \0 3 \0 \0 \0 005 0004600 G A C H A \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 0004620 \0 \0 \0 \0 002 \0 \0 \0 \0 001 324 \0 022 \0 \0 \0 0004640 \0 \0 001 \0 \0 \0 ( \0 \0 \0 005 G A C H A 0004660 \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 \0 002 0004700 \0 \0 \0 \0 001 324 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 0004720 \0 \0 \0 \0 005 G A C H A \0 \f \0 \0 \0 0004740 \0 \0 \0 002 \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 001 0004760 324 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 6 \0 \0 \0 0005000 005 G A C H A \0 \f \0 \0 \0 \0 \0 \0 002 \0 0005020 \0 \0 \0 \0 \0 002 \0 030 \0 030 001 274 \0 006 \0 \0 0005040 \0 \0 \0 004 \0 \0 \0 T \0 \0 \0 005 G A C H 0005060 A \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 006 376 \0 0005100 & z 270 0005103