$ od -c -N 50000 [eris]<LispCore>LIBRARY>GIVE-AND-TAKE.DCOM!12
0000000 ( F I L E C R E A T E D " 1 7
0000020 - S e p - 8 6 1 6 : 1 3 : 2 9
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > G I V E - A
0000120 N D - T A K E . ; 1 1 ) \r " 1
0000140 6 - S e p - 8 6 1 1 : 5 7 : 3
0000160 0 " i n " X e r o x L i s
0000200 p 1 6 - S e p - 8 6 . . . "
0000220 d a t e d " 1 6 - S e p - 8
0000240 6 1 2 : 2 9 : 4 1 " ) \r ( F I
0000260 L E C R E A T E D " 1 7 - S e
0000300 p - 8 6 1 6 : 1 2 : 4 6 " {
0000320 E R I S } < L I S P C O R E > L
0000340 I B R A R Y > G I V E - A N D -
0000360 T A K E . ; 1 1 1 7 4 6 0 c
0000400 h a n g e s t o : ( \r F U N
0000420 C T I O N S T A K E - F I L E
0000440 ) p r e v i o u s d a t e :
0000460 " 8 - S e p - 8 6 1 6 : 4
0000500 1 : 1 6 " { E R I S } < L I S
0000520 P C O R E > L I B R A R Y > G I
0000540 V E - A N D - T A K E . ; 1 0 )
0000560 \r ( R P A Q Q G I V E - A N D
0000600 - T A K E C O M S ( ( F N S
0000620 G I V E T A K E S T E A L
0000640 G I V E - O R - T A K E - F I N
0000660 D A D D - D E F A U L T - R E
0000700 G I S T R Y ) ( F U N C T I O
0000720 N S \r G I V E - F I L E T A
0000740 K E - F I L E T A K E N ? )
0000760 ( I N I T V A R S ( * G I V E
0001000 - A N D - T A K E - D I R E C T
0001020 O R I E S * ( Q U O T E ( {
0001040 E R I S } < L I S P C O R E > S
0001060 O U R C E S > \r { E R I S } <
0001100 L I S P C O R E > L I B R A R Y
0001120 > ) ) ) ) ( G L O B A L V A R
0001140 S * G I V E - A N D - T A K E
0001160 - D I R E C T O R I E S * ) (
0001200 L I S P X M A C R O S G I V E
0001220 ? T A K E N ? ) ( P R O P \r
0001240 F I L E T Y P E G I V E - A
0001260 N D - T A K E ) ( D E C L A R
0001300 E : D O N T E V A L @ L O A D
0001320 D O E V A L @ C O M P I L E
0001340 D O N T C O P Y C O M P I L E
0001360 R V A R S ( A D D V A R S (
0001400 N L A M A \r S T E A L T A K
0001420 E G I V E ) ( N L A M L )
0001440 ( L A M A ) ) ) ) ) \r G I V E
0001460 D 1 \r ( P 2 F I L E P 0
0001500 S C O R E I 0 F I L E S
0001520 ) \0 ( 003 \0 003 001 i 021 001 \0 @ \t \0 \0
0001540 021 021 002 I 265 004 H 020 003 243 I 272 h 204 I 001
0001560 272 I 002 271 J \t \0 \0 264 004 260 351 270 260 346 \0
0001600 ( 3 7 Q G I V E - F I L E 7
0001620 N L A M B D A . A R G S ) \r N
0001640 I L \r ( ) \r T A K E D 1 \r ( P
0001660 2 F I L E P 0 S C O R
0001700 E I 0 F I L E S ) \0 ( 003
0001720 \0 003 001 i 021 001 \0 @ \t \0 \0 021 021 002 I 265
0001740 004 H 020 003 243 I 272 h 204 I 001 272 I 002 271 J
0001760 \t \0 \0 264 004 260 351 270 260 346 \0 ( 3 7 Q
0002000 T A K E - F I L E 7 N L A M
0002020 B D A . A R G S ) \r N I L \r ( )
0002040 \r S T E A L D 1 \r ( P 2 F
0002060 I L E P 0 S C O R E I
0002100 0 F I L E S ) \0 ) 003 \0 003 001 i
0002120 021 001 \0 @ \t \0 \0 021 021 002 I 265 004 H 020 003
0002140 243 I 272 h 204 I 001 272 I 002 271 J i \n \0 \0
0002160 264 004 260 350 270 260 345 \0 ( 4 0 Q T A K
0002200 E - F I L E 7 N L A M B D A
0002220 . A R G S ) \r N I L \r ( ) \r G I
0002240 V E - O R - T A K E - F I N D
0002260 D 1 \r ( P 0 N A M E I 0
0002300 F I L E N A M E ) \0 032 001 \0 \0
0002320 001 @ i ` \0 \0 \v \0 \0 021 001 \0 H 265 \f i
0002340 o \0 \0 \0 @ \v \0 \0 h 020 \0 ( 2 6 Q
0002360 F O R M A T 7 F I N D F I L
0002400 E ) \r ( 4 * G I V E - A N D -
0002420 T A K E - D I R E C T O R I E S
0002440 * ) \r ( 2 2 Q " ~ A d o e
0002460 s n o t e x i s t a n d
0002500 s o c a n n o t b e t a k
0002520 e n o r g i v e n . ~ % % "
0002540 ) \r A D D - D E F A U L T - R E
0002560 G I S T R Y D 1 \r ( I 0 N
0002600 A M E F 0 D E F A U L T R
0002620 E G I S T R Y ) \0 030 \0 001 \0 001 o
0002640 \0 \0 \0 @ \n \0 \0 241 P 241 @ 020 @ o \0 \0
0002660 \0 P \v \0 \0 020 \0 ( 2 5 Q C O N C
0002700 A T 7 S T R P O S ) \r N I L
0002720 \r ( 2 1 Q " . " 3 " . "
0002740 ) \r G I V E - F I L E A 0 0 0 1
0002760 D 1 \r ( N A M E E R R O R S
0003000 E T F 0 N A M E ) \0 ! \0
0003020 001 002 \0 g \0 \0 g \0 \0 g \0 \0 k g \0 \0
0003040 P \r 006 \0 \0 g \0 \0 h o \0 \0 \0 \f \0 \0
0003060 h 032 020 \0 ( 3 4 Q O P E N S T R
0003100 E A M 2 1 Q P A C K F I L E
0003120 N A M E . S T R I N G ) \r ( 2 4
0003140 Q I N P U T 1 4 Q B O D Y
0003160 1 0 Q V E R S I O N 5 S
0003200 T A T U S 2 E X T E N S I O
0003220 N ) \r ( 3 1 Q ( D O N ' T C
0003240 A C H E ) ) \r G I V E - F I L E
0003260 D 1 \r ( L ( 0 F I L E N A
0003300 M E ) P 0 N A M E ) \0 _
0003320 003 \0 \0 001 @ \t \0 \0 021 ! 002 H 241 h 020 o
0003340 \0 \0 \0 \t \0 \0 001 Y d \t \0 \0 253 277 i o
0003360 \0 \0 \0 H \v \0 \0 h 020 \t \0 \0 \t \0 \0 Z
0003400 \b \0 \0 \t \0 \0 \n \0 \0 262 024 I \t \0 \0 \t
0003420 \0 \0 i o \0 \0 \0 H \v \0 \0 i 020 i o \0
0003440 \0 \0 H J I \t \0 \0 \r 005 \0 \0 I \t \0 \0
0003460 h 020 \0 ( 1 3 3 Q C L O S E F
0003500 1 2 7 Q F O R M A T 1 2 3 Q
0003520 C L : R E A D 1 0 6 Q F O
0003540 R M A T 7 5 Q D E L F I L E
0003560 7 2 Q C L O S E F 6 4 Q
0003600 S T R I N G - E Q U A L 6 1 Q
0003620 A D D - D E F A U L T - R E G
0003640 I S T R Y 5 6 Q U S E R N A
0003660 M E 5 2 Q A D D - D E F A U
0003700 L T - R E G I S T R Y 4 7 Q
0003720 C L : R E A D 4 2 Q F O R M
0003740 A T 2 7 Q S T R E A M P 2
0003760 1 Q G I V E - F I L E A 0 0 0
0004000 1 3 G I V E - O R - T A K E
0004020 - F I N D ) \r N I L \r ( 1 1 5
0004040 Q " S o r r y , b u t y o
0004060 u c a n ' t g i v e w h a
0004100 t y o u h a v e n ' t t a
0004120 k e n . ~ % % ~ A w a s t a
0004140 k e n b y ~ A o n ~ A .
0004160 ~ % % " 1 0 2 Q " ~ A i s
0004200 n o w u n l o c k e d . ~ %
0004220 % " \r 3 6 Q " S o r r y ,
0004240 b u t y o u c a n ' t g i
0004260 v e w h a t y o u h a v e
0004300 n ' t t a k e n . ~ % % ~ A
0004320 h a s n o t b e e n t a k
0004340 e n b y a n y o n e , i n
0004360 c l u d i n g y o u . ~ % % "
0004400 \r 1 6 Q ( G I V E - F I L E
0004420 A 0 0 0 1 ) ) \r T A K E - F I L
0004440 E A 0 0 0 1 A 0 0 0 2 D 1 \r (
0004460 L ( 1 G R O S S - L I S T -
0004500 H A C K 0 N A M E ) ) \0 G
0004520 002 \0 \0 002 A 002 002 001 263 @ i o \0 \0 \0 @
0004540 \v \0 \0 A d 002 001 263 032 d 001 \t \0 \0 262 023
0004560 277 A 021 021 001 A 001 \t \0 \0 271 H 002 I 030 023
0004600 A 001 \t \0 \0 225 A 001 \t \0 \0 277 A 002 001 264
0004620 \b A 002 001 \t \0 \0 020 h 020 \0 ( 1 0 2 Q
0004640 D E L F I L E 6 6 Q C L O
0004660 S E F ? 6 0 Q S T R E A M P
0004700 4 5 Q F U L L N A M E 3 1
0004720 Q S T R E A M P 1 6 Q F O
0004740 R M A T ) \r N I L \r ( 1 2 Q
0004760 " I n t e r r u p t e d d u r
0005000 i n g p r o c e s s i n g o
0005020 f ~ A . T a k e a b o r
0005040 t e d . ~ % % " ) \r T A K E - F
0005060 I L E A 0 0 0 1 A 0 0 0 3 D 1
0005100 \r ( N A M E E R R O R S E T
0005120 F 0 G R O S S - L I S T - H
0005140 A C K ) \0 034 \0 001 002 \0 g \0 \0 k g
0005160 \0 \0 P 002 001 \f \0 \0 g \0 \0 h o \0 \0 \0
0005200 \f \0 \0 h 032 020 \0 ( 2 7 Q O P E N
0005220 S T R E A M 1 4 Q P A C K F
0005240 I L E N A M E . S T R I N G ) \r
0005260 ( 1 7 Q I N P U T 6 B O D
0005300 Y 2 V E R S I O N ) \r ( 2
0005320 4 Q ( D O N ' T C A C H E ) )
0005340 \r T A K E - F I L E A 0 0 0 1 A
0005360 0 0 0 4 D 1 \r ( N A M E E R
0005400 R O R S E T L ( 0 N I L )
0005420 F 2 G R O S S - L I S T -
0005440 H A C K F 3 N A M E ) \0
0005460 036 002 002 002 \0 R 001 \t \0 \0 R 001 \t \0 \0 021
0005500 002 001 i o \0 \0 \0 S H I \r 005 \0 \0 022 h
0005520 032 020 \0 ( 3 0 Q F O R M A T 1
0005540 1 Q C L : R E A D 4 C L :
0005560 R E A D ) \r N I L \r ( 2 1 Q
0005600 " S o r r y , b u t ~ A w
0005620 a s a l r e a d y t a k e n
0005640 b y ~ A o n ~ A . ~ % %
0005660 " ) \r T A K E - F I L E A 0 0 0
0005700 1 D 1 \r ( N A M E E R R O R
0005720 S E T P 1 N A M E P 0
0005740 G R O S S - L I S T - H A C K
0005760 F 1 6 Q F I L E N A M E
0006000 F 1 7 Q R E S E T V A R S L
0006020 S T F 2 0 Q S T E A L F
0006040 2 1 Q R E S E T Y ) 001 T 016
0006060 004 002 \0 h d i h 032 032 032 021 321 \r W 034 \t
0006100 \0 \0 Y 243 h 261 001 < g \0 \0 g \0 \0 g \0
0006120 \0 h g \0 \0 I \r 006 \0 \0 272 g \0 \0 I H
0006140 h 032 032 032 h h 032 032 W 036 032 c 036 277 H 275
0006160 J g \0 \0 h o \0 \0 \0 \f \0 \0 274 M L 030
0006200 277 H _ 016 001 \t \0 \0 276 O 016 002 N 030 277 H
0006220 002 001 g \0 \0 \n \0 \0 k \n \0 \0 262 f \b \0
0006240 \0 \t \0 \0 \b \0 \0 _ 022 277 _ 020 277 H 001 o
0006260 \0 \0 \0 O 020 O 022 \f \0 \0 277 H 001 \t \0 \0
0006300 277 i o \0 \0 \0 I O 020 O 022 \r 005 \0 \0 277
0006320 I \t \0 \0 _ 024 301 002 311 \0 g \0 \0 ' 262 !
0006340 I O 024 301 002 311 \0 g \0 \0 ' 001 002 _ 026 \n
0006360 \0 \0 253 i o \0 \0 \0 I O 026 \f \0 \0 277 i
0006400 260 y H 001 \t \0 \0 277 H 002 001 \t \0 \0 277 H
0006420 _ 032 277 o \0 \0 \0 \t \0 \0 001 _ 030 277 O 032
0006440 O 030 030 277 H 001 \t \0 \0 246 i o \0 \0 \0 260
0006460 E W 262 + i o \0 \0 \0 I H 001 g \0 \0
0006500 \n \0 \0 \f \0 \0 277 H 001 \t \0 \0 277 H 001 \t
0006520 \0 \0 \t \0 \0 277 W 034 h \n \0 \0 260 035 o \0
0006540 \0 \0 \t \0 \0 h 360 H 001 \t \0 \0 277 264 \f i
0006560 o \0 \0 \0 \n \0 \0 277 h 273 H 002 002 i 030 277
0006600 K 022 c " i 020 \0 ( 5 0 3 Q F O R
0006620 M A T 4 7 0 Q C L O S E F
0006640 4 6 1 Q T A K E - F I L E A 0
0006660 0 0 1 A 0 0 0 4 4 5 0 Q T A
0006700 K E - F I L E 4 4 1 Q D E L
0006720 F I L E 4 3 6 Q F U L L N A
0006740 M E 4 3 0 Q C L O S E F 4
0006760 2 2 Q F O R M A T 4 1 7 Q
0007000 G E T F I L E I N F O 3 6 5 Q
0007020 S T R E A M P 3 4 6 Q T A
0007040 K E - F I L E A 0 0 0 1 A 0 0 0
0007060 3 3 3 2 Q D E L F I L E 3
0007100 2 3 Q C L O S E F 3 1 2 Q
0007120 F O R M A T 2 7 6 Q S T R I
0007140 N G - E Q U A L 2 4 0 Q R O
0007160 O T F I L E N A M E 2 3 3 Q
0007200 F O R M A T 2 1 4 Q C L O S
0007220 E F 2 0 6 Q F O R M A T 1
0007240 6 3 Q D A T E 1 6 0 Q A D
0007260 D - D E F A U L T - R E G I S T
0007300 R Y 1 5 5 Q U S E R N A M E
0007320 1 5 0 Q % % = 1 4 4 Q F
0007340 I L E N A M E F I E L D 1 2 4
0007360 Q F U L L N A M E 1 1 0 Q
0007400 O P E N S T R E A M 4 6 Q P
0007420 A C K F I L E N A M E . S T R I
0007440 N G 1 6 Q G I V E - O R - T
0007460 A K E - F I N D ) \r ( 4 1 4 Q
0007500 A U T H O R 2 6 6 Q F I L E
0007520 D A T E S 2 5 1 Q F I L E
0007540 1 4 1 Q V E R S I O N 1 0 0
0007560 Q O U T P U T 5 2 Q T A K
0007600 E - F I L E A 0 0 0 1 A 0 0 0 2
0007620 4 1 Q B O D Y 3 5 Q V E
0007640 R S I O N 3 2 Q S T A T U S
0007660 2 7 Q E X T E N S I O N ) \r
0007700 ( 5 0 0 Q " B a d s i t u
0007720 a t i o n : O n l y a n i
0007740 l l e g a l s t a t u s f i
0007760 l e e x i s t s . ~ % % T r y
0010000 a g a i n i n a m o m e
0010020 n t o r t r y t o f i x
0010040 t h e p r o b l e m . ~ % %
0010060 " \r 4 5 6 Q ( T A K E - F I
0010100 L E A 0 0 0 1 A 0 0 0 4 ) 4 0
0010120 6 Q " S t e a l i n g ~ A
0010140 f r o m ~ A . ~ % % " 3 7 3
0010160 Q " B a d s i t u a t i o n
0010200 : I l l e g a l v e r s i o
0010220 n s o f t h e s t a t u s
0010240 f i l e e x i s t . ~ & T r
0010260 y a g a i n i n a m o m
0010300 e n t o r t r y t o f i
0010320 x t h e p r o b l e m . ~ %
0010340 % " \r 3 4 3 Q ( T A K E - F
0010360 I L E A 0 0 0 1 A 0 0 0 3 ) 3
0010400 0 4 Q " W a r n i n g : F i
0010420 l e ~ A i s d i f f e r e
0010440 n t f r o m l o a d e d f
0010460 i l e ~ A ~ % % " 2 2 2 Q
0010500 " ~ A i s n o w l o c k e
0010520 d b y ~ A a t ~ A . ~ %
0010540 % " \r 1 7 7 Q " ~ S ~ S ~
0010560 % % " 1 0 5 Q ( D O N ' T C
0010600 A C H E ) ) \r T A K E - F I L E
0010620 D 1 \r ( P 1 R E S E T Y
0010640 P 0 L I S P X H I S T I
0010660 1 S T E A L I 0 F I L E
0010700 N A M E F 3 L I S P X H I
0010720 S T F 4 R E S E T V A R S
0010740 L S T ) \0 " 003 002 \0 002 S 021 ! 002 T
0010760 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0
0011000 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0 ( 3 5
0011020 Q E R R O R ! 3 0 Q R E S
0011040 E T R E S T O R E 1 6 Q T A
0011060 K E - F I L E A 0 0 0 1 ) \r ( 2
0011100 4 Q E R R O R 1 3 Q I N T
0011120 E R N A L ) \r ( 1 0 Q ( T A
0011140 K E - F I L E A 0 0 0 1 ) ) \r T
0011160 A K E N ? A 0 0 0 1 D 1 \r ( N
0011200 A M E E R R O R S E T L (
0011220 0 N I L ) F 4 D I R F
0011240 5 A U T H O R F 6 R E
0011260 S E T Y F 7 G I V E ? )
0011300 \0 313 004 004 002 \0 g \0 \0 T g \0 \0 o \0 \0
0011320 \0 g \0 \0 o \0 \0 \0 \r 006 \0 \0 o \0 \0 \0
0011340 o \0 \0 \0 \v \0 \0 021 1 003 H \t \0 \0 Y 245
0011360 023 h c \f i 020 H g \0 \0 \n \0 \0 272 U 236
0011400 U J k h i h ` \0 \0 \r \a \0 \0 262 335 K
0011420 263 035 i \t \0 \0 277 o \0 \0 \0 i \n \0 \0 277
0011440 T i \n \0 \0 277 i \t \0 \0 277 i 273 I g \0
0011460 \0 \n \0 \0 i \n \0 \0 277 l 020 h i \v \0 \0
0011500 277 H g \0 \0 \n \0 \0 i \n \0 \0 277 l ( h
0011520 i \v \0 \0 277 J i \n \0 \0 277 W 016 246 i \t
0011540 \0 \0 277 260 207 h d o \0 \0 \0 h i \r 005 \0
0011560 \0 g \0 \0 360 242 261 377 t g \0 \0 h g \0 \0
0011600 h g \0 \0 I \r 006 \0 \0 \t \0 \0 277 261 377 ]
0011620 \0 ( 3 0 5 Q G I V E - F I L E
0011640 3 0 2 Q P A C K F I L E N A
0011660 M E . S T R I N G 2 5 2 Q A
0011700 S K U S E R 2 3 3 Q T E R P
0011720 R I 2 2 3 Q P R I N 1 2 1
0011740 5 Q T A B 2 0 5 Q P R I N
0011760 1 2 0 1 Q \ G E N E R A T E
0012000 F I L E I N F O 1 7 1 Q T A
0012020 B 1 6 1 Q P R I N 1 1 5 5
0012040 Q F I L E N A M E F I E L D
0012060 1 4 3 Q T E R P R I 1 3 6 Q
0012100 P R I N 1 1 3 0 Q P R I N
0012120 1 1 1 7 Q T E R P R I 1 0
0012140 6 Q S T R P O S 6 6 Q \ G
0012160 E N E R A T E F I L E I N F O
0012200 4 7 Q \ G E N E R A T E N E X
0012220 T F I L E 4 0 Q \ G E N E R
0012240 A T E F I L E S 2 5 Q P A C
0012260 K F I L E N A M E . S T R I N G
0012300 ) \r ( 2 7 5 Q B O D Y 2 7 1
0012320 Q V E R S I O N 2 6 5 Q E
0012340 X T E N S I O N 2 5 5 Q Y
0012360 1 7 6 Q C R E A T I O N D A T
0012400 E 1 5 2 Q N A M E 1 0 2 Q
0012420 U P P E R C A S E A R R A Y
0012440 6 3 Q A U T H O R 1 5 Q E
0012460 X T E N S I O N 6 N A M E
0012500 2 D I R E C T O R Y ) \r ( 2
0012520 4 4 Q " G i v e ? " 1
0012540 2 4 Q " " 3 5 Q ( R
0012560 E S E T L S T ) 3 1 Q ( A U
0012600 T H O R C R E A T I O N D A T
0012620 E ) 2 1 Q " S T A T U S "
0012640 1 2 Q " * " ) \r T A K E N ?
0012660 D 1 \r ( L ( 0 - a r g s - )
0012700 P 1 1 Q R E S E T Y P
0012720 1 0 Q L I S P X H I S T P
0012740 7 D I R P 6 G I V E ?
0012760 P 3 A U T H O R F 1 3 Q
0013000 L I S P X H I S T F 1 4 Q
0013020 R E S E T V A R S L S T ) \0
0013040 327 \v 002 002 \0 e 021 001 \0 H k 021 002 002 J d
0013060 I 363 262 7 277 h 022 021 1 006 H k 275 274 M d
0013100 L 363 262 : 277 h 276 K 265 G \b \0 \0 273 o \0
0013120 \0 \0 K \n \0 \0 262 V K k o \0 \0 \0 K \n
0013140 \0 \0 k 331 \v \0 \0 260 D a g \0 \0 360 225 J
0013160 k 330 a 260 303 J l 002 324 Z 260 265 a g \0 \0
0013200 360 225 M k 330 a 260 300 M l 002 324 ] 260 262 o
0013220 \0 \0 \0 \n \0 \0 263 024 K o \0 \0 \0 \n \0 \0
0013240 250 K o \0 \0 \0 \n \0 \0 221 h 273 o \0 \0 \0
0013260 i \n \0 \0 277 K 265 006 o \0 \0 \0 i \n \0 \0
0013300 277 i \t \0 \0 ` \0 \0 260 . d 001 021 001 \a W
0013320 026 021 ! \n W 030 o \0 \0 \0 g \0 \0 \n \0 \0
0013340 221 h 202 g \0 \0 _ 024 \n \0 \0 277 O 024 223 \b
0013360 \0 \0 277 023 023 002 003 265 323 h 020 \0 ( 3 1 4
0013400 Q E R R O R ! 3 0 5 Q R E
0013420 S E T R E S T O R E 2 7 2 Q
0013440 T A K E N ? A 0 0 0 1 2 3 7 Q
0013460 T E R P R I 2 3 2 Q P R I
0013500 N 1 2 1 6 Q P R I N 1 2 0
0013520 3 Q S T R I N G - E Q U A L
0013540 1 7 2 Q S T R I N G - E Q U A
0013560 L 1 6 0 Q S T R I N G - E Q
0013600 U A L 1 0 1 Q S U B S T R I
0013620 N G 7 4 Q S T R P O S 6 0
0013640 Q S T R P O S 4 7 Q U S E
0013660 R N A M E ) \r ( 3 0 0 Q E R R
0013700 O R 2 6 7 Q I N T E R N A L
0013720 2 4 2 Q * G I V E - A N D -
0013740 T A K E - D I R E C T O R I E S
0013760 * 1 3 2 Q : G I V E ? 1 0
0014000 7 Q : B Y ) \r ( 2 6 4 Q (
0014020 T A K E N ? A 0 0 0 1 ) 2 2 6
0014040 Q " a n y " 2 1 2 Q " L o
0014060 o k i n g f o r f i l e s
0014100 t a k e n b y " 2 0 0 Q
0014120 " * " 1 6 7 Q " A L L " 1
0014140 5 5 Q " A N Y " 7 0 Q " .
0014160 " \r 5 4 Q " . " ) \r ( R P A
0014200 Q ? * G I V E - A N D - T A K
0014220 E - D I R E C T O R I E S * (
0014240 Q U O T E ( { E R I S } < L I
0014260 S P C O R E > S O U R C E S >
0014300 { E R I S } < L I S P C O R E >
0014320 L I B R A R Y > ) ) ) \r ( A D D
0014340 T O V A R L I S P X M A C R O
0014360 S ( G I V E ? ( T A K E N ?
0014400 : G I V E ? T ) ) ( T A K
0014420 E N ? ( A P P L Y ( F U N C
0014440 T I O N T A K E N ? ) L I S
0014460 P X L I N E ) ) ) \r ( P U T P R
0014500 O P S G I V E - A N D - T A K
0014520 E F I L E T Y P E C O M P I
0014540 L E - F I L E ) \r ( P U T P R O
0014560 P S G I V E - A N D - T A K E
0014600 C O P Y R I G H T ( " X e r
0014620 o x C o r p o r a t i o n "
0014640 1 9 8 6 ) ) \r N I L \r
0014653