$ 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