$ od -c -N 50000 [eris]<LispCore>LIBRARY>DO-TEST!40
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 006 001 ( I L : F I L E C R E
0000140 A T E D " 2 8 - O c t - 8 6
0000160 1 6 : 3 6 : 4 4 " 006 004 I L : {
0000200 E R I S } < L I S P C O R E > L
0000220 I B R A R Y > D O - T E S T . \
0000240 ; 4 0 006 001 1 3 2 1 6 \r \r
0000260 I L : | c h a n g e s
0000300 | I L : | t o : | ( I L :
0000320 F U N C T I O N S D O - T E S
0000340 T - L I S T D O - T E S T D
0000360 O - T E S T - G R O U P T E S
0000400 T - D E F M A C R O \r
0000420
*
0000460 T E S T - D E F U N T E S T -
0000500 S E T Q W I T H O U T - B A T
0000520 C H - M O D E - E R R O R S E
0000540 X P E C T - E R R O R S \r
0000560
*
0000620 D O - A L L - T E S T S C
0000640 U R R E N T - F I L E - N A M E
0000660 C L - R E A D F I L E D O -
0000700 T E S T - F I L E ) \r
0000720
0000740 ( I L : V A R S
0000760 I L : D O - T E S T C O M S )
0001000 \r
0001020 ( I
0001040 L : P R O P S ( D O - T E S T
0001060 I L : M A K E F I L E - E N V
0001100 I R O N M E N T ) ) \r
0001120
0001140 ( I L : V A R I
0001160 A B L E S * A N Y - E R R O R
0001200 S * * T E S T - C L E A N U P
0001220 - F O R M S * * T E S T - C O
0001240 M P I L E * \r
0001260
0001300 * T E S
0001320 T - M O D E * * T E S T - B A
0001340 T C H - R E S U L T S * * T E
0001360 S T - F I L E - P A T T E R N *
0001400 \r
0001420
0001440 * T E S T - F I L E
0001460 - N A M E * ) \r \r I
0001500 L : | p r e v i o u s | I L :
0001520 | d a t e : | " 2 7 - O c t -
0001540 8 6 1 4 : 3 2 : 1 4 " I L :
0001560 { E R I S } < L I S P C O R E >
0001600 L I B R A R Y > D O - T E S T .
0001620 \ ; 3 8 ) \r \r \r ; C o p y r i
0001640 g h t ( c ) 1 9 8 6 b y
0001660 X e r o x C o r p o r a t i o
0001700 n . A l l r i g h t s r
0001720 e s e r v e d . \r \r ( I L : P R
0001740 E T T Y C O M P R I N T I L :
0001760 D O - T E S T C O M S ) \r \r ( I
0002000 L : R P A Q Q 006 002 I L : D O -
0002020 T E S T C O M S 006 001 \r
0002040 ( ( I L : F U N C T
0002060 I O N S D O - T E S T D O -
0002100 T E S T - G R O U P T E S T -
0002120 D E F M A C R O T E S T - D E
0002140 F U N T E S T - S E T Q \r
0002160
0002200 W I T H O U T - B A T C H - M
0002220 O D E - E R R O R S E X P E C
0002240 T - E R R O R S D O - A L L -
0002260 T E S T S C U R R E N T - F I
0002300 L E - N A M E C L - R E A D F
0002320 I L E \r
0002340 D O - T E S T - F
0002360 I L E D O - T E S T - L I S T
0002400 ) \r ( I L
0002420 : V A R I A B L E S * A N Y -
0002440 E R R O R S * * T E S T - C L
0002460 E A N U P - F O R M S * * T E
0002500 S T - C O M P I L E * * T E S
0002520 T - M O D E * \r
0002540 * T E S T
0002560 - B A T C H - R E S U L T S *
0002600 * T E S T - F I L E - P A T T E
0002620 R N * * T E S T - F I L E - N
0002640 A M E * ) \r
0002660 ( I L : P ( I L : D E F P A
0002700 C K A G E " X C L - T E S T "
0002720 \r
0002740 ( : E X P O R
0002760 T D O - T E S T D O - T E S
0003000 T - G R O U P E X P E C T - E
0003020 R R O R S T E S T - D E F U N
0003040 T E S T - D E F M A C R O \r
0003060
0003100 T
0003120 E S T - S E T Q D O - A L L -
0003140 T E S T S C L - R E A D F I L
0003160 E D O - T E S T - F I L E *
0003200 T E S T - M O D E * \r
0003220
0003240 * T E S T
0003260 - B A T C H - R E S U L T S *
0003300 * T E S T - C O M P I L E * *
0003320 T E S T - F I L E - P A T T E R
0003340 N * ) ) ) \r
0003360 ( I L : P R O P ( I L : M A
0003400 K E F I L E - E N V I R O N M E
0003420 N T I L : F I L E T Y P E ) \r
0003440
0003460 D O - T E S T ) ) ) \r ( D E
0003500 F M A C R O 006 002 D O - T E S T
0003520 006 001 ( I L : N A M E - A N D -
0003540 O P T I O N S & B O D Y I L
0003560 : B O D Y ) \r ( L E T (
0003600 ( I L : N A M E N I L ) \r
0003620 ( I L : O P T I O
0003640 N S N I L ) ) \r
0003660 ( C O N D \r
0003700 ( ( C O N S P I L : N A M
0003720 E - A N D - O P T I O N S ) \r
0003740 ( S E T Q
0003760 I L : N A M E ( C A R I L
0004000 : N A M E - A N D - O P T I O N
0004020 S ) ) \r
0004040 ( S E T Q I L : O P T I O N S
0004060 ( C D R I L : N A M E - A N
0004100 D - O P T I O N S ) ) ) \r
0004120 ( T ( S E T Q
0004140 I L : N A M E I L : N A M E
0004160 - A N D - O P T I O N S ) ) ) \r
0004200 ( I F ( E Q
0004220 * T E S T - M O D E * : I N T
0004240 E R A C T I V E ) \r
0004260 ( F O R M A T * E
0004300 R R O R - O U T P U T * " T e
0004320 s t i n g . . . ~ S ~ % " I
0004340 L : N A M E ) ) \r
0004360 ` ( N O T ( W H E N ( N U
0004400 L L ( W I T H O U T - B A T C
0004420 H - M O D E - E R R O R S , @
0004440 I L : B O D Y ) ) \r
0004460 ( F
0004500 O R M A T * E R R O R - O U T
0004520 P U T * " T e s t \ " ~ A \
0004540 " f a i l e d i n f i l e
0004560 \ " ~ A \ " ~ % " ' , I L :
0004600 N A M E ( \r
0004620
*
0004720 C U R R E
0004740 N T - F I L E - N A M E \r
0004760
*
0005100 ) ) \r
0005120
0005140 ( I L : S E T Q * A N Y - E R
0005160 R O R S * T ) ) ) ) ) \r \r ( D
0005200 E F M A C R O 006 002 D O - T E S
0005220 T - G R O U P 006 001 ( I L : N A
0005240 M E - A N D - O P T I O N S &
0005260 B O D Y I L : B O D Y ) \r
0005300 ( L E T ( ( I L : N A M E
0005320 N I L ) \r ( I
0005340 L : O P T I O N S N I L ) ) \r
0005360 ( C O N D \r
0005400 ( ( C O N S P
0005420 I L : N A M E - A N D - O P T
0005440 I O N S ) \r
0005460 ( S E T Q I L : N A M E
0005500 ( C A R I L : N A M E - A N D
0005520 - O P T I O N S ) ) \r
0005540 ( S E T Q I L :
0005560 O P T I O N S ( C D R I L :
0005600 N A M E - A N D - O P T I O N S
0005620 ) ) ) \r (
0005640 T ( S E T Q I L : N A M E
0005660 I L : N A M E - A N D - O P T I
0005700 O N S ) ) )
0005720 006 006 ( I L : * \r 006 001
0005740
0005760 006 006 " H
0006000 a c k : f i n d : B E F O R
0006020 E a n d : A F T E R c l a
0006040 u s e s i n t h e b o d y
0006060 a n d m o v e t h e m o
0006100 u t " ) 006 001 \r (
0006120 L O O P ( I F ( A N D ( S
0006140 Y M B O L P ( C A R I L : B
0006160 O D Y ) ) \r
0006200 ( O R
0006220 ( E Q ( C A R I L : B O D
0006240 Y ) \r
0006260
0006300 : B E F O R E ) \r
0006320
0006340 ( E Q ( C A R I
0006360 L : B O D Y ) \r
0006400
0006420 : A F T E R ) ) )
0006440 \r
0006460 ( P R O G N ( I L : S E
0006500 T Q I L : O P T I O N S ( I
0006520 L : A P P E N D I L : O P T I
0006540 O N S ( L I S T ( C A R I
0006560 L : B O D Y ) \r
0006600
*
0006700 ( C A D R I L : B O D Y ) )
0006720 ) ) \r
0006740 ( I L :
0006760 S E T Q I L : B O D Y ( C D
0007000 D R I L : B O D Y ) ) ) \r
0007020
0007040 ( R E T U R N N I L ) ) ) \r
0007060 ` ( L E T ( ( *
0007100 T E S T - C L E A N U P - F O R
0007120 M S * N I L ) ) \r
0007140 ( B L O C K ,
0007160 I L : N A M E , ( I F ( E Q
0007200 * T E S T - M O D E * : I N
0007220 T E R A C T I V E ) \r
0007240
0007260 ( F
0007300 O R M A T * E R R O R - O U T
0007320 P U T * " T e s t i n g . . .
0007340 ~ S ~ % " I L : N A M E ) )
0007360 \r
0007400 , ( L E T ( ( I L
0007420 : B E F O R E ( G E T F I L
0007440 : O P T I O N S : B E F O R E
0007460 ) ) ) \r
0007500 (
0007520 I F I L : B E F O R E ` ( W
0007540 H E N ( N U L L ( W I T H O
0007560 U T - B A T C H - M O D E - E R
0007600 R O R S , I L : B E F O R E
0007620 T ) ) \r
0007640
*
0007700 ( F O R M A T * E R R
0007720 O R - O U T P U T * \r
0007740
*
0010000 "
0010020 : B E F O R E f o r m s f o
0010040 r t e s t \ " ~ A \ " i n
0010060 f i l e ~ S f a i l e d .
0010100 " \r
0010120
*
0010160 ' , I L : N A
0010200 M E \r
0010220
*
0010260 ( C U R R E
0010300 N T - F I L E - N A M E ) ) \r
0010320
*
0010360 (
0010400 I L : S E T Q * A N Y - E R R
0010420 O R S * T ) \r
0010440
*
0010500 ( R E T U R N -
0010520 F R O M , I L : N A M E ) ) )
0010540 ) \r
0010560 , @ ( 006 002 I L : |
0010600 f o r | 006 001 I L : B 006 002 I L
0010620 : | i n | 006 001 I L : B O D Y \r
0010640
0010660 006 002 I L : |
0010700 j o i n | 006 001 ( 006 002 I L : | i
0010720 f | 006 001 ( A N D ( C O N S P
0010740 I L : B ) \r
0010760
*
0011020 ( E Q ( C A
0011040 R I L : B ) \r
0011060
*
0011120 ' D
0011140 O - T E S T ) ) \r
0011160
*
0011220 006 002 I L : | t h e n | 006 001 (
0011240 L I S T I L : B ) \r
0011260
*
0011320 006 002 I L : | e l s e | 006 001 (
0011340 F O R M A T * E R R O R - O U
0011360 T P U T * \r
0011400
*
0011440 " N
0011460 o n D O - T E S T f o r m
0011500 i n ~ S i n ~ S ~ % ~ S ~
0011520 % " I L : N A M E \r
0011540
*
0011620 ( C U R R E N T - F I L E -
0011640 N A M E ) \r
0011660
*
0011720 I L :
0011740 B ) ) ) \r
0011760 , ( L E T
0012000 ( ( I L : A F T E R ( G E T F
0012020 I L : O P T I O N S : A F T
0012040 E R ) ) ) \r
0012060
0012100 ( I F I L : A F T E R ` (
0012120 W H E N ( N U L L ( W I T H
0012140 O U T - B A T C H - M O D E - E
0012160 R R O R S , I L : A F T E R
0012200 T ) ) \r
0012220
*
0012260 ( F O R M A T * E R R O
0012300 R - O U T P U T * \r
0012320
*
0012360 "
0012400 : A F T E R f o r m s f o r
0012420 t e s t \ " ~ A \ " i n
0012440 f i l e ~ S f a i l e d . "
0012460 \r
0012500
*
0012540 ' , I L : N A M E
0012560 \r
0012600
*
0012640 ( C U R R E N T -
0012660 F I L E - N A M E ) ) \r
0012700
*
0012740 ( I L : S
0012760 E T Q * A N Y - E R R O R S *
0013000 T ) ) ) ) ) \r
0013020 ( I L : E V A L (
0013040 C O N S ' P R O G N * T E S
0013060 T - C L E A N U P - F O R M S *
0013100 ) ) \r
0013120 N I L ) ) ) \r \r ( D E F M A C
0013140 R O 006 002 T E S T - D E F M A C
0013160 R O 006 001 ( I L : N A M E & R
0013200 E S T I L : S T U F F ) \r
0013220 ( I F ( F B O U N D P I L
0013240 : N A M E ) \r ( I
0013260 F ( M A C R O - F U N C T I O
0013300 N I L : N A M E ) \r
0013320 ( P U S H ` ( S E
0013340 T F ( S Y M B O L - F U N C T
0013360 I O N ( M A C R O - F U N C T
0013400 I O N ' , I L : N A M E ) ) \r
0013420
0013440 ' , ( S Y M B O
0013460 L - F U N C T I O N ( M A C R
0013500 O - F U N C T I O N I L : N A
0013520 M E ) ) ) * T E S T - C L E A
0013540 N U P - F O R M S * ) \r
0013560 ( E R R O R " P
0013600 l e a s e d o n ' t r e d e
0013620 f i n e ~ A i n a t e s
0013640 t f o r m " I L : N A M E )
0013660 ) \r ( P U S H `
0013700 ( R E M P R O P ' , I L : N A
0013720 M E ' I L : M A C R O - F N )
0013740 * T E S T - C L E A N U P - F
0013760 O R M S * ) ) \r ` ( D E F
0014000 M A C R O ( 006 002 I L : \ \ \ ,
0014020 006 001 I L : N A M E ) , @ I L
0014040 : S T U F F ) \r ) \r \r ( D E F
0014060 M A C R O 006 002 T E S T - D E F
0014100 U N 006 001 ( I L : N A M E & R
0014120 E S T I L : S T U F F ) \r
0014140 ( I F ( F B O U N D P I L
0014160 : N A M E ) \r ( I
0014200 F ( O R ( M A C R O - F U N
0014220 C T I O N I L : N A M E ) \r
0014240 ( S
0014260 P E C I A L - F O R M - P I L
0014300 : N A M E ) ) \r
0014320 ( E R R O R " P l e a s
0014340 e d o n ' t r e d e f i n e
0014360 ~ A i n a t e s t f o
0014400 r m " I L : N A M E ) \r
0014420 ( P U S H ` (
0014440 S E T F ( S Y M B O L - F U N
0014460 C T I O N ' , I L : N A M E )
0014500 \r
0014520 ' , ( S Y M B
0014540 O L - F U N C T I O N I L : N
0014560 A M E ) ) * T E S T - C L E A
0014600 N U P - F O R M S * ) ) \r
0014620 ( P U S H ` ( F M A K
0014640 U N B O U N D ' , I L : N A M
0014660 E ) * T E S T - C L E A N U P
0014700 - F O R M S * ) ) \r ` ( D
0014720 E F U N ( 006 002 I L : \ \ \ , 006
0014740 001 I L : N A M E ) , @ I L :
0014760 S T U F F ) \r ) \r \r ( D E F M
0015000 A C R O 006 002 T E S T - S E T Q
0015020 006 001 ( I L : X I L : Y & R
0015040 E S T I L : S T U F F ) ( I
0015060 F ( B O U N D P I L : X ) \r
0015100
*
0015160 ( P U S H ` ( S E T Q
0015200 , I L : X ' , ( S Y M B O L -
0015220 V A L U E I L : X ) ) \r
0015240
*
0015320 * T E S T - C L E
0015340 A N U P - F O R M S * ) \r
0015360
*
0015440 ( P U S H ` ( M A K U N B O U
0015460 N D ' , I L : X ) * T E S T
0015500 - C L E A N U P - F O R M S * )
0015520 ) \r
0015540
*
0015600 ( I F I L : S T U F F ` (
0015620 P R O G N ( S E T Q , I L :
0015640 X , I L : Y ) \r
0015660
*
0015740 ( T E
0015760 S T - S E T Q , @ I L : S T U
0016000 F F ) ) \r
0016020
*
0016060 ` ( S E T Q ,
0016100 I L : X , I L : Y ) ) ) \r \r (
0016120 D E F M A C R O 006 002 W I T H O
0016140 U T - B A T C H - M O D E - E R
0016160 R O R S 006 001 ( & B O D Y I L
0016200 : B O D Y ) ( C O N D \r
0016220
*
0016300 ( ( E Q * T E S T - M
0016320 O D E * : I N T E R A C T I V
0016340 E ) \r
0016360
*
0016420 ` ( P R O
0016440 G N , @ I L : B O D Y ) ) \r
0016460
*
0016540 ( T ` ( I L : I G
0016560 N O R E - E R R O R S , @ I L
0016600 : B O D Y ) ) ) ) \r \r ( D E F M
0016620 A C R O 006 002 E X P E C T - E R
0016640 R O R S 006 001 ( I L : E R R O R
0016660 - T Y P E S & R E S T I L :
0016700 F O R M S ) ` ( I L : C O N D
0016720 I T I O N - C A S E ( P R O G
0016740 N , @ I L : F O R M S N I L
0016760 ) \r
0017000
*
0017060 ( , I L : E R R O R - T Y P
0017100 E S ( I L : C O N D I T I O N
0017120 ) \r
0017140
*
0017220 ( V A L U E S
0017240 T I L : C O N D I T I O N )
0017260 ) ) ) \r \r ( D E F U N 006 002 D O
0017300 - A L L - T E S T S 006 001 ( & K
0017320 E Y ( I L : R E S U L T S *
0017340 T E S T - B A T C H - R E S U L
0017360 T S * ) \r
0017400 (
0017420 I L : P A T T E R N * T E S T
0017440 - F I L E - P A T T E R N * ) \r
0017460
0017500 ( I L : S Y
0017520 S O U T - T Y P E N I L ) )
0017540 ( W I T H - O P E N - F I L E
0017560 ( * E R R O R - O U T P U T *
0017600 * T E S T - B A T C H - R E S U
0017620 L T S * \r
0017640
*
0017720 : D I
0017740 R E C T I O N : O U T P U T
0017760 : I F - E X I S T S \r
0020000
*
0020100 : N E W - V E R S I O N )
0020120 \r
0020140
*
0020200 ( F O R M A T
0020220 * E R R O R - O U T P U T * \r
0020240
*
0020320 " ;
0020340 ; ; T e s t r e s u l t s
0020360 f o r s y s o u t o f ~ A
0020400 ~ % " \r
0020420
*
0020500 I L : M A K E S Y S D A T
0020520 E ) \r
0020540
*
0020600 ( I F I L
0020620 : S Y S O U T - T Y P E ( I L
0020640 : F O R M A T * E R R O R - O
0020660 U T P U T * \r
0020700
*
0021000 " ; ; ; S y s o u t
0021020 t y p e i s ~ A ~ % " \r
0021040
*
0021160 I L : S Y S O U T - T Y P E ) )
0021200 \r
0021220
*
0021260 ( F O R M A T
0021300 * E R R O R - O U T P U T * \r
0021320
*
0021400 " ;
0021420 ; ; T e s t s r u n o n
0021440 ~ A ~ 2 % " ( I L : D A T E )
0021460 ) \r
0021500
*
0021540 ( 006 002 I L : F
0021560 O R 006 001 I L : F N 006 002 I L :
0021600 I N 006 001 ( I L : D I R E C T O
0021620 R Y I L : P A T T E R N ) \r
0021640
*
0021720 006 002 I L : D O
0021740 006 001 ( D O - T E S T - F I L E
0021760 I L : F N ) ) \r
0022000
*
0022060 ( F O R M A T * E R R O R - O
0022100 U T P U T * " ( E N D - O F -
0022120 T E S T S ) " ) ) ) \r \r ( D E F
0022140 U N 006 002 C U R R E N T - F I L
0022160 E - N A M E 006 001 N I L * T E
0022200 S T - F I L E - N A M E * ) \r \r
0022220 ( D E F U N 006 002 C L - R E A D
0022240 F I L E 006 001 ( I L : T E S T -
0022260 F I L E & O P T I O N A L (
0022300 * R E A D T A B L E * I L : C
0022320 M L R D T B L ) \r
0022340
0022360 ( I L : E N D T O K E N
0022400 " S T O P " ) ) 006 006 006 001
0022420 006 006 ( I L :
0022440 * I L : | P a v e l | " 2 3
0022460 - S e p - 8 6 1 2 : 4 0 " ) 006
0022500 001 \r ( 006 002 I L : | i f | 006
0022520 001 ( P R O B E - F I L E I L
0022540 : T E S T - F I L E ) \r
0022560 006 002 I L : | t h e n | 006 001
0022600 ( L E T ( I L : F O R M S -
0022620 L I S T I L : T E M ( * P A
0022640 C K A G E * ( F I N D - P A C
0022660 K A G E " X C L - T E S T " )
0022700 ) ) \r
0022720 ( W I T H - O
0022740 P E N - S T R E A M ( I L : T
0022760 E S T - F I L E ( I L : O P E
0023000 N T E X T S T R E A M ( I L :
0023020 M K A T O M I L : T E S T - F
0023040 I L E ) ) ) \r
0023060
0023100 ( 006 002 I L : | u n t i l
0023120 | 006 001 ( O R ( N U L L ( I
0023140 L : I G N O R E - E R R O R S
0023160 ( S E T Q I L : T E M ( R E
0023200 A D I L : T E S T - F I L E )
0023220 \r
0023240
*
0023320 ) ) ) \r
0023340
*
0023400 ( A N
0023420 D ( S Y M B O L P I L : T E
0023440 M ) \r
0023460
*
0023520 ( S T R I N G = I L
0023540 : T E M I L : E N D T O K E N
0023560 ) ) ) \r
0023600
0023620 006 002 I L : | d o | 006 001
0023640 ( P U S H I L : T E M I L :
0023660 F O R M S - L I S T ) ) \r
0023700
0023720 ( N R E V E
0023740 R S E I L : F O R M S - L I S
0023760 T ) ) ) \r 006 002 I L : |
0024000 e l s e | 006 001 ( P R O G N (
0024020 F O R M A T * E R R O R - O U
0024040 T P U T * " ~ % C o u l d n '
0024060 t f i n d f i l e ~ A ~ %
0024100 " I L : T E S T - F I L E ) \r
0024120
0024140 N I L ) ) ) \r \r ( D
0024160 E F U N 006 002 D O - T E S T - F
0024200 I L E 006 001 ( I L : F I L E N A
0024220 M E ) 006 006 006 001
0024240
0024260 006 006 ( I L : * I L : | P
0024300 a v e l | " 2 3 - S e p - 8 6
0024320 1 2 : 1 9 " ) 006 001 \r ( L
0024340 E T * ( ( * P A C K A G E *
0024360 ( F I N D - P A C K A G E " u
0024400 s e r " ) ) \r
0024420 ( I L : T E S T - F O R M S
0024440 ( C L - R E A D F I L E I L :
0024460 F I L E N A M E I L : C M L R
0024500 D T B L ) ) \r
0024520 ( * T E S T - F I L E - N A M
0024540 E * ( L E T ( ( I L : P F
0024560 ( P A T H N A M E I L : F I L
0024600 E N A M E ) ) ) \r
0024620
0024640 ( F O R M A
0024660 T N I L " ~ A . ~ A ; ~ A "
0024700 ( P A T H N A M E - N A M E
0024720 I L : P F ) \r
0024740
0024760 (
0025000 P A T H N A M E - T Y P E I L
0025020 : P F ) \r
0025040
0025060 ( P A
0025100 T H N A M E - V E R S I O N I
0025120 L : P F ) ) ) ) \r
0025140 ( * A N Y - E R R O R S *
0025160 N I L ) ) \r
0025200 ( D O - T E S T - L I S T I L
0025220 : T E S T - F O R M S ) \r
0025240 ( 006 002 I L : | i f |
0025260 006 001 * A N Y - E R R O R S * \r
0025300 006 002 I
0025320 L : | t h e n | 006 001 ( T E R P
0025340 R I * E R R O R - O U T P U T
0025360 * ) ) ) ) \r \r ( D E F U N 006 002
0025400 D O - T E S T - L I S T 006 001 (
0025420 I L : T E S T - F O R M S & O
0025440 P T I O N A L I L : O P T I O
0025460 N S I L : N A M E ) 006 006 006 001
0025500 \r
0025520
*
0025560 006 006
0025600 ( I L : * I L : | P a v e l |
0025620 " 2 3 - S e p - 8 6 1 2 : 2
0025640 1 " ) 006 001 \r ( L E T ( (
0025660 I L : D F N F L G N I L ) ) \r
0025700 ( 006 002 I L : | i
0025720 f | 006 001 ( N U L L I L : T E
0025740 S T - F O R M S ) \r
0025760 006 002 I L : | t h e n
0026000 | 006 001 ( F O R M A T * E R R
0026020 O R - O U T P U T * " ~ % ( T
0026040 r o u b l e r e a d i n g ~
0026060 A ) ~ % " ( C U R R E N T - F
0026100 I L E - N A M E ) ) \r
0026120 ( S E
0026140 T Q * A N Y - E R R O R S *
0026160 T ) \r 006 002 I
0026200 L : | e l s e | 006 001 ( 006 002 I L
0026220 : | f o r | 006 001 I L : F O R M
0026240 006 002 I L : | i n | 006 001 I L :
0026260 T E S T - F O R M S \r
0026300
0026320 006 002 I L : | d o | 006 001 ( I
0026340 F ( A N D ( C O N S P I L
0026360 : F O R M ) \r
0026400
0026420 (
0026440 O R ( E Q ( C A R I L : F
0026460 O R M ) \r
0026500
*
0026540 ' D O - T E S T ) \r
0026560
*
0026620 ( E Q (
0026640 C A R I L : F O R M ) \r
0026660
*
0026720 ' D O
0026740 - T E S T - G R O U P ) ) ) \r
0026760
*
0027020 ( I F * T E S T - C O M P
0027040 I L E * ( F U N C A L L ( X
0027060 C L : : C O M P I L E \r
0027100
*
0027160 N I L \r
0027200
*
0027300 ` ( L A M B D A N I L , I L
0027320 : F O R M ) ) ) \r
0027340
*
0027400 ( E V A L I L : F O R M ) ) \r
0027420
*
0027460 ( F O R M A T * E R R O
0027500 R - O U T P U T * " N o n D
0027520 O - T E S T f o r m a t t
0027540 o p l e v e l i n ~ S ~ %
0027560 ~ S ~ % " \r
0027600
*
0027640 ( C U R R E N T - F I L E - N A
0027660 M E ) \r
0027700
0027720 I L
0027740 : F O R M ) ) ) ) ) ) \r \r ( D E
0027760 F V A R 006 002 * A N Y - E R R O
0030000 R S * 006 001 N I L ) \r \r ( D E F
0030020 V A R 006 002 * T E S T - C L E A
0030040 N U P - F O R M S * 006 001 N I L
0030060 ) \r \r ( D E F V A R 006 002 * T E
0030100 S T - C O M P I L E * 006 001 N I
0030120 L ) \r \r ( D E F V A R 006 002 * T
0030140 E S T - M O D E * 006 001 : B A T
0030160 C H ) \r \r ( D E F V A R 006 002 *
0030200 T E S T - B A T C H - R E S U L
0030220 T S * 006 001 " { e r i s } < l i
0030240 s p c o r e > c m l > t e s t >
0030260 t e s t - r e s u l t s " ) \r
0030300 \r ( D E F V A R 006 002 * T E S T
0030320 - F I L E - P A T T E R N * 006 001
0030340 " { E R I S } < L I S P C O R
0030360 E > C M L > T E S T > * . T E S
0030400 T ; " ) \r \r ( D E F V A R 006
0030420 002 * T E S T - F I L E - N A M E
0030440 * 006 001 " u n k n o w n " ) \r
0030460 \r ( I L : D E F P A C K A G E
0030500 " X C L - T E S T " ( : E X P
0030520 O R T D O - T E S T D O - T
0030540 E S T - G R O U P E X P E C T
0030560 - E R R O R S T E S T - D E F
0030600 U N T E S T - D E F M A C R O
0030620 \r
0030640
0030660 T E S T - S E T Q D O -
0030700 A L L - T E S T S C L - R E A
0030720 D F I L E D O - T E S T - F I
0030740 L E * T E S T - M O D E * \r
0030760
*
0031020 * T E S T - B A T C H - R E S
0031040 U L T S * * T E S T - C O M P
0031060 I L E * * T E S T - F I L E -
0031100 P A T T E R N * ) ) \r \r ( I L :
0031120 P U T P R O P S 006 002 D O - T E
0031140 S T I L : M A K E F I L E - E
0031160 N V I R O N M E N T 006 001 ( : R
0031200 E A D T A B L E " x c l " :
0031220 P A C K A G E ( I L : D E F P
0031240 A C K A G E " X C L - T E S T
0031260 " \r
0031300
*
0031400 ( : U S E " L I S P " ) ) )
0031420 ) \r \r ( I L : P U T P R O P S
0031440 006 002 D O - T E S T I L : F I L
0031460 E T Y P E 006 001 C O M P I L E -
0031500 F I L E ) \r ( I L : P U T P R O
0031520 P S D O - T E S T I L : C O
0031540 P Y R I G H T ( " X e r o x
0031560 C o r p o r a t i o n " 1 9 8
0031600 6 ) ) \r ( I L : D E C L A R E \
0031620 : I L : D O N T C O P Y \r
0031640 ( I L : F I L E M A P ( N I L
0031660 ) ) ) \r I L : S T O P \r
0031674