$ od -c -N 50000 [eris]<LispCore>LIBRARY>GIVE-AND-TAKE!12
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 " 2
0000120 8 - O c t - 8 6 2 3 : 2 3 : 0
0000140 8 " 006 004 { E R I S } < L I S P
0000160 C O R E > L I B R A R Y > G I V
0000200 E - A N D - T A K E . ; 1 2 006 001
0000220 1 5 8 2 5 \r \r
0000240 p r e v i o u s d a t e % :
0000260 " 1 7 - S e p - 8 6 1 6 : 1 2
0000300 : 4 6 " { E R I S } < L I S P
0000320 C O R E > L I B R A R Y > G I V
0000340 E - A N D - T A K E . ; 1 1 ) \r
0000360 \r \r ( * " \r C o p y r i g h t
0000400 ( c ) 1 9 8 6 b y X e r
0000420 o x C o r p o r a t i o n .
0000440 A l l r i g h t s r e s e
0000460 r v e d . \r " ) \r \r ( P R E T T
0000500 Y C O M P R I N T G I V E - A
0000520 N D - T A K E C O M S ) \r \r ( R
0000540 P A Q Q 006 002 G I V E - A N D -
0000560 T A K E C O M S 006 001 ( ( F N S
0000600 G I V E T A K E S T E A L
0000620 G I V E - O R - T A K E - F I
0000640 N D A D D - D E F A U L T - R
0000660 E G I S T R Y ) \r
0000700
0000720 ( F U N C T I O N S G I
0000740 V E - F I L E T A K E - F I L
0000760 E T A K E N ? ) \r
0001000
0001020 ( I N I T V A R S ( *
0001040 G I V E - A N D - T A K E - D I
0001060 R E C T O R I E S * ' ( { E R
0001100 I S } < L I S P C O R E > S O U
0001120 R C E S > \r
0001140
*
0001240 { E R I S } < L I S P C O R E >
0001260 L I B R A R Y > ) ) ) \r
0001300
0001320 ( G L O B A L V A R
0001340 S * G I V E - A N D - T A K E
0001360 - D I R E C T O R I E S * ) \r
0001400
0001420 ( L I S P X M
0001440 A C R O S G I V E ? T A K E
0001460 N ? ) \r
0001500 ( P
0001520 R O P F I L E T Y P E G I V
0001540 E - A N D - T A K E ) \r
0001560
0001600 ( D E C L A R E % :
0001620 D O N T E V A L @ L O A D D
0001640 O E V A L @ C O M P I L E D O
0001660 N T C O P Y C O M P I L E R V
0001700 A R S \r
0001720
0001740 ( A D D V A R S ( N
0001760 L A M A S T E A L T A K E
0002000 G I V E ) \r
0002020
0002040 ( N
0002060 L A M L ) \r
0002100
0002120 ( L
0002140 A M A ) ) ) ) ) \r ( D E F I N E
0002160 Q \r \r ( 006 004 G I V E 006 001 \r (
0002200 N L A M B D A F I L E S 006 006 006
0002220 001
0002240
0002260 006 006
0002300 ( * b v m % : " 1 1 - J u n
0002320 - 8 6 1 6 : 4 0 " ) 006 001 \r
0002340 ( L E T ( ( S C O R E T
0002360 ) ) \r ( 006 002 f
0002400 o r 006 001 F I L E 006 002 i n s i
0002420 d e 006 001 ( N L A M B D A . A R
0002440 G S F I L E S ) 006 002 u n l e
0002460 s s 006 001 ( G I V E - F I L E
0002500 F I L E ) 006 002 d o 006 001 ( S E
0002520 T Q S C O R E N I L ) ) \r
0002540 S C O R E ) ) )
0002560 \r \r ( 006 004 T A K E 006 001 \r ( N
0002600 L A M B D A F I L E S 006 006 006 001
0002620
*
0002660 006 006 (
0002700 * b v m % : " 1 1 - J u n -
0002720 8 6 1 6 : 4 1 " ) 006 001 \r
0002740 ( L E T ( ( S C O R E T )
0002760 ) \r ( 006 002 f o
0003000 r 006 001 F I L E 006 002 i n s i d
0003020 e 006 001 ( N L A M B D A . A R G
0003040 S F I L E S ) 006 002 u n l e s
0003060 s 006 001 ( T A K E - F I L E F
0003100 I L E ) 006 002 d o 006 001 ( S E T
0003120 Q S C O R E N I L ) ) \r
0003140 S C O R E ) ) ) \r
0003160 \r ( 006 004 S T E A L 006 001 \r ( N
0003200 L A M B D A F I L E S 006 006 006 001
0003220
*
0003260 006 006 (
0003300 * a m d " 5 - A u g - 8 6
0003320 1 1 : 4 7 " ) 006 001 \r (
0003340 L E T ( ( S C O R E T ) ) \r
0003360 ( 006 002 f o r 006
0003400 001 F I L E 006 002 i n s i d e 006
0003420 001 ( N L A M B D A . A R G S
0003440 F I L E S ) 006 002 u n l e s s 006
0003460 001 ( T A K E - F I L E F I L
0003500 E T ) 006 002 d o 006 001 ( S E T
0003520 Q S C O R E N I L ) ) \r
0003540 S C O R E ) ) ) \r
0003560 \r ( 006 004 G I V E - O R - T A K E
0003600 - F I N D 006 001 \r ( L A M B D
0003620 A ( F I L E N A M E ) 006 006 006 001
0003640
*
0003700 006 006 ( * b v
0003720 m % : " 1 1 - J u n - 8 6 1
0003740 7 : 4 9 " ) 006 001 \r ( L E
0003760 T ( ( N A M E ( F I N D F I
0004000 L E F I L E N A M E T * G
0004020 I V E - A N D - T A K E - D I R
0004040 E C T O R I E S * ) ) ) \r
0004060 ( C O N D \r
0004100 ( N A M E ) \r
0004120 ( T ( F
0004140 O R M A T T " ~ A d o e s
0004160 n o t e x i s t a n d s
0004200 o c a n n o t b e t a k e
0004220 n o r g i v e n . ~ % % "
0004240 F I L E N A M E ) \r
0004260 N I L ) ) ) )
0004300 ) \r \r ( 006 004 A D D - D E F A U L
0004320 T - R E G I S T R Y 006 001 \r (
0004340 L A M B D A ( N A M E ) 006 006 006
0004360 001
0004400
0004420 006 006
0004440 ( * b v m % : " 1 1 - J u n
0004460 - 8 6 1 6 : 2 0 " ) 006 001 \r
0004500 \r
0004520 006 006 ( * * " A d d s
0004540 d e f a u l t r e g i s t r y
0004560 t o N A M E i f t h e r
0004600 e i s n ' t o n e t h e r
0004620 e a l r e a d y " ) 006 001 \r \r
0004640 ( C O N D \r
0004660 ( ( O R ( S T R P O S " . "
0004700 N A M E ) \r
0004720 ( N U L L D E F A U L T
0004740 R E G I S T R Y ) ) \r
0004760 N A M E ) \r
0005000 ( T ( C O N C A T N A M E
0005020 " . " D E F A U L T R E G I S
0005040 T R Y ) ) ) ) ) \r ) \r ( C L : D
0005060 E F U N 006 002 G I V E - F I L E
0005100 006 001 ( F I L E N A M E ) 006 006
0005120 006 001
0005140
0005160 006 006 ( * " P a v e l " " 1 1
0005200 - M a y - 8 6 0 0 : 1 1 " ) 006
0005220 001 \r " F i n d t h e f
0005240 i l e n a m e d a n d l o
0005260 o k f o r a S T A T U S
0005300 f i l e a s s o c i a t e d
0005320 w i t h i t . I f f o u
0005340 n d a n d t h i s u s e r
0005360 w r o t e i t , t h e n
0005400 r e m o v e i t , t h u s
0005420 u n l o c k i n g t h e f i
0005440 l e . " \r ( L E T ( ( N
0005460 A M E ( G I V E - O R - T A K
0005500 E - F I N D F I L E N A M E )
0005520 ) \r S T A T U
0005540 S - S T R E A M T A K E N - B
0005560 Y ) \r ( C O N D
0005600 \r ( ( N U
0005620 L L N A M E ) \r
0005640 N I L ) \r
0005660 ( ( N O T ( S T R E
0005700 A M P ( S E T Q S T A T U S
0005720 - S T R E A M ( C A R ( N L
0005740 S E T Q ( O P E N S T R E A M
0005760 ( P A C K F I L E N A M E . S
0006000 T R I N G \r
0006020
*
0006100 ' E
0006120 X T E N S I O N \r
0006140
*
0006240 ' S T A T U S \r
0006260
*
0006360 ' V E R S I O N 1 ' B O D
0006400 Y N A M E ) \r
0006420
*
0006500 ' I N P U T
0006520 N I L ' ( D O N ' T C A C H
0006540 E ) ) ) ) ) ) ) \r
0006560 ( F O R M A T T "
0006600 S o r r y , b u t y o u c
0006620 a n ' t g i v e w h a t y
0006640 o u h a v e n ' t t a k e n
0006660 . ~ % % ~ A h a s n o t b
0006700 e e n t a k e n b y a n y
0006720 o n e , i n c l u d i n g y
0006740 o u . ~ % % " \r
0006760 N A M E
0007000 ) \r N I
0007020 L ) \r ( (
0007040 S T R I N G - E Q U A L ( S E
0007060 T Q T A K E N - B Y ( A D D
0007100 - D E F A U L T - R E G I S T R
0007120 Y ( C L : R E A D S T A T U
0007140 S - S T R E A M ) ) ) \r
0007160 (
0007200 A D D - D E F A U L T - R E G I
0007220 S T R Y ( U S E R N A M E ) )
0007240 ) 006 006 ( * " W
0007260 e ' r e a w i n n e r " ) 006
0007300 001 \r ( D
0007320 E L F I L E ( C L O S E F S
0007340 T A T U S - S T R E A M ) ) \r
0007360 ( F O R M
0007400 A T T " ~ A i s n o w
0007420 u n l o c k e d . ~ % % " N A
0007440 M E ) \r
0007460 T ) \r ( T
0007500
*
0007560 006 006 ( * " W e ' r e a l o
0007600 s e r " ) 006 001 \r
0007620 ( F O R M A T T
0007640 \r
0007660 " S o r r y , b u t
0007700 y o u c a n ' t g i v e w
0007720 h a t y o u h a v e n ' t
0007740 t a k e n . ~ % % ~ A w a s
0007760 t a k e n b y ~ A o n ~
0010000 A . ~ % % " \r
0010020 N A M
0010040 E T A K E N - B Y ( C L : R
0010060 E A D S T A T U S - S T R E A
0010100 M ) ) \r
0010120 ( C L O S E F S T A T U S
0010140 - S T R E A M ) \r
0010160 N I L ) ) ) ) \r \r
0010200 ( C L : D E F U N 006 002 T A K E
0010220 - F I L E 006 001 ( F I L E N A M
0010240 E & O P T I O N A L S T E A
0010260 L ) 006 006 006 001
0010300 006 006 ( * " P a v e l
0010320 " " 1 2 - M a y - 8 6 1 4 :
0010340 4 4 " ) 006 001 \r " F i n d
0010360 t h e g i v e n f i l e a
0010400 n d o p e n a s t a t u s
0010420 f i l e t o b e a s s o
0010440 c i a t e d w i t h i t .
0010460 I f t h e f i l e w e
0010500 o p e n t u r n s o u t t
0010520 o b e v e r s i o n 1 ,
0010540 t h e n w e ' v e g o t t
0010560 h e l o c k a n d w e w
0010600 r i t e o u r n a m e a n
0010620 d t h e d a t e i n t o
0010640 t h e f i l e . O t h e r
0010660 w i s e , s o m e b o d y (
0010700 p o s s i b l y u s ! ) h a
0010720 s a l r e a d y g o t i t
0010740 a n d t h e l o c k c a
0010760 n n o t b e o b t a i n e d
0011000 . " \r ( R E S E T L S T
0011020 ( P R O G ( ( G R O S S - L I
0011040 S T - H A C K ( L I S T N I
0011060 L N I L T ) ) \r
0011100 N A
0011120 M E S T A T U S - N A M E S
0011140 T A T U S - N A M E - P A R T S
0011160 S T A T U S - V E R S I O N
0011200 S U C C E S S ) \r
0011220 ( C O N
0011240 D \r
0011260 ( ( N O T ( C
0011300 L : S E T F N A M E ( G I V
0011320 E - O R - T A K E - F I N D F
0011340 I L E N A M E ) ) ) \r
0011360
0011400 ( R E T U R N N I L ) ) )
0011420 \r
0011440 ( C L : S E T F S T A
0011460 T U S - N A M E ( P A C K F I
0011500 L E N A M E . S T R I N G ' E
0011520 X T E N S I O N ' S T A T U S
0011540 ' V E R S I O N N I L \r
0011560
*
0011620 ' B O
0011640 D Y N A M E ) ) \r
0011660 ( C L
0011700 : M A C R O L E T ( ( S T A T
0011720 U S - S T R E A M N I L ' (
0011740 C L : F I R S T G R O S S - L
0011760 I S T - H A C K ) ) \r
0012000
0012020 ( S T A
0012040 T U S - F U L L - N A M E N I
0012060 L ' ( C L : S E C O N D G R
0012100 O S S - L I S T - H A C K ) ) \r
0012120
*
0012160 ( F I N I S H E D - N O R M A
0012200 L L Y - P N I L ' ( C L : T
0012220 H I R D G R O S S - L I S T -
0012240 H A C K ) ) ) \r
0012260
0012300 ( R E S E T S A V E N I L
0012320 ( L I S T ( F U N C T I O N
0012340 ( C L : L A M B D A \r
0012360
*
0012440 ( N A M E G R O S
0012460 S - L I S T - H A C K ) 006 006 006 001
0012500 \r
0012520
*
0012560 006 006 ( * ; ; " W e h
0012600 a v e b e e n i n t e r r u
0012620 p t e d d u r i n g p r o c
0012640 e s s i n g . C l o s e a
0012660 n y o p e n s t r e a m s
0012700 a n d d e l e t e t h e s
0012720 t a t u s f i l e w e w e
0012740 r e m a k i n g . " ) 006 001 \r
0012760
*
0013040 ( C L : W H E
0013060 N ( N O T ( F I N I S H E D
0013100 - N O R M A L L Y - P ) ) \r
0013120
*
0013200 (
0013220 F O R M A T T \r
0013240
*
0013300 " I n t e r r u p
0013320 t e d d u r i n g p r o c e
0013340 s s i n g o f ~ A . T a
0013360 k e a b o r t e d . ~ % % "
0013400 \r
0013420
*
0013500 N A M E ) \r
0013520
*
0013620 ( C L : W H E N ( A N D ( N
0013640 U L L ( \r
0013660
*
0013760 S T A T U
0014000 S - F U L L - N A M E \r
0014020
*
0014140 ) ) \r
0014160
*
0014260 ( S T R E A M P ( \r
0014300
*
0014420 S T A T U S - S T
0014440 R E A M \r
0014460
*
0014560 ) )
0014600 ) 006 006 006 001 \r
0014620
*
0014660 006 006 ( * ; \r
0014700 006 001 006 006 " I f S T A T U S -
0014720 F U L L - N A M E w a s n e
0014740 v e r s e t , t h e n S T
0014760 A T U S - S T R E A M , i f
0015000 o p e n , m u s t r e f e r
0015020 t o t h e n e w s t a t
0015040 u s f i l e . " ) 006 001 \r
0015060
*
0015160 ( C L : S E T F ( S
0015200 T A T U S - F U L L - N A M E )
0015220 \r
0015240
*
0015340 ( F U L L N A M E ( \r
0015360
*
0015500 S T A T U S - S T R E A
0015520 M \r
0015540
*
0015640 ) ) ) )
0015660 \r
0015700
*
0015760 ( C L : I F ( S T R E A M
0016000 P ( S T A T U S - S T R E A M
0016020 ) ) \r
0016040
*
0016120 ( C L O S
0016140 E F ? ( S T A T U S - S T R E
0016160 A M ) ) ) \r
0016200
*
0016260 ( C L : I F ( N
0016300 O T ( N U L L ( S T A T U S
0016320 - F U L L - N A M E ) \r
0016340
*
0016440 )
0016460 ) \r
0016500
*
0016560 ( D E L F I
0016600 L E ( S T A T U S - F U L L -
0016620 N A M E ) ) ) \r
0016640
*
0016720 ) ) ) \r
0016740
*
0017000 N A M E
0017020 G R O S S - L I S T - H A C K
0017040 ) ) \r
0017060 ( C L
0017100 : S E T F ( S T A T U S - S T
0017120 R E A M ) \r
0017140
0017160 ( O P E N S T R E
0017200 A M S T A T U S - N A M E '
0017220 O U T P U T N I L ' ( D O N
0017240 ' T C A C H E ) ) ) \r
0017260
0017300 ( C L : S E T F ( S
0017320 T A T U S - F U L L - N A M E )
0017340 \r
0017360
0017400 ( F U L L N A M E ( S T A
0017420 T U S - S T R E A M ) ) ) \r
0017440
0017460 ( C O N D \r
0017500
0017520 ( ( = (
0017540 F I L E N A M E F I E L D ( S
0017560 T A T U S - F U L L - N A M E )
0017600 \r
0017620
0017640 ' V E R S I O
0017660 N ) \r
0017700
0017720 1 ) 006 006 006 001
0017740
0017760 006 006 ( * ; " W e ' r
0020000 e a w i n n e r " ) 006 001 \r
0020020
0020040 ( L E
0020060 T ( ( U N A M E ( A D D - D
0020100 E F A U L T - R E G I S T R Y
0020120 ( U S E R N A M E ) ) ) \r
0020140
*
0020200 ( D ( D A T E ) ) ) \r
0020220
*
0020260 ( F O R M A T ( S T A T U S -
0020300 S T R E A M ) \r
0020320
*
0020360 " ~ S ~ S ~ % % " U N A
0020400 M E D ) \r
0020420
0020440 ( C L O S E F
0020460 ( S T A T U S - S T R E A M )
0020500 ) \r
0020520
0020540 ( F O R M A T T "
0020560 ~ A i s n o w l o c k e d
0020600 b y ~ A a t ~ A . ~ % %
0020620 " N A M E U N A M E D ) )
0020640 \r
0020660 (
0020700 L E T ( ( R O O T N A M E (
0020720 R O O T F I L E N A M E N A M
0020740 E ) ) \r
0020760
0021000 I N S T A L L E
0021020 D V E R S I O N ) \r
0021040
0021060 ( C O
0021100 N D \r
0021120
0021140 ( ( A N D (
0021160 G E T R O O T N A M E ' F I
0021200 L E ) \r
0021220
*
0021260 ( N O T ( S T R I N G - E Q U
0021300 A L N A M E ( S E T Q I N
0021320 S T A L L E D V E R S I O N \r
0021340
*
0021440 ( C D A R ( G E T R
0021460 O O T N A M E ' F I L E D A T
0021500 E S ) ) \r
0021520
*
0021600 ) ) ) ) \r
0021620
*
0021660 ( F O R M A T T
0021700 \r
0021720
0021740 "
0021760 W a r n i n g : F i l e ~ A
0022000 i s d i f f e r e n t f r
0022020 o m l o a d e d f i l e ~
0022040 A ~ % % " \r
0022060
*
0022120 N A M E I N S T A L
0022140 L E D V E R S I O N ) ) ) ) \r
0022160
0022200 ( C L
0022220 : S E T F S U C C E S S T )
0022240 ) \r
0022260 (
0022300 T 006 006 006 001
0022320
0022340 006 006 ( * ; " W e ' r e
0022360 a l o s e r " ) 006 001 \r
0022400
0022420 ( C L
0022440 O S E F ( S T A T U S - S T R
0022460 E A M ) ) \r
0022500
0022520 ( D E L F I L E (
0022540 S T A T U S - F U L L - N A M E
0022560 ) ) \r
0022600
0022620 ( C L : S E T F ( S T A
0022640 T U S - S T R E A M ) \r
0022660
*
0022720 ( C A R ( N L S E T Q
0022740 ( O P E N S T R E A M ( P A C
0022760 K F I L E N A M E . S T R I N G
0023000 ' V E R S I O N 1 \r
0023020
*
0023120 ' B O D Y \r
0023140
*
0023240 ( S T A T U S - F U L L - N A M
0023260 E ) ) \r
0023300
*
0023340 '
0023360 I N P U T N I L ' ( D O N '
0023400 T C A C H E ) ) ) ) ) \r
0023420
0023440 ( C O N
0023460 D \r
0023500
0023520 ( ( N O T ( S T R E
0023540 A M P ( S T A T U S - S T R E
0023560 A M ) ) ) \r
0023600
0023620 ( F O R M A
0023640 T T " B a d s i t u a t i
0023660 o n : I l l e g a l v e r s
0023700 i o n s o f t h e s t a t
0023720 u s f i l e e x i s t . ~ &
0023740 T r y a g a i n i n a m
0023760 o m e n t o r t r y t o
0024000 f i x t h e p r o b l e m .
0024020 ~ % % " \r
0024040
*
0024100 ) \r
0024120
0024140 ( C L : S E T F S
0024160 U C C E S S N I L ) ) \r
0024200
*
0024240 ( S T E A L ( F O R M A T T
0024260 " S t e a l i n g ~ A f r
0024300 o m ~ A . ~ % % " N A M E \r
0024320
*
0024400 ( G E T F I L E I N F O ( S
0024420 T A T U S - S T R E A M ) \r
0024440
*
0024520 ' A U T H O R ) ) \r
0024540
*
0024600 ( C L O S E
0024620 F ( S T A T U S - S T R E A M
0024640 ) ) \r
0024660
0024700 ( D E
0024720 L F I L E ( F U L L N A M E
0024740 ( S T A T U S - S T R E A M ) )
0024760 ) \r
0025000
0025020 ( C L :
0025040 S E T F S U C C E S S ( T A
0025060 K E - F I L E F I L E N A M E
0025100 N I L ) ) ) \r
0025120
0025140 ( ( P R O
0025160 G 1 ( N O T ( N L S E T Q
0025200 ( L E T ( ( T A K E N - B Y
0025220 ( C L : R E A D ( S T A T U S
0025240 - S T R E A M ) ) ) \r
0025260
*
0025340 ( T A K E N -
0025360 O N ( C L : R E A D ( S T A
0025400 T U S - S T R E A M ) ) ) ) \r
0025420
*
0025500 ( F O R
0025520 M A T T \r
0025540
*
0025600 " S o r r
0025620 y , b u t ~ A w a s a l
0025640 r e a d y t a k e n b y ~
0025660 A o n ~ A . ~ % % " \r
0025700
*
0026000 N A M E T A K E N - B Y
0026020 T A K E N - O N ) ) ) ) \r
0026040
*
0026100 ( C L O S E F
0026120 ( S T A T U S - S T R E A M ) )
0026140 ) \r
0026160
0026200 ( F O R M A T T
0026220 " B a d s i t u a t i o n :
0026240 O n l y a n i l l e g a l
0026260 s t a t u s f i l e e x i s
0026300 t s . ~ % % T r y a g a i n
0026320 i n a m o m e n t o r t
0026340 r y t o f i x t h e p r
0026360 o b l e m . ~ % % " \r
0026400
*
0026440 ) \r
0026460
0026500 ( C L :
0026520 S E T F S U C C E S S N I L
0026540 ) ) \r
0026560
0026600 ( T ( C L : S E T
0026620 F S U C C E S S N I L ) ) )
0026640 ) ) \r
0026660 ( C L
0026700 : S E T F ( F I N I S H E D -
0026720 N O R M A L L Y - P ) \r
0026740
0026760 T ) )
0027000 \r
0027020 ( R E T U R N S U C C
0027040 E S S ) ) ) ) \r \r ( C L : D E F
0027060 U N 006 002 T A K E N ? 006 001 ( &
0027100 K E Y ( ( : B Y A U T H O R
0027120 ) ) \r
0027140 G I V E ? )
0027160 ( C O N D \r
0027200
0027220 ( ( N U L L A
0027240 U T H O R ) \r
0027260
0027300 ( S E T Q A
0027320 U T H O R ( U S E R N A M E )
0027340 ) \r
0027360
0027400 ( C O N D \r
0027420
0027440 (
0027460 ( S T R P O S " . " A U T H
0027500 O R ) \r
0027520
0027540 ( S E T Q
0027560 A U T H O R ( S U B S T R I N
0027600 G A U T H O R 1 ( S U B 1
0027620 ( S T R P O S " . " A U T
0027640 H O R ) ) ) ) ) ) \r
0027660
0027700 ) \r
0027720
0027740 (
0027760 ( O R ( S T R I N G - E Q U A
0030000 L A U T H O R " A N Y " ) \r
0030020
*
0030060 ( S T R I N G - E Q
0030100 U A L A U T H O R " A L L "
0030120 ) \r
0030140
0030160 ( S T R I N G -
0030200 E Q U A L A U T H O R " * "
0030220 ) ) \r
0030240
0030260 ( S E T Q A U T H O
0030300 R N I L ) ) ) \r
0030320
0030340 ( p r i n t o u t
0030360 T " L o o k i n g f o r
0030400 f i l e s t a k e n b y "
0030420 ( O R A U T H O R " a n y
0030440 " ) \r
0030460
0030500 T ) \r
0030520
0030540 ( 006 002 f o r 006
0030560 001 D I R 006 002 i n 006 001 * G I
0030600 V E - A N D - T A K E - D I R E
0030620 C T O R I E S * \r
0030640
0030660 006 002 d o 006 001
0030700 ( R E S E T L S T ( L E T
0030720 ( ( G E N ( \ G E N E R A T E
0030740 F I L E S ( P A C K F I L E N
0030760 A M E . S T R I N G \r
0031000
*
0031100 ' D I R E C T O R Y
0031120 D I R ' N A M E " * " \r
0031140
*
0031240 ' E X T E N S I
0031260 O N " S T A T U S " ) \r
0031300
*
0031360 ' ( A
0031400 U T H O R C R E A T I O N D A
0031420 T E ) \r
0031440
*
0031520 ' ( R E S E T L S T ) )
0031540 ) \r
0031560
*
0031620 N E X T T H I S A
0031640 U T H O R D I R P R I N T E D
0031660 ) \r
0031700
*
0031740 ( 006 002 w h i l e 006 001
0031760 ( S E T Q N E X T ( \ G E N
0032000 E R A T E N E X T F I L E G E
0032020 N ) ) \r
0032040
*
0032100 006 002 w h e n
0032120 006 001 ( P R O G N ( S E T Q
0032140 T H I S A U T H O R \r
0032160
*
0032240 ( \
0032260 G E N E R A T E F I L E I N F O
0032300 G E N \r
0032320
*
0032400 '
0032420 A U T H O R ) ) \r
0032440
*
0032520 ( O R (
0032540 N U L L A U T H O R ) \r
0032560
*
0032660 ( S T R P O S A U T H O
0032700 R T H I S A U T H O R 1 N
0032720 I L \r
0032740
*
0033040 T N I L U P P E R C A S E
0033060 A R R A Y ) ) ) \r
0033100
*
0033140 006
0033160 002 d o 006 001 ( C O N D \r
0033200
*
0033260 ( ( N O T D I
0033300 R P R I N T E D ) \r
0033320
*
0033400 ( p r i n t o u t
0033420 T T " " D I R T
0033440 ) \r
0033460
*
0033520 (
0033540 S E T Q D I R P R I N T E D
0033560 T ) ) ) \r
0033600
*
0033640 ( p
0033660 r i n t o u t T ( F I L E N
0033700 A M E F I E L D N E X T ' N
0033720 A M E ) \r
0033740
*
0034020 1 6 \r
0034040
*
0034120 ( \ G E N E R A
0034140 T E F I L E I N F O G E N '
0034160 C R E A T I O N D A T E ) \r
0034200
*
0034260 4 0
0034300 T H I S A U T H O R ) \r
0034320
*
0034400 ( C O N D \r
0034420
*
0034500 ( ( N O T G I
0034520 V E ? ) \r
0034540
*
0034620 ( T E R P R I T ) ) \r
0034640
*
0034720 ( ( E Q (
0034740 A S K U S E R N I L N I L
0034760 " G i v e ? " N I L T
0035000 ) \r
0035020
*
0035100 ' Y ) \r
0035120
*
0035200 ( G I V E - F I L E (
0035220 P A C K F I L E N A M E . S T R
0035240 I N G \r
0035260
*
0035340 ' E X
0035360 T E N S I O N N I L ' V E R
0035400 S I O N N I L \r
0035420
*
0035520 ' B O D Y N E X T ) ) ) )
0035540 ) ) ) ) ) \r \r \r ( R P A Q ? 006
0035560 002 * G I V E - A N D - T A K E -
0035600 D I R E C T O R I E S * 006 001 '
0035620 ( { E R I S } < L I S P C O R E
0035640 > S O U R C E S > { E R I S }
0035660 < L I S P C O R E > L I B R A R
0035700 Y > ) ) \r ( D E C L A R E % :
0035720 D O E V A L @ C O M P I L E D
0035740 O N T C O P Y \r \r ( G L O B A L
0035760 V A R S * G I V E - A N D - T
0036000 A K E - D I R E C T O R I E S *
0036020 ) \r ) \r \r ( A D D T O V A R 006
0036040 002 L I S P X M A C R O S 006 001 (
0036060 G I V E ? ( T A K E N ? : G
0036100 I V E ? T ) ) \r
0036120 (
0036140 T A K E N ? ( A P P L Y ( F
0036160 U N C T I O N T A K E N ? ) \r
0036200
*
0036240 L I S P X L I N E ) )
0036260 ) \r \r ( P U T P R O P S 006 002 G
0036300 I V E - A N D - T A K E F I L
0036320 E T Y P E 006 001 C L : C O M P I
0036340 L E - F I L E ) \r ( D E C L A R
0036360 E % : D O N T E V A L @ L O A
0036400 D D O E V A L @ C O M P I L E
0036420 D O N T C O P Y C O M P I L
0036440 E R V A R S \r \r ( A D D T O V
0036460 A R 006 002 N L A M A 006 001 S T E
0036500 A L T A K E G I V E ) \r \r (
0036520 A D D T O V A R 006 002 N L A M L
0036540 006 001 ) \r \r ( A D D T O V A R
0036560 006 002 L A M A 006 001 ) \r ) \r ( P U
0036600 T P R O P S G I V E - A N D -
0036620 T A K E C O P Y R I G H T (
0036640 " X e r o x C o r p o r a t i
0036660 o n " 1 9 8 6 ) ) \r ( D E C L
0036700 A R E % : D O N T C O P Y \r
0036720 ( F I L E M A P ( N I L (
0036740 1 1 2 9 2 6 0 2 ( G I V E
0036760 1 1 3 9 . 1 3 9 2 ) ( T A
0037000 K E 1 3 9 4 . 1 6 4 7 )
0037020 ( S T E A L 1 6 4 9 . 1 9
0037040 0 3 ) ( G I V E - O R - T A K
0037060 E - F I N D \r 1 9 0 5 . 2
0037100 2 4 1 ) ( A D D - D E F A U L
0037120 T - R E G I S T R Y 2 2 4 3
0037140 . 2 6 0 0 ) ) ) ) ) \r S T O P
0037160 \r
0037161