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