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