$ od -c -N 50000 [eris]<LispCore>SOURCES>ERROR-RUNTIME!13
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r 006 001 ( f i l e
0000100 c r e a t e d " 2 4 - O c t -
0000120 8 6 2 1 : 5 1 : 4 9 " 006 004 {
0000140 e r i s } < l i s p c o r e > s
0000160 o u r c e s > e r r o r - r u n
0000200 t i m e . \ ; 1 3 006 001 3 2 4 5
0000220 9 \r \r | c h a n
0000240 g e s | | t o : | ( s t r
0000260 u c t u r e s c o n d i t i o
0000300 n t o o - f e w - a r g u m e
0000320 n t s c l : e r r o r s i m
0000340 p l e - e r r o r \r
0000360
0000400 o l d - i n t
0000420 e r l i s p - e r r o r c e l
0000440 l - e r r o r c o n t r o l -
0000460 e r r o r s t r e a m - e r r
0000500 o r \r
0000520
0000540 r e a l - p r o c e e d - c
0000560 a s e ) \r
0000600 ( f u n
0000620 c t i o n s % p r o c e e d -
0000640 c a s e - p r i n t e r i n v
0000660 o k e - p r o c e e d - c a s e
0000700 ) \r
0000720 ( v a r s e
0000740 r r o r - r u n t i m e c o m s
0000760 s h o u l d - b e - i n - p a
0001000 c k a g e ) \r \r | p
0001020 r e v i o u s | | d a t e : |
0001040 " 2 1 - O c t - 8 6 0 4 : 0
0001060 2 : 5 9 " { e r i s } < l i s
0001100 p c o r e > s o u r c e s > e r
0001120 r o r - r u n t i m e . \ ; 1 0
0001140 ) \r \r \r ; C o p y r i g h t
0001160 ( c ) 1 9 8 6 b y X e r o
0001200 x C o r p o r a t i o n .
0001220 A l l r i g h t s r e s e r
0001240 v e d . \r \r ( p r e t t y c o m
0001260 p r i n t e r r o r - r u n t
0001300 i m e c o m s ) \r \r ( r p a q q
0001320 006 002 e r r o r - r u n t i m e
0001340 c o m s 006 001 \r (
0001360 ( c o m s ( * | ; ; ; | "
0001400 I n t e r n a l f u n c t i o
0001420 n s . " ) \r
0001440 ( f u n c t i o n s c
0001460 o n d i t i o n - t y p e p c
0001500 o n d i t i o n - s u b t y p e
0001520 p c o n d i t i o n - t y p e
0001540 - o f \r
0001560 f a k e - t
0001600 y p e p - f o r - c o n d i t i
0001620 o n s f a k e - s u b t y p e
0001640 p - f o r - c o n d i t i o n s
0001660 \r
0001700 f a k e - t y p e
0001720 - o f - f o r - c o n d i t i o
0001740 n s ) \r
0001760 ( f u n c t i o n s c o n
0002000 d i t i o n - h a n d l e r c
0002020 o n d i t i o n - r e p o r t e
0002040 r % p r i n t - c o n d i t i
0002060 o n % p r o c e e d - c a s e
0002100 - p r i n t e r \r
0002120 %
0002140 p r o c e e d - c a s e - d e f
0002160 a u l t - r e p o r t e r r e
0002200 p o r t - c o n d i t i o n c
0002220 o n d i t i o n - p a r e n t )
0002240 \r (
0002260 v a r i a b l e s * c o n d i
0002300 t i o n - h a n d l e r - b i n
0002320 d i n g s * * p r o c e e d -
0002340 c a s e s * ) \r
0002360 ( f u n c t i o n s
0002400 c h e c k - t y p e - f a i l
0002420 e c a s e - f a i l a s s e
0002440 r t - f a i l ) \r
0002460 ( f u n c t i o n
0002500 s m a k e - i n t o - c o n d
0002520 i t i o n r a i s e - s i g n
0002540 a l d e f a u l t - h a n d l
0002560 e - c o n d i t i o n \r
0002600
0002620 d e f a u l t - p r o c e e
0002640 d - r e p o r t e r f i x - i
0002660 n h e r i t a n c e - l i n k s
0002700 d e f a u l t - p r o c e e d
0002720 - t e s t \r
0002740 t e s t
0002760 - p r o c e e d - c a s e ) ) \r
0003000 ( c o m s ( *
0003020 | ; ; ; | " P r e - d e f i
0003040 n e d c o n d i t i o n t y
0003060 p e s . " ) \r
0003100 ( s t r u c t u r e s
0003120 c o n d i t i o n s i m p l
0003140 e - c o n d i t i o n w a r n
0003160 i n g s i m p l e - w a r n i
0003200 n g o l d - b r e a k 1 \r
0003220
0003240 s e r i o u s - c o n d
0003260 i t i o n c l : e r r o r s
0003300 i m p l e - e r r o r o l d -
0003320 i n t e r l i s p - e r r o r
0003340 a s s e r t i o n - f a i l e d
0003360 \r
0003400 c e l l - e r r o
0003420 r u n b o u n d - v a r i a b
0003440 l e u n d e f i n e d - f u n
0003460 c t i o n n o - p r o c e e d
0003500 - t e s t \r
0003520 i n d e
0003540 x - b o u n d s - e r r o r ) \r
0003560 ( c
0003600 o m s ( f u n c t i o n s p
0003620 r e t t y - t y p e - n a m e )
0003640 \r
0003660 ( s t r u c t u r e s
0003700 t y p e - m i s m a t c h ) )
0003720 \r (
0003740 s t r u c t u r e s c o n t r
0003760 o l - e r r o r i l l e g a l
0004000 - g o i l l e g a l - r e t u
0004020 r n i l l e g a l - t h r o w
0004040 b a d - p r o c e e d - c a s
0004060 e ) \r
0004100 ( s t r u c t u r e s c a l
0004120 l - e r r o r t o o - m a n y
0004140 - a r g u m e n t s t o o - f
0004160 e w - a r g u m e n t s i n v
0004200 a l i d - a r g u m e n t - l i
0004220 s t ) \r
0004240 ( s t r u c t u r e s s t
0004260 r e a m - e r r o r r e a d -
0004300 e r r o r e n d - o f - f i l
0004320 e ) \r
0004340 ( s t r u c t u r e s s t o
0004360 r a g e - c o n d i t i o n s
0004400 t a c k - o v e r f l o w s t
0004420 o r a g e - e x h a u s t e d )
0004440 ) \r ( c o m s
0004460 ( * | ; ; ; | " E x p o r t
0004500 e d s y m b o l s . A n y t
0004520 h i n g h e r e t h a t ' s
0004540 n o t i n C L s h o u l
0004560 d b e i n X C L . " ) \r
0004600 ( v a
0004620 r i a b l e s * b r e a k - o
0004640 n - w a r n i n g s * ) \r
0004660 ( f u n c
0004700 t i o n s m a k e - c o n d i
0004720 t i o n s i g n a l c l : e
0004740 r r o r c l : c e r r o r c
0004760 l : w a r n c l : b r e a k
0005000 d e b u g ) \r
0005020 ( s t r u c t u r e s
0005040 p r o c e e d - c a s e r e
0005060 a l - p r o c e e d - c a s e )
0005100 \r (
0005120 f u n c t i o n s f i n d - p
0005140 r o c e e d - c a s e c o m p
0005160 u t e - p r o c e e d - c a s e
0005200 s i n v o k e - p r o c e e d
0005220 - c a s e ) \r
0005240 ( f u n c t i o n s
0005260 a b o r t p r o c e e d u s
0005300 e - v a l u e s t o r e - v a
0005320 l u e ) ) \r ( c
0005340 o m s ( f u n c t i o n s s
0005360 i m p l e - f o r m a t ) \r
0005400 ( p (
0005420 m o v d ? ' s i m p l e - f o
0005440 r m a t ' c l : f o r m a t )
0005460 ) ) \r ( d e c l
0005500 a r e \ : d o n t c o p y (
0005520 v a r s s h o u l d - b e - i
0005540 n - p a c k a g e ) ) \r
0005560 ( p r o p f i l e t y
0005600 p e e r r o r - r u n t i m e
0005620 ) ) ) \r \r \r \r 006 004 ( * | ; ; ;
0005640 | " I n t e r n a l f u n c
0005660 t i o n s . " ) 006 001 \r \r ( d e f
0005700 m a c r o 006 002 c o n d i t i o
0005720 n - t y p e p 006 001 ( d a t u m
0005740 t y p e ) ( c l : i f % c
0005760 o n d i t i o n - t y p e s - r
0006000 e a l ` ( t y p e p , d a t
0006020 u m , t y p e ) \r
0006040
*
0006100 ` ( f a k e - t
0006120 y p e p - f o r - c o n d i t i
0006140 o n s , d a t u m , t y p e
0006160 ) ) ) \r \r ( d e f m a c r o 006
0006200 002 c o n d i t i o n - s u b t y
0006220 p e p 006 001 ( t 1 t 2 ) ( c
0006240 l : i f % c o n d i t i o n -
0006260 t y p e s - r e a l ` ( c l :
0006300 s u b t y p e p , t 1 , t 2
0006320 ) \r
0006340
0006360 ` (
0006400 f a k e - s u b t y p e p - f o
0006420 r - c o n d i t i o n s , t 1
0006440 , t 2 ) ) ) \r \r ( d e f m a c
0006460 r o 006 002 c o n d i t i o n - t
0006500 y p e - o f 006 001 ( d a t u m )
0006520 ( c l : i f % c o n d i t i
0006540 o n - t y p e s - r e a l ` (
0006560 c l : t y p e - o f , d a t u
0006600 m ) \r
0006620
0006640 ` (
0006660 f a k e - t y p e - o f - f o r
0006700 - c o n d i t i o n s , d a t
0006720 u m ) ) ) \r \r ( c l : d e f u n
0006740 006 002 f a k e - t y p e p - f o
0006760 r - c o n d i t i o n s 006 001 (
0007000 d a t u m t y p e ) 006 003 006 001
0007020 006 003 ( *
0007040 | a m d | " 9 - A p r - 8
0007060 6 1 7 : 4 1 " ) 006 001 \r (
0007100 a n d ( c l : c o n s p d a
0007120 t u m ) \r ( c l
0007140 : s y m b o l p ( c a r d a
0007160 t u m ) ) \r ( c
0007200 o n d i t i o n - s u b t y p e
0007220 p ( c a r d a t u m ) \r
0007240 t y p
0007260 e ) ) ) \r \r ( c l : d e f u n
0007300 006 002 f a k e - s u b t y p e p -
0007320 f o r - c o n d i t i o n s 006 001
0007340 ( t 1 t 2 ) ( c l : v a l
0007360 u e s ( a n d ( 006 002 | f o r
0007400 | 006 001 006 002 | o l d | 006 001 t 1
0007420 \r
0007440
*
0007520 006 002 | b y | 006 001 ( c o n
0007540 d i t i o n - p a r e n t t 1
0007560 ) \r
0007600
*
0007660 006 002 | w h i l e | 006 001
0007700 t 1 \r
0007720
*
0010000 006 002 | t h e r e i s |
0010020 006 001 ( e q t 1 t 2 ) ) \r
0010040
*
0010120 t )
0010140 \r
0010160
*
0010220 t ) ) \r \r ( c l :
0010240 d e f u n 006 002 f a k e - t y p
0010260 e - o f - f o r - c o n d i t i
0010300 o n s 006 001 ( d a t u m ) ( c
0010320 a r d a t u m ) ) \r \r ( d e f
0010340 m a c r o 006 002 c o n d i t i o
0010360 n - h a n d l e r 006 001 ( c o n
0010400 d i t i o n - t y p e ) ` ( g
0010420 e t p r o p , c o n d i t i o
0010440 n - t y p e ' % c o n d i t i
0010460 o n - h a n d l e r ) ) \r \r ( d
0010500 e f m a c r o 006 002 c o n d i t
0010520 i o n - r e p o r t e r 006 001 (
0010540 c o n d i t i o n - t y p e )
0010560 ` ( g e t p r o p , c o n d i
0010600 t i o n - t y p e ' % c o n d
0010620 i t i o n - r e p o r t e r ) )
0010640 \r \r ( c l : d e f u n 006 002 % p
0010660 r i n t - c o n d i t i o n 006 001
0010700 ( c o n d i t i o n s t r e
0010720 a m l e v e l ) ( 006 002 d e c
0010740 l a r e 006 001 ( i g n o r e l
0010760 e v e l ) ) \r
0011000
*
0011040 ( c l : i
0011060 f * p r i n t - e s c a p e *
0011100 ( c l : f o r m a t s t r e
0011120 a m \r
0011140
*
0011240 " # < C o n d i t i o n ~ S
0011260 @ ~ O , ~ O > " \r
0011300
*
0011400 ( c l : t
0011420 y p e - o f \r
0011440
*
0011560 c o n d i t i o n ) \r
0011600
*
0011700 ( \ \ h
0011720 i l o c c o n d i t i o n ) \r
0011740
*
0012060 ( \ \ l o l o c c o n d i t
0012100 i o n ) ) \r
0012120
*
0012200 ( r e p o r t - c o n d i t i
0012220 o n c o n d i t i o n s t r
0012240 e a m ) ) ) \r \r ( c l : d e f u
0012260 n 006 002 % p r o c e e d - c a s
0012300 e - p r i n t e r 006 001 ( p c
0012320 s t r e a m l e v e l ) ( 006
0012340 002 d e c l a r e 006 001 ( i g n o
0012360 r e l e v e l ) ) \r
0012400
*
0012440 ( c l
0012460 : i f * p r i n t - e s c a p
0012500 e * ( \r
0012520
*
0012600 c l :
0012620 : d e f a u l t - s t r u c t u
0012640 r e - p r i n t e r \r
0012660
*
0012760 p c s t r e a m l e
0013000 v e l ) \r
0013020
*
0013060 ( c
0013100 l : f u n c a l l ( p r o c e
0013120 e d - c a s e - r e p o r t p
0013140 c ) \r
0013160
*
0013240 p c s t r e a m ) ) ) \r
0013260 \r ( c l : d e f u n 006 002 % p r
0013300 o c e e d - c a s e - d e f a u
0013320 l t - r e p o r t e r 006 001 ( p
0013340 c s t r e a m ) ( c l : f u
0013360 n c a l l ( d e f a u l t - p
0013400 r o c e e d - r e p o r t ( \r
0013420
*
0013540 p r o c e e d - c a s e
0013560 - n a m e \r
0013600
*
0013720 p c ) ) \r
0013740
*
0014020 p c s t r e a m ) ) \r \r ( c
0014040 l : d e f u n 006 002 r e p o r t
0014060 - c o n d i t i o n 006 001 ( c o
0014100 n d i t i o n s t r e a m )
0014120 ( c l : d o * ( ( t y p e (
0014140 c o n d i t i o n - t y p e - o
0014160 f c o n d i t i o n ) \r
0014200
*
0014260 ( c o n d i
0014300 t i o n - p a r e n t t y p e
0014320 ) ) \r
0014340
*
0014400 ( r e p o r
0014420 t e r ( c o n d i t i o n - r
0014440 e p o r t e r t y p e ) \r
0014460
*
0014540 ( c o n
0014560 d i t i o n - r e p o r t e r
0014600 t y p e ) ) ) \r
0014620
*
0014660 ( ( n
0014700 u l l t y p e ) \r
0014720
*
0015000 ( c l : b r e a k " N o r e
0015020 p o r t f u n c t i o n f o
0015040 u n d f o r ~ S . " \r
0015060
*
0015140 c o n d i
0015160 t i o n ) ) \r
0015200
*
0015240 ( c l :
0015260 w h e n r e p o r t e r \r
0015300
*
0015360 ( r e t u r
0015400 n ( c l : i f s t r e a m \r
0015420
*
0015520 ( c l : f
0015540 u n c a l l r e p o r t e r
0015560 \r
0015600
*
0015700 c o n d i t i o n s t r
0015720 e a m ) \r
0015740
*
0016040 ( c l : w i t h - o u t p u t -
0016060 t o - s t r i n g \r
0016100
*
0016200 ( s t r e a m ) \r
0016220
*
0016320 ( c l : f
0016340 u n c a l l r e p o r t e r
0016360 \r
0016400
*
0016500 c o n d i t i o n s t
0016520 r e a m ) ) \r
0016540
*
0016640 ) ) ) ) ) \r \r ( d e f m a c
0016660 r o 006 002 c o n d i t i o n - p
0016700 a r e n t 006 001 ( t y p e ) `
0016720 ( g e t p r o p , t y p e '
0016740 % c o n d i t i o n - p a r e n
0016760 t ) ) \r \r ( c l : d e f v a r
0017000 006 002 * c o n d i t i o n - h a n
0017020 d l e r - b i n d i n g s * 006 001
0017040 n i l " C o n d i t i o n
0017060 h a n d l e r b i n d i n g
0017100 s t a c k " ) \r \r ( c l : d e f
0017120 v a r 006 002 * p r o c e e d - c
0017140 a s e s * 006 001 n i l " A c t
0017160 i v e p r o c e e d c a s e
0017200 s t a c k " ) \r \r ( c l : d e
0017220 f u n 006 002 c h e c k - t y p e
0017240 - f a i l 006 001 ( p r o c e e d
0017260 a b l e p l a c e v a l u e
0017300 d e s i r e d - t y p e m e
0017320 s s a g e ) \r ( p r o c e
0017340 e d - c a s e ( c l : e r r o
0017360 r ' t y p e - m i s m a t c h
0017400 : n a m e p l a c e : v a
0017420 l u e v a l u e : d e s i r
0017440 e d - t y p e d e s i r e d -
0017460 t y p e \r
0017500 : m
0017520 e s s a g e m e s s a g e ) \r
0017540 ( s t o r e
0017560 - v a l u e ( i g n o r e n
0017600 e w ) \r
0017620 : r e p o r t \r
0017640 ( c
0017660 l : f o r m a t t " C h a n
0017700 g e t h e v a l u e o f
0017720 ~ A " p l a c e ) \r
0017740 : t e s
0017760 t \r
0020000 ( c l : l a m b d a ( c
0020020 o n d i t i o n ) \r
0020040
0020060 ( a n d p r o c e e d a b
0020100 l e ( c o n d i t i o n - t y
0020120 p e p c o n d i t i o n ' t
0020140 y p e - m i s m a t c h ) ) ) \r
0020160
0020200 n e w ) ) ) \r \r ( c l : d e f
0020220 u n 006 002 e c a s e - f a i l 006
0020240 001 ( p r o c e e d a b l e p
0020260 l a c e v a l u e s e l e c
0020300 t o r s ) \r ( p r o c e e
0020320 d - c a s e ( c l : e r r o r
0020340 " T h e v a l u e o f ~
0020360 S , ~ S , ~ & i s ~ ? . "
0020400 p l a c e v a l u e \r
0020420
0020440 " ~ # [ w r o n g ~ ;
0020460 n o t ~ S ~ ; n e i t h e r
0020500 ~ S n o r ~ S ~ : ; n o t ~
0020520 @ { ~ # [ ~ ; o r ~ ] ~ S ~
0020540 ^ , ~ } ~ ] " s e l e c t o r
0020560 s ) \r ( s t
0020600 o r e - v a l u e ( i g n o r
0020620 e v ) \r
0020640 : t e s t \r
0020660 ( c l
0020700 : l a m b d a ( c o n d i t i
0020720 o n ) \r
0020740 ( 006 002 d
0020760 e c l a r e 006 001 ( i g n o r e
0021000 c o n d i t i o n ) ) \r
0021020
0021040 p r o c e e d a b l e
0021060 ) \r
0021100 : r e p o r t \r
0021120 ( c l :
0021140 f o r m a t t " C h a n g e
0021160 t h e v a l u e o f ~ A
0021200 " p l a c e ) \r
0021220 v ) ) ) \r \r
0021240 ( c l : d e f u n 006 002 a s s e
0021260 r t - f a i l 006 001 ( s t r i n
0021300 g & r e s t a r g s ) ( p
0021320 r o c e e d - c a s e ( c l :
0021340 e r r o r ' a s s e r t i o n
0021360 - f a i l e d : f o r m a t -
0021400 s t r i n g \r
0021420
*
0021500 s t r i n g : f
0021520 o r m a t - a r g u m e n t s
0021540 a r g s ) \r
0021560
*
0021620 ( p r o c e e d
0021640 n i l : r e p o r t " R e -
0021660 t e s t a s s e r t i o n " )
0021700 ) ) \r \r ( c l : d e f u n 006 002
0021720 m a k e - i n t o - c o n d i t
0021740 i o n 006 001 ( d a t u m d e s
0021760 i r e d - t y p e a r g s )
0022000 006 003 006 001 \r
0022020
*
0022060 006 003 ( * | ; ;
0022100 | " T h e e n t i r e t h
0022120 i n g s h o u l d b e a
0022140 t y p e c a s e . " ) 006 001 \r
0022160 ( c l : i f ( c o n d i t i
0022200 o n - t y p e p d a t u m '
0022220 c o n d i t i o n ) \r
0022240 d a t u m \r
0022260 ( c l : e t y p e c a
0022300 s e d a t u m ( c l : s y m
0022320 b o l ( c l : i f ( c o n d
0022340 i t i o n - s u b t y p e p d
0022360 a t u m ' c o n d i t i o n )
0022400 \r
0022420
*
0022460 ( c l : a p p l y ( f u n c
0022500 t i o n m a k e - c o n d i t
0022520 i o n ) \r
0022540
*
0022600 d a t u
0022620 m a r g s ) \r
0022640
*
0022700 ( c l : e r r o
0022720 r " ~ S i s n o t a c
0022740 o n d i t i o n t y p e . "
0022760 d a t u m ) ) ) \r
0023000 ( s t r i n
0023020 g ( m a k e - c o n d i t i o
0023040 n d e s i r e d - t y p e :
0023060 f o r m a t - s t r i n g d a
0023100 t u m : f o r m a t - a r g u
0023120 m e n t s a r g s ) ) ) ) ) \r
0023140 \r ( c l : d e f u n 006 002 r a i
0023160 s e - s i g n a l 006 001 ( c )
0023200 ( c l : d o * ( ( * c o n d i
0023220 t i o n - h a n d l e r - b i n
0023240 d i n g s * * c o n d i t i o
0023260 n - h a n d l e r - b i n d i n
0023300 g s * \r
0023320
0023340 (
0023360 c d r * c o n d i t i o n - h
0023400 a n d l e r - b i n d i n g s *
0023420 ) ) ) \r
0023440
0023460 ( ( n u l l * c o
0023500 n d i t i o n - h a n d l e r -
0023520 b i n d i n g s * ) \r
0023540
0023560 ( d
0023600 e f a u l t - h a n d l e - c o
0023620 n d i t i o n c ) \r
0023640
0023660 c )
0023700 \r
0023720
0023740 ( d e s t r u c t u r i n
0023760 g - b i n d ( t y p e . h
0024000 a n d l e r ) \r
0024020
*
0024060 ( c a r * c o n d i t i o n
0024100 - h a n d l e r - b i n d i n g
0024120 s * ) \r
0024140
0024160 ( c l
0024200 : w h e n ( c o n d i t i o n
0024220 - t y p e p c t y p e ) \r
0024240
*
0024300 (
0024320 l e t ( ( * c o n d i t i o n
0024340 - h a n d l e r - b i n d i n g
0024360 s * ( c d r \r
0024400
*
0024500 * c o n d i t i o n - h a n
0024520 d l e r - b i n d i n g s * \r
0024540
*
0024660 ) ) ) \r
0024700
*
0024760 ( c l : f u n c a l l h a n
0025000 d l e r c ) ) ) ) ) ) \r \r ( c
0025020 l : d e f u n 006 002 d e f a u l
0025040 t - h a n d l e - c o n d i t i
0025060 o n 006 001 ( c o n d i t i o n )
0025100 ( c l : d o ( ( t y p e (
0025120 c o n d i t i o n - t y p e - o
0025140 f c o n d i t i o n ) \r
0025160
*
0025240 ( c o n d i
0025260 t i o n - p a r e n t t y p e
0025300 ) ) ) \r
0025320
*
0025360 ( ( n u l l
0025400 t y p e ) ) \r
0025420
*
0025460 ( l
0025500 e t ( ( h a n d l e r ( c o
0025520 n d i t i o n - h a n d l e r
0025540 t y p e ) ) ) \r
0025560
*
0025640 ( c l : w h e n h a n d
0025660 l e r ( c l : f u n c a l l
0025700 h a n d l e r \r
0025720
*
0026020 c o n d
0026040 i t i o n ) ) ) ) ) \r \r ( c l :
0026060 d e f u n 006 002 d e f a u l t -
0026100 p r o c e e d - r e p o r t e r
0026120 006 001 ( p c s t r e a m ) (
0026140 c l : f o r m a t s t r e a m
0026160 " P r o c e e d - t y p e :
0026200 ~ A " ( \r
0026220
*
0026320 p r o c e e
0026340 d - c a s e - n a m e \r
0026360
*
0026500 p c ) ) ) \r \r ( c l : d e f u
0026520 n 006 002 f i x - i n h e r i t a
0026540 n c e - l i n k s 006 001 ( n a m
0026560 e n e w - p a r e n t ) ( l
0026600 e t ( ( o l d - p a r e n t
0026620 ( c o n d i t i o n - p a r e n
0026640 t n a m e ) ) ) \r
0026660
*
0026740 ( c l : u n l e s s ( o r
0026760 ( e q n e w - p a r e n t o
0027000 l d - p a r e n t ) \r
0027020
*
0027120 ( n u l l o l d - p a r e n
0027140 t ) ) \r
0027160
*
0027240 ( l e t ( ( c h i l d r e
0027260 n ( g e t o l d - p a r e n
0027300 t \r
0027320
*
0027420 ' \r
0027440
*
0027540 % c o n d i t
0027560 i o n - c h i l d r e n \r
0027600
*
0027720 ) ) ) \r
0027740
*
0030020 ( c l : s e t f
0030040 ( g e t o l d - p a r e n t \r
0030060
*
0030200 ' % c o n d i t i o n - c h i
0030220 l d r e n \r
0030240
*
0030340 ) \r
0030360
*
0030460 ( d r e m o v e n a m e
0030500 c h i l d r e n ) ) ) ) \r
0030520
*
0030600 ( c l : p u s h n e w
0030620 n a m e ( g e t p r o p n
0030640 e w - p a r e n t \r
0030660
*
0030760 ' % c o n d i
0031000 t i o n - c h i l d r e n ) ) \r
0031020
*
0031100 ( c l : s e t f
0031120 ( c o n d i t i o n - p a r e n
0031140 t n a m e ) \r
0031160
*
0031240 n e w - p a r e n t
0031260 ) ) ) \r \r ( d e f m a c r o 006
0031300 002 d e f a u l t - p r o c e e d
0031320 - t e s t 006 001 ( p r o c e e d
0031340 - t y p e ) ` ( g e t p r o p
0031360 , p r o c e e d - t y p e '
0031400 % d e f a u l t - p r o c e e d
0031420 - t e s t ) ) \r \r ( c l : d e f
0031440 u n 006 002 t e s t - p r o c e e
0031460 d - c a s e 006 001 ( p c c o n
0031500 d i t i o n & a u x t e s t
0031520 ) ( c o n d \r
0031540
*
0031620 ( ( c l : s e t f t e s t (
0031640 p r o c e e d - c a s e - t e s
0031660 t p c ) ) \r
0031700
*
0031760 ( c l : f u n c a l l t e s t
0032000 c o n d i t i o n ) ) \r
0032020
*
0032100 ( ( a n d ( p r o c
0032120 e e d - c a s e - n a m e p c
0032140 ) \r
0032160
*
0032240 ( c l : s e t f t e s t \r
0032260
*
0032360 ( o r ( d e f a u l t -
0032400 p r o c e e d - t e s t \r
0032420
*
0032520 ( p r o c e e d -
0032540 c a s e - n a m e p c ) ) \r
0032560
*
0032660 ( n o - p r o c
0032700 e e d - t e s t \r
0032720
*
0033020 ( p r o c e e d - c a s e
0033040 - n a m e p c ) ) ) ) ) \r
0033060
*
0033140 ( c l : f u n c a
0033160 l l t e s t c o n d i t i o
0033200 n ) ) \r
0033220
*
0033260 ( t 006
0033300 003 006 001 006 003 ( * \ ; " T h
0033320 i s c a s e s h o u l d n '
0033340 t h a p p e n " ) 006 001 \r
0033360
*
0033440 ( p r o c e e d
0033460 - c a s e ( c l : e r r o r
0033500 \r
0033520
*
0033600 " C o u l d n ' t f i n d
0033620 t e s t f u n c t i o n f o
0033640 r ~ S . " \r
0033660
*
0033760 p c ) \r
0034000
*
0034060 ( p
0034100 r o c e e d n i l : t e s t
0034120 t r u e : r e p o r t \r
0034140
*
0034240 " A s s u m e p r o c
0034260 e e d c a s e i s e n a b
0034300 l e d " \r
0034320
*
0034400 t
0034420 ) ) ) ) ) \r \r \r \r \r 006 004 ( * |
0034440 ; ; ; | " P r e - d e f i n e
0034460 d c o n d i t i o n t y p e
0034500 s . " ) 006 001 \r \r ( d e f i n e -
0034520 c o n d i t i o n 006 002 c o n d
0034540 i t i o n 006 001 c o n d i t i o
0034560 n : r e p o r t - f u n c t i
0034600 o n ( l a m b d a ( c o n d
0034620 i t i o n * s t a n d a r d -
0034640 o u t p u t * ) \r
0034660
*
0034740 ( c l : f o r m a t t "
0034760 C o n d i t i o n ~ S o c c
0035000 u r r e d . " \r
0035020
*
0035100 c o n d i t i
0035120 o n ) ) \r
0035140
0035160 - - d u m m y - s
0035200 l o t - - ) \r \r ( d e f i n e -
0035220 c o n d i t i o n 006 002 s i m p
0035240 l e - c o n d i t i o n 006 001 c
0035260 o n d i t i o n : r e p o r t
0035300 ( c l : a p p l y # ' c l :
0035320 f o r m a t t f o r m a t -
0035340 s t r i n g \r
0035360
*
0035440 f o r m a t - a r g u m
0035460 e n t s ) \r
0035500
0035520 f
0035540 o r m a t - s t r i n g f o r
0035560 m a t - a r g u m e n t s ) \r \r
0035600 ( d e f i n e - c o n d i t i o
0035620 n 006 002 w a r n i n g 006 001 c o
0035640 n d i t i o n ) \r \r ( d e f i n
0035660 e - c o n d i t i o n 006 002 s i
0035700 m p l e - w a r n i n g 006 001 w
0035720 a r n i n g : r e p o r t (
0035740 c l : a p p l y ( f u n c t i
0035760 o n c l : f o r m a t ) \r
0036000
*
0036060 t f o r m a t - s
0036100 t r i n g f o r m a t - a r g
0036120 u m e n t s ) \r
0036140
0036160 f
0036200 o r m a t - s t r i n g f o r
0036220 m a t - a r g u m e n t s ) \r \r
0036240 ( d e f i n e - c o n d i t i o
0036260 n 006 002 o l d - b r e a k 1 006 001
0036300 c o n d i t i o n : r e p o
0036320 r t ( d e s t r u c t u r i n
0036340 g - b i n d ( m e s s 1 m e
0036360 s s 2 m e s s 3 ) \r
0036400
*
0036460 l i s t \r
0036500
*
0036540 ( e r r
0036560 o r m e s s 1 m e s s 1 m e
0036600 s s 2 m e s s 3 ) ) \r
0036620
0036640 l
0036660 i s t ) \r \r ( d e f i n e - c o
0036700 n d i t i o n 006 002 s e r i o u
0036720 s - c o n d i t i o n 006 001 c o
0036740 n d i t i o n : r e p o r t
0036760 ( c l : f o r m a t t " S e
0037000 r i o u s c o n d i t i o n
0037020 ~ S o c c u r r e d . " \r
0037040
*
0037120 ( c o n d
0037140 i t i o n - t y p e - o f c o
0037160 n d i t i o n ) ) ) \r \r ( d e f
0037200 i n e - c o n d i t i o n 006 002
0037220 c l : e r r o r 006 001 s e r i o
0037240 u s - c o n d i t i o n ) \r \r (
0037260 d e f i n e - c o n d i t i o n
0037300 006 002 s i m p l e - e r r o r 006
0037320 001 c l : e r r o r : r e p o
0037340 r t ( c l : a p p l y ( f u
0037360 n c t i o n c l : f o r m a t
0037400 ) \r
0037420
*
0037460 t f o r m a
0037500 t - s t r i n g f o r m a t -
0037520 a r g u m e n t s ) \r
0037540
*
0037600 f o r m a t - s t r i n g f o
0037620 r m a t - a r g u m e n t s ) \r
0037640 \r ( d e f i n e - c o n d i t i
0037660 o n 006 002 o l d - i n t e r l i
0037700 s p - e r r o r 006 001 c l : e r
0037720 r o r : r e p o r t ( c l :
0037740 i f ( e q n u m b e r 1 7
0037760 ) \r
0040000
*
0040060 ( d e s t r u c t u r i n g - b
0040100 i n d ( m e s s 1 . m e s
0040120 s 2 ) \r
0040140
*
0040220 m e s s a g e
0040240 \r
0040260
*
0040340 ( e r r o r m e s s
0040360 1 m e s s 1 m e s s 2 \r
0040400
*
0040500 ' e r r o r
0040520 ) ) \r
0040540
*
0040620 ( e r r o r m ( l i s t n
0040640 u m b e r m e s s a g e ) ) )
0040660 \r
0040700
0040720 n u m
0040740 b e r m e s s a g e ) \r \r ( d
0040760 e f i n e - c o n d i t i o n
0041000 006 002 a s s e r t i o n - f a i l
0041020 e d 006 001 s i m p l e - e r r o
0041040 r : r e p o r t ( c l : a p
0041060 p l y ( f u n c t i o n c l
0041100 : f o r m a t ) \r
0041120
*
0041200 t \r
0041220
*
0041300 ( o r f o r
0041320 m a t - s t r i n g " A s s e
0041340 r t i o n f a i l e d . " ) \r
0041360
*
0041440 f
0041460 o r m a t - a r g u m e n t s )
0041500 ) \r \r ( d e f i n e - c o n d i
0041520 t i o n 006 002 c e l l - e r r o
0041540 r 006 001 c l : e r r o r n a m
0041560 e ) \r \r ( d e f i n e - c o n d
0041600 i t i o n 006 002 u n b o u n d -
0041620 v a r i a b l e 006 001 c e l l -
0041640 e r r o r : r e p o r t ( c
0041660 l : f o r m a t t " U n b o
0041700 u n d v a r i a b l e : ~ S
0041720 . " n a m e ) ) \r \r ( d e f i
0041740 n e - c o n d i t i o n 006 002 u
0041760 n d e f i n e d - f u n c t i o
0042000 n 006 001 c e l l - e r r o r :
0042020 r e p o r t ( c l : f o r m a
0042040 t t " U n d e f i n e d f
0042060 u n c t i o n : ~ S . " n a
0042100 m e ) ) \r \r ( d e f i n e - c o
0042120 n d i t i o n 006 002 n o - p r o
0042140 c e e d - t e s t 006 001 u n d e
0042160 f i n e d - f u n c t i o n :
0042200 r e p o r t ( c l : f o r m a
0042220 t t \r
0042240
*
0042320 " N o t e s t s p e c i f
0042340 i e d f o r p r o c e e d
0042360 c a s e : ~ S . " \r
0042400
*
0042500 n a m e ) ) \r \r ( d e f i n e -
0042520 c o n d i t i o n 006 002 i n d e
0042540 x - b o u n d s - e r r o r 006 001
0042560 c e l l - e r r o r : r e p
0042600 o r t ( c l : f o r m a t t
0042620 " I n d e x o u t o f b
0042640 o u n d s : ~ D . " i n d e
0042660 x \r
0042700
*
0042760 ) \r
0043000
0043020 i n
0043040 d e x ) \r \r ( c l : d e f u n
0043060 006 002 p r e t t y - t y p e - n a
0043100 m e 006 001 ( t y p e s p e c )
0043120 ( c o n c a t " a " t y p
0043140 e s p e c ) ) \r \r ( d e f i n e
0043160 - c o n d i t i o n 006 002 t y p
0043200 e - m i s m a t c h 006 001 c e l
0043220 l - e r r o r : r e p o r t
0043240 ( c l : f o r m a t t " T h
0043260 e v a l u e o f ~ A , ~
0043300 A , i s n o t ~ A . " \r
0043320
*
0043400 n a m e v
0043420 a l u e ( o r m e s s a g e
0043440 ( p r e t t y - t y p e - n a
0043460 m e \r
0043500
*
0043600 d e s i r e d - t y p
0043620 e ) ) ) \r
0043640
0043660 v a l u e
0043700 d e s i r e d - t y p e m e
0043720 s s a g e ) \r \r ( d e f i n e -
0043740 c o n d i t i o n 006 002 c o n t
0043760 r o l - e r r o r 006 001 c l : e
0044000 r r o r ) \r \r ( d e f i n e - c
0044020 o n d i t i o n 006 002 i l l e g
0044040 a l - g o 006 001 c o n t r o l -
0044060 e r r o r : r e p o r t ( c
0044100 l : f o r m a t t " G O t
0044120 o a n o n - e x i s t a n t
0044140 t a g : ~ S . " t a g ) \r
0044160
*
0044220 t a g ) \r \r ( d e f i n e
0044240 - c o n d i t i o n 006 002 i l l
0044260 e g a l - r e t u r n 006 001 c o
0044300 n t r o l - e r r o r : r e p
0044320 o r t ( c l : f o r m a t t
0044340 \r
0044360
*
0044440 " R E T U R N t o n o n - e
0044460 x i s t a n t b l o c k : ~
0044500 S . " t a g \r
0044520
*
0044600 ) \r
0044620
0044640 t
0044660 a g ) \r \r ( d e f i n e - c o n
0044700 d i t i o n 006 002 i l l e g a l
0044720 - t h r o w 006 001 c o n t r o l
0044740 - e r r o r : r e p o r t (
0044760 c l : f o r m a t t " T a g
0045000 f o r T H R O W n o t f
0045020 o u n d : ~ S . " t a g \r
0045040
*
0045120 ) \r
0045140
*
0045200 t a g ) \r \r ( d e f i n
0045220 e - c o n d i t i o n 006 002 b a
0045240 d - p r o c e e d - c a s e 006 001
0045260 c o n t r o l - e r r o r :
0045300 r e p o r t ( c l : f o r m a
0045320 t t \r
0045340
*
0045420 " P r o c e e d c a s e ~ S
0045440 i s n o t c u r r e n t l
0045460 y a c t i v e . " \r
0045500
*
0045560 n a m e
0045600 ) \r
0045620
0045640 n a m e )
0045660 \r \r ( d e f i n e - c o n d i t
0045700 i o n 006 002 c a l l - e r r o r
0045720 006 001 c o n t r o l - e r r o r
0045740 c a l l e e ) \r \r ( d e f i n
0045760 e - c o n d i t i o n 006 002 t o
0046000 o - m a n y - a r g u m e n t s
0046020 006 001 c a l l - e r r o r : r
0046040 e p o r t ( c l : i f ( a n
0046060 d m a x i m u m a c t u a l
0046100 ) \r
0046120
*
0046200 ( c l : f o r m a t t " T
0046220 o o m a n y a r g u m e n t
0046240 s t o ~ A : ~ % ~ D
0046260 ~ : * ~ [ w e r e ~ ; w a s ~ :
0046300 ; w e r e ~ ] g i v e n b u
0046320 t a t m o s t ~ D ~ : *
0046340 ~ [ a r e ~ ; i s ~ : ; a r e ~
0046360 ] a c c e p t e d " \r
0046400
*
0046500 c a l l e e a c t u a l
0046520 m a x i m u m ) \r
0046540
*
0046620 ( c l : f o r
0046640 m a t t \r
0046660
*
0046740 " T o
0046760 o m a n y a r g u m e n t s
0047000 t o ~ A " \r
0047020
*
0047100 c
0047120 a l l e e ) ) \r
0047140
*
0047200 m a x i m u m a c t u a
0047220 l ) \r \r ( d e f i n e - c o n d
0047240 i t i o n 006 002 t o o - f e w -
0047260 a r g u m e n t s 006 001 c a l l
0047300 - e r r o r : r e p o r t (
0047320 c l : i f ( a n d m i n i m
0047340 u m a c t u a l ) \r
0047360
*
0047440 ( c l : f o r
0047460 m a t t " T o o f e w a
0047500 r g u m e n t s t o ~ A : ~
0047520 % ~ D ~ : * ~ [ w e r e
0047540 ~ ; w a s ~ : ; w e r e ~ ] g
0047560 i v e n b u t a t l e a s
0047600 t ~ D ~ : * ~ [ a r e ~ ; i
0047620 s ~ : ; a r e ~ ] n e c e s s
0047640 a r y " \r
0047660
*
0047740 c a l l e
0047760 e a c t u a l m i n i m u m
0050000 ) \r
0050020
*
0050100 ( c l : f o r m a t t " T o
0050120 o f e w a r g u m e n t s
0050140 t o ~ A " \r
0050160
*
0050240 c a l
0050260 l e e ) ) \r
0050300
*
0050340 m i n i m u m a c t u a l ) \r
0050360 \r ( d e f i n e - c o n d i t i
0050400 o n 006 002 i n v a l i d - a r g
0050420 u m e n t - l i s t 006 001 c a l
0050440 l - e r r o r : r e p o r t
0050460 ( c l : f o r m a t t \r
0050500
*
0050600 " ~ S h a s a n i n v a l
0050620 i d a r g u m e n t l i s t
0050640 " \r
0050660
*
0050740 c a l l e e ) ) \r \r (
0050760 d e f i n e - c o n d i t i o n
0051000 006 002 s t r e a m - e r r o r 006
0051020 001 c l : e r r o r : r e p o
0051040 r t ( c l : f o r m a t t
0051060 " S t r e a m e r r o r o n
0051100 ~ S . " s t r e a m ) \r
0051120
*
0051160 s t r e a m ) \r \r ( d e f
0051200 i n e - c o n d i t i o n 006 002
0051220 r e a d - e r r o r 006 001 s t r
0051240 e a m - e r r o r ) \r \r ( d e f
0051260 i n e - c o n d i t i o n 006 002
0051300 e n d - o f - f i l e 006 001 r e
0051320 a d - e r r o r : r e p o r t
0051340 " E n d o f f i l e : ~ %
0051360 ~ S " s t r e a m ) \r
0051400 \r ( d e f i n e - c o n d i t i
0051420 o n 006 002 s t o r a g e - c o n
0051440 d i t i o n 006 001 s e r i o u s
0051460 - c o n d i t i o n ) \r \r ( d e
0051500 f i n e - c o n d i t i o n 006
0051520 002 s t a c k - o v e r f l o w 006
0051540 001 s t o r a g e - c o n d i t
0051560 i o n : r e p o r t " S t a
0051600 c k o v e r f l o w " ) \r \r (
0051620 d e f i n e - c o n d i t i o n
0051640 006 002 s t o r a g e - e x h a u
0051660 s t e d 006 001 s t o r a g e - c
0051700 o n d i t i o n ) \r \r \r \r \r 006 004
0051720 ( * | ; ; ; | " E x p o r t
0051740 e d s y m b o l s . A n y t
0051760 h i n g h e r e t h a t ' s
0052000 n o t i n C L s h o u l
0052020 d b e i n X C L . " ) 006 001
0052040 \r \r ( c l : d e f v a r 006 002 *
0052060 b r e a k - o n - w a r n i n g
0052100 s * 006 001 n i l \r
0052120
0052140 " I f t r u e , c a
0052160 l l s t o W A R N w i l l
0052200 c a u s e a b r e a k a
0052220 s w e l l a s l o g g i n
0052240 g t h e w a r n i n g . " )
0052260 \r \r ( c l : d e f u n 006 002 m a
0052300 k e - c o n d i t i o n 006 001 (
0052320 t y p e & r e s t s l o t -
0052340 i n i t i a l i z a t i o n s )
0052360 \r
0052400
*
0052440 " C r e a t e a c
0052460 o n d i t i o n o b j e c t
0052500 o f t h e s p e c i f i e d
0052520 t y p e . " \r ( c l : a
0052540 p p l y ( s t r u c t u r e -
0052560 c o n s t r u c t o r t y p e
0052600 ) \r s l o t
0052620 - i n i t i a l i z a t i o n s
0052640 ) ) \r \r ( c l : d e f u n 006 002
0052660 s i g n a l 006 001 ( d a t u m
0052700 & r e s t a r g s ) ( l e t
0052720 ( ( c o n d i t i o n ( m a
0052740 k e - i n t o - c o n d i t i o
0052760 n d a t u m ' s i m p l e -
0053000 c o n d i t i o n \r
0053020
*
0053100 a r g s ) ) ) \r
0053120
*
0053160 ( r a i s e - s
0053200 i g n a l c o n d i t i o n )
0053220 \r
0053240
0053260 ( c l : i f
0053300 ( c o n d i t i o n - t y p e
0053320 p c o n d i t i o n ' s e r
0053340 i o u s - c o n d i t i o n ) \r
0053360
*
0053440 ( d e b u g c o n d i t i o n
0053460 ) \r
0053500
*
0053540 ( c l : r e t u r n - f r o
0053560 m s i g n a l c o n d i t i
0053600 o n ) ) ) ) \r \r ( c l : d e f u
0053620 n 006 002 c l : e r r o r 006 001 (
0053640 d a t u m & r e s t a r g s
0053660 ) ( d e b u g ( r a i s e -
0053700 s i g n a l ( m a k e - i n t
0053720 o - c o n d i t i o n d a t u
0053740 m ' s i m p l e - e r r o r
0053760 \r
0054000
*
0054060 a r g s ) ) ) ) \r \r ( c l
0054100 : d e f u n 006 002 c l : c e r r
0054120 o r 006 001 ( p r o c e e d - f o
0054140 r m a t - s t r i n g d a t u
0054160 m & r e s t a r g u m e n t
0054200 s & a u x c o n d i t i o n
0054220 ) \r ( p r o c e e d - c a
0054240 s e ( d e b u g ( r a i s e
0054260 - s i g n a l ( c l : s e t f
0054300 c o n d i t i o n ( m a k e
0054320 - i n t o - c o n d i t i o n
0054340 d a t u m ' s i m p l e - e r
0054360 r o r \r
0054400
*
0054460 a r g u m e n t s ) )
0054500 ) ) \r ( p r
0054520 o c e e d n i l : r e p o r
0054540 t ( c l : a p p l y ( f u n
0054560 c t i o n c l : f o r m a t )
0054600 \r
0054620
0054640 t p r o c e e d
0054660 - f o r m a t - s t r i n g a
0054700 r g u m e n t s ) \r
0054720 c o n d i
0054740 t i o n ) ) ) \r \r ( c l : d e f
0054760 u n 006 002 c l : w a r n 006 001 (
0055000 d a t u m & r e s t a r g u
0055020 m e n t s ) ( l e t ( ( c o
0055040 n d i t i o n ( m a k e - i n
0055060 t o - c o n d i t i o n d a t
0055100 u m ' s i m p l e - w a r n i
0055120 n g \r
0055140
*
0055220 a r g u m e n t s )
0055240 ) ) \r
0055260
*
0055320 ( c l : u n l e s s ( c o
0055340 n d i t i o n - t y p e p c o
0055360 n d i t i o n ' w a r n i n g
0055400 ) \r
0055420
*
0055460 ( c l : c e r r
0055500 o r \r
0055520
*
0055600 " S i g n a l a n d r e p
0055620 o r t t h e c o n d i t i o
0055640 n a n y w a y " \r
0055660
*
0055740 ' t y p e - m i s
0055760 m a t c h : n a m e ' c o n
0056000 d i t i o n : v a l u e \r
0056020
*
0056100 c o n d
0056120 i t i o n : d e s i r e d - t
0056140 y p e ' w a r n i n g ) ) \r
0056160
*
0056220 ( r
0056240 a i s e - s i g n a l c o n d
0056260 i t i o n ) \r
0056300
*
0056340 ( c l : i f % c o
0056360 n d i t i o n - t y p e s - r e
0056400 a l ( c l : f o r m a t * e
0056420 r r o r - o u t p u t * \r
0056440
*
0056560 " ~ & W a r n i n g : ~ A ~
0056600 % " \r
0056620
*
0056720 c o n d i t i o n
0056740 ) \r
0056760
*
0057020 ( c l : f o r m
0057040 a t * e r r o r - o u t p u t
0057060 * " ~ & W a r n i n g : ~ A
0057100 ~ % " \r
0057120
*
0057200 ( r e p o r t - c o n d i t i
0057220 o n c o n d i t i o n n i l
0057240 ) ) ) \r
0057260
*
0057320 ( c l : w h e n * b r e
0057340 a k - o n - w a r n i n g s *
0057360 ( c l : b r e a k c o n d i t
0057400 i o n ) ) \r
0057420
*
0057460 c o n d i t i o n ) )
0057500 \r \r ( c l : d e f u n 006 002 c l
0057520 : b r e a k 006 001 ( & o p t i o
0057540 n a l ( d a t u m " B r e a
0057560 k " ) \r
0057600 & r
0057620 e s t a r g u m e n t s & a
0057640 u x c o n d i t i o n ) 006 003
0057660 006 001 \r
0057700
*
0057740 006 003 ( * | ; ; | \r
0057760 006 001
0060000 006 003 " W
0060020 a n t t o t r y a n d g
0060040 e t s o m e i n d i c a t i
0060060 o n o f w h i c h b r e a
0060100 k y o u ' r e r e t u r n i
0060120 n g f r o m . " ) 006 001 \r
0060140 ( p r o c e e d - c a s e ( d
0060160 e b u g ( c l : s e t f c o
0060200 n d i t i o n ( m a k e - i n
0060220 t o - c o n d i t i o n d a t
0060240 u m ' s i m p l e - c o n d i
0060260 t i o n a r g u m e n t s ) )
0060300 ) \r ( p r o
0060320 c e e d n i l : r e p o r t
0060340 " R e t u r n f r o m B R
0060360 E A K " c o n d i t i o n ) )
0060400 ) \r \r ( c l : d e f u n 006 002 d
0060420 e b u g 006 001 ( & o p t i o n a
0060440 l ( d a t u m " B r e a k "
0060460 ) \r
0060500 & r e s t a
0060520 r g s ) ( c l : l o o p ( e
0060540 r r o r x ( m a k e - i n t o
0060560 - c o n d i t i o n d a t u m
0060600 ' s i m p l e - c o n d i t i
0060620 o n a r g s \r
0060640
*
0060720 ) ) ) ) \r \r ( c l : d e f
0060740 s t r u c t ( 006 002 p r o c e e
0060760 d - c a s e 006 001 ( : p r i n t
0061000 - f u n c t i o n % p r o c e
0061020 e d - c a s e - p r i n t e r )
0061040 ) n a m e t a g s e l e c
0061060 t o r t e s t \r
0061100
*
0061200 ( r e p o r t ' \r
0061220
*
0061320 % p r o c e e d - c a s
0061340 e - d e f a u l t - r e p o r t
0061360 e r \r
0061400
*
0061500 ) ) \r \r ( c l : d e f s
0061520 t r u c t ( 006 002 r e a l - p r
0061540 o c e e d - c a s e 006 001 ( : i
0061560 n c l u d e p r o c e e d - c
0061600 a s e ) \r
0061620
0061640 ( : p r i n t - f u
0061660 n c t i o n % p r o c e e d -
0061700 c a s e - p r i n t e r ) ) c
0061720 o n t i n u a t i o n ) \r \r ( c
0061740 l : d e f u n 006 002 f i n d - p
0061760 r o c e e d - c a s e 006 001 ( d
0062000 a t u m c o n d i t i o n )
0062020 ( c l : e t y p e c a s e \r
0062040
*
0062100 d a t
0062120 u m \r
0062140
*
0062200 ( n u l l ( c l : e r r o
0062220 r \r
0062240
*
0062300 " ~ S i s a n i n v a
0062320 l i d a r g u m e n t t o
0062340 ~ S ; ~ % u s e ~ S
0062360 i n s t e a d " \r
0062400
*
0062460 n i l ' f i n d -
0062500 p r o c e e d - c a s e ' \r
0062520
*
0062600 c o m p u
0062620 t e - p r o c e e d - c a s e s
0062640 ) ) \r
0062660
*
0062720 ( p r o c e e d - c a s e
0062740 ( a n d ( f m e m b d a t u
0062760 m * p r o c e e d - c a s e s
0063000 * ) \r
0063020
*
0063100 ( t e s t - p r o c e
0063120 e d - c a s e d a t u m c o
0063140 n d i t i o n ) \r
0063160
*
0063240 d a t u m
0063260 ) ) \r
0063300
*
0063340 ( c l : s y m b o l ( 006 002
0063360 | f o r | 006 001 p c 006 002 | i n
0063400 | 006 001 * p r o c e e d - c a s
0063420 e s * \r
0063440
*
0063520 006 002 | t h e r e i s | 006 001 (
0063540 a n d ( e q ( p r o c e e d
0063560 - c a s e - n a m e \r
0063600
*
0063700 p c ) \r
0063720
*
0064040 d a t u m ) \r
0064060
*
0064160 ( t e s t - p r o c e e d
0064200 - c a s e p c \r
0064220
*
0064320 c o n
0064340 d i t i o n ) \r
0064360
*
0064460 p c ) ) ) ) ) \r \r ( c l
0064500 : d e f u n 006 002 c o m p u t e
0064520 - p r o c e e d - c a s e s 006 001
0064540 ( c o n d i t i o n ) ( 006 002
0064560 | f o r | 006 001 p c 006 002 | i n
0064600 | 006 001 * p r o c e e d - c a s
0064620 e s * \r
0064640
*
0064700 006 002 | w h e n | 006 001 ( c
0064720 l : c a t c h ' s k i p - p r
0064740 o c e e d - c a s e ( t e s t
0064760 - p r o c e e d - c a s e \r
0065000
*
0065120 p c c o n d i t i o n ) )
0065140 \r
0065160
*
0065220 006 002 | c o l l e c t | 006 001 p c
0065240 ) ) \r \r ( c l : d e f u n 006 002
0065260 i n v o k e - p r o c e e d - c
0065300 a s e 006 001 ( p r o c e e d - c
0065320 a s e c o n d i t i o n & r
0065340 e s t c l : v a l u e s ) \r
0065360 ( l e t ( ( p c ( f i n
0065400 d - p r o c e e d - c a s e p
0065420 r o c e e d - c a s e c o n d
0065440 i t i o n ) ) ) \r
0065460 ( 006 002 i f 006 001 p c \r
0065500 006 002 t h e n 006 001
0065520 006 003 006 001
0065540
0065560 006 003 (
0065600 * | ; ; | " H a c k u n t
0065620 i l r e a l u n w i n d e r
0065640 i s i n . " ) 006 001 \r
0065660 ( a
0065700 n d ( b o u n d p ' b r e a
0065720 k r e s e t v a l s ) \r
0065740
0065760 ( b o u n d p ' \ \ b r e
0066000 a k r e s e t e x p r ) \r
0066020
0066040 ( b r e a k r e s e t f n
0066060 ' l e a v i n g ) ) \r
0066100 ( c l
0066120 : t y p e c a s e p c ( r e
0066140 a l - p r o c e e d - c a s e \r
0066160
*
0066220 ( l e t ( ( t a g ( r e
0066240 a l - p r o c e e d - c a s e -
0066260 t a g p c ) ) \r
0066300
*
0066340 ( c o n t i n u a t i o n (
0066360 r e a l - p r o c e e d - c a s
0066400 e - c o n t i n u a t i o n p
0066420 c ) ) \r
0066440
0066460 ( n a m
0066500 e ( r e a l - p r o c e e d -
0066520 c a s e - n a m e p c ) ) ) \r
0066540
*
0066600 ( c l : t h r o w
0066620 t a g ( c l : v a l u e s -
0066640 l i s t ( l i s t * c o n t
0066660 i n u a t i o n c o n d i t i
0066700 o n \r
0066720
*
0067000 (
0067020 c o n d \r
0067040
*
0067140 ( ( c l : s y m b o l p
0067160 \r
0067200
*
0067300 p r o c e e d
0067320 - c a s e ) \r
0067340
*
0067440 c l : v a l u e s
0067460 ) \r
0067500
*
0067600 ( ( c l : f b o u n d p n a
0067620 m e ) \r
0067640
*
0067740 ( c l : a p p l y \r
0067760
*
0070060 (
0070100 \r
0070120
*
0070220 p r o c e e d - a r g - c o l
0070240 l e c t o r \r
0070260
*
0070360 n a m e ) \r
0070400
*
0070520 c o n d i t i o n c l : v a l
0070540 u e s ) \r
0070560
*
0070660 ) \r
0070700
*
0071000 ( t c l : v a l u
0071020 e s ) ) ) ) ) ) ) \r
0071040
0071060 ( p r o c e e d - c a s e
0071100 ( l e t ( ( t a g ( p r o c
0071120 e e d - c a s e - t a g p c )
0071140 ) \r
0071160
0071200 ( s
0071220 e l e c t o r ( p r o c e e d
0071240 - c a s e - s e l e c t o r p
0071260 c ) ) \r
0071300
*
0071340 ( n a m e ( p r o c e e d - c
0071360 a s e - n a m e p c ) ) ) \r
0071400
*
0071440 ( c l : t h
0071460 r o w t a g ( l i s t * s
0071500 e l e c t o r c o n d i t i o
0071520 n \r
0071540
*
0071620 ( c o n d \r
0071640
*
0071720 ( ( c l :
0071740 s y m b o l p p r o c e e d -
0071760 c a s e ) \r
0072000
*
0072060 c l : v a l
0072100 u e s ) \r
0072120
*
0072200 ( ( c l : f b o
0072220 u n d p n a m e ) \r
0072240
*
0072320 (
0072340 c l : a p p l y ( p r o c e e
0072360 d - a r g - c o l l e c t o r \r
0072400
*
0072500 n
0072520 a m e ) \r
0072540
*
0072640 c o n d i t i o n c l : v a l
0072660 u e s ) ) \r
0072700
*
0072760 ( t c l : v
0073000 a l u e s ) ) ) ) ) ) ) \r
0073020 006 002 e l s e 006 001
0073040 ( c l : e r r o r ' b a d - p
0073060 r o c e e d - c a s e : n a m
0073100 e p r o c e e d - c a s e ) )
0073120 ) ) \r \r ( d e f i n e - p r o c
0073140 e e d - f u n c t i o n 006 002 a
0073160 b o r t 006 001 : t e s t t r u
0073200 e : r e p o r t " A b o r t
0073220 " ) \r \r ( d e f i n e - p r o c
0073240 e e d - f u n c t i o n 006 002 p
0073260 r o c e e d 006 001 : r e p o r t
0073300 " P r o c e e d w i t h n
0073320 o s p e c i a l a c t i o n
0073340 " : t e s t t r u e ) \r \r (
0073360 d e f i n e - p r o c e e d - f
0073400 u n c t i o n 006 002 u s e - v a
0073420 l u e 006 001 : r e p o r t " U
0073440 s e a d i f f e r e n t v
0073460 a l u e " : t e s t t r u e
0073500 \r
0073520
0073540 ( v a l u e
0073560 ( p r o g n ( c l : f o r m
0073600 a t * q u e r y - i o * " E
0073620 n t e r a n e w v a l u e
0073640 : " ) \r
0073660
*
0073720 ( e v a
0073740 l ( c l : r e a d * q u e r
0073760 y - i o * ) ) ) ) ) \r \r ( d e f
0074000 i n e - p r o c e e d - f u n c
0074020 t i o n 006 002 s t o r e - v a l
0074040 u e 006 001 : r e p o r t " S t
0074060 o r e a n e w v a l u e
0074100 a n d u s e i t " : t e s
0074120 t t r u e \r
0074140
*
0074200 ( v a l u e ( p r o g n
0074220 ( c l : f o r m a t * q u e r
0074240 y - i o * \r
0074260
*
0074340 " E n t e r a
0074360 v a l u e t o s t o r e :
0074400 " ) \r
0074420
*
0074460 ( c l :
0074500 e v a l ( c l : r e a d * q
0074520 u e r y - i o * ) ) ) ) ) \r \r (
0074540 c l : d e f u n 006 002 s i m p l
0074560 e - f o r m a t 006 001 ( s t r e
0074600 a m & r e s t a r g s ) (
0074620 c l : w h e n ( e q s t r e
0074640 a m t ) \r
0074660
*
0074720 ( c l : s e t
0074740 f s t r e a m * s t a n d a
0074760 r d - o u t p u t * ) ) \r
0075000
*
0075040 ( c l : d o l
0075060 i s t ( x a r g s ) \r
0075100
*
0075160 ( c l : p r i n t x s t r e
0075200 a m ) ) ) \r \r ( m o v d ? ' s
0075220 i m p l e - f o r m a t ' c l
0075240 : f o r m a t ) \r ( d e c l a r
0075260 e \ : d o n t c o p y \r \r (
0075300 r p a q q 006 002 s h o u l d - b
0075320 e - i n - p a c k a g e 006 001 \r
0075340 ( ( " X C L " :
0075360 e x t e r n a l d e f i n e -
0075400 c o n d i t i o n h a n d l e
0075420 r - b i n d c o n d i t i o n
0075440 - b i n d c o n d i t i o n -
0075460 c a s e i g n o r e - e r r o
0075500 r s \r
0075520 p r o c e e d - c a s e
0075540 d e f i n e - p r o c e e d - f
0075560 u n c t i o n c a t c h - a b
0075600 o r t c o n d i t i o n s i
0075620 m p l e - c o n d i t i o n w
0075640 a r n i n g \r
0075660 s i m p l e - w a
0075700 r n i n g s e r i o u s - c o
0075720 n d i t i o n s i m p l e - e
0075740 r r o r a s s e r t i o n - f
0075760 a i l e d c e l l - e r r o r
0076000 \r
0076020 u n b o u n d - v a r i a b l
0076040 e u n d e f i n e d - f u n c
0076060 t i o n i n d e x - b o u n d
0076100 s - e r r o r t y p e - m i s
0076120 m a t c h c o n t r o l - e r
0076140 r o r \r
0076160 i l l e g a l - g o i
0076200 l l e g a l - r e t u r n i l
0076220 l e g a l - t h r o w c a l l
0076240 - e r r o r t o o - m a n y -
0076260 a r g u m e n t s \r
0076300 t o o - f e
0076320 w - a r g u m e n t s i n v a
0076340 l i d - a r g u m e n t - l i s
0076360 t s t r e a m - e r r o r r
0076400 e a d - e r r o r e n d - o f
0076420 - f i l e \r
0076440 s t o r a g e - c o
0076460 n d i t i o n s t a c k - o v
0076500 e r f l o w s t o r a g e - e
0076520 x h a u s t e d m a k e - c o
0076540 n d i t i o n s i g n a l d
0076560 e b u g \r
0076600 f i n d - p r o c e e
0076620 d - c a s e c o m p u t e - p
0076640 r o c e e d - c a s e s i n v
0076660 o k e - p r o c e e d - c a s e
0076700 a b o r t p r o c e e d u
0076720 s e - v a l u e \r
0076740 s t o r e - v
0076760 a l u e ) \r ( "
0077000 S I " : i n t e r n a l * p
0077020 r o c e e d - c a s e s * * c
0077040 o n d i t i o n - h a n d l e r
0077060 - b i n d i n g s * ) ) ) \r ) \r
0077100 \r ( p u t p r o p s 006 002 e r r
0077120 o r - r u n t i m e f i l e t
0077140 y p e 006 001 c l : c o m p i l e
0077160 - f i l e ) \r ( p u t p r o p s
0077200 e r r o r - r u n t i m e c
0077220 o p y r i g h t ( " X e r o x
0077240 C o r p o r a t i o n " 1 9
0077260 8 6 ) ) \r ( d e c l a r e \ :
0077300 d o n t c o p y \r ( f i l e
0077320 m a p ( n i l ) ) ) \r s t o p
0077340 \r
0077341