$ od -c -N 50000 [eris]<LispCore>SOURCES>ERROR-RUNTIME!10
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 " I N T
0000060 E R L I S P " ) \r 006 001 ( F I L E
0000100 C R E A T E D " 2 1 - O c t -
0000120 8 6 0 4 : 0 2 : 5 9 " 006 004 {
0000140 E R I S } < L I S P C O R E > S
0000160 O U R C E S > E R R O R - R U N
0000200 T I M E . \ ; 1 0 006 001 3 1 9 1
0000220 7 \r \r | c h a n
0000240 g e s | | t o : | ( S T R
0000260 U C T U R E S S I M P L E - C
0000300 O N D I T I O N C L : E R R O
0000320 R E R R O R ) \r
0000340
0000360 ( V A R S E R R O R - R U N T
0000400 I M E C O M S ) \r \r
0000420 | p r e v i o u s | | d a t e
0000440 : | " 2 0 - O c t - 8 6 1 7
0000460 : 2 3 : 2 9 " { E R I S } < L
0000500 I S P C O R E > S O U R C E S >
0000520 E R R O R - R U N T I M E . \ ;
0000540 8 ) \r \r \r ; C o p y r i g h t
0000560 ( c ) 1 9 8 6 b y X e r
0000600 o x C o r p o r a t i o n .
0000620 A l l r i g h t s r e s e
0000640 r v e d . \r \r ( P R E T T Y C O
0000660 M P R I N T E R R O R - R U N
0000700 T I M E C O M S ) \r \r ( R P A Q
0000720 Q 006 002 E R R O R - R U N T I M
0000740 E C O M S 006 001 \r
0000760 ( ( C O M S ( * | ; ; ; |
0001000 " I n t e r n a l f u n c t i
0001020 o n s . " ) \r
0001040 ( F U N C T I O N S
0001060 C O N D I T I O N - T Y P E P
0001100 C O N D I T I O N - S U B T Y P
0001120 E P C O N D I T I O N - T Y P
0001140 E - O F \r
0001160 F A K E -
0001200 T Y P E P - F O R - C O N D I T
0001220 I O N S F A K E - S U B T Y P
0001240 E P - F O R - C O N D I T I O N
0001260 S \r
0001300 F A K E - T Y P
0001320 E - O F - F O R - C O N D I T I
0001340 O N S ) \r
0001360 ( F U N C T I O N S C O
0001400 N D I T I O N - H A N D L E R
0001420 C O N D I T I O N - R E P O R T
0001440 E R % P R I N T - C O N D I T
0001460 I O N % P R O C E E D - C A S
0001500 E - P R I N T E R \r
0001520
0001540 % P R O C E E D - C A S E - D E
0001560 F A U L T - R E P O R T E R R
0001600 E P O R T - C O N D I T I O N
0001620 C O N D I T I O N - P A R E N T
0001640 ) \r
0001660 ( V A R I A B L E S * C O N D
0001700 I T I O N - H A N D L E R - B I
0001720 N D I N G S * * P R O C E E D
0001740 - C A S E S * ) \r
0001760 ( F U N C T I O N
0002000 S C H E C K - T Y P E - F A I
0002020 L E C A S E - F A I L A S S
0002040 E R T - F A I L ) \r
0002060 ( F U N C T I O
0002100 N S M A K E - I N T O - C O N
0002120 D I T I O N R A I S E - S I G
0002140 N A L D E F A U L T - H A N D
0002160 L E - C O N D I T I O N \r
0002200
0002220 D E F A U L T - P R O C E
0002240 E D - R E P O R T E R F I X -
0002260 I N H E R I T A N C E - L I N K
0002300 S D E F A U L T - P R O C E E
0002320 D - T E S T \r
0002340 T E S
0002360 T - P R O C E E D - C A S E ) )
0002400 \r ( C O M S (
0002420 * | ; ; ; | " P r e - d e f
0002440 i n e d c o n d i t i o n t
0002460 y p e s . " ) \r
0002500 ( S T R U C T U R E
0002520 S C O N D I T I O N S I M P
0002540 L E - C O N D I T I O N W A R
0002560 N I N G S I M P L E - W A R N
0002600 I N G O L D - B R E A K 1 \r
0002620
0002640 S E R I O U S - C O N
0002660 D I T I O N E R R O R S I M
0002700 P L E - E R R O R O L D - I N
0002720 T E R L I S P - E R R O R A S
0002740 S E R T I O N - F A I L E D \r
0002760
0003000 C E L L - E R R O R
0003020 U N B O U N D - V A R I A B L E
0003040 U N D E F I N E D - F U N C T
0003060 I O N N O - P R O C E E D - T
0003100 E S T \r
0003120 I N D E X -
0003140 B O U N D S - E R R O R ) \r
0003160 ( C O M
0003200 S ( F U N C T I O N S P R E
0003220 T T Y - T Y P E - N A M E ) \r
0003240
0003260 ( S T R U C T U R E S T
0003300 Y P E - M I S M A T C H ) ) \r
0003320 ( S T
0003340 R U C T U R E S C O N T R O L
0003360 - E R R O R I L L E G A L - G
0003400 O I L L E G A L - R E T U R N
0003420 I L L E G A L - T H R O W B
0003440 A D - P R O C E E D - C A S E )
0003460 \r (
0003500 S T R U C T U R E S C A L L -
0003520 E R R O R T O O - M A N Y - A
0003540 R G U M E N T S T O O - F E W
0003560 - A R G U M E N T S I N V A L
0003600 I D - A R G U M E N T - L I S T
0003620 ) \r
0003640 ( S T R U C T U R E S S T R E
0003660 A M - E R R O R R E A D - E R
0003700 R O R E N D - O F - F I L E )
0003720 \r (
0003740 S T R U C T U R E S S T O R A
0003760 G E - C O N D I T I O N S T A
0004000 C K - O V E R F L O W S T O R
0004020 A G E - E X H A U S T E D ) ) \r
0004040 ( C O M S ( *
0004060 | ; ; ; | " E x p o r t e d
0004100 s y m b o l s . A n y t h i
0004120 n g h e r e t h a t ' s n
0004140 o t i n C L s h o u l d
0004160 b e i n X C L . " ) \r
0004200 ( V A R I
0004220 A B L E S * B R E A K - O N -
0004240 W A R N I N G S * ) \r
0004260 ( F U N C T I
0004300 O N S M A K E - C O N D I T I
0004320 O N S I G N A L C L : E R R
0004340 O R C L : C E R R O R C L :
0004360 W A R N C L : B R E A K D E
0004400 B U G ) \r
0004420 ( S T R U C T U R E S P
0004440 R O C E E D - C A S E R E A L
0004460 - P R O C E E D - C A S E ) \r
0004500 ( F U
0004520 N C T I O N S F I N D - P R O
0004540 C E E D - C A S E C O M P U T
0004560 E - P R O C E E D - C A S E S
0004600 I N V O K E - P R O C E E D - C
0004620 A S E ) \r
0004640 ( F U N C T I O N S A B
0004660 O R T P R O C E E D U S E -
0004700 V A L U E S T O R E - V A L U
0004720 E ) ) \r ( C O M
0004740 S ( F U N C T I O N S S I M
0004760 P L E - F O R M A T ) \r
0005000 ( P ( M O
0005020 V D ? ' S I M P L E - F O R M
0005040 A T ' C L : F O R M A T ) ) )
0005060 \r ( D E C L A R
0005100 E \ : D O N T C O P Y ( V A
0005120 R S S H O U L D - B E - I N -
0005140 P A C K A G E ) ) \r
0005160 ( P R O P F I L E T Y P E
0005200 E R R O R - R U N T I M E ) )
0005220 ) \r \r \r \r 006 004 ( * | ; ; ; |
0005240 " I n t e r n a l f u n c t i
0005260 o n s . " ) 006 001 \r \r ( D E F M A
0005300 C R O 006 002 C O N D I T I O N -
0005320 T Y P E P 006 001 ( D A T U M T
0005340 Y P E ) ( C L : I F % C O N
0005360 D I T I O N - T Y P E S - R E A
0005400 L ` ( T Y P E P , D A T U M
0005420 , T Y P E ) \r
0005440
*
0005500 ` ( F A K E - T Y P
0005520 E P - F O R - C O N D I T I O N
0005540 S , D A T U M , T Y P E ) )
0005560 ) \r \r ( D E F M A C R O 006 002 C
0005600 O N D I T I O N - S U B T Y P E
0005620 P 006 001 ( T 1 T 2 ) ( C L :
0005640 I F % C O N D I T I O N - T Y
0005660 P E S - R E A L ` ( C L : S U
0005700 B T Y P E P , T 1 , T 2 ) \r
0005720
*
0005760 ` ( F A
0006000 K E - S U B T Y P E P - F O R -
0006020 C O N D I T I O N S , T 1 ,
0006040 T 2 ) ) ) \r \r ( D E F M A C R O
0006060 006 002 C O N D I T I O N - T Y P
0006100 E - O F 006 001 ( D A T U M ) (
0006120 C L : I F % C O N D I T I O N
0006140 - T Y P E S - R E A L ` ( C L
0006160 : T Y P E - O F , D A T U M )
0006200 \r
0006220
0006240 ` ( F A
0006260 K E - T Y P E - O F - F O R - C
0006300 O N D I T I O N S , D A T U M
0006320 ) ) ) \r \r ( C L : D E F U N 006
0006340 002 F A K E - T Y P E P - F O R -
0006360 C O N D I T I O N S 006 001 ( D A
0006400 T U M T Y P E ) 006 006 006 001
0006420 006 006 ( * |
0006440 a m d | " 9 - A p r - 8 6
0006460 1 7 : 4 1 " ) 006 001 \r ( A N
0006500 D ( C L : C O N S P D A T U
0006520 M ) \r ( C L : S
0006540 Y M B O L P ( C A R D A T U
0006560 M ) ) \r ( C O N
0006600 D I T I O N - S U B T Y P E P
0006620 ( C A R D A T U M ) \r
0006640 T Y P E )
0006660 ) ) \r \r ( C L : D E F U N 006 002
0006700 F A K E - S U B T Y P E P - F O
0006720 R - C O N D I T I O N S 006 001 (
0006740 T 1 T 2 ) ( C L : V A L U E
0006760 S ( A N D ( 006 002 | f o r | 006
0007000 001 006 002 | o l d | 006 001 T 1 \r
0007020
*
0007120 006 002 | b y | 006 001 ( C O N D I
0007140 T I O N - P A R E N T T 1 ) \r
0007160
*
0007260 006 002 | w h i l e | 006 001 T 1
0007300 \r
0007320
*
0007400 006 002 | t h e r e i s | 006 001
0007420 ( E Q T 1 T 2 ) ) \r
0007440
*
0007520 T ) \r
0007540
*
0007620 T ) ) \r \r ( C L : D E
0007640 F U N 006 002 F A K E - T Y P E -
0007660 O F - F O R - C O N D I T I O N
0007700 S 006 001 ( D A T U M ) ( C A R
0007720 D A T U M ) ) \r \r ( D E F M A
0007740 C R O 006 002 C O N D I T I O N -
0007760 H A N D L E R 006 001 ( C O N D I
0010000 T I O N - T Y P E ) ` ( G E T
0010020 P R O P , C O N D I T I O N -
0010040 T Y P E ' % C O N D I T I O N
0010060 - H A N D L E R ) ) \r \r ( D E F
0010100 M A C R O 006 002 C O N D I T I O
0010120 N - R E P O R T E R 006 001 ( C O
0010140 N D I T I O N - T Y P E ) ` (
0010160 G E T P R O P , C O N D I T I
0010200 O N - T Y P E ' % C O N D I T
0010220 I O N - R E P O R T E R ) ) \r \r
0010240 ( C L : D E F U N 006 002 % P R I
0010260 N T - C O N D I T I O N 006 001 (
0010300 C O N D I T I O N S T R E A M
0010320 L E V E L ) ( 006 002 D E C L A
0010340 R E 006 001 ( I G N O R E L E V
0010360 E L ) ) \r
0010400
*
0010440 ( C L : I F
0010460 * P R I N T - E S C A P E * (
0010500 C L : F O R M A T S T R E A M
0010520 \r
0010540
*
0010620 " #
0010640 < C o n d i t i o n ~ S @
0010660 ~ O , ~ O > " \r
0010700
*
0011000 ( C L : T Y P
0011020 E - O F \r
0011040
*
0011140 C O
0011160 N D I T I O N ) \r
0011200
*
0011300 ( \ \ H I L
0011320 O C C O N D I T I O N ) \r
0011340
*
0011440 (
0011460 \ \ L O L O C C O N D I T I O
0011500 N ) ) \r
0011520
*
0011560 (
0011600 R E P O R T - C O N D I T I O N
0011620 C O N D I T I O N S T R E A
0011640 M ) ) ) \r \r ( C L : D E F U N
0011660 006 002 % P R O C E E D - C A S E -
0011700 P R I N T E R 006 001 ( P C S T
0011720 R E A M L E V E L ) ( 006 002 D
0011740 E C L A R E 006 001 ( I G N O R E
0011760 L E V E L ) ) \r
0012000
*
0012040 ( C L : I
0012060 F * P R I N T - E S C A P E *
0012100 ( D E F A U L T - S T R U C T
0012120 U R E - P R I N T E R \r
0012140
*
0012240 P C S T R E A M L
0012260 E V E L ) \r
0012300
*
0012340 (
0012360 C L : F U N C A L L ( P R O C
0012400 E E D - C A S E - R E P O R T
0012420 P C ) \r
0012440
*
0012520 P C S T R E A M ) ) )
0012540 \r \r ( C L : D E F U N 006 002 % P
0012560 R O C E E D - C A S E - D E F A
0012600 U L T - R E P O R T E R 006 001 (
0012620 P C S T R E A M ) ( C L : F
0012640 U N C A L L ( D E F A U L T -
0012660 P R O C E E D - R E P O R T (
0012700 \r
0012720
*
0013020 P R O C E E D - C A S
0013040 E - N A M E \r
0013060
*
0013200 P C ) ) \r
0013220
*
0013300 P C S T R E A M ) ) \r \r (
0013320 C L : D E F U N 006 002 R E P O R
0013340 T - C O N D I T I O N 006 001 ( C
0013360 O N D I T I O N S T R E A M )
0013400 ( C L : D O * ( ( T Y P E
0013420 ( C O N D I T I O N - T Y P E -
0013440 O F C O N D I T I O N ) \r
0013460
*
0013540 ( C O N D
0013560 I T I O N - P A R E N T T Y P
0013600 E ) ) \r
0013620
*
0013660 ( R E P O
0013700 R T E R ( C O N D I T I O N -
0013720 R E P O R T E R T Y P E ) \r
0013740
*
0014020 ( C O
0014040 N D I T I O N - R E P O R T E R
0014060 T Y P E ) ) ) \r
0014100
*
0014140 ( (
0014160 N U L L T Y P E ) \r
0014200
*
0014260 ( C L : B R E A K " N o r
0014300 e p o r t f u n c t i o n f
0014320 o u n d f o r ~ S . " \r
0014340
*
0014420 C O N D
0014440 I T I O N ) ) \r
0014460
*
0014520 ( C L
0014540 : W H E N R E P O R T E R \r
0014560
*
0014640 ( R E T U
0014660 R N ( C L : I F S T R E A M
0014700 \r
0014720
*
0015000 ( C L :
0015020 F U N C A L L R E P O R T E R
0015040 \r
0015060
*
0015160 C O N D I T I O N S T
0015200 R E A M ) \r
0015220
*
0015320 ( C L : W I T H - O U T P U T
0015340 - T O - S T R I N G \r
0015360
*
0015460 ( S T R E A M ) \r
0015500
*
0015600 ( C L :
0015620 F U N C A L L R E P O R T E R
0015640 \r
0015660
*
0015760 C O N D I T I O N S
0016000 T R E A M ) ) \r
0016020
*
0016120 ) ) ) ) ) \r \r ( D E F M A
0016140 C R O 006 002 C O N D I T I O N -
0016160 P A R E N T 006 001 ( T Y P E )
0016200 ` ( G E T P R O P , T Y P E
0016220 ' % C O N D I T I O N - P A R E
0016240 N T ) ) \r \r ( C L : D E F V A R
0016260 006 002 * C O N D I T I O N - H A
0016300 N D L E R - B I N D I N G S * 006
0016320 001 N I L " C o n d i t i o n
0016340 h a n d l e r b i n d i n g
0016360 s t a c k " ) \r \r ( C L : D E
0016400 F V A R 006 002 * P R O C E E D -
0016420 C A S E S * 006 001 N I L " A c
0016440 t i v e p r o c e e d c a s
0016460 e s t a c k " ) \r \r ( C L : D
0016500 E F U N 006 002 C H E C K - T Y P
0016520 E - F A I L 006 001 ( P R O C E E
0016540 D A B L E P L A C E V A L U
0016560 E D E S I R E D - T Y P E M
0016600 E S S A G E ) \r ( P R O C
0016620 E E D - C A S E ( C L : E R R
0016640 O R ' T Y P E - M I S M A T C
0016660 H : N A M E P L A C E : V
0016700 A L U E V A L U E : D E S I
0016720 R E D - T Y P E D E S I R E D
0016740 - T Y P E \r
0016760 :
0017000 M E S S A G E M E S S A G E )
0017020 \r ( S T O R
0017040 E - V A L U E ( I G N O R E
0017060 N E W ) \r
0017100 : R E P O R T \r
0017120 (
0017140 C L : F O R M A T T " C h a
0017160 n g e t h e v a l u e o f
0017200 ~ A " P L A C E ) \r
0017220 : T E
0017240 S T \r
0017260 ( C L : L A M B D A (
0017300 C O N D I T I O N ) \r
0017320
0017340 ( A N D P R O C E E D A
0017360 B L E ( C O N D I T I O N - T
0017400 Y P E P C O N D I T I O N '
0017420 T Y P E - M I S M A T C H ) ) )
0017440 \r
0017460 N E W ) ) ) \r \r ( C L : D E
0017500 F U N 006 002 E C A S E - F A I L
0017520 006 001 ( P R O C E E D A B L E
0017540 P L A C E V A L U E S E L E
0017560 C T O R S ) \r ( P R O C E
0017600 E D - C A S E ( C L : E R R O
0017620 R " T h e v a l u e o f
0017640 ~ S , ~ S , ~ & i s ~ ? . "
0017660 P L A C E V A L U E \r
0017700
0017720 " ~ # [ w r o n g ~
0017740 ; n o t ~ S ~ ; n e i t h e r
0017760 ~ S n o r ~ S ~ : ; n o t
0020000 ~ @ { ~ # [ ~ ; o r ~ ] ~ S
0020020 ~ ^ , ~ } ~ ] " S E L E C T O
0020040 R S ) \r ( S
0020060 T O R E - V A L U E ( I G N O
0020100 R E V ) \r
0020120 : T E S T \r
0020140 ( C
0020160 L : L A M B D A ( C O N D I T
0020200 I O N ) \r
0020220 ( 006 002
0020240 D E C L A R E 006 001 ( I G N O R
0020260 E C O N D I T I O N ) ) \r
0020300
0020320 P R O C E E D A B L
0020340 E ) \r
0020360 : R E P O R T \r
0020400 ( C L
0020420 : F O R M A T T " C h a n g
0020440 e t h e v a l u e o f ~
0020460 A " P L A C E ) \r
0020500 V ) ) ) \r
0020520 \r ( C L : D E F U N 006 002 A S S
0020540 E R T - F A I L 006 001 ( S T R I
0020560 N G & R E S T A R G S ) (
0020600 P R O C E E D - C A S E ( C L
0020620 : E R R O R ' A S S E R T I O
0020640 N - F A I L E D : F O R M A T
0020660 - S T R I N G \r
0020700
*
0020760 S T R I N G :
0021000 F O R M A T - A R G U M E N T S
0021020 A R G S ) \r
0021040
*
0021100 ( P R O C E E D
0021120 N I L : R E P O R T " R e
0021140 - t e s t a s s e r t i o n "
0021160 ) ) ) \r \r ( C L : D E F U N 006
0021200 002 M A K E - I N T O - C O N D I
0021220 T I O N 006 001 ( D A T U M D E
0021240 S I R E D - T Y P E A R G S )
0021260 006 006 006 001 \r
0021300
*
0021340 006 006 ( * | ;
0021360 ; | " T h e e n t i r e t
0021400 h i n g s h o u l d b e a
0021420 t y p e c a s e . " ) 006 001 \r
0021440 ( C L : I F ( C O N D I T
0021460 I O N - T Y P E P D A T U M
0021500 ' C O N D I T I O N ) \r
0021520 D A T U M \r
0021540 ( C L : E T Y P E C
0021560 A S E D A T U M ( C L : S Y
0021600 M B O L ( C L : I F ( C O N
0021620 D I T I O N - S U B T Y P E P
0021640 D A T U M ' C O N D I T I O N
0021660 ) \r
0021700
*
0021740 ( C L : A P P L Y ( F U N
0021760 C T I O N M A K E - C O N D I
0022000 T I O N ) \r
0022020
*
0022060 D A T
0022100 U M A R G S ) \r
0022120
*
0022160 ( C L : E R R
0022200 O R " ~ S i s n o t a
0022220 c o n d i t i o n t y p e . "
0022240 D A T U M ) ) ) \r
0022260 ( S T R I
0022300 N G ( M A K E - C O N D I T I
0022320 O N D E S I R E D - T Y P E
0022340 : F O R M A T - S T R I N G D
0022360 A T U M : F O R M A T - A R G
0022400 U M E N T S A R G S ) ) ) ) )
0022420 \r \r ( C L : D E F U N 006 002 R A
0022440 I S E - S I G N A L 006 001 ( C )
0022460 ( C L : D O * ( ( * C O N D
0022500 I T I O N - H A N D L E R - B I
0022520 N D I N G S * * C O N D I T I
0022540 O N - H A N D L E R - B I N D I
0022560 N G S * \r
0022600
*
0022640 ( C D R * C O N D I T I O N -
0022660 H A N D L E R - B I N D I N G S
0022700 * ) ) ) \r
0022720
0022740 ( ( N U L L * C
0022760 O N D I T I O N - H A N D L E R
0023000 - B I N D I N G S * ) \r
0023020
0023040 (
0023060 D E F A U L T - H A N D L E - C
0023100 O N D I T I O N C ) \r
0023120
0023140 C
0023160 ) \r
0023200
0023220 ( D E S T R U C T U R I
0023240 N G - B I N D ( T Y P E .
0023260 H A N D L E R ) \r
0023300
*
0023340 ( C A R * C O N D I T I O
0023360 N - H A N D L E R - B I N D I N
0023400 G S * ) \r
0023420
0023440 ( C
0023460 L : W H E N ( C O N D I T I O
0023500 N - T Y P E P C T Y P E ) \r
0023520
*
0023600 ( L E T ( ( * C O N D I T I O
0023620 N - H A N D L E R - B I N D I N
0023640 G S * ( C D R \r
0023660
*
0023760 * C O N D I T I O N - H A
0024000 N D L E R - B I N D I N G S * \r
0024020
*
0024140 ) ) ) \r
0024160
*
0024240 ( C L : F U N C A L L H A
0024260 N D L E R C ) ) ) ) ) ) \r \r (
0024300 C L : D E F U N 006 002 D E F A U
0024320 L T - H A N D L E - C O N D I T
0024340 I O N 006 001 ( C O N D I T I O N
0024360 ) ( C L : D O ( ( T Y P E
0024400 ( C O N D I T I O N - T Y P E -
0024420 O F C O N D I T I O N ) \r
0024440
*
0024520 ( C O N D
0024540 I T I O N - P A R E N T T Y P
0024560 E ) ) ) \r
0024600
*
0024640 ( ( N U L
0024660 L T Y P E ) ) \r
0024700
*
0024740 (
0024760 L E T ( ( H A N D L E R ( C
0025000 O N D I T I O N - H A N D L E R
0025020 T Y P E ) ) ) \r
0025040
*
0025120 ( C L : W H E N H A N
0025140 D L E R ( C L : F U N C A L L
0025160 H A N D L E R \r
0025200
*
0025300 C O N
0025320 D I T I O N ) ) ) ) ) \r \r ( C L
0025340 : D E F U N 006 002 D E F A U L T
0025360 - P R O C E E D - R E P O R T E
0025400 R 006 001 ( P C S T R E A M )
0025420 ( C L : F O R M A T S T R E A
0025440 M " P r o c e e d - t y p e :
0025460 ~ A " ( \r
0025500
*
0025600 P R O C E
0025620 E D - C A S E - N A M E \r
0025640
*
0025760 P C ) ) ) \r \r ( C L : D E F
0026000 U N 006 002 F I X - I N H E R I T
0026020 A N C E - L I N K S 006 001 ( N A
0026040 M E N E W - P A R E N T ) (
0026060 L E T ( ( O L D - P A R E N T
0026100 ( C O N D I T I O N - P A R E
0026120 N T N A M E ) ) ) \r
0026140
*
0026220 ( C L : U N L E S S ( O R
0026240 ( E Q N E W - P A R E N T
0026260 O L D - P A R E N T ) \r
0026300
*
0026400 ( N U L L O L D - P A R E
0026420 N T ) ) \r
0026440
*
0026520 ( L E T ( ( C H I L D R
0026540 E N ( G E T O L D - P A R E
0026560 N T \r
0026600
*
0026700 ' \r
0026720
*
0027020 % C O N D I
0027040 T I O N - C H I L D R E N \r
0027060
*
0027200 ) ) ) \r
0027220
*
0027300 ( C L : S E T F
0027320 ( G E T O L D - P A R E N T
0027340 \r
0027360
*
0027460 ' % C O N D I T I O N - C H
0027500 I L D R E N \r
0027520
*
0027620 ) \r
0027640
*
0027740 ( D R E M O V E N A M
0027760 E C H I L D R E N ) ) ) ) \r
0030000
*
0030060 ( C L : P U S H N E
0030100 W N A M E ( G E T P R O P
0030120 N E W - P A R E N T \r
0030140
*
0030240 ' % C O N D
0030260 I T I O N - C H I L D R E N ) )
0030300 \r
0030320
*
0030360 ( C L : S E T F
0030400 ( C O N D I T I O N - P A R E
0030420 N T N A M E ) \r
0030440
*
0030520 N E W - P A R E N
0030540 T ) ) ) \r \r ( D E F M A C R O
0030560 006 002 D E F A U L T - P R O C E E
0030600 D - T E S T 006 001 ( P R O C E E
0030620 D - T Y P E ) ` ( G E T P R O
0030640 P , P R O C E E D - T Y P E
0030660 ' % D E F A U L T - P R O C E E
0030700 D - T E S T ) ) \r \r ( C L : D E
0030720 F U N 006 002 T E S T - P R O C E
0030740 E D - C A S E 006 001 ( P C C O
0030760 N D I T I O N & A U X T E S
0031000 T ) ( C O N D \r
0031020
*
0031100 ( ( C L : S E T F T E S T
0031120 ( P R O C E E D - C A S E - T E
0031140 S T P C ) ) \r
0031160
*
0031240 ( C L : F U N C A L L T E S
0031260 T C O N D I T I O N ) ) \r
0031300
*
0031360 ( ( A N D ( P R O
0031400 C E E D - C A S E - N A M E P
0031420 C ) \r
0031440
*
0031520 ( C L : S E T F T E S T \r
0031540
*
0031640 ( O R ( D E F A U L T
0031660 - P R O C E E D - T E S T \r
0031700
*
0032000 ( P R O C E E D
0032020 - C A S E - N A M E P C ) ) \r
0032040
*
0032140 ( N O - P R O
0032160 C E E D - T E S T \r
0032200
*
0032300 ( P R O C E E D - C A S
0032320 E - N A M E P C ) ) ) ) ) \r
0032340
*
0032420 ( C L : F U N C
0032440 A L L T E S T C O N D I T I
0032460 O N ) ) \r
0032500
*
0032540 ( T
0032560 006 006 006 001 006 006 ( * \ ; " T
0032600 h i s c a s e s h o u l d n
0032620 ' t h a p p e n " ) 006 001 \r
0032640
*
0032720 ( P R O C E E
0032740 D - C A S E ( C L : E R R O R
0032760 \r
0033000
*
0033060 " C o u l d n ' t f i n d
0033100 t e s t f u n c t i o n f
0033120 o r ~ S . " \r
0033140
*
0033240 P C ) \r
0033260
*
0033340 (
0033360 P R O C E E D N I L : T E S
0033400 T T R U E : R E P O R T \r
0033420
*
0033520 " A s s u m e p r o
0033540 c e e d c a s e i s e n a
0033560 b l e d " \r
0033600
*
0033700 T ) ) ) ) ) \r \r \r \r \r 006 004 ( *
0033720 | ; ; ; | " P r e - d e f i n
0033740 e d c o n d i t i o n t y p
0033760 e s . " ) 006 001 \r \r ( D E F I N E
0034000 - C O N D I T I O N 006 002 C O N
0034020 D I T I O N 006 001 C O N D I T I
0034040 O N : R E P O R T " C o n d
0034060 i t i o n ~ S o c c u r r e
0034100 d . " - - D U M M Y - S L O T
0034120 - - ) \r \r ( D E F I N E - C O N
0034140 D I T I O N 006 002 S I M P L E -
0034160 C O N D I T I O N 006 001 C O N D
0034200 I T I O N : R E P O R T ( C
0034220 L : A P P L Y # ' C L : F O R
0034240 M A T T F O R M A T - S T R
0034260 I N G \r
0034300
*
0034360 F O R M A T - A R G U M E N T
0034400 S ) \r
0034420
0034440 F O R M
0034460 A T - S T R I N G F O R M A T
0034500 - A R G U M E N T S ) \r \r ( D E
0034520 F I N E - C O N D I T I O N 006
0034540 002 W A R N I N G 006 001 C O N D I
0034560 T I O N ) \r \r ( D E F I N E - C
0034600 O N D I T I O N 006 002 S I M P L
0034620 E - W A R N I N G 006 001 W A R N
0034640 I N G : R E P O R T ( C L :
0034660 A P P L Y ( F U N C T I O N
0034700 C L : F O R M A T ) \r
0034720
*
0035000 T F O R M A T - S T R I
0035020 N G F O R M A T - A R G U M E
0035040 N T S ) \r
0035060
0035100 F O R M
0035120 A T - S T R I N G F O R M A T
0035140 - A R G U M E N T S ) \r \r ( D E
0035160 F I N E - C O N D I T I O N 006
0035200 002 O L D - B R E A K 1 006 001 C O
0035220 N D I T I O N : R E P O R T
0035240 ( D E S T R U C T U R I N G - B
0035260 I N D ( M E S S 1 M E S S 2
0035300 M E S S 3 ) \r
0035320
*
0035360 L I
0035400 S T \r
0035420
*
0035460 ( E R R O R M
0035500 E S S 1 M E S S 1 M E S S 2
0035520 M E S S 3 ) ) \r
0035540
0035560 L I S T
0035600 ) \r \r ( D E F I N E - C O N D I
0035620 T I O N 006 002 S E R I O U S - C
0035640 O N D I T I O N 006 001 C O N D I
0035660 T I O N : R E P O R T ( C L
0035700 : F O R M A T T " S e r i o
0035720 u s c o n d i t i o n ~ S
0035740 o c c u r r e d . " \r
0035760
*
0036040 ( C O N D I T I
0036060 O N - T Y P E - O F C O N D I
0036100 T I O N ) ) ) \r \r ( D E F I N E
0036120 - C O N D I T I O N 006 002 E R R
0036140 O R 006 001 S E R I O U S - C O N
0036160 D I T I O N ) \r \r ( D E F I N E
0036200 - C O N D I T I O N 006 002 S I M
0036220 P L E - E R R O R 006 001 E R R O
0036240 R : R E P O R T ( C L : A P
0036260 P L Y ( F U N C T I O N C L
0036300 : F O R M A T ) \r
0036320
*
0036360 T F
0036400 O R M A T - S T R I N G F O R
0036420 M A T - A R G U M E N T S ) \r
0036440
*
0036500 F O R M A T - S T R I N
0036520 G F O R M A T - A R G U M E N
0036540 T S ) \r \r ( D E F I N E - C O N
0036560 D I T I O N 006 002 O L D - I N T
0036600 E R L I S P - E R R O R 006 001 E
0036620 R R O R : R E P O R T ( C L
0036640 : I F ( E Q N U M B E R 1
0036660 7 ) \r
0036700
*
0036740 ( D
0036760 E S T R U C T U R I N G - B I N
0037000 D ( M E S S 1 . M E S S 2
0037020 ) \r
0037040
*
0037120 M E S S A G E \r
0037140
*
0037220 ( E
0037240 R R O R M E S S 1 M E S S 1
0037260 M E S S 2 \r
0037300
*
0037360 '
0037400 E R R O R ) ) \r
0037420
*
0037500 ( E R R O R M ( L I S T
0037520 N U M B E R M E S S A G E )
0037540 ) ) \r
0037560
0037600 N
0037620 U M B E R M E S S A G E ) \r \r
0037640 ( D E F I N E - C O N D I T I O
0037660 N 006 002 A S S E R T I O N - F A
0037700 I L E D 006 001 S I M P L E - E R
0037720 R O R : R E P O R T ( C L :
0037740 A P P L Y ( F U N C T I O N
0037760 C L : F O R M A T ) \r
0040000
*
0040060 T \r
0040100
*
0040160 ( O R F
0040200 O R M A T - S T R I N G " A s
0040220 s e r t i o n f a i l e d . "
0040240 ) \r
0040260
*
0040340 F O R M A T - A R G U M E N T
0040360 S ) ) \r \r ( D E F I N E - C O N
0040400 D I T I O N 006 002 C E L L - E R
0040420 R O R 006 001 E R R O R N A M E
0040440 ) \r \r ( D E F I N E - C O N D I
0040460 T I O N 006 002 U N B O U N D - V
0040500 A R I A B L E 006 001 C E L L - E
0040520 R R O R : R E P O R T ( C L
0040540 : F O R M A T T " U n b o u
0040560 n d v a r i a b l e : ~ S .
0040600 " N A M E ) ) \r \r ( D E F I N
0040620 E - C O N D I T I O N 006 002 U N
0040640 D E F I N E D - F U N C T I O N
0040660 006 001 C E L L - E R R O R : R
0040700 E P O R T ( C L : F O R M A T
0040720 T " U n d e f i n e d f u
0040740 n c t i o n : ~ S . " N A M
0040760 E ) ) \r \r ( D E F I N E - C O N
0041000 D I T I O N 006 002 N O - P R O C
0041020 E E D - T E S T 006 001 U N D E F
0041040 I N E D - F U N C T I O N : R
0041060 E P O R T ( C L : F O R M A T
0041100 T \r
0041120
*
0041200 " N o t e s t s p e c i f i
0041220 e d f o r p r o c e e d c
0041240 a s e : ~ S . " \r
0041260
*
0041340 N
0041360 A M E ) ) \r \r ( D E F I N E - C
0041400 O N D I T I O N 006 002 I N D E X
0041420 - B O U N D S - E R R O R 006 001
0041440 C E L L - E R R O R : R E P O
0041460 R T ( C L : F O R M A T T
0041500 " I n d e x o u t o f b o
0041520 u n d s : ~ D . " I N D E X
0041540 \r
0041560
*
0041640 ) \r
0041660
0041700 I N D
0041720 E X ) \r \r ( C L : D E F U N 006
0041740 002 P R E T T Y - T Y P E - N A M
0041760 E 006 001 ( T Y P E S P E C ) (
0042000 C O N C A T " a " T Y P E
0042020 S P E C ) ) \r \r ( D E F I N E -
0042040 C O N D I T I O N 006 002 T Y P E
0042060 - M I S M A T C H 006 001 C E L L
0042100 - E R R O R : R E P O R T (
0042120 C L : F O R M A T T " T h e
0042140 v a l u e o f ~ A , ~ A
0042160 , i s n o t ~ A . " \r
0042200
*
0042260 N A M E V A
0042300 L U E ( O R M E S S A G E
0042320 ( P R E T T Y - T Y P E - N A M
0042340 E \r
0042360
*
0042460 D E S I R E D - T Y P E
0042500 ) ) ) \r
0042520
0042540 V A L U E
0042560 D E S I R E D - T Y P E M E S
0042600 S A G E ) \r \r ( D E F I N E - C
0042620 O N D I T I O N 006 002 C O N T R
0042640 O L - E R R O R 006 001 E R R O R
0042660 ) \r \r ( D E F I N E - C O N D I
0042700 T I O N 006 002 I L L E G A L - G
0042720 O 006 001 C O N T R O L - E R R O
0042740 R : R E P O R T ( C L : F O
0042760 R M A T T " G O t o a
0043000 n o n - e x i s t a n t t a g
0043020 : ~ S . " T A G ) \r
0043040
0043060 T
0043100 A G ) \r \r ( D E F I N E - C O N
0043120 D I T I O N 006 002 I L L E G A L
0043140 - R E T U R N 006 001 C O N T R O
0043160 L - E R R O R : R E P O R T
0043200 ( C L : F O R M A T T \r
0043220
*
0043300 " R E T
0043320 U R N t o n o n - e x i s t
0043340 a n t b l o c k : ~ S . "
0043360 T A G \r
0043400
*
0043460 ) \r
0043500
0043520 T A G ) \r
0043540 \r ( D E F I N E - C O N D I T I
0043560 O N 006 002 I L L E G A L - T H R
0043600 O W 006 001 C O N T R O L - E R R
0043620 O R : R E P O R T ( C L : F
0043640 O R M A T T " T a g f o r
0043660 T H R O W n o t f o u n d
0043700 : ~ S . " T A G \r
0043720
*
0044000 ) \r
0044020
*
0044060 T A G ) \r \r ( D E F I N E - C O
0044100 N D I T I O N 006 002 B A D - P R
0044120 O C E E D - C A S E 006 001 C O N
0044140 T R O L - E R R O R : R E P O
0044160 R T ( C L : F O R M A T T
0044200 \r
0044220
*
0044260 " P r o
0044300 c e e d c a s e ~ S i s
0044320 n o t c u r r e n t l y a c
0044340 t i v e . " \r
0044360
*
0044440 N A M E ) \r
0044460
*
0044520 N A M E ) \r \r ( D
0044540 E F I N E - C O N D I T I O N
0044560 006 002 C A L L - E R R O R 006 001 C
0044600 O N T R O L - E R R O R C A L
0044620 L E E ) \r \r ( D E F I N E - C O
0044640 N D I T I O N 006 002 T O O - M A
0044660 N Y - A R G U M E N T S 006 001 C
0044700 A L L - E R R O R : R E P O R
0044720 T ( C L : I F ( A N D M A
0044740 X I M U M A C T U A L ) \r
0044760
*
0045040 ( C L
0045060 : F O R M A T T " T o o m
0045100 a n y a r g u m e n t s t o
0045120 ~ A : ~ % ~ D ~ : * ~
0045140 [ w e r e ~ ; w a s ~ : ; w e r
0045160 e ~ ] g i v e n b u t a t
0045200 m o s t ~ D ~ : * ~ [ a r
0045220 e ~ ; i s ~ : ; a r e ~ ] a c
0045240 c e p t e d " \r
0045260
*
0045340 C
0045360 A L L E E A C T U A L M A X
0045400 I M U M ) \r
0045420
*
0045500 ( C L : F O R M A T
0045520 T \r
0045540
*
0045620 " T o o m a
0045640 n y a r g u m e n t s t o
0045660 ~ A " \r
0045700
*
0045760 C A L L E
0046000 E ) ) \r
0046020
0046040 M
0046060 A X I M U M A C T U A L ) \r \r
0046100 ( D E F I N E - C O N D I T I O
0046120 N 006 002 T O O - F E W - A R G U
0046140 M E N T S 006 001 C A L L - E R R
0046160 O R : R E P O R T ( C L : I
0046200 F ( A N D M I N I M U M A
0046220 C T U A L ) \r
0046240
*
0046320 ( C L : F O R M A T
0046340 T " T o o f e w a r g u m
0046360 e n t s t o ~ A : ~ %
0046400 ~ D ~ : * ~ [ w e r e ~ ; w a
0046420 s ~ : ; w e r e ~ ] g i v e n
0046440 b u t a t l e a s t ~ D
0046460 ~ : * ~ [ a r e ~ ; i s ~ : ;
0046500 a r e ~ ] n e c e s s a r y "
0046520 \r
0046540
*
0046620 C A L L E E A C
0046640 T U A L M I N I M U M ) \r
0046660
*
0046740 ( C L :
0046760 F O R M A T T " T o o f e
0047000 w a r g u m e n t s t o ~
0047020 A " \r
0047040
*
0047120 C A L L E E )
0047140 ) \r
0047160
0047200 M I N I
0047220 M U M A C T U A L ) \r \r ( D E
0047240 F I N E - C O N D I T I O N 006
0047260 002 I N V A L I D - A R G U M E N
0047300 T - L I S T 006 001 C A L L - E R
0047320 R O R : R E P O R T ( C L :
0047340 F O R M A T T \r
0047360
*
0047440 " ~ S
0047460 h a s a n i n v a l i d a
0047500 r g u m e n t l i s t " \r
0047520
*
0047620 C A L L E E ) ) \r \r ( D E F I
0047640 N E - C O N D I T I O N 006 002 S
0047660 T R E A M - E R R O R 006 001 E R
0047700 R O R : R E P O R T ( C L :
0047720 F O R M A T T " S t r e a m
0047740 e r r o r o n ~ S . " S
0047760 T R E A M ) \r
0050000
0050020 S T R E
0050040 A M ) \r \r ( D E F I N E - C O N
0050060 D I T I O N 006 002 R E A D - E R
0050100 R O R 006 001 S T R E A M - E R R
0050120 O R ) \r \r ( D E F I N E - C O N
0050140 D I T I O N 006 002 E N D - O F -
0050160 F I L E 006 001 R E A D - E R R O
0050200 R : R E P O R T " E n d o
0050220 f f i l e : ~ % ~ S "
0050240 S T R E A M ) \r \r ( D E F I N
0050260 E - C O N D I T I O N 006 002 S T
0050300 O R A G E - C O N D I T I O N 006
0050320 001 S E R I O U S - C O N D I T
0050340 I O N ) \r \r ( D E F I N E - C O
0050360 N D I T I O N 006 002 S T A C K -
0050400 O V E R F L O W 006 001 S T O R A
0050420 G E - C O N D I T I O N : R E
0050440 P O R T " S t a c k o v e r
0050460 f l o w " ) \r \r ( D E F I N E -
0050500 C O N D I T I O N 006 002 S T O R
0050520 A G E - E X H A U S T E D 006 001
0050540 S T O R A G E - C O N D I T I O
0050560 N ) \r \r \r \r \r 006 004 ( * | ; ; ;
0050600 | " E x p o r t e d s y m b
0050620 o l s . A n y t h i n g h e
0050640 r e t h a t ' s n o t i n
0050660 C L s h o u l d b e i n
0050700 X C L . " ) 006 001 \r \r ( C L : D
0050720 E F V A R 006 002 * B R E A K - O
0050740 N - W A R N I N G S * 006 001 N I
0050760 L \r
0051000 " I f
0051020 t r u e , c a l l s t o
0051040 W A R N w i l l c a u s e
0051060 a b r e a k a s w e l l
0051100 a s l o g g i n g t h e w
0051120 a r n i n g . " ) \r \r ( C L : D
0051140 E F U N 006 002 M A K E - C O N D
0051160 I T I O N 006 001 ( T Y P E & R
0051200 E S T S L O T - I N I T I A L
0051220 I Z A T I O N S ) \r
0051240
*
0051300 " C
0051320 r e a t e a c o n d i t i o
0051340 n o b j e c t o f t h e
0051360 s p e c i f i e d t y p e . "
0051400 \r ( C L : A P P L Y ( S
0051420 T R U C T U R E - C O N S T R U
0051440 C T O R T Y P E ) \r
0051460 S L O T - I N I T I A
0051500 L I Z A T I O N S ) ) \r \r ( C L
0051520 : D E F U N 006 002 S I G N A L 006
0051540 001 ( D A T U M & R E S T A
0051560 R G S ) ( L E T ( ( C O N D
0051600 I T I O N ( M A K E - I N T O
0051620 - C O N D I T I O N D A T U M
0051640 ' S I M P L E - C O N D I T I
0051660 O N \r
0051700
*
0051760 A R G S ) ) ) \r
0052000
*
0052040 ( R A I S E - S I G N A L C
0052060 O N D I T I O N ) \r
0052100
*
0052140 ( C L : I F ( C O N D I
0052160 T I O N - T Y P E P C O N D I
0052200 T I O N ' S E R I O U S - C O
0052220 N D I T I O N ) \r
0052240
*
0052300 ( D E B U G
0052320 C O N D I T I O N ) \r
0052340
*
0052400 ( C L : R
0052420 E T U R N - F R O M S I G N A
0052440 L C O N D I T I O N ) ) ) ) \r
0052460 \r ( C L : D E F U N 006 002 C L :
0052500 E R R O R 006 001 ( D A T U M &
0052520 R E S T A R G S ) ( D E B U
0052540 G ( R A I S E - S I G N A L
0052560 ( M A K E - I N T O - C O N D I
0052600 T I O N D A T U M ' S I M P
0052620 L E - E R R O R \r
0052640
*
0052720 A R G S
0052740 ) ) ) ) \r \r ( C L : D E F U N
0052760 006 002 C L : C E R R O R 006 001 ( P
0053000 R O C E E D - F O R M A T - S T
0053020 R I N G D A T U M & R E S T
0053040 A R G U M E N T S & A U X
0053060 C O N D I T I O N ) \r ( P
0053100 R O C E E D - C A S E ( D E B
0053120 U G ( R A I S E - S I G N A L
0053140 ( C L : S E T F C O N D I T
0053160 I O N ( M A K E - I N T O - C
0053200 O N D I T I O N D A T U M '
0053220 S I M P L E - E R R O R \r
0053240
*
0053320 A R
0053340 G U M E N T S ) ) ) ) \r
0053360 ( P R O C E E D N
0053400 I L : R E P O R T ( C L : A
0053420 P P L Y ( F U N C T I O N C
0053440 L : F O R M A T ) \r
0053460
*
0053520 T P R O C E E D - F O R M A T
0053540 - S T R I N G A R G U M E N T
0053560 S ) \r
0053600 C O N D I T I O N ) ) )
0053620 \r \r ( C L : D E F U N 006 002 C L
0053640 : W A R N 006 001 ( D A T U M &
0053660 R E S T A R G U M E N T S )
0053700 ( L E T ( ( C O N D I T I O N
0053720 ( M A K E - I N T O - C O N D
0053740 I T I O N D A T U M ' S I M
0053760 P L E - W A R N I N G \r
0054000
*
0054060 A
0054100 R G U M E N T S ) ) ) \r
0054120
*
0054160 ( C L : U
0054200 N L E S S ( C O N D I T I O N
0054220 - T Y P E P C O N D I T I O N
0054240 ' W A R N I N G ) \r
0054260
*
0054340 ( C L : C E R R O R \r
0054360
*
0054440 " S i g n a
0054460 l a n d r e p o r t t h e
0054500 c o n d i t i o n a n y w a
0054520 y " \r
0054540
*
0054620 ' T Y P E - M I S M A T C H :
0054640 N A M E ' C O N D I T I O N
0054660 : V A L U E \r
0054700
*
0054760 C O N D I T I O N :
0055000 D E S I R E D - T Y P E ' W A
0055020 R N I N G ) ) \r
0055040
*
0055100 ( R A I S E - S I
0055120 G N A L C O N D I T I O N ) \r
0055140
*
0055200 (
0055220 C L : I F % C O N D I T I O N
0055240 - T Y P E S - R E A L ( C L :
0055260 F O R M A T * E R R O R - O U
0055300 T P U T * \r
0055320
*
0055420 " ~ & W a r
0055440 n i n g : ~ A ~ % " \r
0055460
*
0055600 C O N D I T I O N ) \r
0055620
*
0055700 ( C L : F O R M A T * E R R
0055720 O R - O U T P U T * " ~ & W a
0055740 r n i n g : ~ A ~ % " \r
0055760
*
0056040 ( R E P O R
0056060 T - C O N D I T I O N C O N D
0056100 I T I O N N I L ) ) ) \r
0056120
*
0056160 ( C L :
0056200 W H E N * B R E A K - O N - W
0056220 A R N I N G S * ( C L : B R E
0056240 A K C O N D I T I O N ) ) \r
0056260
*
0056320 C O
0056340 N D I T I O N ) ) \r \r ( C L : D
0056360 E F U N 006 002 C L : B R E A K 006
0056400 001 ( & O P T I O N A L ( D A
0056420 T U M " B r e a k " ) \r
0056440
0056460 & R E S T A R G
0056500 U M E N T S & A U X C O N D
0056520 I T I O N ) 006 006 006 001 \r
0056540
*
0056600 006 006
0056620 ( * | ; ; | \r 006 001
0056640
0056660 006 006 " W a n t t o
0056700 t r y a n d g e t s o m e
0056720 i n d i c a t i o n o f w
0056740 h i c h b r e a k y o u ' r
0056760 e r e t u r n i n g f r o m
0057000 . " ) 006 001 \r ( P R O C E E
0057020 D - C A S E ( D E B U G ( C
0057040 L : S E T F C O N D I T I O N
0057060 ( M A K E - I N T O - C O N D
0057100 I T I O N D A T U M ' S I M
0057120 P L E - C O N D I T I O N A R
0057140 G U M E N T S ) ) ) \r
0057160 ( P R O C E E D N I
0057200 L : R E P O R T " R e t u r
0057220 n f r o m B R E A K " C O
0057240 N D I T I O N ) ) ) \r \r ( C L :
0057260 D E F U N 006 002 D E B U G 006 001
0057300 ( & O P T I O N A L ( D A T U
0057320 M " B r e a k " ) \r
0057340
0057360 & R E S T A R G S ) ( C
0057400 L : L O O P ( E R R O R X (
0057420 M A K E - I N T O - C O N D I T
0057440 I O N D A T U M ' S I M P L
0057460 E - C O N D I T I O N A R G S
0057500 \r
0057520
*
0057560 ) ) ) )
0057600 \r \r ( D E F S T R U C T ( 006 002
0057620 P R O C E E D - C A S E 006 001 (
0057640 : P R I N T - F U N C T I O N
0057660 % P R O C E E D - C A S E - P R
0057700 I N T E R ) ) N A M E T A G
0057720 S E L E C T O R T E S T \r
0057740
*
0060040 ( R E P O R T ' \r
0060060
*
0060160 % P R O C E E D -
0060200 C A S E - D E F A U L T - R E P
0060220 O R T E R \r
0060240
*
0060340 ) ) \r \r ( D E F S T R U
0060360 C T ( 006 002 R E A L - P R O C E
0060400 E D - C A S E 006 001 ( : I N C L
0060420 U D E P R O C E E D - C A S E
0060440 ) \r
0060460
0060500 ( : P R I N T - F U N C T I O N
0060520 % P R O C E E D - C A S E - P
0060540 R I N T E R ) ) C O N T I N U
0060560 A T I O N ) \r \r ( C L : D E F U
0060600 N 006 002 F I N D - P R O C E E D
0060620 - C A S E 006 001 ( D A T U M C
0060640 O N D I T I O N ) ( C L : E T
0060660 Y P E C A S E \r
0060700
*
0060740 D A T U M \r
0060760
*
0061020 ( N U L
0061040 L ( C L : E R R O R \r
0061060
*
0061120 " ~ S
0061140 i s a n i n v a l i d a r
0061160 g u m e n t t o ~ S ; ~ %
0061200 u s e ~ S i n s t e a
0061220 d " \r
0061240
*
0061320 N I L ' F I N D - P R O C E E
0061340 D - C A S E ' \r
0061360
*
0061440 C O M P U T E - P R O
0061460 C E E D - C A S E S ) ) \r
0061500
*
0061540 ( P R O
0061560 C E E D - C A S E ( A N D (
0061600 F M E M B D A T U M * P R O
0061620 C E E D - C A S E S * ) \r
0061640
*
0061720 (
0061740 T E S T - P R O C E E D - C A S
0061760 E D A T U M C O N D I T I O
0062000 N ) \r
0062020
*
0062100 D A T U M ) ) \r
0062120
*
0062160 ( C L :
0062200 S Y M B O L ( 006 002 | f o r | 006
0062220 001 P C 006 002 | i n | 006 001 * P
0062240 R O C E E D - C A S E S * \r
0062260
*
0062340 006 002 | t h
0062360 e r e i s | 006 001 ( A N D ( E
0062400 Q ( P R O C E E D - C A S E -
0062420 N A M E \r
0062440
*
0062540 P C ) \r
0062560
*
0062660 D A T U M )
0062700 \r
0062720
*
0063000 ( T E
0063020 S T - P R O C E E D - C A S E
0063040 P C \r
0063060
*
0063160 C O N D I T I O N
0063200 ) \r
0063220
*
0063300 P C
0063320 ) ) ) ) ) \r \r ( C L : D E F U N
0063340 006 002 C O M P U T E - P R O C E
0063360 E D - C A S E S 006 001 ( C O N D
0063400 I T I O N ) ( 006 002 | f o r | 006
0063420 001 P C 006 002 | i n | 006 001 * P
0063440 R O C E E D - C A S E S * \r
0063460
*
0063520 006 002 |
0063540 w h e n | 006 001 ( C L : C A T C
0063560 H ' S K I P - P R O C E E D -
0063600 C A S E ( T E S T - P R O C E
0063620 E D - C A S E \r
0063640
*
0063740 P C C
0063760 O N D I T I O N ) ) \r
0064000
*
0064040 006 002 | c o l
0064060 l e c t | 006 001 P C ) ) \r \r ( C
0064100 L : D E F U N 006 002 I N V O K E
0064120 - P R O C E E D - C A S E 006 001
0064140 ( P R O C E E D - C A S E C O
0064160 N D I T I O N & R E S T C L
0064200 : V A L U E S ) \r ( L E T
0064220 ( ( P C ( F I N D - P R O C
0064240 E E D - C A S E P R O C E E D
0064260 - C A S E C O N D I T I O N )
0064300 ) ) \r ( 006 002 I F
0064320 006 001 P C \r
0064340 006 002 T H E N 006 001 006 006 006 001
0064360
*
0064420 006 006 ( * | ; ; |
0064440 " H a c k u n t i l r e a
0064460 l u n w i n d e r i s i n
0064500 . " ) 006 001 \r
0064520 ( A N D ( B O
0064540 U N D P ' B R E A K R E S E T
0064560 V A L S ) \r
0064600 ( B O U
0064620 N D P ' \ \ B R E A K R E S E
0064640 T E X P R ) \r
0064660 ( B R
0064700 E A K R E S E T F N ' L E A V
0064720 I N G ) ) \r
0064740 ( C L : T Y P E C
0064760 A S E P C ( R E A L - P R O
0065000 C E E D - C A S E \r
0065020
0065040 ( 006 002 |
0065060 w i t h | 006 001 R E A L - P R O
0065100 C E E D - C A S E P C \r
0065120
*
0065160 ( C L : T H R O W
0065200 T A G ( C L : V A L U E S - L
0065220 I S T ( L I S T * C O N T I
0065240 N U A T I O N C O N D I T I O
0065260 N \r
0065300
*
0065400 ( C O N D \r
0065420
*
0065520 ( ( C L : S Y M B
0065540 O L P \r
0065560
*
0065660 P R
0065700 O C E E D - C A S E \r
0065720
*
0066040 ) \r
0066060
*
0066160 C L : V A L U E
0066200 S ) \r
0066220
*
0066320 ( ( C L : F B O U N D P
0066340 N A M E ) \r
0066360
*
0066460 ( C L : A P P
0066500 L Y \r
0066520
*
0066620 ( \r
0066640
*
0066740 P R O C E E D -
0066760 A R G - C O L L E C T O R \r
0067000
*
0067120 N A M E ) \r
0067140
*
0067240 C O N D I
0067260 T I O N \r
0067300
*
0067400 C L : V A L U
0067420 E S ) ) \r
0067440
*
0067540 ( T C L : V A L U
0067560 E S ) ) ) ) ) ) ) \r
0067600
0067620 ( P R O C E E D - C A S E
0067640 ( 006 002 | w i t h | 006 001 P R O C
0067660 E E D - C A S E P C ( C L :
0067700 T H R O W \r
0067720
*
0070000 T A G \r
0070020
*
0070100 ( L I S T * S
0070120 E L E C T O R C O N D I T I O
0070140 N \r
0070160
*
0070240 ( C O N D \r
0070260
*
0070360 ( ( C L : S Y M B
0070400 O L P P R O C E E D - C A S E
0070420 ) \r
0070440
*
0070520 C L : V
0070540 A L U E S ) \r
0070560
*
0070660 ( ( C L : F B O U N D P N A M
0070700 E ) \r
0070720
*
0071000 ( C L
0071020 : A P P L Y ( \r
0071040
*
0071140 P R O C E E D
0071160 - A R G - C O L L E C T O R \r
0071200
*
0071320 N A M E ) \r
0071340
*
0071440 C O N D I
0071460 T I O N C L : V A L U E S ) \r
0071500
*
0071600 ) \r
0071620
*
0071720 ( T C L : V A L U E
0071740 S ) ) ) ) ) ) ) \r
0071760 006 002 E L S E 006 001 ( C L :
0072000 E R R O R ' B A D - P R O C E
0072020 E D - C A S E : N A M E P R
0072040 O C E E D - C A S E ) ) ) ) \r \r
0072060 ( D E F I N E - P R O C E E D -
0072100 F U N C T I O N 006 002 A B O R T
0072120 006 001 : T E S T T R U E : R
0072140 E P O R T " A b o r t " ) \r \r
0072160 ( D E F I N E - P R O C E E D -
0072200 F U N C T I O N 006 002 P R O C E
0072220 E D 006 001 : R E P O R T " P r
0072240 o c e e d w i t h n o s p
0072260 e c i a l a c t i o n " : T
0072300 E S T T R U E ) \r \r ( D E F I
0072320 N E - P R O C E E D - F U N C T
0072340 I O N 006 002 U S E - V A L U E 006
0072360 001 : R E P O R T " U s e a
0072400 d i f f e r e n t v a l u e
0072420 " : T E S T T R U E \r
0072440
*
0072500 ( V A L U E ( P R
0072520 O G N ( C L : F O R M A T *
0072540 Q U E R Y - I O * " E n t e r
0072560 a n e w v a l u e : " )
0072600 \r
0072620
*
0072660 ( E V A L ( C
0072700 L : R E A D * Q U E R Y - I O
0072720 * ) ) ) ) ) \r \r ( D E F I N E -
0072740 P R O C E E D - F U N C T I O N
0072760 006 002 S T O R E - V A L U E 006 001
0073000 : R E P O R T " S t o r e
0073020 a n e w v a l u e a n d
0073040 u s e i t " : T E S T T R
0073060 U E \r
0073100
0073120 ( V
0073140 A L U E ( P R O G N ( C L :
0073160 F O R M A T * Q U E R Y - I O
0073200 * \r
0073220
*
0073300 " E n t e r a v a l u
0073320 e t o s t o r e : " ) \r
0073340
*
0073420 ( C L : E V A L
0073440 ( C L : R E A D * Q U E R Y
0073460 - I O * ) ) ) ) ) \r \r ( C L : D
0073500 E F U N 006 002 S I M P L E - F O
0073520 R M A T 006 001 ( S T R E A M &
0073540 R E S T A R G S ) ( C L : W
0073560 H E N ( E Q S T R E A M T
0073600 ) \r
0073620
*
0073660 ( C L : S E T F S T
0073700 R E A M * S T A N D A R D - O
0073720 U T P U T * ) ) \r
0073740
*
0074000 ( C L : D O L I S T
0074020 ( X A R G S ) \r
0074040
*
0074100 ( C L :
0074120 P R I N T X S T R E A M ) )
0074140 ) \r \r ( M O V D ? ' S I M P L
0074160 E - F O R M A T ' C L : F O R
0074200 M A T ) \r ( D E C L A R E \ :
0074220 D O N T C O P Y \r \r ( R P A Q
0074240 Q 006 002 S H O U L D - B E - I N
0074260 - P A C K A G E 006 001 \r
0074300 ( ( " X C L " : E X T E
0074320 R N A L D E F I N E - C O N D
0074340 I T I O N H A N D L E R - B I
0074360 N D C O N D I T I O N - B I N
0074400 D C O N D I T I O N - C A S E
0074420 I G N O R E - E R R O R S \r
0074440 P
0074460 R O C E E D - C A S E D E F I
0074500 N E - P R O C E E D - F U N C T
0074520 I O N C A T C H - A B O R T
0074540 C O N D I T I O N S I M P L E
0074560 - C O N D I T I O N W A R N I
0074600 N G \r
0074620 S I M P L E - W A R N I N
0074640 G S E R I O U S - C O N D I T
0074660 I O N E R R O R S I M P L E
0074700 - E R R O R A S S E R T I O N
0074720 - F A I L E D C E L L - E R R
0074740 O R \r
0074760 U N B O U N D - V A R I A
0075000 B L E U N D E F I N E D - F U
0075020 N C T I O N I N D E X - B O U
0075040 N D S - E R R O R T Y P E - M
0075060 I S M A T C H C O N T R O L -
0075100 E R R O R \r
0075120 I L L E G A L - G O
0075140 I L L E G A L - R E T U R N
0075160 I L L E G A L - T H R O W C A
0075200 L L - E R R O R T O O - M A N
0075220 Y - A R G U M E N T S \r
0075240 T O O -
0075260 F E W - A R G U M E N T S I N
0075300 V A L I D - A R G U M E N T - L
0075320 I S T S T R E A M - E R R O R
0075340 R E A D - E R R O R E N D -
0075360 O F - F I L E \r
0075400 S T O R A G E -
0075420 C O N D I T I O N S T A C K -
0075440 O V E R F L O W S T O R A G E
0075460 - E X H A U S T E D M A K E -
0075500 C O N D I T I O N S I G N A L
0075520 D E B U G \r
0075540 F I N D - P R O C
0075560 E E D - C A S E C O M P U T E
0075600 - P R O C E E D - C A S E S I
0075620 N V O K E - P R O C E E D - C A
0075640 S E A B O R T P R O C E E D
0075660 U S E - V A L U E \r
0075700 S T O R E
0075720 - V A L U E ) \r
0075740 ( " S I " : I N T E R N A L
0075760 * P R O C E E D - C A S E S *
0076000 * C O N D I T I O N - H A N D L
0076020 E R - B I N D I N G S * ) ) ) \r
0076040 ) \r \r ( P U T P R O P S 006 002 E
0076060 R R O R - R U N T I M E F I L
0076100 E T Y P E 006 001 C L : C O M P I
0076120 L E - F I L E ) \r ( P U T P R O
0076140 P S E R R O R - R U N T I M E
0076160 C O P Y R I G H T ( " X e r
0076200 o x C o r p o r a t i o n "
0076220 1 9 8 6 ) ) \r ( D E C L A R E \
0076240 : D O N T C O P Y \r ( F I
0076260 L E M A P ( N I L ) ) ) \r S T
0076300 O P \r
0076303