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