$ od -c -N 50000 [eris]<LispCore>SOURCES>ERROR-RUNTIME!7
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 " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 1
0000120 7 - O c t - 8 6 1 7 : 4 9 : 2
0000140 6 " 006 004 { E R I S } < D A N I
0000160 E L S > L I S P > E R R O R - R
0000200 U N T I M E . ; 1 5 006 001 3 2 2
0000220 7 6 \r \r c h a n
0000240 g e s t o % : ( S T R U C
0000260 T U R E S E R R O R S I M P
0000300 L E - E R R O R O L D - I N T
0000320 E R L I S P - E R R O R C E L
0000340 L - E R R O R C O N T R O L -
0000360 E R R O R \r
0000400
0000420 S T R E A M - E R R O R S
0000440 I M P L E - W A R N I N G P R
0000460 O C E E D - C A S E R E A L -
0000500 P R O C E E D - C A S E ) \r
0000520
0000540 ( V A R S E R R O R - R U
0000560 N T I M E C O M S S H O U L D
0000600 - B E - I N - P A C K A G E ) \r
0000620
0000640 ( F U N C T I O N S T
0000660 R Y - E R R O R T Y P E L S T
0000700 % % P R I N T - C O N D I T I O
0000720 N % % P R O C E E D - C A S E
0000740 - P R I N T E R \r
0000760
0001000 % % P R O C E E D - C
0001020 A S E - D E F A U L T - R E P O
0001040 R T E R M A K E - C O N D I T
0001060 I O N I N V O K E - P R O C E
0001100 E D - C A S E \r
0001120
0001140 R A I S E - S I G N A L
0001160 ) \r
0001200 ( V A R I A B L E S
0001220 * C O N D I T I O N - H A N D
0001240 L E R - B I N D I N G S * * P
0001260 R O C E E D - C A S E S * ) \r \r
0001300 p r e v i o u s d
0001320 a t e % : " 1 6 - O c t - 8 6
0001340 1 7 : 5 9 : 3 0 " { E R I S
0001360 } < D A N I E L S > L I S P > E
0001400 R R O R - R U N T I M E . ; 1 4
0001420 ) \r \r \r ( * " \r C o p y r i g
0001440 h t ( c ) 1 9 8 6 b y X
0001460 e r o x C o r p o r a t i o n
0001500 . A l l r i g h t s r e
0001520 s e r v e d . \r " ) \r \r ( P R E
0001540 T T Y C O M P R I N T E R R O
0001560 R - R U N T I M E C O M S ) \r \r
0001600 ( R P A Q Q 006 002 E R R O R - R
0001620 U N T I M E C O M S 006 001 \r
0001640 ( ( C O M S ( * ;
0001660 ; ; " I n t e r n a l f u n
0001700 c t i o n s . " ) \r
0001720 ( F U N C T I O
0001740 N S C O N D I T I O N - T Y P
0001760 E P C O N D I T I O N - S U B
0002000 T Y P E P C O N D I T I O N -
0002020 T Y P E - O F \r
0002040 F A
0002060 K E - T Y P E P - F O R - C O N
0002100 D I T I O N S F A K E - S U B
0002120 T Y P E P - F O R - C O N D I T
0002140 I O N S \r
0002160 F A K E -
0002200 T Y P E - O F - F O R - C O N D
0002220 I T I O N S ) \r
0002240 ( F U N C T I O N S
0002260 C O N D I T I O N - H A N D L
0002300 E R C O N D I T I O N - R E P
0002320 O R T E R % % P R I N T - C O
0002340 N D I T I O N \r
0002360 % %
0002400 P R O C E E D - C A S E - P R I
0002420 N T E R % % P R O C E E D - C
0002440 A S E - D E F A U L T - R E P O
0002460 R T E R R E P O R T - C O N D
0002500 I T I O N \r
0002520 C O N D
0002540 I T I O N - P A R E N T ) \r
0002560 ( V A R
0002600 I A B L E S * C O N D I T I O
0002620 N - H A N D L E R - B I N D I N
0002640 G S * * P R O C E E D - C A S
0002660 E S * ) \r
0002700 ( F U N C T I O N S C H
0002720 E C K - T Y P E - F A I L E C
0002740 A S E - F A I L A S S E R T -
0002760 F A I L ) \r
0003000 ( F U N C T I O N S M
0003020 A K E - I N T O - C O N D I T I
0003040 O N R A I S E - S I G N A L
0003060 D E F A U L T - H A N D L E - C
0003100 O N D I T I O N \r
0003120 D
0003140 E F A U L T - P R O C E E D - R
0003160 E P O R T E R F I X - I N H E
0003200 R I T A N C E - L I N K S D E
0003220 F A U L T - P R O C E E D - T E
0003240 S T \r
0003260 T E S T - P R
0003300 O C E E D - C A S E ) ) \r
0003320 ( C O M S ( * ; ;
0003340 ; " P r e - d e f i n e d c
0003360 o n d i t i o n t y p e s . "
0003400 ) \r
0003420 ( S T R U C T U R E S C O N D
0003440 I T I O N S I M P L E - C O N
0003460 D I T I O N W A R N I N G S
0003500 I M P L E - W A R N I N G O L
0003520 D - B R E A K 1 \r
0003540 S
0003560 E R I O U S - C O N D I T I O N
0003600 E R R O R S I M P L E - E R
0003620 R O R O L D - I N T E R L I S
0003640 P - E R R O R A S S E R T I O
0003660 N - F A I L E D \r
0003700 C
0003720 E L L - E R R O R U N B O U N
0003740 D - V A R I A B L E U N D E F
0003760 I N E D - F U N C T I O N N O
0004000 - P R O C E E D - T E S T \r
0004020
0004040 I N D E X - B O U N D S
0004060 - E R R O R ) \r
0004100 ( C O M S ( F U N
0004120 C T I O N S P R E T T Y - T Y
0004140 P E - N A M E ) \r
0004160 ( S T
0004200 R U C T U R E S T Y P E - M I
0004220 S M A T C H ) ) \r
0004240 ( S T R U C T U R
0004260 E S C O N T R O L - E R R O R
0004300 I L L E G A L - G O I L L E
0004320 G A L - R E T U R N I L L E G
0004340 A L - T H R O W B A D - P R O
0004360 C E E D - C A S E ) \r
0004400 ( S T R U C T
0004420 U R E S C A L L - E R R O R
0004440 T O O - M A N Y - A R G U M E N
0004460 T S T O O - F E W - A R G U M
0004500 E N T S I N V A L I D - A R G
0004520 U M E N T - L I S T ) \r
0004540 ( S T R U C
0004560 T U R E S S T R E A M - E R R
0004600 O R R E A D - E R R O R E N
0004620 D - O F - F I L E ) \r
0004640 ( S T R U C T
0004660 U R E S S T O R A G E - C O N
0004700 D I T I O N S T A C K - O V E
0004720 R F L O W S T O R A G E - E X
0004740 H A U S T E D ) ) \r
0004760 ( C O M S ( * ; ; ; "
0005000 E x p o r t e d s y m b o l s
0005020 . A n y t h i n g h e r e
0005040 t h a t ' s n o t i n C L
0005060 s h o u l d b e i n X C
0005100 L . " ) \r
0005120 ( V A R I A B L E S * B
0005140 R E A K - O N - W A R N I N G S
0005160 * ) \r
0005200 ( F U N C T I O N S M A K E
0005220 - C O N D I T I O N S I G N A
0005240 L C L : E R R O R C L : C E
0005260 R R O R C L : W A R N C L :
0005300 B R E A K D E B U G ) \r
0005320 ( S T R U
0005340 C T U R E S P R O C E E D - C
0005360 A S E R E A L - P R O C E E D
0005400 - C A S E ) \r
0005420 ( F U N C T I O N S
0005440 F I N D - P R O C E E D - C A S
0005460 E C O M P U T E - P R O C E E
0005500 D - C A S E S I N V O K E - P
0005520 R O C E E D - C A S E ) \r
0005540 ( F U N C
0005560 T I O N S A B O R T P R O C
0005600 E E D U S E - V A L U E S T
0005620 O R E - V A L U E ) ) \r
0005640 ( C O M S ( F U N C T
0005660 I O N S S I M P L E - F O R M
0005700 A T ) \r
0005720 ( P ( M O V D ? ' S I M
0005740 P L E - F O R M A T ' C L : F
0005760 O R M A T ) ) ) \r
0006000 ( D E C L A R E % : D O N T
0006020 C O P Y ( V A R S S H O U L
0006040 D - B E - I N - P A C K A G E )
0006060 ) \r ( P R O P
0006100 F I L E T Y P E E R R O R - R
0006120 U N T I M E ) ) ) \r \r \r \r 006 004 (
0006140 * ; ; ; " I n t e r n a l
0006160 f u n c t i o n s . " ) 006 001 \r \r
0006200 ( D E F M A C R O 006 002 C O N D
0006220 I T I O N - T Y P E P 006 001 ( D
0006240 A T U M T Y P E ) ( C L : I
0006260 F % % C O N D I T I O N - T Y
0006300 P E S - R E A L ` ( T Y P E P
0006320 , D A T U M , T Y P E ) \r
0006340
*
0006400 ` ( F
0006420 A K E - T Y P E P - F O R - C O
0006440 N D I T I O N S , D A T U M
0006460 , T Y P E ) ) ) \r \r ( D E F M A
0006500 C R O 006 002 C O N D I T I O N -
0006520 S U B T Y P E P 006 001 ( T 1 T
0006540 2 ) ( C L : I F % % C O N D
0006560 I T I O N - T Y P E S - R E A L
0006600 ` ( C L : S U B T Y P E P ,
0006620 T 1 , T 2 ) \r
0006640
*
0006700 ` ( F A K E - S U B T Y
0006720 P E P - F O R - C O N D I T I O
0006740 N S , T 1 , T 2 ) ) ) \r \r (
0006760 D E F M A C R O 006 002 C O N D I
0007000 T I O N - T Y P E - O F 006 001 (
0007020 D A T U M ) ( C L : I F % %
0007040 C O N D I T I O N - T Y P E S -
0007060 R E A L ` ( C L : T Y P E - O
0007100 F , D A T U M ) \r
0007120
*
0007160 ` ( F A K E - T Y P E
0007200 - O F - F O R - C O N D I T I O
0007220 N S , D A T U M ) ) ) \r \r ( C
0007240 L : D E F U N 006 002 F A K E - T
0007260 Y P E P - F O R - C O N D I T I
0007300 O N S 006 001 ( D A T U M T Y P
0007320 E ) 006 003 006 001
0007340 006 003 ( * a m d "
0007360 9 - A p r - 8 6 1 7 : 4 1 "
0007400 ) 006 001 \r ( A N D ( C L :
0007420 C O N S P D A T U M ) \r
0007440 ( C L : S Y M B O L P
0007460 ( C A R D A T U M ) ) \r
0007500 ( C O N D I T I O N
0007520 - S U B T Y P E P ( C A R D
0007540 A T U M ) \r
0007560 T Y P E ) ) ) \r \r ( C
0007600 L : D E F U N 006 002 F A K E - S
0007620 U B T Y P E P - F O R - C O N D
0007640 I T I O N S 006 001 ( T 1 T 2 )
0007660 ( C L : V A L U E S ( A N D
0007700 ( 006 002 f o r 006 001 006 002 o l d 006
0007720 001 T 1 006 002 b y 006 001 ( C O N
0007740 D I T I O N - P A R E N T T 1
0007760 ) \r
0010000
*
0010060 006 002 w h i l e 006 001 T 1 006 002
0010100 t h e r e i s 006 001 ( E Q T 1
0010120 T 2 ) ) \r
0010140
*
0010220 T ) \r
0010240
*
0010300 T ) ) \r \r ( C L
0010320 : D E F U N 006 002 F A K E - T Y
0010340 P E - O F - F O R - C O N D I T
0010360 I O N S 006 001 ( D A T U M ) (
0010400 C A R D A T U M ) ) \r \r ( D E
0010420 F M A C R O 006 002 C O N D I T I
0010440 O N - H A N D L E R 006 001 ( C O
0010460 N D I T I O N - T Y P E ) ` (
0010500 G E T P R O P , C O N D I T I
0010520 O N - T Y P E ' % % C O N D I
0010540 T I O N - H A N D L E R ) ) \r \r
0010560 ( D E F M A C R O 006 002 C O N D
0010600 I T I O N - R E P O R T E R 006 001
0010620 ( C O N D I T I O N - T Y P E
0010640 ) ` ( G E T P R O P , C O N
0010660 D I T I O N - T Y P E ' % % C
0010700 O N D I T I O N - R E P O R T E
0010720 R ) ) \r \r ( C L : D E F U N 006
0010740 002 % % P R I N T - C O N D I T I
0010760 O N 006 001 ( C O N D I T I O N
0011000 S T R E A M L E V E L ) ( 006
0011020 002 D E C L A R E 006 001 ( I G N O
0011040 R E L E V E L ) ) \r
0011060
*
0011120 ( C L
0011140 : I F C L : * P R I N T - E S
0011160 C A P E * ( C L : F O R M A T
0011200 S T R E A M \r
0011220
*
0011320 " # < C o n d i t i o
0011340 n ~ S @ ~ O , ~ O > " \r
0011360
*
0011500 ( C L : T Y P E - O F \r
0011520
*
0011640 C O N D I T I O N
0011660 ) \r
0011700
*
0012000 ( \ H I L O C C O N D
0012020 I T I O N ) \r
0012040
*
0012140 ( \ L O L O C
0012160 C O N D I T I O N ) ) \r
0012200
*
0012260 ( R E P O R T - C O
0012300 N D I T I O N C O N D I T I O
0012320 N S T R E A M ) ) ) \r \r ( C L
0012340 : D E F U N 006 002 % % P R O C E
0012360 E D - C A S E - P R I N T E R 006
0012400 001 ( P C S T R E A M L E V
0012420 E L ) ( 006 002 D E C L A R E 006 001
0012440 ( I G N O R E L E V E L ) )
0012460 \r
0012500
*
0012540 ( C L : I F C L : * P R I N
0012560 T - E S C A P E * ( D E F A U
0012600 L T - S T R U C T U R E - P R I
0012620 N T E R \r
0012640
*
0012720 P
0012740 C S T R E A M L E V E L ) \r
0012760
*
0013040 ( C L : F U N C A
0013060 L L ( P R O C E E D - C A S E
0013100 - R E P O R T P C ) \r
0013120
*
0013200 P C S T R
0013220 E A M ) ) ) \r \r ( C L : D E F U
0013240 N 006 002 % % P R O C E E D - C A
0013260 S E - D E F A U L T - R E P O R
0013300 T E R 006 001 ( P C S T R E A M
0013320 ) ( C L : F U N C A L L ( D
0013340 E F A U L T - P R O C E E D - R
0013360 E P O R T ( \r
0013400
*
0013500 P R O C
0013520 E E D - C A S E - N A M E \r
0013540
*
0013660 P C ) ) \r
0013700
*
0013760 P C S T R E A M ) )
0014000 \r \r ( C L : D E F U N 006 002 R E
0014020 P O R T - C O N D I T I O N 006 001
0014040 ( C O N D I T I O N S T R E
0014060 A M ) ( C L : D O * ( ( T Y
0014100 P E ( C O N D I T I O N - T Y
0014120 P E - O F C O N D I T I O N )
0014140 \r
0014160
*
0014220 ( C O N D
0014240 I T I O N - P A R E N T T Y P
0014260 E ) ) \r
0014300
*
0014340 ( R E P O R T E
0014360 R ( C O N D I T I O N - R E P
0014400 O R T E R T Y P E ) \r
0014420
*
0014500 ( C O N D I T I O
0014520 N - R E P O R T E R T Y P E )
0014540 ) ) \r
0014560
*
0014620 ( ( N U L L T Y P E
0014640 ) \r
0014660
*
0014720 ( C L : B R E A K "
0014740 N o r e p o r t f u n c t i
0014760 o n f o u n d f o r ~ S .
0015000 " \r
0015020
*
0015060 C O N
0015100 D I T I O N ) ) \r
0015120
*
0015160 ( C L : W
0015200 H E N R E P O R T E R \r
0015220
*
0015300 ( R E T U R N ( C
0015320 L : I F S T R E A M ( C L :
0015340 F U N C A L L R E P O R T E R
0015360 \r
0015400
*
0015500 C O N D I T I O
0015520 N \r
0015540
*
0015640 S T R E A M )
0015660 \r
0015700
*
0015760 ( C L : W I T
0016000 H - O U T P U T - T O - S T R I
0016020 N G \r
0016040
*
0016120 ( S T R
0016140 E A M ) \r
0016160
*
0016240 ( C
0016260 L : F U N C A L L R E P O R T
0016300 E R \r
0016320
*
0016420 C O N D I T I O N S T
0016440 R E A M ) ) ) ) ) \r
0016460
*
0016520 ) ) \r \r
0016540 ( D E F M A C R O 006 002 C O N D
0016560 I T I O N - P A R E N T 006 001 (
0016600 T Y P E ) ` ( G E T P R O P
0016620 , T Y P E ' % % C O N D I T I
0016640 O N - P A R E N T ) ) \r \r ( D E
0016660 F V A R 006 002 * C O N D I T I O
0016700 N - H A N D L E R - B I N D I N
0016720 G S * 006 001 N I L " C o n d i
0016740 t i o n h a n d l e r b i n
0016760 d i n g s t a c k " ) \r \r ( D
0017000 E F V A R 006 002 * P R O C E E D
0017020 - C A S E S * 006 001 N I L " A
0017040 c t i v e p r o c e e d c a
0017060 s e s t a c k " ) \r \r ( C L :
0017100 D E F U N 006 002 C H E C K - T Y
0017120 P E - F A I L 006 001 ( P R O C E
0017140 E D A B L E P L A C E V A L
0017160 U E D E S I R E D - T Y P E
0017200 M E S S A G E ) \r ( P R O
0017220 C E E D - C A S E ( C L : E R
0017240 R O R ' T Y P E - M I S M A T
0017260 C H : N A M E P L A C E :
0017300 V A L U E V A L U E : D E S
0017320 I R E D - T Y P E D E S I R E
0017340 D - T Y P E \r
0017360
0017400 : M E S S A G E M E S S A G E
0017420 ) \r ( S T O
0017440 R E - V A L U E ( I G N O R E
0017460 N E W ) \r
0017500 : R E P O R T \r
0017520
0017540 ( C L : F O R M A T T " C h
0017560 a n g e t h e v a l u e o
0017600 f ~ A " P L A C E ) \r
0017620 : T
0017640 E S T \r
0017660 ( C L : L A M B D A
0017700 ( C O N D I T I O N ) \r
0017720
0017740 ( A N D P R O C E E D
0017760 A B L E ( C O N D I T I O N -
0020000 T Y P E P C O N D I T I O N
0020020 ' T Y P E - M I S M A T C H ) )
0020040 ) \r
0020060 N E W ) ) ) \r \r ( C L : D
0020100 E F U N 006 002 E C A S E - F A I
0020120 L 006 001 ( P R O C E E D A B L E
0020140 P L A C E V A L U E S E L
0020160 E C T O R S ) ( P R O C E E D
0020200 - C A S E \r
0020220
*
0020260 ( C L
0020300 : E R R O R " T h e v a l u
0020320 e o f ~ S , ~ S , ~ & i s
0020340 ~ ? . " P L A C E \r
0020360
*
0020440 V A L U E
0020460 \r
0020500
0020520 " ~ # [ w r o n g ~ ;
0020540 n o t ~ S ~ ; n e i t h e r
0020560 ~ S n o r ~ S ~ : ; n o t ~
0020600 @ { ~ # [ ~ ; o r ~ ] ~ S ~
0020620 ^ , ~ } ~ ] " \r
0020640
*
0020720 S E L E C T O R S
0020740 ) \r
0020760
*
0021020 ( S T O R E -
0021040 V A L U E ( I G N O R E V )
0021060 \r
0021100
*
0021140 :
0021160 T E S T \r
0021200
*
0021260 ( C L : L A M B D A ( C
0021300 O N D I T I O N ) \r
0021320
*
0021400 (
0021420 006 002 D E C L A R E 006 001 ( I G N
0021440 O R E C O N D I T I O N ) ) \r
0021460
*
0021560 P R O C E E D A B L E
0021600 ) \r
0021620
*
0021700 : R E P O R T \r
0021720
*
0022000 ( C L : F O R M A T
0022020 T " C h a n g e t h e v
0022040 a l u e o f ~ A " \r
0022060
*
0022160 P L A C E ) \r
0022200
*
0022260 V ) ) ) \r \r ( C L
0022300 : D E F U N 006 002 A S S E R T -
0022320 F A I L 006 001 ( C L : S T R I N
0022340 G & R E S T A R G S ) ( P
0022360 R O C E E D - C A S E ( C L :
0022400 E R R O R ' A S S E R T I O N
0022420 - F A I L E D : F O R M A T -
0022440 S T R I N G \r
0022460
*
0022540 C L : S T R I N G
0022560 : F O R M A T - A R G U M E N
0022600 T S A R G S ) \r
0022620
*
0022660 ( P R O C E
0022700 E D N I L : R E P O R T "
0022720 R e - t e s t a s s e r t i o
0022740 n " ) ) ) \r \r ( C L : D E F U N
0022760 006 002 M A K E - I N T O - C O N
0023000 D I T I O N 006 001 ( D A T U M
0023020 D E S I R E D - T Y P E A R G
0023040 S ) 006 003 006 001 006 003 ( * ; ; "
0023060 T h e e n t i r e t h i n g
0023100 s h o u l d b e a t y p
0023120 e c a s e . " ) 006 001 \r ( C
0023140 L : I F ( C O N D I T I O N -
0023160 T Y P E P D A T U M ' C O N
0023200 D I T I O N ) \r
0023220 D A T U M \r
0023240 ( C L : E T Y P E C A S E
0023260 D A T U M ( C L : S Y M B O L
0023300 ( C L : I F ( C O N D I T I
0023320 O N - S U B T Y P E P D A T U
0023340 M ' C O N D I T I O N ) \r
0023360
*
0023420 ( C
0023440 L : A P P L Y ( F U N C T I O
0023460 N M A K E - C O N D I T I O N
0023500 ) \r
0023520
*
0023560 D A T U M A
0023600 R G S ) \r
0023620
*
0023660 ( C L : E R R O R "
0023700 ~ S i s n o t a c o n d
0023720 i t i o n t y p e . " D A T
0023740 U M ) ) ) \r
0023760 ( C L : S T R I N
0024000 G ( M A K E - C O N D I T I O
0024020 N D E S I R E D - T Y P E :
0024040 F O R M A T - S T R I N G D A
0024060 T U M : F O R M A T - A R G U
0024100 M E N T S A R G S ) \r
0024120
0024140 ) ) ) ) \r \r ( C L : D E
0024160 F U N 006 002 R A I S E - S I G N
0024200 A L 006 001 ( C ) ( C L : D O *
0024220 ( ( * C O N D I T I O N - H A
0024240 N D L E R - B I N D I N G S *
0024260 * C O N D I T I O N - H A N D L
0024300 E R - B I N D I N G S * \r
0024320
*
0024360 ( C D R * C O N D I
0024400 T I O N - H A N D L E R - B I N
0024420 D I N G S * ) ) ) \r
0024440
0024460 ( ( N U L L
0024500 * C O N D I T I O N - H A N D L
0024520 E R - B I N D I N G S * ) \r
0024540
0024560 ( D
0024600 E F A U L T - H A N D L E - C O
0024620 N D I T I O N C ) \r
0024640
0024660 C ) \r
0024700
0024720 ( D E
0024740 S T R U C T U R I N G - B I N D
0024760 ( T Y P E . H A N D L E R
0025000 ) \r
0025020
0025040 ( C A R * C O
0025060 N D I T I O N - H A N D L E R -
0025100 B I N D I N G S * ) \r
0025120
*
0025160 ( C L : W H E N ( C O N D I
0025200 T I O N - T Y P E P C T Y P
0025220 E ) \r
0025240
*
0025300 ( L E T ( ( * C O N D I T I O
0025320 N - H A N D L E R - B I N D I N
0025340 G S * ( C D R \r
0025360
*
0025460 * C O N D I T I O N - H A
0025500 N D L E R - B I N D I N G S * \r
0025520
*
0025640 ) ) ) \r
0025660
*
0025720 ( C L :
0025740 F U N C A L L H A N D L E R
0025760 C ) ) ) ) ) ) \r \r ( C L : D E F
0026000 U N 006 002 D E F A U L T - H A N
0026020 D L E - C O N D I T I O N 006 001
0026040 ( C O N D I T I O N ) ( C L :
0026060 D O ( ( T Y P E ( C O N D I
0026100 T I O N - T Y P E - O F C O N
0026120 D I T I O N ) \r
0026140
*
0026220 ( C O N D I T I O N - P A R
0026240 E N T T Y P E ) ) ) \r
0026260
*
0026320 (
0026340 ( N U L L T Y P E ) ) \r
0026360
*
0026440 ( L E T ( ( H A N D L E R (
0026460 C O N D I T I O N - H A N D L E
0026500 R T Y P E ) ) ) \r
0026520
*
0026600 ( C L : W H E N H A N D L
0026620 E R ( C L : F U N C A L L H
0026640 A N D L E R \r
0026660
*
0026760 C O N D I T I O
0027000 N ) ) ) ) ) \r \r ( C L : D E F U
0027020 N 006 002 D E F A U L T - P R O C
0027040 E E D - R E P O R T E R 006 001 (
0027060 P C S T R E A M ) ( C L : F
0027100 O R M A T S T R E A M " P r
0027120 o c e e d - t y p e : ~ A "
0027140 ( P R O C E E D - C A S E - N A
0027160 M E \r
0027200
*
0027300 P C ) ) ) \r \r ( C L :
0027320 D E F U N 006 002 F I X - I N H E
0027340 R I T A N C E - L I N K S 006 001
0027360 ( N A M E N E W - P A R E N T
0027400 ) ( L E T ( ( O L D - P A R
0027420 E N T ( C O N D I T I O N - P
0027440 A R E N T N A M E ) ) ) \r
0027460
*
0027540 ( C L : U N L E S S ( O R
0027560 ( E Q N E W - P A R E N T
0027600 O L D - P A R E N T ) \r
0027620
*
0027700 (
0027720 N U L L O L D - P A R E N T )
0027740 ) \r
0027760
*
0030020 ( L E
0030040 T ( ( C H I L D R E N ( C L
0030060 : G E T O L D - P A R E N T \r
0030100
*
0030220 ' \r
0030240
*
0030340 % % C O N D I T I O N
0030360 - C H I L D R E N \r
0030400
*
0030500 ) ) ) \r
0030520
*
0030620 ( C L : S E T F ( C L : G E T
0030640 O L D - P A R E N T \r
0030660
*
0030760 ' % % C
0031000 O N D I T I O N - C H I L D R E
0031020 N \r
0031040
*
0031140 ) \r
0031160
*
0031240 ( D R E M
0031260 O V E N A M E C H I L D R E
0031300 N ) ) ) ) \r
0031320
*
0031360 ( C L : P U
0031400 S H N E W N A M E ( G E T P
0031420 R O P N E W - P A R E N T '
0031440 \r
0031460
*
0031540 % % C
0031560 O N D I T I O N - C H I L D R E
0031600 N ) ) \r
0031620
*
0031660 ( C L : S E T F
0031700 ( C O N D I T I O N - P A R E
0031720 N T N A M E ) \r
0031740
*
0032020 N E W - P A R E N T ) )
0032040 ) \r \r ( D E F M A C R O 006 002 D
0032060 E F A U L T - P R O C E E D - T
0032100 E S T 006 001 ( P R O C E E D - T
0032120 Y P E ) ` ( G E T P R O P ,
0032140 P R O C E E D - T Y P E ' % %
0032160 D E F A U L T - P R O C E E D -
0032200 T E S T ) ) \r \r ( C L : D E F U
0032220 N 006 002 T E S T - P R O C E E D
0032240 - C A S E 006 001 ( P C C O N D
0032260 I T I O N & A U X T E S T )
0032300 ( C O N D \r
0032320
*
0032360 ( ( C L
0032400 : S E T F T E S T ( P R O C
0032420 E E D - C A S E - T E S T P C
0032440 ) ) \r
0032460
*
0032520 ( C L : F U N
0032540 C A L L T E S T C O N D I T
0032560 I O N ) ) \r
0032600
*
0032640 ( ( A N D
0032660 ( P R O C E E D - C A S E - N
0032700 A M E P C ) \r
0032720
*
0033000 ( C L : S E T F T E S T
0033020 ( O R ( D E F A U L T - P R
0033040 O C E E D - T E S T \r
0033060
*
0033160 ( P R O C E E
0033200 D - C A S E - N A M E \r
0033220
*
0033320 P C ) ) \r
0033340
*
0033440 ( N O
0033460 - P R O C E E D - T E S T \r
0033500
*
0033600 ( P R O
0033620 C E E D - C A S E - N A M E \r
0033640
*
0033740 P C
0033760 ) ) ) ) ) \r
0034000
*
0034040 ( C L :
0034060 F U N C A L L T E S T C O N
0034100 D I T I O N ) ) \r
0034120
*
0034160 ( T
0034200 006 003 006 001 006 003 ( * ;
0034220 " T h i s c a s e s h o u
0034240 l d n ' t h a p p e n " ) 006 001
0034260 \r
0034300
*
0034340 ( P R O C E E
0034360 D - C A S E ( C L : E R R O R
0034400 \r
0034420
*
0034500 " C o u l d n ' t f i n d
0034520 t e s t f u n c t i o n f
0034540 o r ~ S . " \r
0034560
*
0034660 P C ) \r
0034700
*
0034760 ( P R O C E E
0035000 D N I L : T E S T T R U E
0035020 : R E P O R T \r
0035040
*
0035120 "
0035140 A s s u m e p r o c e e d c
0035160 a s e i s e n a b l e d "
0035200 \r
0035220
*
0035300 T ) ) ) ) ) \r \r \r
0035320 \r \r 006 004 ( * ; ; ; " P r e -
0035340 d e f i n e d c o n d i t i o
0035360 n t y p e s . " ) 006 001 \r \r ( D
0035400 E F I N E - C O N D I T I O N
0035420 006 002 C O N D I T I O N 006 001 C O
0035440 N D I T I O N : R E P O R T
0035460 " C o n d i t i o n ~ S o c
0035500 c u r r e d . " - - D U M M Y
0035520 - S L O T - - ) \r \r ( D E F I N
0035540 E - C O N D I T I O N 006 002 S I
0035560 M P L E - C O N D I T I O N 006 001
0035600 C O N D I T I O N : R E P O
0035620 R T ( C L : A P P L Y ( F U
0035640 N C T I O N C L : F O R M A T
0035660 ) \r
0035700
*
0035740 T
0035760 F O R M A T - S T R I N G F O
0036000 R M A T - A R G U M E N T S ) \r
0036020
*
0036060 F O R M A T -
0036100 S T R I N G F O R M A T - A R
0036120 G U M E N T S ) \r \r ( D E F I N
0036140 E - C O N D I T I O N 006 002 W A
0036160 R N I N G 006 001 C O N D I T I O
0036200 N ) \r \r ( D E F I N E - C O N D
0036220 I T I O N 006 002 S I M P L E - W
0036240 A R N I N G 006 001 W A R N I N G
0036260 : R E P O R T ( C L : A P P
0036300 L Y ( F U N C T I O N C L :
0036320 F O R M A T ) \r
0036340
*
0036420 T F O R M A T - S T R I N G
0036440 F O R M A T - A R G U M E N T S
0036460 ) \r
0036500
0036520 F O R M A T -
0036540 S T R I N G F O R M A T - A R
0036560 G U M E N T S ) \r \r ( D E F I N
0036600 E - C O N D I T I O N 006 002 O L
0036620 D - B R E A K 1 006 001 C O N D I
0036640 T I O N : R E P O R T ( D E
0036660 S T R U C T U R I N G - B I N D
0036700 ( M E S S 1 M E S S 2 M E
0036720 S S 3 ) \r
0036740
*
0037000 L I S T \r
0037020
*
0037100 ( E R R O R M E S S
0037120 1 M E S S 1 M E S S 2 M E
0037140 S S 3 ) ) \r
0037160
0037200 L I S T ) \r \r
0037220 ( D E F I N E - C O N D I T I O
0037240 N 006 002 S E R I O U S - C O N D
0037260 I T I O N 006 001 C O N D I T I O
0037300 N : R E P O R T ( C L : F O
0037320 R M A T T " S e r i o u s
0037340 c o n d i t i o n ~ S o c c
0037360 u r r e d . " \r
0037400
*
0037460 ( C O N D I T I O N -
0037500 T Y P E - O F C O N D I T I O
0037520 N ) ) ) \r \r ( D E F I N E - C O
0037540 N D I T I O N 006 002 E R R O R 006
0037560 001 S E R I O U S - C O N D I T
0037600 I O N ) \r \r ( D E F I N E - C O
0037620 N D I T I O N 006 002 S I M P L E
0037640 - E R R O R 006 001 E R R O R :
0037660 R E P O R T ( C L : A P P L Y
0037700 ( F U N C T I O N C L : F O
0037720 R M A T ) \r
0037740
*
0040000 T F O R M
0040020 A T - S T R I N G F O R M A T
0040040 - A R G U M E N T S ) \r
0040060
*
0040120 F O R M A T - S T R I N G F
0040140 O R M A T - A R G U M E N T S )
0040160 \r \r ( D E F I N E - C O N D I T
0040200 I O N 006 002 O L D - I N T E R L
0040220 I S P - E R R O R 006 001 E R R O
0040240 R : R E P O R T ( C L : I F
0040260 ( E Q N U M B E R 1 7 ) \r
0040300
*
0040360 ( D E S T
0040400 R U C T U R I N G - B I N D (
0040420 M E S S 1 . M E S S 2 ) \r
0040440
*
0040540 M E S S A G E \r
0040560
*
0040640 ( E R R O
0040660 R M E S S 1 M E S S 1 M E S
0040700 S 2 \r
0040720
*
0041000 ' E R R
0041020 O R ) ) \r
0041040
*
0041120 ( E R R O R M ( L I S T N U
0041140 M B E R M E S S A G E ) ) ) \r
0041160
*
0041220 N U M B
0041240 E R M E S S A G E ) \r \r ( D E
0041260 F I N E - C O N D I T I O N 006
0041300 002 A S S E R T I O N - F A I L E
0041320 D 006 001 S I M P L E - E R R O R
0041340 : R E P O R T ( C L : A P P
0041360 L Y ( F U N C T I O N C L :
0041400 F O R M A T ) \r
0041420
*
0041500 T \r
0041520
*
0041600 ( O R F O R M
0041620 A T - S T R I N G " A s s e r
0041640 t i o n f a i l e d . " ) \r
0041660
*
0041740 F O
0041760 R M A T - A R G U M E N T S ) )
0042000 \r \r ( D E F I N E - C O N D I T
0042020 I O N 006 002 C E L L - E R R O R
0042040 006 001 E R R O R N A M E ) \r \r
0042060 ( D E F I N E - C O N D I T I O
0042100 N 006 002 U N B O U N D - V A R I
0042120 A B L E 006 001 C E L L - E R R O
0042140 R : R E P O R T ( C L : F O
0042160 R M A T T " U n b o u n d
0042200 v a r i a b l e : ~ S . " N
0042220 A M E ) ) \r \r ( D E F I N E - C
0042240 O N D I T I O N 006 002 U N D E F
0042260 I N E D - F U N C T I O N 006 001
0042300 C E L L - E R R O R : R E P O
0042320 R T ( C L : F O R M A T T
0042340 " U n d e f i n e d f u n c t
0042360 i o n : ~ S . " N A M E ) )
0042400 \r \r ( D E F I N E - C O N D I T
0042420 I O N 006 002 N O - P R O C E E D
0042440 - T E S T 006 001 U N D E F I N E
0042460 D - F U N C T I O N : R E P O
0042500 R T ( C L : F O R M A T T
0042520 \r
0042540
*
0042600 " N o
0042620 t e s t s p e c i f i e d
0042640 f o r p r o c e e d c a s e
0042660 : ~ S . " \r
0042700
*
0042760 N A M E
0043000 ) ) \r \r ( D E F I N E - C O N D
0043020 I T I O N 006 002 I N D E X - B O
0043040 U N D S - E R R O R 006 001 C E L
0043060 L - E R R O R : R E P O R T
0043100 ( C L : F O R M A T T " I n
0043120 d e x o u t o f b o u n d
0043140 s : ~ D . " I N D E X \r
0043160
*
0043240 ) \r
0043260
*
0043320 I N D E X )
0043340 \r \r ( C L : D E F U N 006 002 P R
0043360 E T T Y - T Y P E - N A M E 006 001
0043400 ( T Y P E S P E C ) ( C O N
0043420 C A T " a " T Y P E S P E
0043440 C ) ) \r \r ( D E F I N E - C O N
0043460 D I T I O N 006 002 T Y P E - M I
0043500 S M A T C H 006 001 C E L L - E R
0043520 R O R : R E P O R T ( C L :
0043540 F O R M A T T " T h e v a
0043560 l u e o f ~ A , ~ A , i
0043600 s n o t ~ A . " \r
0043620
*
0043700 N A M E V A L U E
0043720 ( O R M E S S A G E ( P R
0043740 E T T Y - T Y P E - N A M E \r
0043760
*
0044100 D E S I R E D - T Y P E ) ) )
0044120 \r
0044140
0044160 V A L U E D E S
0044200 I R E D - T Y P E M E S S A G
0044220 E ) \r \r ( D E F I N E - C O N D
0044240 I T I O N 006 002 C O N T R O L -
0044260 E R R O R 006 001 E R R O R ) \r \r
0044300 ( D E F I N E - C O N D I T I O
0044320 N 006 002 I L L E G A L - G O 006 001
0044340 C O N T R O L - E R R O R :
0044360 R E P O R T ( C L : F O R M A
0044400 T T " G O t o a n o n
0044420 - e x i s t a n t t a g : ~
0044440 S . " T A G ) \r
0044460
0044500 T A G )
0044520 \r \r ( D E F I N E - C O N D I T
0044540 I O N 006 002 I L L E G A L - R E
0044560 T U R N 006 001 C O N T R O L - E
0044600 R R O R : R E P O R T ( C L
0044620 : F O R M A T T \r
0044640
*
0044720 " R E T U R N
0044740 t o n o n - e x i s t a n t
0044760 b l o c k : ~ S . " T A G
0045000 \r
0045020
*
0045060 )
0045100 \r
0045120
0045140 T A G ) \r \r ( D
0045160 E F I N E - C O N D I T I O N
0045200 006 002 I L L E G A L - T H R O W 006
0045220 001 C O N T R O L - E R R O R
0045240 : R E P O R T ( C L : F O R M
0045260 A T T " T a g f o r T H
0045300 R O W n o t f o u n d : ~
0045320 S . " T A G \r
0045340
*
0045420 ) \r
0045440
0045460 T A G
0045500 ) \r \r ( D E F I N E - C O N D I
0045520 T I O N 006 002 B A D - P R O C E
0045540 E D - C A S E 006 001 C O N T R O
0045560 L - E R R O R : R E P O R T
0045600 ( C L : F O R M A T T \r
0045620
*
0045700 " P r o c e e
0045720 d c a s e ~ S i s n o t
0045740 c u r r e n t l y a c t i v
0045760 e . " \r
0046000
*
0046060 N A M E ) \r
0046100
*
0046140 N A M E ) \r \r ( D E F I
0046160 N E - C O N D I T I O N 006 002 C
0046200 A L L - E R R O R 006 001 C O N T
0046220 R O L - E R R O R C A L L E E
0046240 ) \r \r ( D E F I N E - C O N D I
0046260 T I O N 006 002 T O O - M A N Y -
0046300 A R G U M E N T S 006 001 C A L L
0046320 - E R R O R : R E P O R T (
0046340 C L : I F ( A N D M A X I M
0046360 U M A C T U A L ) \r
0046400
*
0046460 ( C L : F O
0046500 R M A T T " T o o m a n y
0046520 a r g u m e n t s t o ~ A
0046540 : ~ % % ~ D ~ : * ~ [ w
0046560 e r e ~ ; w a s ~ : ; w e r e ~
0046600 ] g i v e n b u t a t m
0046620 o s t ~ D ~ : * ~ [ a r e ~
0046640 ; i s ~ : ; a r e ~ ] a c c e
0046660 p t e d " \r
0046700
*
0046760 C A L
0047000 L E E A C T U A L M A X I M
0047020 U M ) \r
0047040
*
0047120 ( C L : F O R M A T T
0047140 \r
0047160
*
0047240 " T o o m a n y
0047260 a r g u m e n t s t o ~ A
0047300 " \r
0047320
*
0047400 C A L L E E )
0047420 ) \r
0047440
0047460 M A X
0047500 I M U M A C T U A L ) \r \r ( D
0047520 E F I N E - C O N D I T I O N
0047540 006 002 T O O - F E W - A R G U M E
0047560 N T S 006 001 C A L L - E R R O R
0047600 : R E P O R T ( C L : I F
0047620 ( A N D M I N I M U M A C T
0047640 U A L ) \r
0047660
*
0047740 ( C L : F O R M A T T
0047760 " T o o f e w a r g u m e n
0050000 t s t o ~ A : ~ % % ~
0050020 D ~ : * ~ [ w e r e ~ ; w a s
0050040 ~ : ; w e r e ~ ] g i v e n
0050060 b u t a t l e a s t ~ D
0050100 ~ : * ~ [ a r e ~ ; i s ~ : ; a
0050120 r e ~ ] n e c e s s a r y "
0050140 \r
0050160
*
0050240 C A L L E E A C T
0050260 U A L M I N I M U M ) \r
0050300
*
0050360 ( C L : F
0050400 O R M A T T " T o o f e w
0050420 a r g u m e n t s t o ~ A
0050440 " \r
0050460
*
0050540 C A L L E E ) )
0050560 \r
0050600
0050620 M I N I M
0050640 U M A C T U A L ) \r \r ( D E F
0050660 I N E - C O N D I T I O N 006 002
0050700 I N V A L I D - A R G U M E N T
0050720 - L I S T 006 001 C A L L - E R R
0050740 O R : R E P O R T ( C L : F
0050760 O R M A T T \r
0051000
*
0051060 " ~ S h
0051100 a s a n i n v a l i d a r
0051120 g u m e n t l i s t " \r
0051140
*
0051240 C A L L E E ) ) \r \r ( D E F I N
0051260 E - C O N D I T I O N 006 002 S T
0051300 R E A M - E R R O R 006 001 E R R
0051320 O R : R E P O R T ( C L : F
0051340 O R M A T T " S t r e a m
0051360 e r r o r o n ~ S . " S T
0051400 R E A M ) \r
0051420
0051440 S T R E A
0051460 M ) \r \r ( D E F I N E - C O N D
0051500 I T I O N 006 002 R E A D - E R R
0051520 O R 006 001 S T R E A M - E R R O
0051540 R ) \r \r ( D E F I N E - C O N D
0051560 I T I O N 006 002 E N D - O F - F
0051600 I L E 006 001 R E A D - E R R O R
0051620 : R E P O R T " E n d o f
0051640 f i l e : ~ % % ~ S "
0051660 S T R E A M ) \r \r ( D E F I N
0051700 E - C O N D I T I O N 006 002 S T
0051720 O R A G E - C O N D I T I O N 006
0051740 001 S E R I O U S - C O N D I T
0051760 I O N ) \r \r ( D E F I N E - C O
0052000 N D I T I O N 006 002 S T A C K -
0052020 O V E R F L O W 006 001 S T O R A
0052040 G E - C O N D I T I O N : R E
0052060 P O R T " S t a c k o v e r
0052100 f l o w " ) \r \r ( D E F I N E -
0052120 C O N D I T I O N 006 002 S T O R
0052140 A G E - E X H A U S T E D 006 001
0052160 S T O R A G E - C O N D I T I O
0052200 N ) \r \r \r \r \r 006 004 ( * ; ; ;
0052220 " E x p o r t e d s y m b o l
0052240 s . A n y t h i n g h e r e
0052260 t h a t ' s n o t i n C
0052300 L s h o u l d b e i n X
0052320 C L . " ) 006 001 \r \r ( D E F V A R
0052340 006 002 * B R E A K - O N - W A R
0052360 N I N G S * 006 001 N I L \r
0052400
0052420 " I f t r u e
0052440 , c a l l s t o W A R N
0052460 w i l l c a u s e a b r e
0052500 a k a s w e l l a s l o
0052520 g g i n g t h e w a r n i n
0052540 g . " ) \r \r ( C L : D E F U N
0052560 006 002 M A K E - C O N D I T I O N
0052600 006 001 ( T Y P E & R E S T S
0052620 L O T - I N I T I A L I Z A T I
0052640 O N S ) \r
0052660
*
0052720 " C r e a t e
0052740 a c o n d i t i o n o b j
0052760 e c t o f t h e s p e c i
0053000 f i e d t y p e . " \r (
0053020 C L : A P P L Y ( S T R U C T
0053040 U R E - C O N S T R U C T O R
0053060 T Y P E ) \r
0053100 S L O T - I N I T I A L I Z A T
0053120 I O N S ) ) \r \r ( C L : D E F U
0053140 N 006 002 S I G N A L 006 001 ( D A
0053160 T U M & R E S T A R G S )
0053200 ( L E T ( ( C O N D I T I O N
0053220 ( M A K E - I N T O - C O N D
0053240 I T I O N D A T U M ' S I M
0053260 P L E - C O N D I T I O N A R
0053300 G S ) ) \r
0053320
0053340 ) \r
0053360
*
0053420 ( R A I S E - S I G N A
0053440 L C O N D I T I O N ) \r
0053460
*
0053520 ( C L : I F ( C O N D I
0053540 T I O N - T Y P E P C O N D I
0053560 T I O N ' S E R I O U S - C O
0053600 N D I T I O N ) \r
0053620
*
0053660 ( D E B U G C O N
0053700 D I T I O N ) \r
0053720
*
0053760 ( C L : R E T U R N -
0054000 F R O M S I G N A L C O N D
0054020 I T I O N ) ) ) ) \r \r ( C L : D
0054040 E F U N 006 002 C L : E R R O R 006
0054060 001 ( D A T U M & R E S T A
0054100 R G S ) ( D E B U G ( R A I
0054120 S E - S I G N A L ( M A K E -
0054140 I N T O - C O N D I T I O N D
0054160 A T U M ' S I M P L E - E R R
0054200 O R A R G S \r
0054220
*
0054300 ) ) ) ) \r \r ( C L
0054320 : D E F U N 006 002 C L : C E R R
0054340 O R 006 001 ( P R O C E E D - F O
0054360 R M A T - S T R I N G D A T U
0054400 M & R E S T A R G U M E N T
0054420 S & A U X C O N D I T I O N
0054440 ) \r ( P R O C E E D - C A
0054460 S E ( D E B U G ( R A I S E
0054500 - S I G N A L ( C L : S E T F
0054520 C O N D I T I O N ( M A K E
0054540 - I N T O - C O N D I T I O N
0054560 D A T U M ' S I M P L E - E R
0054600 R O R \r
0054620
*
0054700 A R G U M E N T S ) )
0054720 ) ) \r ( P R
0054740 O C E E D N I L : R E P O R
0054760 T ( C L : A P P L Y ( F U N
0055000 C T I O N C L : F O R M A T )
0055020 \r
0055040
0055060 T P R O C E E D
0055100 - F O R M A T - S T R I N G A
0055120 R G U M E N T S ) \r
0055140 C O N D I
0055160 T I O N ) ) ) \r \r ( C L : D E F
0055200 U N 006 002 C L : W A R N 006 001 (
0055220 D A T U M & R E S T A R G U
0055240 M E N T S ) ( L E T ( ( C O
0055260 N D I T I O N ( M A K E - I N
0055300 T O - C O N D I T I O N D A T
0055320 U M ' S I M P L E - W A R N I
0055340 N G \r
0055360
*
0055440 A R G U M E N T S ) ) ) \r
0055460
*
0055520 ( C L :
0055540 U N L E S S ( C O N D I T I O
0055560 N - T Y P E P C O N D I T I O
0055600 N ' W A R N I N G ) \r
0055620
*
0055660 (
0055700 C L : C E R R O R \r
0055720
*
0056000 " S i g n a l a n d
0056020 r e p o r t t h e c o n d
0056040 i t i o n a n y w a y " \r
0056060
*
0056140 ' T Y P E - M I
0056160 S M A T C H : N A M E ' C O
0056200 N D I T I O N : V A L U E \r
0056220
*
0056300 C O N D I T
0056320 I O N : D E S I R E D - T Y P
0056340 E ' W A R N I N G ) ) \r
0056360
*
0056420 ( R A I S E -
0056440 S I G N A L C O N D I T I O N
0056460 ) \r
0056500
0056520 ( C
0056540 L : I F % % C O N D I T I O N
0056560 - T Y P E S - R E A L ( C L :
0056600 F O R M A T * E R R O R - O U
0056620 T P U T * \r
0056640
*
0056740 " ~ & W a r n i
0056760 n g : ~ A ~ % % " \r
0057000
*
0057100 C O N
0057120 D I T I O N ) \r
0057140
*
0057200 ( C L : F
0057220 O R M A T * E R R O R - O U T
0057240 P U T * " ~ & W a r n i n g :
0057260 ~ A ~ % % " \r
0057300
*
0057360 ( R E P O R T - C O N D I T
0057400 I O N C O N D I T I O N N I
0057420 L ) ) ) \r
0057440
*
0057500 ( C L : W H E N * B R E A K
0057520 - O N - W A R N I N G S * ( C
0057540 L : B R E A K C O N D I T I O
0057560 N ) ) \r
0057600
*
0057640 C O N D I T I O N ) ) \r \r ( C L
0057660 : D E F U N 006 002 C L : B R E A
0057700 K 006 001 ( & O P T I O N A L (
0057720 D A T U M " B r e a k " ) \r
0057740
0057760 & R E S T A R G U
0060000 M E N T S & A U X C O N D I
0060020 T I O N ) 006 003 006 001 \r
0060040
*
0060100 006 003 (
0060120 * ; ; \r 006 001
0060140
0060160 006 003 " W a n t t o t r y
0060200 a n d g e t s o m e i n
0060220 d i c a t i o n o f w h i c
0060240 h b r e a k y o u ' r e r
0060260 e t u r n i n g f r o m . " )
0060300 006 001 \r ( P R O C E E D - C
0060320 A S E ( D E B U G ( C L : S
0060340 E T F C O N D I T I O N ( M
0060360 A K E - I N T O - C O N D I T I
0060400 O N D A T U M ' S I M P L E
0060420 - C O N D I T I O N A R G U M
0060440 E N T S ) ) ) \r
0060460 ( P R O C E E D N I L :
0060500 R E P O R T " R e t u r n f
0060520 r o m B R E A K " C O N D I
0060540 T I O N ) ) ) \r \r ( C L : D E F
0060560 U N 006 002 D E B U G 006 001 ( & O
0060600 P T I O N A L ( D A T U M "
0060620 B r e a k " ) \r
0060640 & R E S
0060660 T A R G S ) ( C L : L O O P
0060700 ( E R R O R X ( M A K E - I
0060720 N T O - C O N D I T I O N D A
0060740 T U M ' S I M P L E - C O N D
0060760 I T I O N A R G S ) ) ) ) \r \r
0061000 ( D E F S T R U C T ( 006 002 P R
0061020 O C E E D - C A S E 006 001 ( : P
0061040 R I N T - F U N C T I O N % %
0061060 P R O C E E D - C A S E - P R I
0061100 N T E R ) ) N A M E T A G
0061120 S E L E C T O R T E S T \r
0061140
*
0061240 ( R E P O R T ' \r
0061260
*
0061360 % % P R O C E E D -
0061400 C A S E - D E F A U L T - R E P
0061420 O R T E R \r
0061440
*
0061540 ) ) \r \r ( D E F S T R
0061560 U C T ( 006 002 R E A L - P R O C
0061600 E E D - C A S E 006 001 ( : I N C
0061620 L U D E P R O C E E D - C A S
0061640 E ) \r
0061660
0061700 ( : P R I N T - F U N C T I O
0061720 N % % P R O C E E D - C A S E
0061740 - P R I N T E R ) ) C O N T I
0061760 N U A T I O N ) \r \r ( C L : D E
0062000 F U N 006 002 F I N D - P R O C E
0062020 E D - C A S E 006 001 ( D A T U M
0062040 C O N D I T I O N ) ( C L :
0062060 E T Y P E C A S E \r
0062100
*
0062140 D A T U M \r
0062160
*
0062220 ( N U L L ( C
0062240 L : E R R O R \r
0062260
*
0062320 " ~ S i s a n
0062340 i n v a l i d a r g u m e n
0062360 t t o ~ S ; ~ % % u
0062400 s e ~ S i n s t e a d " \r
0062420
*
0062500 N I L ' F I
0062520 N D - P R O C E E D - C A S E
0062540 ' \r
0062560
*
0062620 C O M P U
0062640 T E - P R O C E E D - C A S E S
0062660 ) ) \r
0062700
0062720 (
0062740 P R O C E E D - C A S E ( A N
0062760 D ( F M E M B D A T U M *
0063000 P R O C E E D - C A S E S * ) \r
0063020
*
0063100 (
0063120 T E S T - P R O C E E D - C A S
0063140 E D A T U M C O N D I T I O
0063160 N ) \r
0063200
*
0063260 D A T U M ) ) \r
0063300
*
0063340 ( C L : S Y M B O L
0063360 ( 006 002 f o r 006 001 P C 006 002 i
0063400 n 006 001 * P R O C E E D - C A S
0063420 E S * \r
0063440
*
0063500 006 002
0063520 t h e r e i s 006 001 ( A N D (
0063540 E Q ( P R O C E E D - C A S E
0063560 - N A M E P C ) \r
0063600
*
0063700 D A T U M ) \r
0063720
*
0064020 ( T E S T - P R O C E E D
0064040 - C A S E P C \r
0064060
*
0064160 C O N D I T I O
0064200 N ) \r
0064220
*
0064300 P C ) ) ) )
0064320 ) \r \r ( C L : D E F U N 006 002 C
0064340 O M P U T E - P R O C E E D - C
0064360 A S E S 006 001 ( C O N D I T I O
0064400 N ) ( 006 002 f o r 006 001 P C 006
0064420 002 i n 006 001 * P R O C E E D - C
0064440 A S E S * \r
0064460
*
0064520 006 002 w h e n 006 001 ( C L : C
0064540 A T C H ' S K I P - P R O C E
0064560 E D - C A S E ( T E S T - P R
0064600 O C E E D - C A S E \r
0064620
*
0064720 P C C O N
0064740 D I T I O N ) ) \r
0064760
*
0065020 006 002 c o l l e c t 006 001
0065040 P C ) ) \r \r ( C L : D E F U N
0065060 006 002 I N V O K E - P R O C E E
0065100 D - C A S E 006 001 ( P R O C E E
0065120 D - C A S E C O N D I T I O N
0065140 & R E S T C L : V A L U E S
0065160 ) \r ( L E T ( ( P C (
0065200 F I N D - P R O C E E D - C A S
0065220 E P R O C E E D - C A S E C
0065240 O N D I T I O N ) ) ) \r
0065260 ( 006 002 I F 006 001 P C \r
0065300 006 002 T H E
0065320 N 006 001 006 003 006 001
0065340
*
0065400 006 003 ( * ; ; " H a c k
0065420 u n t i l r e a l u n w i n
0065440 d e r i s i n . " ) 006 001 \r
0065460
0065500 ( A N D ( B O U N D P ' B
0065520 R E A K R E S E T V A L S ) \r
0065540
0065560 ( B O U N D P ' \ B
0065600 R E A K R E S E T E X P R ) \r
0065620
0065640 ( B R E A K R E S E T
0065660 F N ' L E A V I N G ) ) \r
0065700 (
0065720 C L : T Y P E C A S E P C (
0065740 R E A L - P R O C E E D - C A S
0065760 E \r
0066000
0066020 ( 006 002 w i t h 006 001 R E
0066040 A L - P R O C E E D - C A S E
0066060 P C \r
0066100
0066120 ( C L : T
0066140 H R O W T A G ( C L : V A L
0066160 U E S - L I S T ( L I S T *
0066200 C O N T I N U A T I O N C O N
0066220 D I T I O N \r
0066240
*
0066340 ( C O N D \r
0066360
*
0066460 ( ( C L : S
0066500 Y M B O L P \r
0066520
*
0066640 P R O C E E D - C A S E ) \r
0066660
*
0066760 C
0067000 L : V A L U E S ) \r
0067020
*
0067120 ( ( C L : F
0067140 B O U N D P N A M E ) \r
0067160
*
0067260 ( C
0067300 L : A P P L Y \r
0067320
*
0067420 ( \r
0067440
*
0067540 P R O C
0067560 E E D - A R G - C O L L E C T O
0067600 R \r
0067620
*
0067720 N A M E ) \r
0067740
*
0070040 C O N
0070060 D I T I O N C L : V A L U E S
0070100 \r
0070120
*
0070220 ) ) \r
0070240
*
0070340 ( T C L : V A L U
0070360 E S ) ) ) ) ) ) ) \r
0070400
0070420 ( P R O C E E D - C A S E
0070440 ( 006 002 w i t h 006 001 P R O C E E
0070460 D - C A S E P C ( C L : T H
0070500 R O W T A G \r
0070520
*
0070600 ( L I S T
0070620 * S E L E C T O R C O N D I
0070640 T I O N \r
0070660
*
0070740 (
0070760 C O N D \r
0071000
*
0071100 ( ( C L : S Y M B O L P \r
0071120
*
0071240 P R O C E E D - C A S
0071260 E ) \r
0071300
*
0071400 C L : V A L U E S ) \r
0071420
*
0071520 ( ( C L : F B
0071540 O U N D P N A M E ) \r
0071560
*
0071660 ( C L : A P
0071700 P L Y ( \r
0071720
*
0072020 P R O C E E D - A R
0072040 G - C O L L E C T O R \r
0072060
*
0072200 N A M E ) \r
0072220
*
0072340 C O N D I T I O N \r
0072360
*
0072500 C L : V A L U E S ) ) \r
0072520
*
0072620 ( T C L : V
0072640 A L U E S ) ) ) ) ) ) ) \r
0072660 006 002 E L S E 006 001
0072700 ( C L : E R R O R ' B A D - P
0072720 R O C E E D - C A S E : N A M
0072740 E P R O C E E D - C A S E ) )
0072760 ) ) \r \r ( D E F I N E - P R O C
0073000 E E D - F U N C T I O N 006 002 A
0073020 B O R T 006 001 : T E S T T R U
0073040 E : R E P O R T " A b o r t
0073060 " ) \r \r ( D E F I N E - P R O C
0073100 E E D - F U N C T I O N 006 002 P
0073120 R O C E E D 006 001 : R E P O R T
0073140 " P r o c e e d w i t h n
0073160 o s p e c i a l a c t i o n
0073200 " : T E S T T R U E ) \r \r (
0073220 D E F I N E - P R O C E E D - F
0073240 U N C T I O N 006 002 U S E - V A
0073260 L U E 006 001 : R E P O R T " U
0073300 s e a d i f f e r e n t v
0073320 a l u e " : T E S T T R U E
0073340 \r
0073360
0073400 ( V A L U E
0073420 ( P R O G N ( C L : F O R M
0073440 A T * Q U E R Y - I O * " E
0073460 n t e r a n e w v a l u e
0073500 : " ) \r
0073520
*
0073560 ( E V A
0073600 L ( C L : R E A D * Q U E R
0073620 Y - I O * ) ) ) ) ) \r \r ( D E F
0073640 I N E - P R O C E E D - F U N C
0073660 T I O N 006 002 S T O R E - V A L
0073700 U E 006 001 : R E P O R T " S t
0073720 o r e a n e w v a l u e
0073740 a n d u s e i t " : T E S
0073760 T T R U E \r
0074000
*
0074040 ( V A L U E ( P R O G N
0074060 ( C L : F O R M A T * Q U E R
0074100 Y - I O * \r
0074120
*
0074200 " E n t e r a
0074220 v a l u e t o s t o r e :
0074240 " ) \r
0074260
*
0074320 ( C L :
0074340 E V A L ( C L : R E A D * Q
0074360 U E R Y - I O * ) ) ) ) ) \r \r (
0074400 C L : D E F U N 006 002 S I M P L
0074420 E - F O R M A T 006 001 ( S T R E
0074440 A M & R E S T A R G S ) (
0074460 C L : W H E N ( E Q S T R E
0074500 A M T ) \r
0074520
*
0074560 ( C L : S E T F S
0074600 T R E A M * S T A N D A R D -
0074620 O U T P U T * ) ) \r
0074640
*
0074700 ( C L : D O L I S T ( X
0074720 A R G S ) \r
0074740
*
0075000 ( C L : P R I N T
0075020 X S T R E A M ) ) ) \r \r ( M
0075040 O V D ? ' S I M P L E - F O R
0075060 M A T ' C L : F O R M A T ) \r
0075100 ( D E C L A R E % : D O N T C
0075120 O P Y \r \r ( R P A Q Q 006 002 S
0075140 H O U L D - B E - I N - P A C K
0075160 A G E 006 001 \r ( (
0075200 " X C L " : E X T E R N A L
0075220 D E F I N E - C O N D I T I O N
0075240 H A N D L E R - B I N D C O
0075260 N D I T I O N - B I N D C O N
0075300 D I T I O N - C A S E I G N O
0075320 R E - E R R O R S \r
0075340 P R O C E E
0075360 D - C A S E D E F I N E - P R
0075400 O C E E D - F U N C T I O N C
0075420 A T C H - A B O R T C O N D I
0075440 T I O N S I M P L E - C O N D
0075460 I T I O N W A R N I N G \r
0075500 S I
0075520 M P L E - W A R N I N G S E R
0075540 I O U S - C O N D I T I O N E
0075560 R R O R S I M P L E - E R R O
0075600 R A S S E R T I O N - F A I L
0075620 E D C E L L - E R R O R \r
0075640 U N
0075660 B O U N D - V A R I A B L E U
0075700 N D E F I N E D - F U N C T I O
0075720 N I N D E X - B O U N D S - E
0075740 R R O R T Y P E - M I S M A T
0075760 C H C O N T R O L - E R R O R
0076000 \r
0076020 I L L E G A L - G O I L L E
0076040 G A L - R E T U R N I L L E G
0076060 A L - T H R O W C A L L - E R
0076100 R O R T O O - M A N Y - A R G
0076120 U M E N T S \r
0076140 T O O - F E W - A
0076160 R G U M E N T S I N V A L I D
0076200 - A R G U M E N T - L I S T S
0076220 T R E A M - E R R O R R E A D
0076240 - E R R O R E N D - O F - F I
0076260 L E \r
0076300 S T O R A G E - C O N D I
0076320 T I O N S T A C K - O V E R F
0076340 L O W S T O R A G E - E X H A
0076360 U S T E D M A K E - C O N D I
0076400 T I O N S I G N A L D E B U
0076420 G \r
0076440 F I N D - P R O C E E D - C
0076460 A S E C O M P U T E - P R O C
0076500 E E D - C A S E S I N V O K E
0076520 - P R O C E E D - C A S E A B
0076540 O R T P R O C E E D U S E -
0076560 V A L U E \r
0076600 S T O R E - V A L U
0076620 E ) \r ( " S I "
0076640 : I N T E R N A L * P R O C
0076660 E E D - C A S E S * * C O N D
0076700 I T I O N - H A N D L E R - B I
0076720 N D I N G S * ) ) ) \r ) \r \r ( P
0076740 U T P R O P S 006 002 E R R O R -
0076760 R U N T I M E F I L E T Y P E
0077000 006 001 C L : C O M P I L E - F I
0077020 L E ) \r ( P U T P R O P S E R
0077040 R O R - R U N T I M E C O P Y
0077060 R I G H T ( " X e r o x C o
0077100 r p o r a t i o n " 1 9 8 6 )
0077120 ) \r ( D E C L A R E % : D O N
0077140 T C O P Y \r ( F I L E M A P
0077160 ( N I L ) ) ) \r S T O P \r
0077176