$ od -c -N 50000 [phylum]<LISP>Lyric>Internal>Library>GIVE-AND-TAKE.LCOM!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " X C L " 247 B A S E 1 0
0000100 ) \r ( f i l e c r e a t e d "
0000120 3 0 - M a r - 8 7 1 4 : 0 1 :
0000140 4 6 " ( " c o m p i l e d o
0000160 n " { e r i s } < l i s p c
0000200 o r e > i n t e r n a l > l i b
0000220 r a r y > g i v e - a n d - t a
0000240 k e . \ ; 8 ) \r " 2 5 - M a r
0000260 - 8 7 1 2 : 3 0 : 5 1 " " C
0000300 O M P I L E - F I L E d " | i
0000320 n | " X e r o x L i s p 2
0000340 5 - M a r - 8 7 . . . " | d
0000360 a t e d | " 2 5 - M a r - 8 7
0000400 1 2 : 5 8 : 1 7 " ) \r ( f i l
0000420 e c r e a t e d " 5 - D e c
0000440 - 8 6 0 5 : 4 4 : 2 7 " { e
0000460 r i s } < l i s p c o r e > i n
0000500 t e r n a l > l i b r a r y > g
0000520 i v e - a n d - t a k e . \ ; 8
0000540 1 6 0 9 4 | c h a n g e s |
0000560 \r | t o : | ( v a r i a b l
0000600 e s * g i v e - a n d - t a k
0000620 e - d i r e c t o r i e s * )
0000640 ( f u n c t i o n s g i v e -
0000660 f i l e t a k e - f i l e )
0000700 | p r e v i o u s | | d a t e
0000720 : | \r " 2 1 - N o v - 8 6 1
0000740 7 : 4 1 : 5 2 " { e r i s } <
0000760 l i s p c o r e > i n t e r n a
0001000 l > l i b r a r y > g i v e - a
0001020 n d - t a k e . \ ; 7 ) \r ( r p
0001040 a q q g i v e - a n d - t a k
0001060 e c o m s ( ( c o m m a n d s
0001100 " g i v e ? " " t a k e n ?
0001120 " " g i v e " " t a k e "
0001140 " s t e a l " ) ( f u n c t i
0001160 o n s \r g i v e - o r - t a k
0001200 e - f i n d a d d - d e f a u
0001220 l t - r e g i s t r y s e n d
0001240 - s t e a l - m e s s a g e g
0001260 i v e - f i l e t a k e - f i
0001300 l e t a k e n ? ) ( v a r i
0001320 a b l e s \r * g i v e - a n d
0001340 - t a k e - d i r e c t o r i e
0001360 s * ) ( p r o p f i l e t y
0001400 p e g i v e - a n d - t a k e
0001420 ) ) ) \r | e x e c - g i v e ? |
0001440 : d 4 \r ( l ( 1 $ $ m a c
0001460 r o - e n v 0 $ $ m a c r o
0001500 - f o r m ) ) \0 \t \0 \0 \0 002 g \0
0001520 \0 i \n \0 \0 020 \0 ( 6 t a k e n ?
0001540 ) \r ( 2 : g i v e ? ) \r ( ) \r
0001560 ( s e t - d o c u m e n t a t i
0001600 o n " g i v e ? " ( q u o t
0001620 e c o m m a n d s ) n i l )
0001640 \r ( p u t h a s h " g i v e ?
0001660 " ( q u o t e ( n i l | e
0001700 x e c - g i v e ? | : e v a l
0001720 ) ) * e x e c - c o m m a n d
0001740 - t a b l e * ) \r | e x e c - t
0001760 a k e n ? | : d 4 \r ( l ( 1
0002000 $ $ m a c r o - e n v 0 $
0002020 $ m a c r o - f o r m ) ) \0 ,
0002040 003 \0 \0 002 @ 002 021 ! 002 g \0 \0 \t \0 \0 j
0002060 272 271 H 260 026 d 001 375 002 n 002 \0 J k 330 Z
0002100 361 246 h l 4 \n \0 \0 277 265 354 J I 016 020 \0
0002120 ( 3 5 \ \ l i s p e r r o r
0002140 1 0 c l : s y m b o l - f u n
0002160 c t i o n ) \r ( 7 t a k e n ?
0002200 ) \r ( ) \r ( s e t - d o c u m e
0002220 n t a t i o n " t a k e n ? "
0002240 ( q u o t e c o m m a n d s
0002260 ) n i l ) \r ( p u t h a s h
0002300 " t a k e n ? " ( q u o t e
0002320 ( ( & r e s t a r g s ) | e
0002340 x e c - t a k e n ? | : e v a
0002360 l ) ) * e x e c - c o m m a n
0002400 d - t a b l e * ) \r | e x e c -
0002420 g i v e | : d 4 \r ( l ( 1
0002440 $ $ m a c r o - e n v 0 $ $
0002460 m a c r o - f o r m ) ) \0 030 001
0002500 \0 \0 002 @ 002 021 001 \0 H 003 265 004 i 020 001 \t
0002520 \0 \0 241 h 020 H 002 X 260 361 \0 ( 1 4 g
0002540 i v e - f i l e ) \r n i l \r ( )
0002560 \r ( s e t - d o c u m e n t a t
0002600 i o n " g i v e " ( q u o t
0002620 e c o m m a n d s ) n i l )
0002640 \r ( p u t h a s h " g i v e "
0002660 ( q u o t e ( ( & r e s t
0002700 f i l e s ) | e x e c - g i v
0002720 e | : e v a l ) ) * e x e c
0002740 - c o m m a n d - t a b l e * )
0002760 \r | e x e c - t a k e | : d 4
0003000 \r ( l ( 1 $ $ m a c r o - e
0003020 n v 0 $ $ m a c r o - f o r
0003040 m ) ) \0 030 001 \0 \0 002 @ 002 021 001 \0 H
0003060 003 265 004 i 020 001 \t \0 \0 241 h 020 H 002 X 260
0003100 361 \0 ( 1 4 t a k e - f i l e )
0003120 \r n i l \r ( ) \r ( s e t - d o c
0003140 u m e n t a t i o n " t a k e
0003160 " ( q u o t e c o m m a n d
0003200 s ) n i l ) \r ( p u t h a s h
0003220 " t a k e " ( q u o t e (
0003240 ( & r e s t f i l e s ) | e
0003260 x e c - t a k e | : e v a l )
0003300 ) * e x e c - c o m m a n d -
0003320 t a b l e * ) \r | e x e c - s t
0003340 e a l | : d 4 \r ( l ( 1 $
0003360 $ m a c r o - e n v 0 $ $ m
0003400 a c r o - f o r m ) ) \0 031 001 \0
0003420 \0 002 @ 002 021 001 \0 H 003 265 004 i 020 001 i \n
0003440 \0 \0 241 h 020 H 002 X 260 360 \0 ( 1 5 t
0003460 a k e - f i l e ) \r n i l \r ( )
0003500 \r ( s e t - d o c u m e n t a t
0003520 i o n " s t e a l " ( q u o
0003540 t e c o m m a n d s ) n i l
0003560 ) \r ( p u t h a s h " s t e a
0003600 l " ( q u o t e ( ( & r e s
0003620 t f i l e s ) | e x e c - s
0003640 t e a l | : e v a l ) ) * e
0003660 x e c - c o m m a n d - t a b l
0003700 e * ) \r g i v e - o r - t a k e
0003720 - f i n d : d 4 \r ( l ( 0
0003740 f i l e n a m e ) ) \0 026 \0 \0 \0
0003760 001 @ i ` \0 \0 \v \0 \0 265 \f i o \0 \0 \0
0004000 @ \v \0 \0 h 020 \0 ( 1 8 c l : f o
0004020 r m a t 7 f i n d f i l e )
0004040 \r ( 4 * g i v e - a n d - t a
0004060 k e - d i r e c t o r i e s * )
0004100 \r ( 1 4 " ~ A d o e s n
0004120 o t e x i s t a n d s o
0004140 c a n n o t b e t a k e n
0004160 o r g i v e n . ~ % " ) \r a d
0004200 d - d e f a u l t - r e g i s t
0004220 r y : d 4 \r ( l ( 0 n a m
0004240 e ) f 0 d e f a u l t r e
0004260 g i s t r y ) \0 030 \0 001 \0 001 o \0
0004300 \0 \0 @ \n \0 \0 241 P 241 @ 020 @ o \0 \0 \0
0004320 P \v \0 \0 020 \0 ( 2 1 c o n c a t
0004340 7 s t r p o s ) \r n i l \r (
0004360 1 7 " . " 3 " . " ) \r s
0004400 e n d - s t e a l - m e s s a g
0004420 e : d 4 \r ( l ( 2 f i l e
0004440 1 a u t h o r 0 t h i e
0004460 f ) ) \0 024 \0 \0 \0 003 h o \0 \0 \0 A
0004500 @ B \r 005 \0 \0 \t \0 \0 \t \0 \0 020 \0 ( 1
0004520 7 l a f i t e . s e n d m e s
0004540 s a g e 1 4 m k s t r i n g
0004560 1 1 c l : f o r m a t ) \r n
0004600 i l \r ( 4 " S u b j e c t :
0004620 F i l e s t o l e n \r T o :
0004640 ~ A \r \r ~ A j u s t s t o
0004660 l e t h e f i l e ~ A f
0004700 r o m y o u . \r \r \t T h e S
0004720 T E A L c o m m a n d " ) \r g
0004740 i v e - f i l e a 0 0 0 1 : d
0004760 4 \r ( p 1 s i : : * c a t c
0005000 h - r e t u r n - f r o m * p
0005020 0 s i : : * d u m m y - f o
0005040 r - c a t c h * f 2 n a m
0005060 e f 3 s i : : n l s e t q
0005100 - v a l u e ) \0 + 002 002 002 \0 i @
0005120 021 002 001 g \0 \0 g \0 \0 g \0 \0 k g \0 \0
0005140 R \r 006 \0 \0 g \0 \0 h o \0 \0 \0 \f \0 \0
0005160 h 032 c 006 g \0 \0 020 \0 ( 3 3 o p e
0005200 n s t r e a m 2 2 p a c k f
0005220 i l e n a m e . s t r i n g ) \r
0005240 ( 4 0 : n o r m a l 2 5 i
0005260 n p u t 1 7 b o d y 1 3
0005300 v e r s i o n 1 0 s t a t u
0005320 s 7 e x t e n s i o n ) \r (
0005340 3 0 ( d o n \ ' t c a c h e
0005360 ) ) \r g i v e - f i l e : d 4
0005400 \r ( l ( 0 f i l e n a m e )
0005420 p 6 * c o n d i t i o n -
0005440 h a n d l e r - b i n d i n g s
0005460 * p 5 s i : : * n l s e t
0005500 q f l a g * p 4 * p r o c
0005520 e e d - c a s e s * p 3 s
0005540 i : : n l s e t q - v a l u e
0005560 p 0 n a m e f 7 * p r
0005600 o c e e d - c a s e s * f 8
0005620 * c o n d i t i o n - h a n d
0005640 l e r - b i n d i n g s * ) \0
0005660 y \a 002 \0 001 @ \t \0 \0 021 ! 002 H 241 h 020
0005700 021 020 003 ` \0 \0 W 016 032 i o \0 \0 \0 W 020
0005720 032 021 003 006 L \t \0 \0 022 g \0 \0 360 264 003 K
0005740 022 001 Y d \t \0 \0 253 277 i o \0 \0 \0 H \v
0005760 \0 \0 h 020 \t \0 \0 \t \0 \0 Z \b \0 \0 \t \0
0006000 \0 \n \0 \0 262 024 I \t \0 \0 \t \0 \0 i o \0
0006020 \0 \0 H \v \0 \0 i 020 i o \0 \0 \0 H J I
0006040 \t \0 \0 \r 005 \0 \0 I \t \0 \0 h 020 \0 ( 1
0006060 1 7 c l o s e f 1 1 3 c l
0006100 : f o r m a t 1 0 9 c l : r
0006120 e a d 9 6 c l : f o r m a t
0006140 8 7 d e l f i l e 8 4 c
0006160 l o s e f 7 8 c l : : s i m
0006200 p l e - s t r i n g - e q u a l
0006220 7 5 a d d - d e f a u l t -
0006240 r e g i s t r y 7 2 u s e r
0006260 n a m e 6 8 a d d - d e f a
0006300 u l t - r e g i s t r y 6 5
0006320 c l : r e a d 6 0 c l : f o
0006340 r m a t 4 9 s t r e a m p
0006360 3 4 g i v e - f i l e a 0 0 0
0006400 1 3 g i v e - o r - t a k e
0006420 - f i n d ) \r ( 3 8 : n o r m
0006440 a l 1 6 s i : : n l s e t q
0006460 - p r o c e e d - c a s e ) \r (
0006500 1 0 3 " S o r r y , b u t
0006520 y o u c a n ' t g i v e
0006540 w h a t y o u h a v e n ' t
0006560 t a k e n . ~ % ~ A w a s
0006600 t a k e n b y ~ A o n ~
0006620 A . ~ % " 9 2 " ~ A i s
0006640 n o w u n l o c k e d . ~ % "
0006660 \r 5 6 " S o r r y , b u t
0006700 y o u c a n ' t g i v e
0006720 w h a t y o u h a v e n ' t
0006740 t a k e n . ~ % ~ A h a s
0006760 n o t b e e n t a k e n b
0007000 y a n y o n e , i n c l u d
0007020 i n g y o u . ~ % " \r 2 4
0007040 ( c l : e r r o r . s i : :
0007060 n l s e t q h a n d l e r ) ) \r
0007100 ( s e t - d o c u m e n t a t i
0007120 o n ( q u o t e g i v e - f
0007140 i l e ) ( q u o t e c l : f
0007160 u n c t i o n ) \r " F i n d
0007200 t h e f i l e n a m e d a
0007220 n d l o o k f o r a S T
0007240 A T U S f i l e a s s o c i
0007260 a t e d w i t h i t . I
0007300 f f o u n d a n d t h i s
0007320 u s e r w r o t e i t ,
0007340 t h e n r e m o v e i t ,
0007360 t h u s u n l o c k i n g t
0007400 h e f i l e . " \r ) \r t a k e
0007420 - f i l e a 0 0 0 1 a 0 0 0 2
0007440 : d 4 \r ( l ( 1 g r o s s -
0007460 l i s t - h a c k 0 n a m e
0007500 ) ) \0 G 002 \0 \0 002 A 002 002 001 263 @ i
0007520 o \0 \0 \0 @ \v \0 \0 A d 002 001 263 032 d 001
0007540 \t \0 \0 262 023 277 A 021 021 001 A 001 \t \0 \0 271
0007560 H 002 I 030 023 A 001 \t \0 \0 225 A 001 \t \0 \0
0007600 277 A 002 001 264 \b A 002 001 \t \0 \0 020 h 020 \0
0007620 ( 6 6 d e l f i l e 5 4 c
0007640 l o s e f ? 4 8 s t r e a m
0007660 p 3 7 f u l l n a m e 2 5
0007700 s t r e a m p 1 4 c l : f
0007720 o r m a t ) \r n i l \r ( 1 0
0007740 " I n t e r r u p t e d d u r
0007760 i n g p r o c e s s i n g o
0010000 f ~ A . T a k e a b o r
0010020 t e d . ~ % " ) \r t a k e - f i
0010040 l e a 0 0 0 1 a 0 0 0 3 : d 4
0010060 \r ( p 1 s i : : * c a t c h
0010100 - r e t u r n - f r o m * p
0010120 0 s i : : * d u m m y - f o r
0010140 - c a t c h * f 2 g r o s
0010160 s - l i s t - h a c k f 3
0010200 s i : : n l s e t q - v a l u e
0010220 ) \0 & 002 002 002 \0 i @ 021 002 001 g \0 \0
0010240 k g \0 \0 R 002 001 \f \0 \0 g \0 \0 h o \0
0010260 \0 \0 \f \0 \0 h 032 c 006 g \0 \0 020 \0 ( 2
0010300 8 o p e n s t r e a m 1 7
0010320 p a c k f i l e n a m e . s t r
0010340 i n g ) \r ( 3 5 : n o r m a l
0010360 2 0 i n p u t 1 1 b o d
0010400 y 7 v e r s i o n ) \r ( 2
0010420 5 ( d o n \ ' t c a c h e ) )
0010440 \r t a k e - f i l e a 0 0 0 1 a
0010460 0 0 0 4 : d 4 \r ( p 1 s i
0010500 : : * c a t c h - r e t u r n -
0010520 f r o m * p 0 s i : : * d
0010540 u m m y - f o r - c a t c h *
0010560 f 4 g r o s s - l i s t - h
0010600 a c k f 5 n a m e f 6
0010620 s i : : n l s e t q - v a l u
0010640 e ) \0 ; 004 003 002 \0 i @ 021 " 003 T 001
0010660 \t \0 \0 T 001 \t \0 \0 273 Z \b \0 \0 \t \0 \0
0010700 \n \0 \0 232 i o \0 \0 \0 U K \f \0 \0 213 i
0010720 o \0 \0 \0 U J K \r 005 \0 \0 h 032 c \f g
0010740 \0 \0 020 \0 ( 4 9 c l : f o r m a
0010760 t 3 6 c l : f o r m a t 2
0011000 5 c l : : s i m p l e - s t r
0011020 i n g - e q u a l 2 2 a d d
0011040 - d e f a u l t - r e g i s t r
0011060 y 1 9 u s e r n a m e 1 4
0011100 c l : r e a d 9 c l : r e
0011120 a d ) \r ( 5 6 : n o r m a l )
0011140 \r ( 4 2 " S o r r y , b u
0011160 t ~ A w a s a l r e a d y
0011200 t a k e n b y ~ A o n
0011220 ~ A . ~ % " 3 1 " Y o u ' v
0011240 e a l r e a d y h a d ~ A
0011260 t a k e n , s i n c e ~ A
0011300 . " ) \r t a k e - f i l e a 0 0
0011320 0 1 : d 4 \r ( n a m e s i :
0011340 : * u n w i n d - p r o t e c t
0011360 * p 1 7 * c o n d i t i o
0011400 n - h a n d l e r - b i n d i n
0011420 g s * p 1 6 s i : : * n l
0011440 s e t q f l a g * p 1 5 *
0011460 p r o c e e d - c a s e s * p
0011500 1 4 s i : : n l s e t q - v
0011520 a l u e p 1 n a m e p
0011540 0 g r o s s - l i s t - h a c
0011560 k i 0 s i : : * c l e a n
0011600 u p - f o r m s * f 1 8 f
0011620 i l e n a m e f 1 9 s i :
0011640 : * r e s e t f o r m s * f
0011660 2 0 * p r o c e e d - c a s e
0011700 s * f 2 1 * c o n d i t i
0011720 o n - h a n d l e r - b i n d i
0011740 n g s * f 2 2 s t e a l )
0011760 001 262 022 005 \0 001 h d i h 032 032 032 021 321
0012000 \r W $ \t \0 \0 Y 241 h 020 g \0 \0 g \0 \0
0012020 g \0 \0 h g \0 \0 I \r 006 \0 \0 Z g \0 \0
0012040 I H h 032 032 032 h d 032 032 W & 032 c & 277
0012060 H 275 J g \0 \0 h o \0 \0 \0 \f \0 \0 274 M
0012100 L 030 277 H _ 016 001 \t \0 \0 276 O 016 002 N 030
0012120 277 H 002 001 g \0 \0 \n \0 \0 k 377 262 g \b \0
0012140 \0 \t \0 \0 \b \0 \0 _ 022 277 _ 020 277 H 001 o
0012160 \0 \0 \0 O 020 O 022 \f \0 \0 277 H 001 \t \0 \0
0012200 277 i o \0 \0 \0 I O 020 O 022 \r 005 \0 \0 277
0012220 I \t \0 \0 _ 024 301 002 311 \0 g \0 \0 ' 262 !
0012240 I O 024 301 002 311 \0 g \0 \0 ' 001 002 _ 026 \n
0012260 \0 \0 253 i o \0 \0 \0 I O 026 \f \0 \0 277 i
0012300 261 \0 340 H 001 \t \0 \0 277 H 002 001 \t \0 \0 277
0012320 H _ 032 277 021 020 016 ` \0 \0 W ( 032 i o \0
0012340 \0 \0 W * 032 021 003 021 O 036 \t \0 \0 022 g \0
0012360 \0 360 264 004 O 034 022 001 _ 030 277 O 032 O 030 030
0012400 277 H 001 \t \0 \0 247 i o \0 \0 \0 261 \0 217 W
0012420 , 262 X i o \0 \0 \0 I H 001 g \0 \0 \n \0
0012440 \0 \f \0 \0 277 g \0 \0 g \0 \0 h d i \v \0
0012460 \0 h 032 032 g \0 \0 H 001 g \0 \0 \n \0 \0 h
0012500 032 032 g \0 \0 I h 032 032 h 032 032 032 032 \t \0
0012520 \0 277 H 001 \t \0 \0 277 H 001 \t \0 \0 \t \0 \0
0012540 277 W $ h \n \0 \0 260 9 021 020 016 ` \0 \0 W
0012560 ( 032 i o \0 \0 \0 W * 032 021 003 021 O 036 \t
0012600 \0 \0 022 g \0 \0 360 264 004 O 034 022 h 360 H 001
0012620 \t \0 \0 277 264 \f i o \0 \0 \0 \n \0 \0 277 h
0012640 273 H 002 002 i 030 K 020 \0 ( 4 2 2 c l
0012660 : f o r m a t 4 1 1 c l o s
0012700 e f 3 9 4 t a k e - f i l e
0012720 a 0 0 0 1 a 0 0 0 4 3 6 7 t
0012740 a k e - f i l e 3 6 0 d e l
0012760 f i l e 3 5 7 f u l l n a m
0013000 e 3 5 1 c l o s e f 3 4 5
0013020 a d d . p r o c e s s 3 2 7
0013040 g e t f i l e i n f o 3 1 3
0013060 u s e r n a m e 3 0 0 c l
0013100 : f o r m a t 2 9 7 g e t f
0013120 i l e i n f o 2 7 0 s t r e
0013140 a m p 2 4 5 t a k e - f i l
0013160 e a 0 0 0 1 a 0 0 0 3 2 1 5
0013200 d e l f i l e 2 0 8 c l o s
0013220 e f 1 9 8 c l : f o r m a t
0013240 1 8 6 c l : : s i m p l e -
0013260 s t r i n g - e q u a l 1 5 6
0013300 r o o t f i l e n a m e 1 5
0013320 1 c l : f o r m a t 1 3 6
0013340 c l o s e f 1 3 0 c l : f o
0013360 r m a t 1 1 1 d a t e 1 0
0013400 8 a d d - d e f a u l t - r e
0013420 g i s t r y 1 0 5 u s e r n
0013440 a m e 9 8 f i l e n a m e f
0013460 i e l d 8 2 f u l l n a m e
0013500 7 0 o p e n s t r e a m 3
0013520 6 p a c k f i l e n a m e . s
0013540 t r i n g 1 4 g i v e - o r
0013560 - t a k e - f i n d ) \r ( 3 9 8
0013600 : n o r m a l 3 7 5 s i :
0013620 : n l s e t q - p r o c e e d -
0013640 c a s e 3 3 3 q u o t e 3
0013660 2 4 a u t h o r 3 1 9 q u
0013700 o t e 3 0 7 q u o t e 3 0
0013720 4 s e n d - s t e a l - m e s
0013740 s a g e 2 9 4 a u t h o r
0013760 2 4 9 : n o r m a l 2 2 6
0014000 s i : : n l s e t q - p r o c e
0014020 e d - c a s e 1 7 8 f i l e
0014040 d a t e s 1 6 5 f i l e 9
0014060 5 v e r s i o n 6 2 o u t
0014100 p u t 4 0 t a k e - f i l e
0014120 a 0 0 0 1 a 0 0 0 2 3 1 b o
0014140 d y 2 7 v e r s i o n 2 4
0014160 s t a t u s 2 1 e x t e n
0014200 s i o n ) \r ( 4 1 9 " B a d
0014220 s i t u a t i o n : O n l y
0014240 a n i l l e g a l s t a t
0014260 u s f i l e e x i s t s . ~
0014300 % T r y a g a i n i n a
0014320 m o m e n t o r t r y t o
0014340 f i x t h e p r o b l e m
0014360 . ~ % " \r 3 8 3 ( c l : e r
0014400 r o r . s i : : n l s e t q
0014420 h a n d l e r ) 2 8 8 " S t
0014440 e a l i n g ~ A ( a n d s
0014460 e n d i n g ~ A a m e s s
0014500 a g e a b o u t i t ) . ~ %
0014520 " 2 7 6 " B a d s i t u a
0014540 t i o n : I l l e g a l v e
0014560 r s i o n s o f t h e s t
0014600 a t u s f i l e e x i s t .
0014620 ~ & T r y a g a i n i n a
0014640 m o m e n t o r t r y t
0014660 o f i x t h e p r o b l e
0014700 m . ~ % " \r 2 3 4 ( c l : e
0014720 r r o r . s i : : n l s e t
0014740 q h a n d l e r ) 1 9 2 " W
0014760 a r n i n g : F i l e ~ A
0015000 i s d i f f e r e n t f r o
0015020 m l o a d e d f i l e ~ A
0015040 ~ % " 1 4 2 " ~ A i s n
0015060 o w l o c k e d b y ~ A
0015100 a t ~ A . ~ % " \r 1 2 3 "
0015120 ~ S ~ S ~ % " 6 7 ( d o n
0015140 \ ' t c a c h e ) ) \r t a k e -
0015160 f i l e : d 4 \r ( p 1 s i
0015200 : : * r e s e t f o r m s * p
0015220 0 l i s p x h i s t i 1
0015240 s t e a l i 0 f i l e n
0015260 a m e f 2 l i s p x h i s
0015300 t ) \0 026 002 001 \0 002 R 021 021 001 g \0 \0
0015320 \t \0 \0 \t \0 \0 \b \0 \0 277 \t \0 \0 020 \0 (
0015340 1 9 c l : v a l u e s - l i s
0015360 t 1 5 s i : : r e s e t u n
0015400 w i n d 1 2 \ \ m v l i s t
0015420 9 t a k e - f i l e a 0 0 0
0015440 1 ) \r ( 6 s i : : r e s e t u
0015460 n w i n d ) \r ( ) \r t a k e n ?
0015500 a 0 0 0 1 : d 4 \r ( n a m e
0015520 s i : : * u n w i n d - p r o t
0015540 e c t * i 0 s i : : * c l
0015560 e a n u p - f o r m s * f 4
0015600 d i r f 5 a u t h o r
0015620 f 6 g i v e ? ) \0 306 004 003 \0
0015640 001 g \0 \0 T g \0 \0 o \0 \0 \0 g \0 \0 o
0015660 \0 \0 \0 \r 006 \0 \0 o \0 \0 \0 o \0 \0 \0 \v
0015700 \0 \0 021 1 003 H \t \0 \0 Y 241 h 020 H g \0
0015720 \0 \n \0 \0 272 U 236 U J k h i h ` \0 \0
0015740 \r \a \0 \0 262 341 K 263 035 i \t \0 \0 277 o \0
0015760 \0 \0 i \n \0 \0 277 T i \n \0 \0 277 i \t \0
0016000 \0 277 i 273 I g \0 \0 \n \0 \0 i \n \0 \0 277
0016020 l 020 h i \v \0 \0 277 H g \0 \0 \n \0 \0 i
0016040 \n \0 \0 277 l ( h i \v \0 \0 277 J i \n \0
0016060 \0 277 V 246 i \t \0 \0 277 260 214 h d o \0 \0
0016100 \0 h i \r 005 \0 \0 g \0 \0 360 242 261 377 y g
0016120 \0 \0 h g \0 \0 h g \0 \0 I \r 006 \0 \0 \t
0016140 \0 \0 277 261 377 b \0 ( 1 9 2 g i v e
0016160 - f i l e 1 8 9 p a c k f i
0016200 l e n a m e . s t r i n g 1 6
0016220 5 a s k u s e r 1 5 0 t e
0016240 r p r i 1 4 3 p r i n 1 1
0016260 3 7 t a b 1 2 9 p r i n 1
0016300 1 2 5 \ \ g e n e r a t e f
0016320 i l e i n f o 1 1 7 t a b
0016340 1 0 9 p r i n 1 1 0 5 f i
0016360 l e n a m e f i e l d 9 5 t
0016400 e r p r i 9 0 p r i n 1 8
0016420 4 p r i n 1 7 5 t e r p r
0016440 i 6 6 s t r p o s 5 0 \
0016460 \ g e n e r a t e f i l e i n f
0016500 o 3 9 \ \ g e n e r a t e n
0016520 e x t f i l e 3 2 \ \ g e n
0016540 e r a t e f i l e s 2 1 p a
0016560 c k f i l e n a m e . s t r i n
0016600 g ) \r ( 1 8 4 b o d y 1 8 0
0016620 v e r s i o n 1 7 6 e x t
0016640 e n s i o n 1 6 8 y 1 2 2
0016660 c r e a t i o n d a t e 1 0
0016700 2 n a m e 6 2 u p p e r c
0016720 a s e a r r a y 4 7 a u t h
0016740 o r 1 3 e x t e n s i o n
0016760 6 n a m e 2 d i r e c t o
0017000 r y ) \r ( 1 5 9 " G i v
0017020 e ? " 8 0 " " 2 9
0017040 ( r e s e t l s t ) 2 5 (
0017060 a u t h o r c r e a t i o n d
0017100 a t e ) 1 7 " S T A T U S "
0017120 1 0 " * " ) \r t a k e n ?
0017140 : d 4 \r ( l ( 0 | - a r g s
0017160 - | ) p 9 s i : : * r e s
0017200 e t f o r m s * p 8 l i s
0017220 p x h i s t p 7 d i r p
0017240 6 g i v e ? p 3 a u t
0017260 h o r f 1 0 l i s p x h i
0017300 s t ) \0 310 \n 001 002 \0 e 021 001 \0 H k
0017320 021 002 002 J d I 363 262 7 277 h 022 021 1 006 H
0017340 k 275 274 M d L 363 262 : 277 h 276 K 265 G \b
0017360 \0 \0 273 o \0 \0 \0 K \n \0 \0 262 V K k o
0017400 \0 \0 \0 K \n \0 \0 k 331 \v \0 \0 260 D a g
0017420 \0 \0 360 225 J k 330 a 260 303 J l 002 324 Z 260
0017440 265 a g \0 \0 360 225 M k 330 a 260 300 M l 002
0017460 324 ] 260 262 o \0 \0 \0 \n \0 \0 263 024 K o \0
0017500 \0 \0 \n \0 \0 250 K o \0 \0 \0 \n \0 \0 221 h
0017520 273 o \0 \0 \0 i \n \0 \0 277 K 265 006 o \0 \0
0017540 \0 i \n \0 \0 277 i \t \0 \0 ` \0 \0 260 037 d
0017560 001 021 001 \a W 024 021 021 \t g \0 \0 \t \0 \0 \t
0017600 \0 \0 \b \0 \0 277 \t \0 \0 023 023 002 003 265 342 h
0017620 020 \0 ( 1 9 0 c l : v a l u e s
0017640 - l i s t 1 8 6 s i : : r e
0017660 s e t u n w i n d 1 8 3 \ \
0017700 m v l i s t 1 8 0 t a k e n
0017720 ? a 0 0 0 1 1 5 9 t e r p r
0017740 i 1 5 4 p r i n 1 1 4 2
0017760 p r i n 1 1 3 1 c l : : s i
0020000 m p l e - s t r i n g - e q u a
0020020 l 1 2 2 c l : : s i m p l e
0020040 - s t r i n g - e q u a l 1 1
0020060 2 c l : : s i m p l e - s t r
0020100 i n g - e q u a l 6 5 s u b
0020120 s t r i n g 6 0 s t r p o s
0020140 4 8 s t r p o s 3 9 u s
0020160 e r n a m e ) \r ( 1 7 7 s i :
0020200 : r e s e t u n w i n d 1 6 2
0020220 * g i v e - a n d - t a k e -
0020240 d i r e c t o r i e s * 9 0
0020260 : g i v e ? 7 1 : b y ) \r (
0020300 1 5 0 " a n y " 1 3 8 "
0020320 L o o k i n g f o r f i l e
0020340 s t a k e n b y " 1 2 8
0020360 " * " 1 1 9 " A L L " 1
0020400 0 9 " A N Y " 5 6 " . "
0020420 4 4 " . " ) \r ( c l : p r o c
0020440 l a i m ( q u o t e ( g l o
0020460 b a l * g i v e - a n d - t a
0020500 k e - d i r e c t o r i e s * )
0020520 ) ) \r ( o r ( b o u n d p (
0020540 q u o t e * g i v e - a n d -
0020560 t a k e - d i r e c t o r i e s
0020600 * ) ) ( s e t q * g i v e -
0020620 a n d - t a k e - d i r e c t o
0020640 r i e s * ( q u o t e ( \r "
0020660 { E R I S } < L I S P C O R E >
0020700 S O U R C E S > " " { E R I S
0020720 } < L I S P C O R E > L I B R A
0020740 R Y > " " { E R I S } < L I S
0020760 P C O R E > I N T E R N A L > L
0021000 I B R A R Y > " \r " { E R I S
0021020 } < L I S P U S E R S > L I S P
0021040 C O R E > " " { E R I S } < L
0021060 I S P C O R E > C M L > T E S T
0021100 > " ) ) ) ) \r ( p u t p r o p s
0021120 g i v e - a n d - t a k e f
0021140 i l e t y p e c l : c o m p i
0021160 l e - f i l e ) \r ( p u t p r o
0021200 p s g i v e - a n d - t a k e
0021220 c o p y r i g h t ( " X e r
0021240 o x C o r p o r a t i o n "
0021260 1 9 8 6 ) ) \r n i l \r
0021273