$ od -c -N 50000 [eris]<LispCore>SOURCES>ERROR-RUNTIME.DCOM!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 " L I S
0000060 P " ) \r ( i l : f i l e c r e a
0000100 t e d " 2 0 - O c t - 8 6 1
0000120 7 : 2 4 : 3 3 " ( " c o m p i
0000140 l e d o n " i l : { e r i
0000160 s } < l i s p c o r e > s o u r
0000200 c e s > e r r o r - r u n t i m
0000220 e . \ ; 8 ) \r " 1 9 - O c t -
0000240 8 6 1 8 : 0 7 : 5 0 " " C O
0000260 M P I L E - F I L E d " i l :
0000300 | i n | " X e r o x L i s p
0000320 1 9 - O c t - 8 6 . . . "
0000340 i l : | d a t e d | \r " 1 9 -
0000360 O c t - 8 6 2 3 : 2 8 : 2 1 "
0000400 ) \r ( i l : f i l e c r e a t e
0000420 d " 2 0 - O c t - 8 6 1 7 :
0000440 2 3 : 2 9 " i l : { e r i s }
0000460 < l i s p c o r e > s o u r c e
0000500 s > e r r o r - r u n t i m e .
0000520 \ ; 8 3 4 8 0 0 i l : | c h
0000540 a n g e s | \r i l : | t o : |
0000560 ( i l : v a r s i l : e r r
0000600 o r - r u n t i m e c o m s )
0000620 ( i l : f u n c t i o n s i l
0000640 : c o n d i t i o n - t y p e p
0000660 i l : c o n d i t i o n - s u
0000700 b t y p e p \r i l : c o n d i
0000720 t i o n - t y p e - o f ) ( i
0000740 l : s t r u c t u r e s e r r
0000760 o r ) i l : | p r e v i o u s
0001000 | i l : | d a t e : | " 1 7
0001020 - O c t - 8 6 1 7 : 4 9 : 2 6
0001040 " \r i l : { e r i s } < l i s
0001060 p c o r e > s o u r c e s > e r
0001100 r o r - r u n t i m e . \ ; 7 )
0001120 \r ( i l : r p a q q i l : e r
0001140 r o r - r u n t i m e c o m s
0001160 ( ( i l : c o m s ( i l : *
0001200 i l : | ; ; ; | " I n t e r n
0001220 a l f u n c t i o n s . " )
0001240 ( i l : f u n c t i o n s \r i
0001260 l : c o n d i t i o n - t y p e
0001300 p i l : c o n d i t i o n - s
0001320 u b t y p e p i l : c o n d i
0001340 t i o n - t y p e - o f i l :
0001360 f a k e - t y p e p - f o r - c
0001400 o n d i t i o n s \r i l : f a
0001420 k e - s u b t y p e p - f o r -
0001440 c o n d i t i o n s i l : f a
0001460 k e - t y p e - o f - f o r - c
0001500 o n d i t i o n s ) ( i l : f
0001520 u n c t i o n s i l : c o n d
0001540 i t i o n - h a n d l e r \r i
0001560 l : c o n d i t i o n - r e p o
0001600 r t e r i l : % p r i n t - c
0001620 o n d i t i o n i l : % p r o
0001640 c e e d - c a s e - p r i n t e
0001660 r i l : % p r o c e e d - c a
0001700 s e - d e f a u l t - r e p o r
0001720 t e r \r i l : r e p o r t - c
0001740 o n d i t i o n i l : c o n d
0001760 i t i o n - p a r e n t ) ( i
0002000 l : v a r i a b l e s i l : *
0002020 c o n d i t i o n - h a n d l e
0002040 r - b i n d i n g s * \r i l :
0002060 * p r o c e e d - c a s e s * )
0002100 ( i l : f u n c t i o n s i
0002120 l : c h e c k - t y p e - f a i
0002140 l i l : e c a s e - f a i l
0002160 i l : a s s e r t - f a i l )
0002200 ( i l : f u n c t i o n s \r i
0002220 l : m a k e - i n t o - c o n d
0002240 i t i o n i l : r a i s e - s
0002260 i g n a l i l : d e f a u l t
0002300 - h a n d l e - c o n d i t i o
0002320 n i l : d e f a u l t - p r o
0002340 c e e d - r e p o r t e r \r i
0002360 l : f i x - i n h e r i t a n c
0002400 e - l i n k s i l : d e f a u
0002420 l t - p r o c e e d - t e s t
0002440 i l : t e s t - p r o c e e d -
0002460 c a s e ) ) ( i l : c o m s
0002500 ( i l : * i l : | ; ; ; | \r
0002520 " P r e - d e f i n e d c o n
0002540 d i t i o n t y p e s . " )
0002560 ( i l : s t r u c t u r e s i
0002600 l : c o n d i t i o n i l : s
0002620 i m p l e - c o n d i t i o n
0002640 i l : w a r n i n g \r i l : s
0002660 i m p l e - w a r n i n g i l
0002700 : o l d - b r e a k 1 i l : s
0002720 e r i o u s - c o n d i t i o n
0002740 e r r o r i l : s i m p l e
0002760 - e r r o r i l : o l d - i n
0003000 t e r l i s p - e r r o r \r i
0003020 l : a s s e r t i o n - f a i l
0003040 e d i l : c e l l - e r r o r
0003060 i l : u n b o u n d - v a r i
0003100 a b l e i l : u n d e f i n e
0003120 d - f u n c t i o n i l : n o
0003140 - p r o c e e d - t e s t \r i
0003160 l : i n d e x - b o u n d s - e
0003200 r r o r ) ( i l : c o m s (
0003220 i l : f u n c t i o n s i l :
0003240 p r e t t y - t y p e - n a m e
0003260 ) ( i l : s t r u c t u r e s
0003300 i l : t y p e - m i s m a t c
0003320 h ) ) ( \r i l : s t r u c t u
0003340 r e s i l : c o n t r o l - e
0003360 r r o r i l : i l l e g a l -
0003400 g o i l : i l l e g a l - r e
0003420 t u r n i l : i l l e g a l -
0003440 t h r o w i l : b a d - p r o
0003460 c e e d - c a s e ) ( \r i l :
0003500 s t r u c t u r e s i l : c a
0003520 l l - e r r o r i l : t o o -
0003540 m a n y - a r g u m e n t s i
0003560 l : t o o - f e w - a r g u m e
0003600 n t s i l : i n v a l i d - a
0003620 r g u m e n t - l i s t ) ( \r
0003640 i l : s t r u c t u r e s i l
0003660 : s t r e a m - e r r o r i l
0003700 : r e a d - e r r o r i l : e
0003720 n d - o f - f i l e ) ( i l :
0003740 s t r u c t u r e s i l : s t
0003760 o r a g e - c o n d i t i o n
0004000 \r i l : s t a c k - o v e r f l
0004020 o w i l : s t o r a g e - e x
0004040 h a u s t e d ) ) ( i l : c o
0004060 m s ( i l : * i l : | ; ; ;
0004100 | \r " E x p o r t e d s y m
0004120 b o l s . A n y t h i n g h
0004140 e r e t h a t ' s n o t i
0004160 n C L s h o u l d b e i
0004200 n X C L . " ) ( i l : v a r
0004220 i a b l e s \r * b r e a k - o
0004240 n - w a r n i n g s * ) ( i l
0004260 : f u n c t i o n s i l : m a
0004300 k e - c o n d i t i o n i l :
0004320 s i g n a l e r r o r c e r
0004340 r o r w a r n b r e a k i
0004360 l : d e b u g ) ( \r i l : s t
0004400 r u c t u r e s i l : p r o c
0004420 e e d - c a s e i l : r e a l
0004440 - p r o c e e d - c a s e ) (
0004460 i l : f u n c t i o n s i l :
0004500 f i n d - p r o c e e d - c a s
0004520 e \r i l : c o m p u t e - p r
0004540 o c e e d - c a s e s i l : i
0004560 n v o k e - p r o c e e d - c a
0004600 s e ) ( i l : f u n c t i o n
0004620 s i l : a b o r t i l : p r
0004640 o c e e d i l : u s e - v a l
0004660 u e \r i l : s t o r e - v a l
0004700 u e ) ) ( i l : c o m s ( i
0004720 l : f u n c t i o n s i l : s
0004740 i m p l e - f o r m a t ) ( i
0004760 l : p ( i l : m o v d ? ( q
0005000 u o t e i l : s i m p l e - f
0005020 o r m a t ) ( \r q u o t e f
0005040 o r m a t ) ) ) ) ( i l : d e
0005060 c l a r e \ : i l : d o n t c
0005100 o p y ( i l : v a r s i l :
0005120 s h o u l d - b e - i n - p a c
0005140 k a g e ) ) ( i l : p r o p
0005160 i l : f i l e t y p e \r i l :
0005200 e r r o r - r u n t i m e ) ) )
0005220 \r i l : | e x p a n d - C O N D
0005240 I T I O N - T Y P E P | i l :
0005260 d 1 \r ( i l : l ( 1 i l : $
0005300 $ m a c r o - e n v i r o n m e
0005320 n t 0 i l : $ $ m a c r o -
0005340 f o r m ) ) \0 027 003 \0 \0 002 @ 002 021
0005360 ! 002 H 001 271 H 002 001 272 g \0 \0 I J h 032
0005400 032 032 020 \0 n i l \r ( 1 4 i l : f
0005420 a k e - t y p e p - f o r - c o
0005440 n d i t i o n s ) \r ( ) \r ( i l
0005460 : s e t f - m a c r o - f u n c
0005500 t i o n ( q u o t e i l : c
0005520 o n d i t i o n - t y p e p )
0005540 ( q u o t e i l : | e x p a n
0005560 d - C O N D I T I O N - T Y P E
0005600 P | ) ) \r i l : | e x p a n d -
0005620 C O N D I T I O N - S U B T Y P
0005640 E P | i l : d 1 \r ( i l : l
0005660 ( 1 i l : $ $ m a c r o - e n
0005700 v i r o n m e n t 0 i l : $
0005720 $ m a c r o - f o r m ) ) \0 027
0005740 003 \0 \0 002 @ 002 021 ! 002 H 001 271 H 002 001 272
0005760 g \0 \0 I J h 032 032 032 020 \0 n i l \r (
0006000 1 4 i l : f a k e - s u b t y
0006020 p e p - f o r - c o n d i t i o
0006040 n s ) \r ( ) \r ( i l : s e t f -
0006060 m a c r o - f u n c t i o n (
0006100 q u o t e i l : c o n d i t i
0006120 o n - s u b t y p e p ) ( q u
0006140 o t e i l : | e x p a n d - C
0006160 O N D I T I O N - S U B T Y P E
0006200 P | ) ) \r i l : | e x p a n d -
0006220 C O N D I T I O N - T Y P E - O
0006240 F | i l : d 1 \r ( i l : l (
0006260 1 i l : $ $ m a c r o - e n v
0006300 i r o n m e n t 0 i l : $ $
0006320 m a c r o - f o r m ) ) \0 017 001
0006340 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 H h 032 032
0006360 020 \0 n i l \r ( 8 i l : f a k e
0006400 - t y p e - o f - f o r - c o n
0006420 d i t i o n s ) \r ( ) \r ( i l :
0006440 s e t f - m a c r o - f u n c t
0006460 i o n ( q u o t e i l : c o
0006500 n d i t i o n - t y p e - o f )
0006520 ( q u o t e i l : | e x p a
0006540 n d - C O N D I T I O N - T Y P
0006560 E - O F | ) ) \r i l : f a k e -
0006600 t y p e p - f o r - c o n d i t
0006620 i o n s i l : d 1 \r ( i l : l
0006640 ( 1 t y p e 0 i l : d a
0006660 t u m ) ) \0 024 \0 \0 \0 002 @ 003 264 020
0006700 @ 001 004 l 004 360 264 \b @ 001 A \n \0 \0 020 \0
0006720 ( 1 7 i l : f a k e - s u b t
0006740 y p e p - f o r - c o n d i t i
0006760 o n s ) \r n i l \r ( ) \r i l : f
0007000 a k e - s u b t y p e p - f o r
0007020 - c o n d i t i o n s i l : d
0007040 1 \r ( i l : l ( 1 i l : t 2
0007060 0 i l : t 1 ) ) \0 # \0 \0 \0
0007100 002 @ 221 h 200 i 263 024 @ d A 360 222 256 i 212
0007120 g \0 \0 \n \0 \0 b \0 260 352 h 264 003 i i \n
0007140 \0 \0 020 \0 ( 3 2 v a l u e s 2
0007160 0 i l : g e t p r o p ) \r ( 1
0007200 7 i l : % c o n d i t i o n -
0007220 p a r e n t ) \r ( ) \r i l : f a
0007240 k e - t y p e - o f - f o r - c
0007260 o n d i t i o n s i l : d 1 \r
0007300 ( i l : l ( 0 i l : d a t u
0007320 m ) ) \0 004 \0 \0 \0 001 @ 001 020 \0 n i
0007340 l \r n i l \r ( ) \r i l : | e x p
0007360 a n d - C O N D I T I O N - H A
0007400 N D L E R | i l : d 1 \r ( i l
0007420 : l ( 1 i l : $ $ m a c r o
0007440 - e n v i r o n m e n t 0 i
0007460 l : $ $ m a c r o - f o r m ) )
0007500 \0 022 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0
0007520 H o \0 \0 \0 032 032 020 \0 n i l \r ( 8
0007540 i l : g e t p r o p ) \r ( 1 3
0007560 ( ( q u o t e i l : % c o n
0007600 d i t i o n - h a n d l e r ) )
0007620 ) \r ( i l : s e t f - m a c r o
0007640 - f u n c t i o n ( q u o t e
0007660 i l : c o n d i t i o n - h a
0007700 n d l e r ) ( q u o t e i l
0007720 : | e x p a n d - C O N D I T I
0007740 O N - H A N D L E R | ) ) \r i l
0007760 : | e x p a n d - C O N D I T I
0010000 O N - R E P O R T E R | i l :
0010020 d 1 \r ( i l : l ( 1 i l : $
0010040 $ m a c r o - e n v i r o n m e
0010060 n t 0 i l : $ $ m a c r o -
0010100 f o r m ) ) \0 022 001 \0 \0 002 @ 002 001
0010120 021 001 \0 g \0 \0 H o \0 \0 \0 032 032 020 \0 n
0010140 i l \r ( 8 i l : g e t p r o p
0010160 ) \r ( 1 3 ( ( q u o t e i
0010200 l : % c o n d i t i o n - r e p
0010220 o r t e r ) ) ) \r ( i l : s e t
0010240 f - m a c r o - f u n c t i o n
0010260 ( q u o t e i l : c o n d i
0010300 t i o n - r e p o r t e r ) (
0010320 q u o t e i l : | e x p a n d
0010340 - C O N D I T I O N - R E P O R
0010360 T E R | ) ) \r i l : % p r i n t
0010400 - c o n d i t i o n i l : d 1
0010420 \r ( i l : l ( 2 i l : l e v
0010440 e l 1 s t r e a m 0 i l
0010460 : c o n d i t i o n ) i l : f
0010500 0 * p r i n t - e s c a p e
0010520 * ) \0 034 \0 001 \0 003 P 262 024 A o \0 \0
0010540 \0 @ \t \0 \0 @ 322 @ 323 \r 005 \0 \0 020 @ A
0010560 \n \0 \0 020 \0 ( 2 5 i l : r e p o
0010600 r t - c o n d i t i o n 1 9
0010620 f o r m a t 1 1 t y p e - o
0010640 f ) \r n i l \r ( 7 " # < C o
0010660 n d i t i o n ~ S @ ~ O ,
0010700 ~ O > " ) \r i l : % p r o c e e
0010720 d - c a s e - p r i n t e r i
0010740 l : d 1 \r ( i l : l ( 2 i l
0010760 : l e v e l 1 s t r e a m
0011000 0 i l : p c ) i l : f 0
0011020 * p r i n t - e s c a p e * )
0011040 \0 024 \0 001 \0 003 P 226 @ A B \v \0 \0 020 @
0011060 A l 002 @ \t \0 \0 016 020 \0 ( 1 6 i l
0011100 : p r o c e e d - c a s e - r e
0011120 p o r t 7 i l : d e f a u l
0011140 t - s t r u c t u r e - p r i n
0011160 t e r ) \r n i l \r ( ) \r i l : %
0011200 p r o c e e d - c a s e - d e f
0011220 a u l t - r e p o r t e r i l
0011240 : d 1 \r ( i l : l ( 1 s t r
0011260 e a m 0 i l : p c ) ) \0 030
0011300 \0 \0 \0 002 @ A l 002 @ \t \0 \0 301 002 311 \0
0011320 g \0 \0 g \0 \0 \v \0 \0 016 020 \0 ( 2 0
0011340 g e t f 7 i l : p r o c e e
0011360 d - c a s e - n a m e ) \r ( 1 7
0011400 i l : d e f a u l t - p r o c
0011420 e e d - r e p o r t e r 1 4
0011440 i l : % d e f a u l t - p r o c
0011460 e e d - r e p o r t ) \r ( ) \r i
0011500 l : r e p o r t - c o n d i t i
0011520 o n i l : d 1 \r ( i l : l (
0011540 1 s t r e a m 0 i l : c o
0011560 n d i t i o n ) ) \0 @ 003 \0 \0 002
0011600 @ \t \0 \0 021 ! 002 H g \0 \0 \n \0 \0 271 H
0011620 250 o \0 \0 \0 @ \n \0 \0 020 I 262 032 A 226 @
0011640 A l 002 I 016 020 \b \0 \0 272 @ J l 002 I 016
0011660 J \t \0 \0 020 H g \0 \0 \n \0 \0 X 260 313 \0
0011700 ( 5 9 i l : g e t p r o p 5
0011720 1 g e t - o u t p u t - s t r
0011740 e a m - s t r i n g 4 0 m a
0011760 k e - s t r i n g - o u t p u t
0012000 - s t r e a m 2 4 b r e a k
0012020 1 3 i l : g e t p r o p 3
0012040 i l : f a k e - t y p e - o f
0012060 - f o r - c o n d i t i o n s )
0012100 \r ( 5 6 i l : % c o n d i t i
0012120 o n - p a r e n t 1 0 i l :
0012140 % c o n d i t i o n - r e p o r
0012160 t e r ) \r ( 2 0 " N o r e
0012200 p o r t f u n c t i o n f o
0012220 u n d f o r ~ S . " ) \r i l
0012240 : | e x p a n d - C O N D I T I
0012260 O N - P A R E N T | i l : d 1
0012300 \r ( i l : l ( 1 i l : $ $ m
0012320 a c r o - e n v i r o n m e n t
0012340 0 i l : $ $ m a c r o - f o
0012360 r m ) ) \0 022 001 \0 \0 002 @ 002 001 021 001
0012400 \0 g \0 \0 H o \0 \0 \0 032 032 020 \0 n i l
0012420 \r ( 8 i l : g e t p r o p ) \r
0012440 ( 1 3 ( ( q u o t e i l :
0012460 % c o n d i t i o n - p a r e n
0012500 t ) ) ) \r ( i l : s e t f - m a
0012520 c r o - f u n c t i o n ( q u
0012540 o t e i l : c o n d i t i o n
0012560 - p a r e n t ) ( q u o t e
0012600 i l : | e x p a n d - C O N D I
0012620 T I O N - P A R E N T | ) ) \r (
0012640 p r o c l a i m ( q u o t e
0012660 ( s p e c i a l i l : * c o n
0012700 d i t i o n - h a n d l e r - b
0012720 i n d i n g s * ) ) ) \r ( o r
0012740 ( b o u n d p ( q u o t e i
0012760 l : * c o n d i t i o n - h a n
0013000 d l e r - b i n d i n g s * ) )
0013020 ( i l : s e t q i l : * c o
0013040 n d i t i o n - h a n d l e r -
0013060 b i n d i n g s * n i l ) ) \r
0013100 ( l e t * ( ( i l : a 0 7 9 4
0013120 ( q u o t e i l : * c o n d
0013140 i t i o n - h a n d l e r - b i
0013160 n d i n g s * ) ) ( i l : a 0
0013200 7 9 5 ( q u o t e i l : v a
0013220 r i a b l e ) ) ( i l : a 0 7
0013240 9 6 \r " C o n d i t i o n h
0013260 a n d l e r b i n d i n g s
0013300 t a c k " ) ) ( p r o g n (
0013320 c o n d ( ( f b o u n d p (
0013340 q u o t e i l : s e t - d o c
0013360 u m e n t a t i o n ) ) ( \r i
0013400 l : s e t - d o c u m e n t a t
0013420 i o n i l : a 0 7 9 4 i l :
0013440 a 0 7 9 5 i l : a 0 7 9 6 ) )
0013460 ) i l : a 0 7 9 6 ) ) \r ( p r
0013500 o c l a i m ( q u o t e ( s
0013520 p e c i a l i l : * p r o c e
0013540 e d - c a s e s * ) ) ) \r ( o r
0013560 ( b o u n d p ( q u o t e
0013600 i l : * p r o c e e d - c a s e
0013620 s * ) ) ( i l : s e t q i l
0013640 : * p r o c e e d - c a s e s *
0013660 n i l ) ) \r ( l e t * ( ( i
0013700 l : a 0 7 9 7 ( q u o t e i
0013720 l : * p r o c e e d - c a s e s
0013740 * ) ) ( i l : a 0 7 9 8 ( q
0013760 u o t e i l : v a r i a b l e
0014000 ) ) ( i l : a 0 7 9 9 \r " A
0014020 c t i v e p r o c e e d c a
0014040 s e s t a c k " ) ) ( p r o
0014060 g n ( c o n d ( ( f b o u n
0014100 d p ( q u o t e i l : s e t
0014120 - d o c u m e n t a t i o n ) )
0014140 ( i l : s e t - d o c u m e n
0014160 t a t i o n \r i l : a 0 7 9 7
0014200 i l : a 0 7 9 8 i l : a 0 7
0014220 9 9 ) ) ) i l : a 0 7 9 9 ) )
0014240 \r i l : c h e c k - t y p e - f
0014260 a i l a 0 0 0 1 a 0 0 0 2 i l
0014300 : d 1 \r ( i l : l ( 0 i l :
0014320 c o n d i t i o n ) i l : f
0014340 0 i l : p r o c e e d a b l e
0014360 ) \0 \f \0 001 \0 001 P 264 \t @ g \0 \0 \n
0014400 \0 \0 020 \0 ( 9 i l : f a k e - t
0014420 y p e p - f o r - c o n d i t i
0014440 o n s ) \r ( 6 i l : t y p e -
0014460 m i s m a t c h ) \r ( ) \r i l :
0014500 c h e c k - t y p e - f a i l a
0014520 0 0 0 1 a 0 0 0 3 i l : d 1 \r
0014540 ( i l : l ( 0 i l : p r o c
0014560 e e d - c a s e ) i l : i 1
0014600 * s t a n d a r d - o u t p u
0014620 t * i l : f 0 i l : p l a
0014640 c e ) \0 \v \0 001 \0 002 i o \0 \0 \0 P
0014660 \v \0 \0 020 \0 ( 8 f o r m a t ) \r
0014700 n i l \r ( 4 " C h a n g e
0014720 t h e v a l u e o f ~ A "
0014740 ) \r i l : c h e c k - t y p e -
0014760 f a i l a 0 0 0 1 i l : d 1 \r
0015000 ( i l : p 0 i l : * p r o c
0015020 e e d - c a s e s * i l : f
0015040 1 i l : p r o c e e d - c a s
0015060 e 1 1 4 3 i l : f 2 i l :
0015100 * p r o c e e d - c a s e s *
0015120 i l : f 3 i l : p l a c e
0015140 i l : f 4 i l : m e s s a g
0015160 e i l : f 5 i l : v a l u
0015200 e i l : f 6 i l : d e s i
0015220 r e d - t y p e ) \0 D 001 006 \0 \0
0015240 g \0 \0 g \0 \0 g \0 \0 g \0 \0 Q g \0 \0
0015260 j g \0 \0 g \0 \0 g \0 \0 g \0 \0 \r \n \0
0015300 \0 R 032 021 001 \0 g \0 \0 g \0 \0 S g \0 \0
0015320 U g \0 \0 V g \0 \0 T \r \t \0 \0 \t \0 \0
0015340 022 032 020 \0 ( 6 3 i l : \ \ m v l
0015360 i s t 6 0 e r r o r 3 2
0015400 i l : m a k e - p r o c e e d -
0015420 c a s e ) \r ( 5 5 : m e s s a
0015440 g e 5 1 : d e s i r e d - t
0015460 y p e 4 7 : v a l u e 4 3
0015500 : n a m e 4 0 i l : t y p
0015520 e - m i s m a t c h 2 8 i l
0015540 : c h e c k - t y p e - f a i l
0015560 a 0 0 0 1 a 0 0 0 3 2 5 : r
0015600 e p o r t 2 2 i l : c h e c
0015620 k - t y p e - f a i l a 0 0 0 1
0015640 a 0 0 0 2 1 9 : t e s t 1
0015660 5 : s e l e c t o r 1 1 :
0015700 t a g 8 i l : s t o r e - v
0015720 a l u e 5 : n a m e 2 :
0015740 n o r m a l ) \r ( ) \r i l : c h
0015760 e c k - t y p e - f a i l a 0 0
0016000 0 4 i l : d 1 \r ( i l : l (
0016020 1 i l : n e w 0 i g n o r
0016040 e ) ) \0 003 \0 \0 \0 002 A 020 \0 n i l
0016060 \r n i l \r ( ) \r i l : c h e c k
0016100 - t y p e - f a i l i l : d 1
0016120 \r ( i l : p 0 i l : p r o c
0016140 e e d - c a s e 1 1 4 3 i l :
0016160 i 4 i l : m e s s a g e i
0016200 l : i 3 i l : d e s i r e d
0016220 - t y p e i l : i 2 i l :
0016240 v a l u e i l : i 1 i l :
0016260 p l a c e i l : i 0 i l :
0016300 p r o c e e d a b l e ) \0 F 006
0016320 \0 \0 005 h h 032 021 001 \0 H g \0 \0 \n \0 \0
0016340 022 021 A 005 I 001 272 I 002 273 J g \0 \0 360 224
0016360 K \t \0 \0 020 g \0 \0 j 275 274 K 260 026 d 001
0016400 375 002 M k 330 ] n 002 \0 361 226 h l 4 \n \0
0016420 \0 277 265 354 M L 016 020 \0 ( 6 1 i l :
0016440 \ \ l i s p e r r o r 3 2 v
0016460 a l u e s - l i s t 1 2 i l
0016500 : \ \ c a t c h - f u n c a l l
0016520 ) \r ( 3 6 i l : c h e c k - t
0016540 y p e - f a i l a 0 0 0 4 2 6
0016560 : n o r m a l 9 i l : c h
0016600 e c k - t y p e - f a i l a 0 0
0016620 0 1 ) \r ( ) \r i l : e c a s e -
0016640 f a i l a 0 0 0 1 a 0 0 0 2 i
0016660 l : d 1 \r ( i l : l ( 0 i l
0016700 : c o n d i t i o n ) i l : f
0016720 0 i l : p r o c e e d a b l
0016740 e ) \0 003 \0 001 \0 001 P 020 \0 n i l \r
0016760 n i l \r ( ) \r i l : e c a s e -
0017000 f a i l a 0 0 0 1 a 0 0 0 3 i
0017020 l : d 1 \r ( i l : l ( 0 i l
0017040 : p r o c e e d - c a s e ) i
0017060 l : i 1 * s t a n d a r d -
0017100 o u t p u t * i l : f 0 i
0017120 l : p l a c e ) \0 \v \0 001 \0 002 i
0017140 o \0 \0 \0 P \v \0 \0 020 \0 ( 8 f o r
0017160 m a t ) \r n i l \r ( 4 " C h
0017200 a n g e t h e v a l u e o
0017220 f ~ A " ) \r i l : e c a s e -
0017240 f a i l a 0 0 0 1 i l : d 1 \r
0017260 ( i l : p 0 i l : * p r o c
0017300 e e d - c a s e s * i l : f
0017320 1 i l : p r o c e e d - c a s
0017340 e 1 1 4 7 i l : f 2 i l :
0017360 * p r o c e e d - c a s e s *
0017400 i l : f 3 i l : s e l e c t
0017420 o r s i l : f 4 i l : p l
0017440 a c e i l : f 5 i l : v a
0017460 l u e ) \0 < 001 005 \0 \0 g \0 \0 g \0
0017500 \0 g \0 \0 g \0 \0 Q g \0 \0 j g \0 \0 g
0017520 \0 \0 g \0 \0 g \0 \0 \r \n \0 \0 R 032 021 001
0017540 \0 o \0 \0 \0 T U o \0 \0 \0 S \r 005 \0 \0
0017560 \t \0 \0 022 032 020 \0 ( 5 5 i l : \ \
0017600 m v l i s t 5 2 e r r o r
0017620 3 2 i l : m a k e - p r o c e
0017640 e d - c a s e ) \r ( 2 8 i l :
0017660 e c a s e - f a i l a 0 0 0 1 a
0017700 0 0 0 3 2 5 : r e p o r t
0017720 2 2 i l : e c a s e - f a i l
0017740 a 0 0 0 1 a 0 0 0 2 1 9 : t
0017760 e s t 1 5 : s e l e c t o r
0020000 1 1 : t a g 8 i l : s t
0020020 o r e - v a l u e 5 : n a m
0020040 e 2 : n o r m a l ) \r ( 4
0020060 7 " ~ # [ w r o n g ~ ; n o t
0020100 ~ S ~ ; n e i t h e r ~ S
0020120 n o r ~ S ~ : ; n o t ~ @ { ~
0020140 # [ ~ ; o r ~ ] ~ S ~ ^ , ~
0020160 } ~ ] " 4 1 " T h e v a l
0020200 u e o f ~ S , ~ S , ~ & i
0020220 s ~ ? . " ) \r i l : e c a s e
0020240 - f a i l a 0 0 0 4 i l : d 1
0020260 \r ( i l : l ( 1 i l : v 0
0020300 i g n o r e ) ) \0 003 \0 \0 \0 002
0020320 A 020 \0 n i l \r n i l \r ( ) \r i l
0020340 : e c a s e - f a i l i l : d
0020360 1 \r ( i l : p 0 i l : p r o
0020400 c e e d - c a s e 1 1 4 7 i l
0020420 : i 3 i l : s e l e c t o r
0020440 s i l : i 2 i l : v a l u
0020460 e i l : i 1 i l : p l a c
0020500 e i l : i 0 i l : p r o c
0020520 e e d a b l e ) \0 F 006 \0 \0 004 h
0020540 h 032 021 001 \0 H g \0 \0 \n \0 \0 022 021 A 005
0020560 I 001 272 I 002 273 J g \0 \0 360 224 K \t \0 \0
0020600 020 g \0 \0 j 275 274 K 260 026 d 001 375 002 M k
0020620 330 ] n 002 \0 361 226 h l 4 \n \0 \0 277 265 354
0020640 M L 016 020 \0 ( 6 1 i l : \ \ l i
0020660 s p e r r o r 3 2 v a l u e
0020700 s - l i s t 1 2 i l : \ \ c
0020720 a t c h - f u n c a l l ) \r ( 3
0020740 6 i l : e c a s e - f a i l a
0020760 0 0 0 4 2 6 : n o r m a l
0021000 9 i l : e c a s e - f a i l a
0021020 0 0 0 1 ) \r ( ) \r i l : a s s e
0021040 r t - f a i l a 0 0 0 1 a 0 0 0
0021060 2 i l : d 1 \r ( i l : l ( 1
0021100 s t r e a m 0 i l : d a t
0021120 u m ) ) \0 \n \0 \0 \0 002 o \0 \0 \0 A
0021140 \n \0 \0 020 \0 ( 7 w r i t e - s t
0021160 r i n g ) \r n i l \r ( 3 " R
0021200 e - t e s t a s s e r t i o n
0021220 " ) \r i l : a s s e r t - f a i
0021240 l a 0 0 0 1 i l : d 1 \r ( i l
0021260 : p 0 i l : * p r o c e e d
0021300 - c a s e s * i l : f 1 i
0021320 l : p r o c e e d - c a s e 1 1
0021340 5 1 i l : f 2 i l : * p r
0021360 o c e e d - c a s e s * i l :
0021400 f 3 s t r i n g i l : f
0021420 4 i l : a r g s ) \0 : 001 004 \0
0021440 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 Q g \0
0021460 \0 j g \0 \0 h g \0 \0 g \0 \0 \r \n \0 \0
0021500 R 032 021 001 \0 g \0 \0 g \0 \0 S g \0 \0 T
0021520 \r 005 \0 \0 \t \0 \0 022 032 020 \0 ( 5 3 i
0021540 l : \ \ m v l i s t 5 0 e r
0021560 r o r 3 0 i l : m a k e - p
0021600 r o c e e d - c a s e ) \r ( 4 5
0021620 : f o r m a t - a r g u m e n
0021640 t s 4 1 : f o r m a t - s t
0021660 r i n g 3 8 i l : a s s e r
0021700 t i o n - f a i l e d 2 6 i
0021720 l : a s s e r t - f a i l a 0 0
0021740 0 1 a 0 0 0 2 2 3 : r e p o
0021760 r t 1 9 : t e s t 1 5 :
0022000 s e l e c t o r 1 1 : t a g
0022020 8 i l : p r o c e e d 5
0022040 : n a m e 2 : n o r m a l )
0022060 \r ( ) \r i l : a s s e r t - f a
0022100 i l a 0 0 0 3 i l : d 1 \r n i
0022120 l \0 003 \0 \0 \0 \0 h 020 \0 n i l \r n
0022140 i l \r ( ) \r i l : a s s e r t -
0022160 f a i l i l : d 1 \r ( i l : l
0022200 ( 0 i l : | - a r g s - | )
0022220 i l : p 1 3 i l : p r o c
0022240 e e d - c a s e 1 1 5 1 i l :
0022260 p 2 i l : a r g s i l : p
0022300 1 s t r i n g ) \0 207 016 \0 002
0022320 \0 e 021 001 \0 k a 021 a \a H l 002 021 2 \f
0022340 O 022 d O 020 363 262 ( 277 O 024 022 272 h h 032
0022360 021 001 \r O 032 g \0 \0 \n \0 \0 022 [ 001 274 K
0022400 002 275 L g \0 \0 360 262 ( M \t \0 \0 020 a _
0022420 030 277 O 026 265 023 O 030 h 032 _ 026 _ 024 277 O
0022440 022 k 324 _ 022 260 275 O 030 & _ 026 277 260 362 g
0022460 \0 \0 j _ 016 277 276 M 260 030 d 001 375 002 O 016
0022500 k 330 _ 016 n 002 \0 361 226 h l 4 \n \0 \0 277
0022520 265 352 O 016 N 016 020 \0 ( 1 2 5 i l :
0022540 \ \ l i s p e r r o r 5 9 v
0022560 a l u e s - l i s t 4 1 i l
0022600 : \ \ c a t c h - f u n c a l l
0022620 ) \r ( 9 6 i l : a s s e r t -
0022640 f a i l a 0 0 0 3 5 2 : n o
0022660 r m a l 3 8 i l : a s s e r
0022700 t - f a i l a 0 0 0 1 ) \r ( ) \r
0022720 i l : m a k e - i n t o - c o n
0022740 d i t i o n i l : d 1 \r ( i l
0022760 : l ( 2 i l : a r g s 1
0023000 i l : d e s i r e d - t y p e
0023020 0 i l : d a t u m ) ) \0 l 003
0023040 \0 \0 003 @ d g \0 \0 \n \0 \0 221 @ 020 021 !
0023060 002 H d 303 \0 \0 262 9 277 @ g \0 \0 \n \0 \0
0023100 262 & g \0 \0 k 272 271 @ B 260 026 d 001 375 002
0023120 J k 330 Z n 002 \0 361 226 h l 4 \n \0 \0 277
0023140 265 354 J I 016 020 o \0 \0 \0 @ \n \0 \0 020 \t
0023160 \0 \0 264 020 A g \0 \0 @ g \0 \0 B \r 005 \0
0023200 \0 020 g \0 \0 H o \0 \0 \0 \f \0 \0 020 \0 (
0023220 1 0 5 i l : c h e c k - t y p
0023240 e - f a i l 9 3 i l : m a k
0023260 e - c o n d i t i o n 7 8 s
0023300 t r i n g p 7 4 e r r o r
0023320 5 9 i l : \ \ l i s p e r r o
0023340 r 2 8 i l : f a k e - s u b
0023360 t y p e p - f o r - c o n d i t
0023400 i o n s 7 i l : f a k e - t
0023420 y p e p - f o r - c o n d i t i
0023440 o n s ) \r ( 9 7 i l : d a t u
0023460 m 8 8 : f o r m a t - a r g
0023500 u m e n t s 8 4 : f o r m a
0023520 t - s t r i n g 3 3 i l : m
0023540 a k e - c o n d i t i o n 2 5
0023560 i l : c o n d i t i o n 1 8
0023600 i l : l i t a t o m 4 i l
0023620 : c o n d i t i o n ) \r ( 1 0
0023640 2 ( o r s y m b o l s t r
0023660 i n g ) 7 0 " ~ S i s n
0023700 o t a c o n d i t i o n t
0023720 y p e . " ) \r i l : r a i s e -
0023740 s i g n a l i l : d 1 \r ( i l
0023760 : l ( 0 i l : c ) i l : p
0024000 4 i l : * c o n d i t i o n
0024020 - h a n d l e r - b i n d i n g
0024040 s * i l : p 0 i l : * c o
0024060 n d i t i o n - h a n d l e r -
0024100 b i n d i n g s * i l : f 5
0024120 i l : * c o n d i t i o n - h
0024140 a n d l e r - b i n d i n g s *
0024160 ) \0 * 005 001 \0 001 U 021 1 003 H 265 \b @
0024200 \t \0 \0 @ 020 001 [ 001 272 K 002 271 @ J \n \0
0024220 \0 231 H 002 021 001 004 @ k I 016 023 H 002 X 260
0024240 336 \0 ( 2 4 i l : f a k e - t y
0024260 p e p - f o r - c o n d i t i o
0024300 n s 1 0 i l : d e f a u l t
0024320 - h a n d l e - c o n d i t i o
0024340 n ) \r n i l \r ( ) \r i l : d e f
0024360 a u l t - h a n d l e - c o n d
0024400 i t i o n i l : d 1 \r ( i l :
0024420 l ( 0 i l : c o n d i t i o
0024440 n ) ) \0 # 002 \0 \0 001 @ \t \0 \0 021 021
0024460 001 H d 240 020 g \0 \0 \n \0 \0 Y 224 @ k I
0024500 016 277 H g \0 \0 \n \0 \0 X 260 350 \0 ( 3 0
0024520 i l : g e t p r o p 1 6 i
0024540 l : g e t p r o p 3 i l : f
0024560 a k e - t y p e - o f - f o r -
0024600 c o n d i t i o n s ) \r ( 2 7
0024620 i l : % c o n d i t i o n - p a
0024640 r e n t 1 3 i l : % c o n d
0024660 i t i o n - h a n d l e r ) \r (
0024700 ) \r i l : d e f a u l t - p r o
0024720 c e e d - r e p o r t e r i l
0024740 : d 1 \r ( i l : l ( 1 s t r
0024760 e a m 0 i l : p c ) ) \0 016
0025000 \0 \0 \0 002 A o \0 \0 \0 @ \t \0 \0 \v \0 \0
0025020 020 \0 ( 1 1 f o r m a t 8 i
0025040 l : p r o c e e d - c a s e - n
0025060 a m e ) \r n i l \r ( 4 " P r
0025100 o c e e d - t y p e : ~ A " )
0025120 \r i l : f i x - i n h e r i t a
0025140 n c e - l i n k s i l : d 1 \r
0025160 ( i l : l ( 1 i l : n e w -
0025200 p a r e n t 0 i l : n a m e
0025220 ) ) \0 W \b \0 \0 002 @ g \0 \0 \n \0 \0
0025240 021 q \a A d H 360 244 277 H 265 ) A 275 @ M
0025260 g \0 \0 \n \0 \0 \n \0 \0 274 M g \0 \0 L \v
0025300 \0 \0 277 @ 276 A _ 016 277 N g \0 \0 O 016 \v
0025320 \0 \0 020 301 002 311 \0 g \0 \0 ' 273 H 272 @ K
0025340 \n \0 \0 271 J g \0 \0 I \v \0 \0 277 260 277 \0
0025360 ( 8 2 i l : p u t p r o p 7
0025400 3 i l : d r e m o v e 5 6
0025420 i l : p u t p r o p 4 0 i l
0025440 : p u t p r o p 3 1 a d j o
0025460 i n 2 8 i l : g e t p r o p
0025500 6 i l : g e t p r o p ) \r (
0025520 7 8 i l : % c o n d i t i o n
0025540 - c h i l d r e n 6 4 i l :
0025560 % c o n d i t i o n - c h i l d
0025600 r e n 5 1 i l : % c o n d i
0025620 t i o n - p a r e n t 3 6 i
0025640 l : % c o n d i t i o n - c h i
0025660 l d r e n 2 5 i l : % c o n
0025700 d i t i o n - c h i l d r e n
0025720 3 i l : % c o n d i t i o n -
0025740 p a r e n t ) \r ( ) \r i l : | e
0025760 x p a n d - D E F A U L T - P R
0026000 O C E E D - T E S T | i l : d
0026020 1 \r ( i l : l ( 1 i l : $ $
0026040 m a c r o - e n v i r o n m e n
0026060 t 0 i l : $ $ m a c r o - f
0026100 o r m ) ) \0 022 001 \0 \0 002 @ 002 001 021
0026120 001 \0 g \0 \0 H o \0 \0 \0 032 032 020 \0 n i
0026140 l \r ( 8 i l : g e t p r o p )
0026160 \r ( 1 3 ( ( q u o t e i l
0026200 : % d e f a u l t - p r o c e e
0026220 d - t e s t ) ) ) \r ( i l : s e
0026240 t f - m a c r o - f u n c t i o
0026260 n ( q u o t e i l : d e f a
0026300 u l t - p r o c e e d - t e s t
0026320 ) ( q u o t e i l : | e x p
0026340 a n d - D E F A U L T - P R O C
0026360 E E D - T E S T | ) ) \r i l : t
0026400 e s t - p r o c e e d - c a s e
0026420 a 0 0 0 1 a 0 0 0 2 i l : d 1
0026440 \r ( i l : l ( 1 s t r e a m
0026460 0 i l : d a t u m ) ) \0 \n
0026500 \0 \0 \0 002 o \0 \0 \0 A \n \0 \0 020 \0 ( 7
0026520 w r i t e - s t r i n g ) \r n
0026540 i l \r ( 3 " A s s u m e p
0026560 r o c e e d c a s e i s e
0026600 n a b l e d " ) \r i l : t e s t
0026620 - p r o c e e d - c a s e a 0 0
0026640 0 1 i l : d 1 \r ( i l : p 0
0026660 i l : * p r o c e e d - c a s
0026700 e s * i l : f 1 i l : p r
0026720 o c e e d - c a s e 1 1 7 2 i
0026740 l : f 2 i l : * p r o c e e
0026760 d - c a s e s * i l : f 3
0027000 i l : p c ) \0 5 001 003 \0 \0 g \0 \0
0027020 g \0 \0 g \0 \0 g \0 \0 Q g \0 \0 j g \0
0027040 \0 g \0 \0 g \0 \0 g \0 \0 \r \n \0 \0 R 032
0027060 021 001 \0 o \0 \0 \0 S \n \0 \0 \t \0 \0 022 032
0027100 020 \0 ( 4 8 i l : \ \ m v l i s
0027120 t 4 5 e r r o r 3 2 i l
0027140 : m a k e - p r o c e e d - c a
0027160 s e ) \r ( 2 8 i l : t e s t -
0027200 p r o c e e d - c a s e a 0 0 0
0027220 1 a 0 0 0 2 2 5 : r e p o r
0027240 t 2 2 i l : t r u e 1 9
0027260 : t e s t 1 5 : s e l e c t
0027300 o r 1 1 : t a g 8 i l :
0027320 p r o c e e d 5 : n a m e
0027340 2 : n o r m a l ) \r ( 4 1
0027360 " C o u l d n ' t f i n d t
0027400 e s t f u n c t i o n f o r
0027420 ~ S . " ) \r i l : t e s t - p
0027440 r o c e e d - c a s e a 0 0 0 3
0027460 i l : d 1 \r n i l \0 003 \0 \0 \0
0027500 \0 i 020 \0 n i l \r n i l \r ( ) \r i
0027520 l : t e s t - p r o c e e d - c
0027540 a s e i l : d 1 \r ( i l : l
0027560 ( 1 i l : c o n d i t i o n )
0027600 i l : p 6 i l : p r o c e
0027620 e d - c a s e 1 1 7 2 i l : i
0027640 0 i l : p c ) \0 m \a \0 \0 002
0027660 021 ` 005 @ \t \0 \0 X 263 036 @ \t \0 \0 264 035
0027700 @ \t \0 \0 g \0 \0 \n \0 \0 265 \t @ \t \0 \0
0027720 \t \0 \0 X 264 \a A k H 016 020 h 032 021 001 006
0027740 N g \0 \0 \n \0 \0 022 Y 001 272 I 002 273 J g
0027760 \0 \0 360 224 K \t \0 \0 020 g \0 \0 j 275 274 K
0030000 260 026 d 001 375 002 M k 330 ] n 002 \0 361 226 h
0030020 l 4 \n \0 \0 277 265 354 M L 016 020 \0 ( 1 0
0030040 0 i l : \ \ l i s p e r r o r
0030060 7 1 v a l u e s - l i s t
0030100 5 4 i l : \ \ c a t c h - f u
0030120 n c a l l 3 4 i l : n o - p
0030140 r o c e e d - t e s t 3 1 i
0030160 l : p r o c e e d - c a s e - n
0030200 a m e 2 5 i l : g e t p r o
0030220 p 1 9 i l : p r o c e e d -
0030240 c a s e - n a m e 1 3 i l :
0030260 p r o c e e d - c a s e - n a m
0030300 e 6 i l : p r o c e e d - c
0030320 a s e - t e s t ) \r ( 7 5 i l
0030340 : t e s t - p r o c e e d - c a
0030360 s e a 0 0 0 3 6 5 : n o r m
0030400 a l 5 1 i l : t e s t - p r
0030420 o c e e d - c a s e a 0 0 0 1
0030440 2 2 i l : % d e f a u l t - p
0030460 r o c e e d - t e s t ) \r ( ) \r
0030500 c o n d i t i o n - - - d u m m
0030520 y - s l o t - - i l : d 1 \r (
0030540 i l : l ( 0 i l : o b j e c
0030560 t ) ) \0 005 \0 \0 \0 001 @ 002 001 020 \0 n
0030600 i l \r n i l \r ( ) \r ( i l : d e
0030620 f p r i n t ( q u o t e i l
0030640 : c o n d i t i o n ) ( i l :
0030660 f u n c t i o n i l : \ \ d e
0030700 f p r i n t . d e f s t r u c t
0030720 . d e f a u l t ) ) \r i l : % m
0030740 a k e - c o n d i t i o n i l
0030760 : d 1 \r ( i l : l ( 0 i l :
0031000 | - a r g s - | ) ) \0 0 003 \0 002
0031020 \0 e 021 001 \0 H k 021 002 002 J d I 363 235 277
0031040 h 022 021 001 001 g \0 \0 I h 032 032 020 a g \0
0031060 \0 360 225 J k 330 a 260 352 J l 002 324 Z 260 335
0031100 \0 n i l \r ( 3 1 : - - d u m m
0031120 y - s l o t - - 2 2 i l : c
0031140 o n d i t i o n ) \r ( ) \r ( i l
0031160 : p u t p r o p ( q u o t e
0031200 i l : c o n d i t i o n ) ( q
0031220 u o t e i l : s t r u c t u r
0031240 e - c o n s t r u c t o r ) (
0031260 q u o t e i l : % m a k e - c
0031300 o n d i t i o n ) ) \r ( i l : p
0031320 u t p r o p ( q u o t e i l
0031340 : c o n d i t i o n ) ( q u o
0031360 t e i l : % s t r u c t u r e
0031400 - c l a s s ) ( q u o t e i
0031420 l : l i s t - c l a s s ) ) \r (
0031440 i l : p u t p r o p ( q u o t
0031460 e i l : c o n d i t i o n )
0031500 ( q u o t e i l : % s l o t -
0031520 d e s c r i p t i o n s ) ( q
0031540 u o t e ( ( i l : - - d u m m
0031560 y - s l o t - - n i l \r : r
0031600 e a d - o n l y t ) ) ) ) \r (
0031620 i l : p u t p r o p ( q u o t
0031640 e i l : c o n d i t i o n )
0031660 ( q u o t e i l : % l o c a l
0031700 - s l o t - n a m e s ) ( q u
0031720 o t e ( i l : - - d u m m y -
0031740 s l o t - - ) ) ) \r ( l e t *
0031760 ( ( i l : a 0 8 1 8 ( q u o t
0032000 e i l : c o n d i t i o n ) )
0032020 ( i l : a 0 8 1 7 ( q u o t
0032040 e i l : % c o n d i t i o n -
0032060 h a n d l e r ) ) ( i l : a 0
0032100 8 1 6 n i l ) ) ( \r i l : p
0032120 u t p r o p i l : a 0 8 1 8
0032140 i l : a 0 8 1 7 i l : a 0 8 1
0032160 6 ) ) \r i l : | C O N D I T I O
0032200 N r e p o r t m e t h o d |
0032220 i l : d 1 \r ( i l : i 1 s
0032240 t r e a m i l : i 0 i l :
0032260 d a t u m ) \0 \n \0 \0 \0 002 o \0 \0
0032300 \0 A \n \0 \0 020 \0 ( 7 w r i t e -
0032320 s t r i n g ) \r n i l \r ( 3
0032340 " C o n d i t i o n ~ S o c
0032360 c u r r e d . " ) \r ( l e t *
0032400 ( ( i l : a 0 8 2 1 ( q u o t
0032420 e i l : c o n d i t i o n ) )
0032440 ( i l : a 0 8 2 0 ( q u o t
0032460 e i l : % c o n d i t i o n -
0032500 r e p o r t e r ) ) ( i l : a
0032520 0 8 1 9 ( i l : f u n c t i o
0032540 n \r i l : | C O N D I T I O N
0032560 r e p o r t m e t h o d | )
0032600 ) ) ( i l : p u t p r o p i
0032620 l : a 0 8 2 1 i l : a 0 8 2 0
0032640 i l : a 0 8 1 9 ) ) \r s i m p
0032660 l e - c o n d i t i o n - f o r
0032700 m a t - a r g u m e n t s i l
0032720 : d 1 \r ( i l : l ( 0 i l :
0032740 o b j e c t ) ) \0 \a \0 \0 \0 001 @
0032760 002 002 002 001 020 \0 n i l \r n i l \r ( )
0033000 \r s i m p l e - c o n d i t i o
0033020 n - f o r m a t - s t r i n g
0033040 i l : d 1 \r ( i l : l ( 0 i
0033060 l : o b j e c t ) ) \0 006 \0 \0 \0
0033100 001 @ 002 002 001 020 \0 n i l \r n i l \r (
0033120 ) \r s i m p l e - c o n d i t i
0033140 o n - - - d u m m y - s l o t -
0033160 - i l : d 1 \r ( i l : l ( 0
0033200 i l : o b j e c t ) ) \0 005 \0
0033220 \0 \0 001 @ 002 001 020 \0 n i l \r n i l \r
0033240 ( ) \r ( i l : d e f p r i n t
0033260 ( q u o t e i l : s i m p l e
0033300 - c o n d i t i o n ) ( i l :
0033320 f u n c t i o n i l : \ \ d e
0033340 f p r i n t . d e f s t r u c t
0033360 . d e f a u l t ) ) \r i l : % m
0033400 a k e - s i m p l e - c o n d i
0033420 t i o n i l : d 1 \r ( i l : l
0033440 ( 0 i l : | - a r g s - | )
0033460 ) \0 x \b \0 002 \0 e 021 001 \0 H k 021 002
0033500 002 J d I 363 262 1 277 h 022 021 a \a H k 273
0033520 272 K d J 363 262 4 277 h 274 H k 276 275 N d
0033540 M 363 262 : 277 h _ 016 277 g \0 \0 I L O 016
0033560 h 032 032 032 032 020 a g \0 \0 360 225 J k 330 a
0033600 260 311 J l 002 324 Z 260 273 a g \0 \0 360 225 K
0033620 k 330 a 260 306 K l 002 324 [ 260 270 a g \0 \0
0033640 360 225 N k 330 a 260 300 N l 002 324 ^ 260 262 \0
0033660 n i l \r ( 1 0 3 : f o r m a t
0033700 - a r g u m e n t s 8 4 : f
0033720 o r m a t - s t r i n g 6 5
0033740 : - - d u m m y - s l o t - -
0033760 5 1 i l : s i m p l e - c o n
0034000 d i t i o n ) \r ( ) \r ( l e t *
0034020 ( ( i l : a 0 8 2 2 ( q u o
0034040 t e i l : s i m p l e - c o n
0034060 d i t i o n ) ) ( i l : a 0 8
0034100 2 3 ( q u o t e ( i l : c o
0034120 n d i t i o n ) ) ) ) ( i l :
0034140 p u t i l : a 0 8 2 2 ( \r q
0034160 u o t e i l : % % i n c l u d
0034200 e d - s t r u c t u r e ) i l
0034220 : a 0 8 2 3 ) ) \r ( i l : p u t
0034240 p r o p ( q u o t e i l : s
0034260 i m p l e - c o n d i t i o n )
0034300 ( q u o t e i l : s t r u c
0034320 t u r e - c o n s t r u c t o r
0034340 ) ( q u o t e \r i l : % m a
0034360 k e - s i m p l e - c o n d i t
0034400 i o n ) ) \r ( i l : p u t p r o
0034420 p ( q u o t e i l : s i m p
0034440 l e - c o n d i t i o n ) ( q
0034460 u o t e i l : % s t r u c t u
0034500 r e - c l a s s ) ( q u o t e
0034520 i l : l i s t - c l a s s ) )
0034540 \r ( i l : p u t p r o p ( q u
0034560 o t e i l : s i m p l e - c o
0034600 n d i t i o n ) ( q u o t e
0034620 i l : % s l o t - d e s c r i p
0034640 t i o n s ) ( q u o t e ( (
0034660 i l : - - d u m m y - s l o t -
0034700 - n i l \r : r e a d - o n l
0034720 y t ) ( i l : f o r m a t -
0034740 s t r i n g n i l : r e a d
0034760 - o n l y t ) ( i l : f o r
0035000 m a t - a r g u m e n t s n i
0035020 l : r e a d - o n l y t ) )
0035040 ) ) \r ( i l : p u t p r o p (
0035060 q u o t e i l : s i m p l e -
0035100 c o n d i t i o n ) ( q u o t
0035120 e i l : % l o c a l - s l o t
0035140 - n a m e s ) ( q u o t e (
0035160 i l : f o r m a t - a r g u m e
0035200 n t s \r i l : f o r m a t - s
0035220 t r i n g ) ) ) \r ( i l : f i x
0035240 - i n h e r i t a n c e - l i n
0035260 k s ( q u o t e i l : s i m
0035300 p l e - c o n d i t i o n ) (
0035320 q u o t e i l : c o n d i t i
0035340 o n ) ) \r ( l e t * ( ( i l :
0035360 a 0 8 2 6 ( q u o t e i l :
0035400 s i m p l e - c o n d i t i o n
0035420 ) ) ( i l : a 0 8 2 5 ( q u
0035440 o t e i l : % c o n d i t i o
0035460 n - h a n d l e r ) ) ( i l :
0035500 a 0 8 2 4 n i l ) ) \r ( i l
0035520 : p u t p r o p i l : a 0 8 2
0035540 6 i l : a 0 8 2 5 i l : a 0
0035560 8 2 4 ) ) \r i l : | S I M P L E
0035600 - C O N D I T I O N r e p o r
0035620 t m e t h o d | i l : d 1 \r
0035640 ( i l : p 3 i l : c n t i
0035660 l : p 2 i l : f n i l : p
0035700 1 i l : f o r m a t - a r g
0035720 u m e n t s i l : p 0 i l
0035740 : f o r m a t - s t r i n g i
0035760 l : i 1 * s t a n d a r d -
0036000 o u t p u t * i l : i 0 i
0036020 l : c o n d i t i o n ) \0 2 004
0036040 \0 \0 002 @ \t \0 \0 @ \t \0 \0 021 " 003 g \0
0036060 \0 l 002 273 272 i H I 260 026 d 001 375 002 K k
0036100 330 [ n 002 \0 361 226 h l 4 \n \0 \0 277 265 354
0036120 K J 016 020 \0 ( 4 1 i l : \ \ l i
0036140 s p e r r o r 7 i l : s i m
0036160 p l e - c o n d i t i o n - f o
0036200 r m a t - a r g u m e n t s 3
0036220 i l : s i m p l e - c o n d i
0036240 t i o n - f o r m a t - s t r i
0036260 n g ) \r ( 1 3 f o r m a t ) \r
0036300 ( ) \r ( l e t * ( ( i l : a 0
0036320 8 2 9 ( q u o t e i l : s i
0036340 m p l e - c o n d i t i o n ) )
0036360 ( i l : a 0 8 2 8 ( q u o t
0036400 e i l : % c o n d i t i o n -
0036420 r e p o r t e r ) ) ( i l : a
0036440 0 8 2 7 ( \r i l : f u n c t i
0036460 o n i l : | S I M P L E - C O
0036500 N D I T I O N r e p o r t m
0036520 e t h o d | ) ) ) ( i l : p u
0036540 t p r o p i l : a 0 8 2 9 i
0036560 l : a 0 8 2 8 i l : a 0 8 2 7
0036600 ) ) \r w a r n i n g - - - d u m
0036620 m y - s l o t - - i l : d 1 \r
0036640 ( i l : l ( 0 i l : o b j e
0036660 c t ) ) \0 005 \0 \0 \0 001 @ 002 001 020 \0
0036700 n i l \r n i l \r ( ) \r ( i l : d
0036720 e f p r i n t ( q u o t e i
0036740 l : w a r n i n g ) ( i l : f
0036760 u n c t i o n i l : \ \ d e f
0037000 p r i n t . d e f s t r u c t .
0037020 d e f a u l t ) ) \r i l : % m a
0037040 k e - w a r n i n g i l : d 1
0037060 \r ( i l : l ( 0 i l : | - a
0037100 r g s - | ) ) \0 0 003 \0 002 \0 e 021
0037120 001 \0 H k 021 002 002 J d I 363 235 277 h 022 021
0037140 001 001 g \0 \0 I h 032 032 020 a g \0 \0 360 225
0037160 J k 330 a 260 352 J l 002 324 Z 260 335 \0 n i
0037200 l \r ( 3 1 : - - d u m m y - s
0037220 l o t - - 2 2 i l : w a r n
0037240 i n g ) \r ( ) \r ( l e t * ( (
0037260 i l : a 0 8 3 0 ( q u o t e
0037300 i l : w a r n i n g ) ) ( i l
0037320 : a 0 8 3 1 ( q u o t e ( i
0037340 l : c o n d i t i o n ) ) ) )
0037360 ( i l : p u t i l : a 0 8 3 0
0037400 ( q u o t e \r i l : % % i n
0037420 c l u d e d - s t r u c t u r e
0037440 ) i l : a 0 8 3 1 ) ) \r ( i l
0037460 : p u t p r o p ( q u o t e
0037500 i l : w a r n i n g ) ( q u o
0037520 t e i l : s t r u c t u r e -
0037540 c o n s t r u c t o r ) ( q u
0037560 o t e i l : % m a k e - w a r
0037600 n i n g ) ) \r ( i l : p u t p r
0037620 o p ( q u o t e i l : w a r
0037640 n i n g ) ( q u o t e i l :
0037660 % s t r u c t u r e - c l a s s
0037700 ) ( q u o t e i l : l i s t
0037720 - c l a s s ) ) \r ( i l : p u t
0037740 p r o p ( q u o t e i l : w
0037760 a r n i n g ) ( q u o t e i
0040000 l : % s l o t - d e s c r i p t
0040020 i o n s ) ( q u o t e ( ( i
0040040 l : - - d u m m y - s l o t - -
0040060 n i l : r e a d - o n l y \r
0040100 t ) ) ) ) \r ( i l : p u t p r
0040120 o p ( q u o t e i l : w a r
0040140 n i n g ) ( q u o t e i l :
0040160 % l o c a l - s l o t - n a m e
0040200 s ) ( q u o t e n i l ) ) \r
0040220 ( i l : f i x - i n h e r i t a
0040240 n c e - l i n k s ( q u o t e
0040260 i l : w a r n i n g ) ( q u
0040300 o t e i l : c o n d i t i o n
0040320 ) ) \r ( l e t * ( ( i l : a 0
0040340 8 3 4 ( q u o t e i l : w a
0040360 r n i n g ) ) ( i l : a 0 8 3
0040400 3 ( q u o t e i l : % c o n
0040420 d i t i o n - h a n d l e r ) )
0040440 ( i l : a 0 8 3 2 n i l ) )
0040460 ( \r i l : p u t p r o p i l
0040500 : a 0 8 3 4 i l : a 0 8 3 3
0040520 i l : a 0 8 3 2 ) ) \r ( l e t *
0040540 ( ( i l : a 0 8 3 7 ( q u o
0040560 t e i l : w a r n i n g ) )
0040600 ( i l : a 0 8 3 6 ( q u o t e
0040620 i l : % c o n d i t i o n - r
0040640 e p o r t e r ) ) ( i l : a 0
0040660 8 3 5 n i l ) ) ( \r i l : p
0040700 u t p r o p i l : a 0 8 3 7
0040720 i l : a 0 8 3 6 i l : a 0 8 3
0040740 5 ) ) \r s i m p l e - w a r n i
0040760 n g - f o r m a t - a r g u m e
0041000 n t s i l : d 1 \r ( i l : l
0041020 ( 0 i l : o b j e c t ) ) \0
0041040 \a \0 \0 \0 001 @ 002 002 002 001 020 \0 n i l \r
0041060 n i l \r ( ) \r s i m p l e - w a
0041100 r n i n g - f o r m a t - s t r
0041120 i n g i l : d 1 \r ( i l : l
0041140 ( 0 i l : o b j e c t ) ) \0
0041160 006 \0 \0 \0 001 @ 002 002 001 020 \0 n i l \r n
0041200 i l \r ( ) \r s i m p l e - w a r
0041220 n i n g - - - d u m m y - s l o
0041240 t - - i l : d 1 \r ( i l : l
0041260 ( 0 i l : o b j e c t ) ) \0
0041300 005 \0 \0 \0 001 @ 002 001 020 \0 n i l \r n i
0041320 l \r ( ) \r ( i l : d e f p r i n
0041340 t ( q u o t e i l : s i m p
0041360 l e - w a r n i n g ) ( i l :
0041400 f u n c t i o n i l : \ \ d e
0041420 f p r i n t . d e f s t r u c t
0041440 . d e f a u l t ) ) \r i l : % m
0041460 a k e - s i m p l e - w a r n i
0041500 n g i l : d 1 \r ( i l : l (
0041520 0 i l : | - a r g s - | ) )
0041540 \0 x \b \0 002 \0 e 021 001 \0 H k 021 002 002 J
0041560 d I 363 262 1 277 h 022 021 a \a H k 273 272 K
0041600 d J 363 262 4 277 h 274 H k 276 275 N d M 363
0041620 262 : 277 h _ 016 277 g \0 \0 I L O 016 h 032
0041640 032 032 032 020 a g \0 \0 360 225 J k 330 a 260 311
0041660 J l 002 324 Z 260 273 a g \0 \0 360 225 K k 330
0041700 a 260 306 K l 002 324 [ 260 270 a g \0 \0 360 225
0041720 N k 330 a 260 300 N l 002 324 ^ 260 262 \0 n i
0041740 l \r ( 1 0 3 : f o r m a t - a
0041760 r g u m e n t s 8 4 : f o r
0042000 m a t - s t r i n g 6 5 : -
0042020 - d u m m y - s l o t - - 5 1
0042040 i l : s i m p l e - w a r n i
0042060 n g ) \r ( ) \r ( l e t * ( ( i
0042100 l : a 0 8 3 8 ( q u o t e i
0042120 l : s i m p l e - w a r n i n g
0042140 ) ) ( i l : a 0 8 3 9 ( q u
0042160 o t e ( i l : w a r n i n g )
0042200 ) ) ) ( i l : p u t i l : a
0042220 0 8 3 8 ( q u o t e \r i l :
0042240 % % i n c l u d e d - s t r u c
0042260 t u r e ) i l : a 0 8 3 9 ) )
0042300 \r ( i l : p u t p r o p ( q u
0042320 o t e i l : s i m p l e - w a
0042340 r n i n g ) ( q u o t e i l
0042360 : s t r u c t u r e - c o n s t
0042400 r u c t o r ) ( q u o t e i
0042420 l : % m a k e - s i m p l e - w
0042440 a r n i n g ) \r ) \r ( i l : p u
0042460 t p r o p ( q u o t e i l :
0042500 s i m p l e - w a r n i n g )
0042520 ( q u o t e i l : % s t r u c
0042540 t u r e - c l a s s ) ( q u o
0042560 t e i l : l i s t - c l a s s
0042600 ) ) \r ( i l : p u t p r o p (
0042620 q u o t e i l : s i m p l e -
0042640 w a r n i n g ) ( q u o t e
0042660 i l : % s l o t - d e s c r i p
0042700 t i o n s ) ( q u o t e ( (
0042720 i l : - - d u m m y - s l o t -
0042740 - n i l \r : r e a d - o n l
0042760 y t ) ( i l : f o r m a t -
0043000 s t r i n g n i l : r e a d
0043020 - o n l y t ) ( i l : f o r
0043040 m a t - a r g u m e n t s n i
0043060 l : r e a d - o n l y t ) )
0043100 ) ) \r ( i l : p u t p r o p (
0043120 q u o t e i l : s i m p l e -
0043140 w a r n i n g ) ( q u o t e
0043160 i l : % l o c a l - s l o t - n
0043200 a m e s ) ( q u o t e ( i l
0043220 : f o r m a t - a r g u m e n t
0043240 s \r i l : f o r m a t - s t r
0043260 i n g ) ) ) \r ( i l : f i x - i
0043300 n h e r i t a n c e - l i n k s
0043320 ( q u o t e i l : s i m p l
0043340 e - w a r n i n g ) ( q u o t
0043360 e i l : w a r n i n g ) ) \r (
0043400 l e t * ( ( i l : a 0 8 4 2
0043420 ( q u o t e i l : s i m p l e
0043440 - w a r n i n g ) ) ( i l : a
0043460 0 8 4 1 ( q u o t e i l : %
0043500 c o n d i t i o n - h a n d l e
0043520 r ) ) ( i l : a 0 8 4 0 n i
0043540 l ) ) ( \r i l : p u t p r o p
0043560 i l : a 0 8 4 2 i l : a 0 8
0043600 4 1 i l : a 0 8 4 0 ) ) \r i l
0043620 : | S I M P L E - W A R N I N G
0043640 r e p o r t m e t h o d |
0043660 i l : d 1 \r ( i l : p 3 i l
0043700 : c n t i l : p 2 i l : f
0043720 n i l : p 1 i l : f o r m
0043740 a t - a r g u m e n t s i l :
0043760 p 0 i l : f o r m a t - s t
0044000 r i n g i l : i 1 * s t a
0044020 n d a r d - o u t p u t * i l
0044040 : i 0 i l : c o n d i t i o
0044060 n ) \0 2 004 \0 \0 002 @ \t \0 \0 @ \t \0
0044100 \0 021 " 003 g \0 \0 l 002 273 272 i H I 260 026
0044120 d 001 375 002 K k 330 [ n 002 \0 361 226 h l 4
0044140 \n \0 \0 277 265 354 K J 016 020 \0 ( 4 1 i
0044160 l : \ \ l i s p e r r o r 7
0044200 i l : s i m p l e - w a r n i n
0044220 g - f o r m a t - a r g u m e n
0044240 t s 3 i l : s i m p l e - w
0044260 a r n i n g - f o r m a t - s t
0044300 r i n g ) \r ( 1 3 f o r m a t
0044320 ) \r ( ) \r ( l e t * ( ( i l :
0044340 a 0 8 4 5 ( q u o t e i l :
0044360 s i m p l e - w a r n i n g ) )
0044400 ( i l : a 0 8 4 4 ( q u o t
0044420 e i l : % c o n d i t i o n -
0044440 r e p o r t e r ) ) ( i l : a
0044460 0 8 4 3 ( \r i l : f u n c t i
0044500 o n i l : | S I M P L E - W A
0044520 R N I N G r e p o r t m e t
0044540 h o d | ) ) ) ( i l : p u t p
0044560 r o p i l : a 0 8 4 5 i l :
0044600 a 0 8 4 4 i l : a 0 8 4 3 ) )
0044620 \r o l d - b r e a k 1 - l i s t
0044640 i l : d 1 \r ( i l : l ( 0
0044660 i l : o b j e c t ) ) \0 006 \0 \0
0044700 \0 001 @ 002 002 001 020 \0 n i l \r n i l \r
0044720 ( ) \r o l d - b r e a k 1 - - -
0044740 d u m m y - s l o t - - i l :
0044760 d 1 \r ( i l : l ( 0 i l : o
0045000 b j e c t ) ) \0 005 \0 \0 \0 001 @ 002
0045020 001 020 \0 n i l \r n i l \r ( ) \r ( i
0045040 l : d e f p r i n t ( q u o t
0045060 e i l : o l d - b r e a k 1 )
0045100 ( i l : f u n c t i o n i l
0045120 : \ \ d e f p r i n t . d e f s
0045140 t r u c t . d e f a u l t ) ) \r
0045160 i l : % m a k e - o l d - b r e
0045200 a k 1 i l : d 1 \r ( i l : l
0045220 ( 0 i l : | - a r g s - | ) )
0045240 \0 S 005 \0 002 \0 e 021 001 \0 H k 021 002 002
0045260 J d I 363 262 037 277 h 022 021 1 004 H k 273 272
0045300 K d J 363 262 " 277 h 274 g \0 \0 I L h 032
0045320 032 032 020 a g \0 \0 360 225 J k 330 a 260 333 J
0045340 l 002 324 Z 260 315 a g \0 \0 360 225 K k 330 a
0045360 260 330 K l 002 324 [ 260 312 \0 n i l \r ( 6
0045400 6 : l i s t 4 7 : - - d u
0045420 m m y - s l o t - - 3 6 i l
0045440 : o l d - b r e a k 1 ) \r ( ) \r
0045460 ( l e t * ( ( i l : a 0 8 4 6
0045500 ( q u o t e i l : o l d - b
0045520 r e a k 1 ) ) ( i l : a 0 8 4
0045540 7 ( q u o t e ( i l : c o n
0045560 d i t i o n ) ) ) ) ( i l : p
0045600 u t i l : a 0 8 4 6 ( q u o
0045620 t e \r i l : % % i n c l u d e
0045640 d - s t r u c t u r e ) i l :
0045660 a 0 8 4 7 ) ) \r ( i l : p u t p
0045700 r o p ( q u o t e i l : o l
0045720 d - b r e a k 1 ) ( q u o t e
0045740 i l : s t r u c t u r e - c o
0045760 n s t r u c t o r ) ( q u o t
0046000 e i l : % m a k e - o l d - b
0046020 r e a k 1 ) ) \r ( i l : p u t p
0046040 r o p ( q u o t e i l : o l
0046060 d - b r e a k 1 ) ( q u o t e
0046100 i l : % s t r u c t u r e - c
0046120 l a s s ) ( q u o t e i l :
0046140 l i s t - c l a s s ) ) \r ( i l
0046160 : p u t p r o p ( q u o t e
0046200 i l : o l d - b r e a k 1 ) (
0046220 q u o t e i l : % s l o t - d
0046240 e s c r i p t i o n s ) ( q u
0046260 o t e ( ( i l : - - d u m m y
0046300 - s l o t - - n i l \r : r e
0046320 a d - o n l y t ) ( l i s t
0046340 n i l : r e a d - o n l y
0046360 t ) ) ) ) \r ( i l : p u t p r o
0046400 p ( q u o t e i l : o l d -
0046420 b r e a k 1 ) ( q u o t e i
0046440 l : % l o c a l - s l o t - n a
0046460 m e s ) ( q u o t e ( l i s
0046500 t ) ) ) \r ( i l : f i x - i n h
0046520 e r i t a n c e - l i n k s (
0046540 q u o t e i l : o l d - b r e
0046560 a k 1 ) ( q u o t e i l : c
0046600 o n d i t i o n ) ) \r ( l e t *
0046620 ( ( i l : a 0 8 5 0 ( q u o
0046640 t e i l : o l d - b r e a k 1
0046660 ) ) ( i l : a 0 8 4 9 ( q u
0046700 o t e i l : % c o n d i t i o
0046720 n - h a n d l e r ) ) ( i l :
0046740 a 0 8 4 8 n i l ) ) ( \r i l
0046760 : p u t p r o p i l : a 0 8 5
0047000 0 i l : a 0 8 4 9 i l : a 0
0047020 8 4 8 ) ) \r i l : | O L D - B R
0047040 E A K 1 r e p o r t m e t h
0047060 o d | i l : d 1 \r ( i l : p
0047100 5 i l : m e s s 3 i l : p
0047120 4 i l : m e s s 2 i l : p
0047140 3 i l : a 1 1 7 5 i l : p
0047160 2 i l : m e s s 1 i l : p
0047200 1 i l : a 1 1 7 4 i l : p
0047220 0 l i s t i l : i 1 * s
0047240 t a n d a r d - o u t p u t *
0047260 i l : i 0 i l : c o n d i t
0047300 i o n ) \0 034 006 \0 \0 002 @ \t \0 \0 021
0047320 Q 005 H Y 001 272 I 002 [ 001 274 K 002 001 275 J
0047340 L M \v \0 \0 020 \0 ( 2 5 i l : e r
0047360 r o r m e s s 1 3 i l : o l
0047400 d - b r e a k 1 - l i s t ) \r n
0047420 i l \r ( ) \r ( l e t * ( ( i l
0047440 : a 0 8 5 3 ( q u o t e i l
0047460 : o l d - b r e a k 1 ) ) ( i
0047500 l : a 0 8 5 2 ( q u o t e i
0047520 l : % c o n d i t i o n - r e p
0047540 o r t e r ) ) ( i l : a 0 8 5
0047560 1 ( i l : f u n c t i o n \r
0047600 i l : | O L D - B R E A K 1 r
0047620 e p o r t m e t h o d | ) ) )
0047640 ( i l : p u t p r o p i l :
0047660 a 0 8 5 3 i l : a 0 8 5 2 i
0047700 l : a 0 8 5 1 ) ) \r s e r i o u
0047720 s - c o n d i t i o n - - - d u
0047740 m m y - s l o t - - i l : d 1
0047760 \r ( i l : l ( 0 i l : o b j
0050000 e c t ) ) \0 005 \0 \0 \0 001 @ 002 001 020
0050020 \0 n i l \r n i l \r ( ) \r ( i l :
0050040 d e f p r i n t ( q u o t e
0050060 i l : s e r i o u s - c o n d i
0050100 t i o n ) ( i l : f u n c t i
0050120 o n i l : \ \ d e f p r i n t
0050140 . d e f s t r u c t . d e f a u
0050160 l t ) ) \r i l : % m a k e - s e
0050200 r i o u s - c o n d i t i o n
0050220 i l : d 1 \r ( i l : l ( 0 i
0050240 l : | - a r g s - | ) ) \0 0 003
0050260 \0 002 \0 e 021 001 \0 H k 021 002 002 J d I 363
0050300 235 277 h 022 021 001 001 g \0 \0 I h 032 032 020 a
0050320 g \0 \0 360 225 J k 330 a 260 352 J l 002 324 Z
0050340 260 335 \0 n i l \r ( 3 1 : - - d u
0050360 m m y - s l o t - - 2 2 i l
0050400 : s e r i o u s - c o n d i t i
0050420 o n ) \r ( ) \r ( l e t * ( ( i
0050440 l : a 0 8 5 4 ( q u o t e i
0050460 l : s e r i o u s - c o n d i t
0050500 i o n ) ) ( i l : a 0 8 5 5
0050520 ( q u o t e ( i l : c o n d i
0050540 t i o n ) ) ) ) ( i l : p u t
0050560 i l : a 0 8 5 4 ( \r q u o t
0050600 e i l : % % i n c l u d e d -
0050620 s t r u c t u r e ) i l : a 0
0050640 8 5 5 ) ) \r ( i l : p u t p r o
0050660 p ( q u o t e i l : s e r i
0050700 o u s - c o n d i t i o n ) (
0050720 q u o t e i l : s t r u c t u
0050740 r e - c o n s t r u c t o r )
0050760 ( q u o t e \r i l : % m a k e
0051000 - s e r i o u s - c o n d i t i
0051020 o n ) ) \r ( i l : p u t p r o p
0051040 ( q u o t e i l : s e r i o
0051060 u s - c o n d i t i o n ) ( q
0051100 u o t e i l : % s t r u c t u
0051120 r e - c l a s s ) ( q u o t e
0051140 i l : l i s t - c l a s s ) )
0051160 \r ( i l : p u t p r o p ( q u
0051200 o t e i l : s e r i o u s - c
0051220 o n d i t i o n ) ( q u o t e
0051240 i l : % s l o t - d e s c r i
0051260 p t i o n s ) ( q u o t e (
0051300 ( i l : - - d u m m y - s l o t
0051320 - - n i l \r : r e a d - o n
0051340 l y t ) ) ) ) \r ( i l : p u t
0051360 p r o p ( q u o t e i l : s
0051400 e r i o u s - c o n d i t i o n
0051420 ) ( q u o t e i l : % l o c
0051440 a l - s l o t - n a m e s ) (
0051460 q u o t e n i l ) ) \r ( i l :
0051500 f i x - i n h e r i t a n c e -
0051520 l i n k s ( q u o t e i l :
0051540 s e r i o u s - c o n d i t i o
0051560 n ) ( q u o t e i l : c o n
0051600 d i t i o n ) ) \r ( l e t * (
0051620 ( i l : a 0 8 5 8 ( q u o t e
0051640 i l : s e r i o u s - c o n d
0051660 i t i o n ) ) ( i l : a 0 8 5
0051700 7 ( q u o t e i l : % c o n
0051720 d i t i o n - h a n d l e r ) )
0051740 ( i l : a 0 8 5 6 n i l ) \r
0051760 ) ( i l : p u t p r o p i l
0052000 : a 0 8 5 8 i l : a 0 8 5 7
0052020 i l : a 0 8 5 6 ) ) \r i l : | S
0052040 E R I O U S - C O N D I T I O N
0052060 r e p o r t m e t h o d |
0052100 i l : d 1 \r ( i l : i 1 * s
0052120 t a n d a r d - o u t p u t *
0052140 i l : i 0 i l : c o n d i t
0052160 i o n ) \0 016 \0 \0 \0 002 i o \0 \0 \0
0052200 @ \t \0 \0 \v \0 \0 020 \0 ( 1 1 f o r
0052220 m a t 8 i l : f a k e - t y
0052240 p e - o f - f o r - c o n d i t
0052260 i o n s ) \r n i l \r ( 4 " S
0052300 e r i o u s c o n d i t i o n
0052320 ~ S o c c u r r e d . " ) \r
0052340 ( l e t * ( ( i l : a 0 8 6 1
0052360 ( q u o t e i l : s e r i o
0052400 u s - c o n d i t i o n ) ) (
0052420 i l : a 0 8 6 0 ( q u o t e
0052440 i l : % c o n d i t i o n - r e
0052460 p o r t e r ) ) ( i l : a 0 8
0052500 5 9 ( \r i l : f u n c t i o n
0052520 i l : | S E R I O U S - C O N
0052540 D I T I O N r e p o r t m e
0052560 t h o d | ) ) ) ( i l : p u t
0052600 p r o p i l : a 0 8 6 1 i l
0052620 : a 0 8 6 0 i l : a 0 8 5 9 )
0052640 ) \r e r r o r - - - d u m m y -
0052660 s l o t - - i l : d 1 \r ( i l
0052700 : l ( 0 i l : o b j e c t )
0052720 ) \0 005 \0 \0 \0 001 @ 002 001 020 \0 n i l
0052740 \r n i l \r ( ) \r ( i l : d e f p
0052760 r i n t ( q u o t e e r r o
0053000 r ) ( i l : f u n c t i o n
0053020 i l : \ \ d e f p r i n t . d e
0053040 f s t r u c t . d e f a u l t )
0053060 ) \r % m a k e - e r r o r i l
0053100 : d 1 \r ( i l : l ( 0 i l :
0053120 | - a r g s - | ) ) \0 0 003 \0 002
0053140 \0 e 021 001 \0 H k 021 002 002 J d I 363 235 277
0053160 h 022 021 001 001 g \0 \0 I h 032 032 020 a g \0
0053200 \0 360 225 J k 330 a 260 352 J l 002 324 Z 260 335
0053220 \0 n i l \r ( 3 1 : - - d u m m
0053240 y - s l o t - - 2 2 e r r o
0053260 r ) \r ( ) \r ( l e t * ( ( i l
0053300 : a 0 8 6 2 ( q u o t e e r
0053320 r o r ) ) ( i l : a 0 8 6 3
0053340 ( q u o t e ( i l : s e r i o
0053360 u s - c o n d i t i o n ) ) ) )
0053400 ( i l : p u t i l : a 0 8 6
0053420 2 ( q u o t e \r i l : % % i
0053440 n c l u d e d - s t r u c t u r
0053460 e ) i l : a 0 8 6 3 ) ) \r ( i
0053500 l : p u t p r o p ( q u o t e
0053520 e r r o r ) ( q u o t e i
0053540 l : s t r u c t u r e - c o n s
0053560 t r u c t o r ) ( q u o t e
0053600 % m a k e - e r r o r ) ) \r ( i
0053620 l : p u t p r o p ( q u o t e
0053640 e r r o r ) ( q u o t e i
0053660 l : % s t r u c t u r e - c l a
0053700 s s ) ( q u o t e i l : l i
0053720 s t - c l a s s ) ) \r ( i l : p
0053740 u t p r o p ( q u o t e e r
0053760 r o r ) ( q u o t e i l : %
0054000 s l o t - d e s c r i p t i o n
0054020 s ) ( q u o t e ( ( i l : -
0054040 - d u m m y - s l o t - - n i
0054060 l : r e a d - o n l y t ) )
0054100 ) \r ) \r ( i l : p u t p r o p
0054120 ( q u o t e e r r o r ) ( q
0054140 u o t e i l : % l o c a l - s
0054160 l o t - n a m e s ) ( q u o t
0054200 e n i l ) ) \r ( i l : f i x -
0054220 i n h e r i t a n c e - l i n k
0054240 s ( q u o t e e r r o r )
0054260 ( q u o t e i l : s e r i o u
0054300 s - c o n d i t i o n ) ) \r ( l
0054320 e t * ( ( i l : a 0 8 6 6 (
0054340 q u o t e e r r o r ) ) ( i
0054360 l : a 0 8 6 5 ( q u o t e i
0054400 l : % c o n d i t i o n - h a n
0054420 d l e r ) ) ( i l : a 0 8 6 4
0054440 n i l ) ) ( i l : p u t p r
0054460 o p \r i l : a 0 8 6 6 i l :
0054500 a 0 8 6 5 i l : a 0 8 6 4 ) )
0054520 \r ( l e t * ( ( i l : a 0 8 6
0054540 9 ( q u o t e e r r o r ) )
0054560 ( i l : a 0 8 6 8 ( q u o t
0054600 e i l : % c o n d i t i o n -
0054620 r e p o r t e r ) ) ( i l : a
0054640 0 8 6 7 n i l ) ) ( i l : p
0054660 u t p r o p \r i l : a 0 8 6 9
0054700 i l : a 0 8 6 8 i l : a 0 8
0054720 6 7 ) ) \r s i m p l e - e r r o
0054740 r - f o r m a t - a r g u m e n
0054760 t s i l : d 1 \r ( i l : l (
0055000 0 i l : o b j e c t ) ) \0 \a
0055020 \0 \0 \0 001 @ 002 002 002 001 020 \0 n i l \r n
0055040 i l \r ( ) \r s i m p l e - e r r
0055060 o r - f o r m a t - s t r i n g
0055100 i l : d 1 \r ( i l : l ( 0
0055120 i l : o b j e c t ) ) \0 006 \0 \0
0055140 \0 001 @ 002 002 001 020 \0 n i l \r n i l \r
0055160 ( ) \r s i m p l e - e r r o r -
0055200 - - d u m m y - s l o t - - i
0055220 l : d 1 \r ( i l : l ( 0 i l
0055240 : o b j e c t ) ) \0 005 \0 \0 \0 001
0055260 @ 002 001 020 \0 n i l \r n i l \r ( ) \r
0055300 ( i l : d e f p r i n t ( q u
0055320 o t e i l : s i m p l e - e r
0055340 r o r ) ( i l : f u n c t i o
0055360 n i l : \ \ d e f p r i n t .
0055400 d e f s t r u c t . d e f a u l
0055420 t ) ) \r i l : % m a k e - s i m
0055440 p l e - e r r o r i l : d 1 \r
0055460 ( i l : l ( 0 i l : | - a r
0055500 g s - | ) ) \0 x \b \0 002 \0 e 021 001
0055520 \0 H k 021 002 002 J d I 363 262 1 277 h 022 021
0055540 a \a H k 273 272 K d J 363 262 4 277 h 274 H
0055560 k 276 275 N d M 363 262 : 277 h _ 016 277 g \0
0055600 \0 I L O 016 h 032 032 032 032 020 a g \0 \0 360
0055620 225 J k 330 a 260 311 J l 002 324 Z 260 273 a g
0055640 \0 \0 360 225 K k 330 a 260 306 K l 002 324 [ 260
0055660 270 a g \0 \0 360 225 N k 330 a 260 300 N l 002
0055700 324 ^ 260 262 \0 n i l \r ( 1 0 3 : f
0055720 o r m a t - a r g u m e n t s
0055740 8 4 : f o r m a t - s t r i n
0055760 g 6 5 : - - d u m m y - s l
0056000 o t - - 5 1 i l : s i m p l
0056020 e - e r r o r ) \r ( ) \r ( l e t
0056040 * ( ( i l : a 0 8 7 0 ( q u
0056060 o t e i l : s i m p l e - e r
0056100 r o r ) ) ( i l : a 0 8 7 1
0056120 ( q u o t e ( i l : e r r o r
0056140 ) ) ) ) ( i l : p u t i l :
0056160 a 0 8 7 0 ( q u o t e \r i l
0056200 : % % i n c l u d e d - s t r u
0056220 c t u r e ) i l : a 0 8 7 1 )
0056240 ) \r ( i l : p u t p r o p ( q
0056260 u o t e i l : s i m p l e - e
0056300 r r o r ) ( q u o t e i l :
0056320 s t r u c t u r e - c o n s t r
0056340 u c t o r ) ( q u o t e i l
0056360 : % m a k e - s i m p l e - e r
0056400 r o r ) ) \r ( i l : p u t p r o
0056420 p ( q u o t e i l : s i m p
0056440 l e - e r r o r ) ( q u o t e
0056460 i l : % s t r u c t u r e - c
0056500 l a s s ) ( q u o t e i l :
0056520 l i s t - c l a s s ) ) \r ( i l
0056540 : p u t p r o p ( q u o t e
0056560 i l : s i m p l e - e r r o r )
0056600 ( q u o t e i l : % s l o t
0056620 - d e s c r i p t i o n s ) (
0056640 q u o t e ( ( i l : - - d u m
0056660 m y - s l o t - - n i l \r :
0056700 r e a d - o n l y t ) ( i l
0056720 : f o r m a t - s t r i n g n
0056740 i l : r e a d - o n l y t )
0056760 ( i l : f o r m a t - a r g u
0057000 m e n t s n i l : r e a d -
0057020 o n l y t ) ) ) ) \r ( i l : p
0057040 u t p r o p ( q u o t e i l
0057060 : s i m p l e - e r r o r ) (
0057100 q u o t e i l : % l o c a l -
0057120 s l o t - n a m e s ) ( q u o
0057140 t e ( i l : f o r m a t - a r
0057160 g u m e n t s \r i l : f o r m
0057200 a t - s t r i n g ) ) ) \r ( i l
0057220 : f i x - i n h e r i t a n c e
0057240 - l i n k s ( q u o t e i l
0057260 : s i m p l e - e r r o r ) (
0057300 q u o t e i l : e r r o r ) )
0057320 \r ( l e t * ( ( i l : a 0 8 7
0057340 4 ( q u o t e i l : s i m p
0057360 l e - e r r o r ) ) ( i l : a
0057400 0 8 7 3 ( q u o t e i l : %
0057420 c o n d i t i o n - h a n d l e
0057440 r ) ) ( i l : a 0 8 7 2 n i
0057460 l ) ) ( \r i l : p u t p r o p
0057500 i l : a 0 8 7 4 i l : a 0 8
0057520 7 3 i l : a 0 8 7 2 ) ) \r i l
0057540 : | S I M P L E - E R R O R r
0057560 e p o r t m e t h o d | i l
0057600 : d 1 \r ( i l : p 3 i l : c
0057620 n t i l : p 2 i l : f n
0057640 i l : p 1 i l : f o r m a t
0057660 - a r g u m e n t s i l : p
0057700 0 i l : f o r m a t - s t r i
0057720 n g i l : i 1 * s t a n d
0057740 a r d - o u t p u t * i l : i
0057760 0 i l : c o n d i t i o n )
0060000 \0 2 004 \0 \0 002 @ \t \0 \0 @ \t \0 \0 021
0060020 " 003 g \0 \0 l 002 273 272 i H I 260 026 d 001
0060040 375 002 K k 330 [ n 002 \0 361 226 h l 4 \n \0
0060060 \0 277 265 354 K J 016 020 \0 ( 4 1 i l :
0060100 \ \ l i s p e r r o r 7 i l
0060120 : s i m p l e - e r r o r - f o
0060140 r m a t - a r g u m e n t s 3
0060160 i l : s i m p l e - e r r o r
0060200 - f o r m a t - s t r i n g ) \r
0060220 ( 1 3 f o r m a t ) \r ( ) \r (
0060240 l e t * ( ( i l : a 0 8 7 7
0060260 ( q u o t e i l : s i m p l e
0060300 - e r r o r ) ) ( i l : a 0 8
0060320 7 6 ( q u o t e i l : % c o
0060340 n d i t i o n - r e p o r t e r
0060360 ) ) ( i l : a 0 8 7 5 ( \r i
0060400 l : f u n c t i o n i l : | S
0060420 I M P L E - E R R O R r e p o
0060440 r t m e t h o d | ) ) ) ( i
0060460 l : p u t p r o p i l : a 0 8
0060500 7 7 i l : a 0 8 7 6 i l : a
0060520 0 8 7 5 ) ) \r o l d - i n t e r
0060540 l i s p - e r r o r - m e s s a
0060560 g e i l : d 1 \r ( i l : l (
0060600 0 i l : o b j e c t ) ) \0 \a
0060620 \0 \0 \0 001 @ 002 002 002 001 020 \0 n i l \r n
0060640 i l \r ( ) \r o l d - i n t e r l
0060660 i s p - e r r o r - n u m b e r
0060700 i l : d 1 \r ( i l : l ( 0
0060720 i l : o b j e c t ) ) \0 006 \0 \0
0060740 \0 001 @ 002 002 001 020 \0 n i l \r n i l \r
0060760 ( ) \r o l d - i n t e r l i s p
0061000 - e r r o r - - - d u m m y - s
0061020 l o t - - i l : d 1 \r ( i l :
0061040 l ( 0 i l : o b j e c t ) )
0061060 \0 005 \0 \0 \0 001 @ 002 001 020 \0 n i l \r
0061100 n i l \r ( ) \r ( i l : d e f p r
0061120 i n t ( q u o t e i l : o l
0061140 d - i n t e r l i s p - e r r o
0061160 r ) ( i l : f u n c t i o n
0061200 i l : \ \ d e f p r i n t . d e
0061220 f s t r u c t . d e f a u l t )
0061240 ) \r i l : % m a k e - o l d - i
0061260 n t e r l i s p - e r r o r i
0061300 l : d 1 \r ( i l : l ( 0 i l
0061320 : | - a r g s - | ) ) \0 x \b \0
0061340 002 \0 e 021 001 \0 H k 021 002 002 J d I 363 262
0061360 1 277 h 022 021 a \a H k 273 272 K d J 363 262
0061400 4 277 h 274 H k 276 275 N d M 363 262 : 277 h
0061420 _ 016 277 g \0 \0 I L O 016 h 032 032 032 032 020
0061440 a g \0 \0 360 225 J k 330 a 260 311 J l 002 324
0061460 Z 260 273 a g \0 \0 360 225 K k 330 a 260 306 K
0061500 l 002 324 [ 260 270 a g \0 \0 360 225 N k 330 a
0061520 260 300 N l 002 324 ^ 260 262 \0 n i l \r ( 1
0061540 0 3 : m e s s a g e 8 4 :
0061560 n u m b e r 6 5 : - - d u m
0061600 m y - s l o t - - 5 1 i l :
0061620 o l d - i n t e r l i s p - e r
0061640 r o r ) \r ( ) \r ( l e t * ( (
0061660 i l : a 0 8 7 8 ( q u o t e
0061700 i l : o l d - i n t e r l i s p
0061720 - e r r o r ) ) ( i l : a 0 8
0061740 7 9 ( q u o t e ( i l : e r
0061760 r o r ) ) ) ) ( i l : p u t
0062000 i l : a 0 8 7 8 ( \r q u o t e
0062020 i l : % % i n c l u d e d - s
0062040 t r u c t u r e ) i l : a 0 8
0062060 7 9 ) ) \r ( i l : p u t p r o p
0062100 ( q u o t e i l : o l d - i
0062120 n t e r l i s p - e r r o r )
0062140 ( q u o t e i l : s t r u c t
0062160 u r e - c o n s t r u c t o r )
0062200 ( q u o t e \r i l : % m a k
0062220 e - o l d - i n t e r l i s p -
0062240 e r r o r ) ) \r ( i l : p u t p
0062260 r o p ( q u o t e i l : o l
0062300 d - i n t e r l i s p - e r r o
0062320 r ) ( q u o t e i l : % s t
0062340 r u c t u r e - c l a s s ) (
0062360 q u o t e i l : l i s t - c l
0062400 a s s ) ) \r ( i l : p u t p r o
0062420 p ( q u o t e i l : o l d -
0062440 i n t e r l i s p - e r r o r )
0062460 ( q u o t e i l : % s l o t
0062500 - d e s c r i p t i o n s ) (
0062520 q u o t e ( ( i l : - - d u m
0062540 m y - s l o t - - \r n i l :
0062560 r e a d - o n l y t ) ( i l
0062600 : n u m b e r n i l : r e a
0062620 d - o n l y t ) ( i l : m e
0062640 s s a g e n i l : r e a d -
0062660 o n l y t ) ) ) ) \r ( i l : p
0062700 u t p r o p ( q u o t e i l
0062720 : o l d - i n t e r l i s p - e
0062740 r r o r ) ( q u o t e i l :
0062760 % l o c a l - s l o t - n a m e
0063000 s ) ( q u o t e ( i l : m e
0063020 s s a g e i l : n u m b e r )
0063040 ) \r ) \r ( i l : f i x - i n h e
0063060 r i t a n c e - l i n k s ( q
0063100 u o t e i l : o l d - i n t e
0063120 r l i s p - e r r o r ) ( q u
0063140 o t e i l : e r r o r ) ) \r (
0063160 l e t * ( ( i l : a 0 8 8 2
0063200 ( q u o t e i l : o l d - i n
0063220 t e r l i s p - e r r o r ) )
0063240 ( i l : a 0 8 8 1 ( q u o t e
0063260 i l : % c o n d i t i o n - h
0063300 a n d l e r ) ) ( i l : a 0 8
0063320 8 0 \r n i l ) ) ( i l : p u
0063340 t p r o p i l : a 0 8 8 2 i
0063360 l : a 0 8 8 1 i l : a 0 8 8 0
0063400 ) ) \r i l : | O L D - I N T E R
0063420 L I S P - E R R O R r e p o r
0063440 t m e t h o d | i l : d 1 \r
0063460 ( i l : p 4 i l : m e s s 2
0063500 i l : p 3 i l : m e s s 1
0063520 i l : p 2 i l : a 1 1 7 6
0063540 i l : p 1 i l : m e s s a
0063560 g e i l : p 0 i l : n u m
0063600 b e r i l : i 1 * s t a n
0063620 d a r d - o u t p u t * i l :
0063640 i 0 i l : c o n d i t i o n
0063660 ) \0 / 005 \0 \0 002 @ \t \0 \0 @ \t \0 \0
0063700 021 002 001 H d l 021 360 262 026 277 I 021 ! 004 J
0063720 001 273 J 002 274 K L g \0 \0 \v \0 \0 020 I h
0063740 032 032 \t \0 \0 020 \0 ( 4 4 i l : e r
0063760 r o r m 3 6 i l : e r r o r
0064000 m e s s 1 7 i l : o l d - i
0064020 n t e r l i s p - e r r o r - m
0064040 e s s a g e 3 i l : o l d -
0064060 i n t e r l i s p - e r r o r -
0064100 n u m b e r ) \r ( 3 3 i l : e
0064120 r r o r ) \r ( ) \r ( l e t * (
0064140 ( i l : a 0 8 8 5 ( q u o t e
0064160 i l : o l d - i n t e r l i s
0064200 p - e r r o r ) ) ( i l : a 0
0064220 8 8 4 ( q u o t e i l : % c
0064240 o n d i t i o n - r e p o r t e
0064260 r ) ) ( i l : a 0 8 8 3 ( \r
0064300 i l : f u n c t i o n i l : |
0064320 O L D - I N T E R L I S P - E R
0064340 R O R r e p o r t m e t h o
0064360 d | ) ) ) ( i l : p u t p r o
0064400 p i l : a 0 8 8 5 i l : a 0
0064420 8 8 4 i l : a 0 8 8 3 ) ) \r a
0064440 s s e r t i o n - f a i l e d -
0064460 f o r m a t - a r g u m e n t s
0064500 i l : d 1 \r ( i l : l ( 0
0064520 i l : o b j e c t ) ) \0 \a \0 \0
0064540 \0 001 @ 002 002 002 001 020 \0 n i l \r n i l
0064560 \r ( ) \r a s s e r t i o n - f a
0064600 i l e d - f o r m a t - s t r i
0064620 n g i l : d 1 \r ( i l : l (
0064640 0 i l : o b j e c t ) ) \0 006
0064660 \0 \0 \0 001 @ 002 002 001 020 \0 n i l \r n i
0064700 l \r ( ) \r a s s e r t i o n - f
0064720 a i l e d - - - d u m m y - s l
0064740 o t - - i l : d 1 \r ( i l : l
0064760 ( 0 i l : o b j e c t ) )
0065000 \0 005 \0 \0 \0 001 @ 002 001 020 \0 n i l \r n
0065020 i l \r ( ) \r ( i l : d e f p r i
0065040 n t ( q u o t e i l : a s s
0065060 e r t i o n - f a i l e d ) (
0065100 i l : f u n c t i o n i l : \
0065120 \ d e f p r i n t . d e f s t r
0065140 u c t . d e f a u l t ) ) \r i l
0065160 : % m a k e - a s s e r t i o n
0065200 - f a i l e d i l : d 1 \r ( i
0065220 l : l ( 0 i l : | - a r g s
0065240 - | ) ) \0 x \b \0 002 \0 e 021 001 \0 H
0065260 k 021 002 002 J d I 363 262 1 277 h 022 021 a \a
0065300 H k 273 272 K d J 363 262 4 277 h 274 H k 276
0065320 275 N d M 363 262 : 277 h _ 016 277 g \0 \0 I
0065340 L O 016 h 032 032 032 032 020 a g \0 \0 360 225 J
0065360 k 330 a 260 311 J l 002 324 Z 260 273 a g \0 \0
0065400 360 225 K k 330 a 260 306 K l 002 324 [ 260 270 a
0065420 g \0 \0 360 225 N k 330 a 260 300 N l 002 324 ^
0065440 260 262 \0 n i l \r ( 1 0 3 : f o r
0065460 m a t - a r g u m e n t s 8 4
0065500 : f o r m a t - s t r i n g
0065520 6 5 : - - d u m m y - s l o t
0065540 - - 5 1 i l : a s s e r t i
0065560 o n - f a i l e d ) \r ( ) \r ( l
0065600 e t * ( ( i l : a 0 8 8 6 (
0065620 q u o t e i l : a s s e r t i
0065640 o n - f a i l e d ) ) ( i l :
0065660 a 0 8 8 7 ( q u o t e ( i l
0065700 : s i m p l e - e r r o r ) ) )
0065720 ) ( i l : p u t i l : a 0 8
0065740 8 6 ( \r q u o t e i l : % %
0065760 i n c l u d e d - s t r u c t u
0066000 r e ) i l : a 0 8 8 7 ) ) \r (
0066020 i l : p u t p r o p ( q u o t
0066040 e i l : a s s e r t i o n - f
0066060 a i l e d ) ( q u o t e i l
0066100 : s t r u c t u r e - c o n s t
0066120 r u c t o r ) ( q u o t e \r
0066140 i l : % m a k e - a s s e r t i
0066160 o n - f a i l e d ) ) \r ( i l :
0066200 p u t p r o p ( q u o t e i
0066220 l : a s s e r t i o n - f a i l
0066240 e d ) ( q u o t e i l : % s
0066260 t r u c t u r e - c l a s s )
0066300 ( q u o t e i l : l i s t - c
0066320 l a s s ) ) \r ( i l : p u t p r
0066340 o p ( q u o t e i l : a s s
0066360 e r t i o n - f a i l e d ) (
0066400 q u o t e i l : % s l o t - d
0066420 e s c r i p t i o n s ) ( q u
0066440 o t e ( ( i l : - - d u m m y
0066460 - s l o t - - n i l \r : r e
0066500 a d - o n l y t ) ( i l : f
0066520 o r m a t - s t r i n g n i l
0066540 : r e a d - o n l y t ) (
0066560 i l : f o r m a t - a r g u m e
0066600 n t s n i l : r e a d - o n
0066620 l y t ) ) ) ) \r ( i l : p u t
0066640 p r o p ( q u o t e i l : a
0066660 s s e r t i o n - f a i l e d )
0066700 ( q u o t e i l : % l o c a
0066720 l - s l o t - n a m e s ) ( q
0066740 u o t e n i l ) ) \r ( i l : f
0066760 i x - i n h e r i t a n c e - l
0067000 i n k s ( q u o t e i l : a
0067020 s s e r t i o n - f a i l e d )
0067040 ( q u o t e i l : s i m p l
0067060 e - e r r o r ) ) \r ( l e t *
0067100 ( ( i l : a 0 8 9 0 ( q u o t
0067120 e i l : a s s e r t i o n - f
0067140 a i l e d ) ) ( i l : a 0 8 8
0067160 9 ( q u o t e i l : % c o n
0067200 d i t i o n - h a n d l e r ) )
0067220 ( i l : a 0 8 8 8 n i l ) )
0067240 \r ( i l : p u t p r o p i l
0067260 : a 0 8 9 0 i l : a 0 8 8 9
0067300 i l : a 0 8 8 8 ) ) \r i l : | A
0067320 S S E R T I O N - F A I L E D
0067340 r e p o r t m e t h o d | i
0067360 l : d 1 \r ( i l : p 3 i l :
0067400 c n t i l : p 2 i l : f n
0067420 i l : p 1 i l : f o r m a
0067440 t - a r g u m e n t s i l : p
0067460 0 i l : f o r m a t - s t r
0067500 i n g i l : i 1 * s t a n
0067520 d a r d - o u t p u t * i l :
0067540 i 0 i l : c o n d i t i o n
0067560 ) \0 8 004 \0 \0 002 @ \t \0 \0 @ \t \0 \0
0067600 021 " 003 g \0 \0 l 002 273 272 i H 265 006 o \0
0067620 \0 \0 I 260 026 d 001 375 002 K k 330 [ n 002 \0
0067640 361 226 h l 4 \n \0 \0 277 265 354 K J 016 020 \0
0067660 ( 4 7 i l : \ \ l i s p e r r
0067700 o r 7 i l : a s s e r t i o
0067720 n - f a i l e d - f o r m a t -
0067740 a r g u m e n t s 3 i l : a
0067760 s s e r t i o n - f a i l e d -
0070000 f o r m a t - s t r i n g ) \r (
0070020 1 3 f o r m a t ) \r ( 2 5
0070040 " A s s e r t i o n f a i l e
0070060 d . " ) \r ( l e t * ( ( i l :
0070100 a 0 8 9 3 ( q u o t e i l :
0070120 a s s e r t i o n - f a i l e d
0070140 ) ) ( i l : a 0 8 9 2 ( q u
0070160 o t e i l : % c o n d i t i o
0070200 n - r e p o r t e r ) ) ( i l
0070220 : a 0 8 9 1 ( \r i l : f u n c
0070240 t i o n i l : | A S S E R T I
0070260 O N - F A I L E D r e p o r t
0070300 m e t h o d | ) ) ) ( i l :
0070320 p u t p r o p i l : a 0 8 9 3
0070340 i l : a 0 8 9 2 i l : a 0 8
0070360 9 1 ) ) \r c e l l - e r r o r -
0070400 n a m e i l : d 1 \r ( i l : l
0070420 ( 0 i l : o b j e c t ) )
0070440 \0 006 \0 \0 \0 001 @ 002 002 001 020 \0 n i l \r
0070460 n i l \r ( ) \r c e l l - e r r o
0070500 r - - - d u m m y - s l o t - -
0070520 i l : d 1 \r ( i l : l ( 0
0070540 i l : o b j e c t ) ) \0 005 \0 \0
0070560 \0 001 @ 002 001 020 \0 n i l \r n i l \r (
0070600 ) \r ( i l : d e f p r i n t (
0070620 q u o t e i l : c e l l - e r
0070640 r o r ) ( i l : f u n c t i o
0070660 n i l : \ \ d e f p r i n t .
0070700 d e f s t r u c t . d e f a u l
0070720 t ) ) \r i l : % m a k e - c e l
0070740 l - e r r o r i l : d 1 \r ( i
0070760 l : l ( 0 i l : | - a r g s
0071000 - | ) ) \0 S 005 \0 002 \0 e 021 001 \0 H
0071020 k 021 002 002 J d I 363 262 037 277 h 022 021 1 004
0071040 H k 273 272 K d J 363 262 " 277 h 274 g \0 \0
0071060 I L h 032 032 032 020 a g \0 \0 360 225 J k 330
0071100 a 260 333 J l 002 324 Z 260 315 a g \0 \0 360 225
0071120 K k 330 a 260 330 K l 002 324 [ 260 312 \0 n i
0071140 l \r ( 6 6 : n a m e 4 7 :
0071160 - - d u m m y - s l o t - - 3
0071200 6 i l : c e l l - e r r o r )
0071220 \r ( ) \r ( l e t * ( ( i l : a
0071240 0 8 9 4 ( q u o t e i l : c
0071260 e l l - e r r o r ) ) ( i l :
0071300 a 0 8 9 5 ( q u o t e ( i l
0071320 : e r r o r ) ) ) ) ( i l : p
0071340 u t i l : a 0 8 9 4 ( q u o
0071360 t e \r i l : % % i n c l u d e
0071400 d - s t r u c t u r e ) i l :
0071420 a 0 8 9 5 ) ) \r ( i l : p u t p
0071440 r o p ( q u o t e i l : c e
0071460 l l - e r r o r ) ( q u o t e
0071500 i l : s t r u c t u r e - c o
0071520 n s t r u c t o r ) ( q u o t
0071540 e i l : % m a k e - c e l l -
0071560 e r r o r ) ) \r ( i l : p u t p
0071600 r o p ( q u o t e i l : c e
0071620 l l - e r r o r ) ( q u o t e
0071640 i l : % s t r u c t u r e - c
0071660 l a s s ) ( q u o t e i l :
0071700 l i s t - c l a s s ) ) \r ( i l
0071720 : p u t p r o p ( q u o t e
0071740 i l : c e l l - e r r o r ) (
0071760 q u o t e i l : % s l o t - d
0072000 e s c r i p t i o n s ) ( q u
0072020 o t e ( ( i l : - - d u m m y
0072040 - s l o t - - n i l \r : r e
0072060 a d - o n l y t ) ( i l : n
0072100 a m e n i l : r e a d - o n
0072120 l y t ) ) ) ) \r ( i l : p u t
0072140 p r o p ( q u o t e i l : c
0072160 e l l - e r r o r ) ( q u o t
0072200 e i l : % l o c a l - s l o t
0072220 - n a m e s ) ( q u o t e (
0072240 i l : n a m e ) ) ) \r ( i l : f
0072260 i x - i n h e r i t a n c e - l
0072300 i n k s ( q u o t e i l : c
0072320 e l l - e r r o r ) ( q u o t
0072340 e i l : e r r o r ) ) \r ( l e
0072360 t * ( ( i l : a 0 8 9 8 ( q
0072400 u o t e i l : c e l l - e r r
0072420 o r ) ) ( i l : a 0 8 9 7 (
0072440 q u o t e i l : % c o n d i t
0072460 i o n - h a n d l e r ) ) ( i
0072500 l : a 0 8 9 6 n i l ) ) ( \r
0072520 i l : p u t p r o p i l : a 0
0072540 8 9 8 i l : a 0 8 9 7 i l :
0072560 a 0 8 9 6 ) ) \r ( l e t * ( (
0072600 i l : a 0 9 0 1 ( q u o t e
0072620 i l : c e l l - e r r o r ) )
0072640 ( i l : a 0 9 0 0 ( q u o t e
0072660 i l : % c o n d i t i o n - r
0072700 e p o r t e r ) ) ( i l : a 0
0072720 8 9 9 n i l ) ) ( \r i l : p
0072740 u t p r o p i l : a 0 9 0 1
0072760 i l : a 0 9 0 0 i l : a 0 8 9
0073000 9 ) ) \r u n b o u n d - v a r i
0073020 a b l e - n a m e i l : d 1 \r
0073040 ( i l : l ( 0 i l : o b j e
0073060 c t ) ) \0 006 \0 \0 \0 001 @ 002 002 001 020
0073100 \0 n i l \r n i l \r ( ) \r u n b o
0073120 u n d - v a r i a b l e - - - d
0073140 u m m y - s l o t - - i l : d
0073160 1 \r ( i l : l ( 0 i l : o b
0073200 j e c t ) ) \0 005 \0 \0 \0 001 @ 002 001
0073220 020 \0 n i l \r n i l \r ( ) \r ( i l
0073240 : d e f p r i n t ( q u o t e
0073260 i l : u n b o u n d - v a r i
0073300 a b l e ) ( i l : f u n c t i
0073320 o n i l : \ \ d e f p r i n t
0073340 . d e f s t r u c t . d e f a u
0073360 l t ) ) \r i l : % m a k e - u n
0073400 b o u n d - v a r i a b l e i
0073420 l : d 1 \r ( i l : l ( 0 i l
0073440 : | - a r g s - | ) ) \0 S 005 \0
0073460 002 \0 e 021 001 \0 H k 021 002 002 J d I 363 262
0073500 037 277 h 022 021 1 004 H k 273 272 K d J 363 262
0073520 " 277 h 274 g \0 \0 I L h 032 032 032 020 a g
0073540 \0 \0 360 225 J k 330 a 260 333 J l 002 324 Z 260
0073560 315 a g \0 \0 360 225 K k 330 a 260 330 K l 002
0073600 324 [ 260 312 \0 n i l \r ( 6 6 : n a
0073620 m e 4 7 : - - d u m m y - s
0073640 l o t - - 3 6 i l : u n b o
0073660 u n d - v a r i a b l e ) \r ( )
0073700 \r ( l e t * ( ( i l : a 0 9 0
0073720 2 ( q u o t e i l : u n b o
0073740 u n d - v a r i a b l e ) ) (
0073760 i l : a 0 9 0 3 ( q u o t e
0074000 ( i l : c e l l - e r r o r ) )
0074020 ) ) ( i l : p u t i l : a 0
0074040 9 0 2 ( \r q u o t e i l : %
0074060 % i n c l u d e d - s t r u c t
0074100 u r e ) i l : a 0 9 0 3 ) ) \r
0074120 ( i l : p u t p r o p ( q u o
0074140 t e i l : u n b o u n d - v a
0074160 r i a b l e ) ( q u o t e i
0074200 l : s t r u c t u r e - c o n s
0074220 t r u c t o r ) ( q u o t e
0074240 \r i l : % m a k e - u n b o u n
0074260 d - v a r i a b l e ) ) \r ( i l
0074300 : p u t p r o p ( q u o t e
0074320 i l : u n b o u n d - v a r i a
0074340 b l e ) ( q u o t e i l : %
0074360 s t r u c t u r e - c l a s s )
0074400 ( q u o t e i l : l i s t -
0074420 c l a s s ) ) \r ( i l : p u t p
0074440 r o p ( q u o t e i l : u n
0074460 b o u n d - v a r i a b l e )
0074500 ( q u o t e i l : % s l o t -
0074520 d e s c r i p t i o n s ) ( q
0074540 u o t e ( ( i l : - - d u m m
0074560 y - s l o t - - n i l \r : r
0074600 e a d - o n l y t ) ( i l :
0074620 n a m e n i l : r e a d - o
0074640 n l y t ) ) ) ) \r ( i l : p u
0074660 t p r o p ( q u o t e i l :
0074700 u n b o u n d - v a r i a b l e
0074720 ) ( q u o t e i l : % l o c
0074740 a l - s l o t - n a m e s ) (
0074760 q u o t e n i l ) ) \r ( i l :
0075000 f i x - i n h e r i t a n c e -
0075020 l i n k s ( q u o t e i l :
0075040 u n b o u n d - v a r i a b l e
0075060 ) ( q u o t e i l : c e l l
0075100 - e r r o r ) ) \r ( l e t * (
0075120 ( i l : a 0 9 0 6 ( q u o t e
0075140 i l : u n b o u n d - v a r i
0075160 a b l e ) ) ( i l : a 0 9 0 5
0075200 ( q u o t e i l : % c o n d
0075220 i t i o n - h a n d l e r ) )
0075240 ( i l : a 0 9 0 4 n i l ) ) \r
0075260 ( i l : p u t p r o p i l :
0075300 a 0 9 0 6 i l : a 0 9 0 5 i
0075320 l : a 0 9 0 4 ) ) \r i l : | U N
0075340 B O U N D - V A R I A B L E r
0075360 e p o r t m e t h o d | i l
0075400 : d 1 \r ( i l : p 0 i l : n
0075420 a m e i l : i 1 * s t a n
0075440 d a r d - o u t p u t * i l :
0075460 i 0 i l : c o n d i t i o n
0075500 ) \0 022 001 \0 \0 002 @ \t \0 \0 021 001 \0 i
0075520 o \0 \0 \0 H \v \0 \0 020 \0 ( 1 5 f o
0075540 r m a t 3 i l : u n b o u n
0075560 d - v a r i a b l e - n a m e )
0075600 \r n i l \r ( 1 1 " U n b o u
0075620 n d v a r i a b l e : ~ S .
0075640 " ) \r ( l e t * ( ( i l : a 0
0075660 9 0 9 ( q u o t e i l : u n
0075700 b o u n d - v a r i a b l e ) )
0075720 ( i l : a 0 9 0 8 ( q u o t
0075740 e i l : % c o n d i t i o n -
0075760 r e p o r t e r ) ) ( i l : a
0076000 0 9 0 7 ( \r i l : f u n c t i
0076020 o n i l : | U N B O U N D - V
0076040 A R I A B L E r e p o r t m
0076060 e t h o d | ) ) ) ( i l : p u
0076100 t p r o p i l : a 0 9 0 9 i
0076120 l : a 0 9 0 8 i l : a 0 9 0 7
0076140 ) ) \r u n d e f i n e d - f u n
0076160 c t i o n - n a m e i l : d 1
0076200 \r ( i l : l ( 0 i l : o b j
0076220 e c t ) ) \0 006 \0 \0 \0 001 @ 002 002 001
0076240 020 \0 n i l \r n i l \r ( ) \r u n d
0076260 e f i n e d - f u n c t i o n -
0076300 - - d u m m y - s l o t - - i
0076320 l : d 1 \r ( i l : l ( 0 i l
0076340 : o b j e c t ) ) \0 005 \0 \0 \0 001
0076360 @ 002 001 020 \0 n i l \r n i l \r ( ) \r
0076400 ( i l : d e f p r i n t ( q u
0076420 o t e i l : u n d e f i n e d
0076440 - f u n c t i o n ) ( i l : f
0076460 u n c t i o n i l : \ \ d e f
0076500 p r i n t . d e f s t r u c t .
0076520 d e f a u l t ) ) \r i l : % m a
0076540 k e - u n d e f i n e d - f u n
0076560 c t i o n i l : d 1 \r ( i l :
0076600 l ( 0 i l : | - a r g s - |
0076620 ) ) \0 S 005 \0 002 \0 e 021 001 \0 H k 021
0076640 002 002 J d I 363 262 037 277 h 022 021 1 004 H k
0076660 273 272 K d J 363 262 " 277 h 274 g \0 \0 I L
0076700 h 032 032 032 020 a g \0 \0 360 225 J k 330 a 260
0076720 333 J l 002 324 Z 260 315 a g \0 \0 360 225 K k
0076740 330 a 260 330 K l 002 324 [ 260 312 \0 n i l \r
0076760 ( 6 6 : n a m e 4 7 : - -
0077000 d u m m y - s l o t - - 3 6
0077020 i l : u n d e f i n e d - f u n
0077040 c t i o n ) \r ( ) \r ( l e t *
0077060 ( ( i l : a 0 9 1 0 ( q u o t
0077100 e i l : u n d e f i n e d - f
0077120 u n c t i o n ) ) ( i l : a 0
0077140 9 1 1 ( q u o t e ( i l : c
0077160 e l l - e r r o r ) ) ) ) ( i
0077200 l : p u t i l : a 0 9 1 0 (
0077220 \r q u o t e i l : % % i n c l
0077240 u d e d - s t r u c t u r e )
0077260 i l : a 0 9 1 1 ) ) \r ( i l : p
0077300 u t p r o p ( q u o t e i l
0077320 : u n d e f i n e d - f u n c t
0077340 i o n ) ( q u o t e i l : s
0077360 t r u c t u r e - c o n s t r u
0077400 c t o r ) ( q u o t e \r i l
0077420 : % m a k e - u n d e f i n e d
0077440 - f u n c t i o n ) ) \r ( i l :
0077460 p u t p r o p ( q u o t e i
0077500 l : u n d e f i n e d - f u n c
0077520 t i o n ) ( q u o t e i l :
0077540 % s t r u c t u r e - c l a s s
0077560 ) ( q u o t e i l : l i s t
0077600 - c l a s s ) ) \r ( i l : p u t
0077620 p r o p ( q u o t e i l : u
0077640 n d e f i n e d - f u n c t i o
0077660 n ) ( q u o t e i l : % s l
0077700 o t - d e s c r i p t i o n s )
0077720 ( q u o t e ( ( i l : - - d
0077740 u m m y - s l o t - - n i l \r
0077760 : r e a d - o n l y t ) (
0100000 i l : n a m e n i l : r e a
0100020 d - o n l y t ) ) ) ) \r ( i l
0100040 : p u t p r o p ( q u o t e
0100060 i l : u n d e f i n e d - f u n
0100100 c t i o n ) ( q u o t e i l
0100120 : % l o c a l - s l o t - n a m
0100140 e s ) ( q u o t e n i l ) )
0100160 \r ( i l : f i x - i n h e r i t
0100200 a n c e - l i n k s ( q u o t
0100220 e i l : u n d e f i n e d - f
0100240 u n c t i o n ) ( q u o t e
0100260 i l : c e l l - e r r o r ) ) \r
0100300 ( l e t * ( ( i l : a 0 9 1 4
0100320 ( q u o t e i l : u n d e f
0100340 i n e d - f u n c t i o n ) )
0100360 ( i l : a 0 9 1 3 ( q u o t e
0100400 i l : % c o n d i t i o n - h
0100420 a n d l e r ) ) ( i l : a 0 9
0100440 1 2 n i l \r ) ) ( i l : p u
0100460 t p r o p i l : a 0 9 1 4 i
0100500 l : a 0 9 1 3 i l : a 0 9 1 2
0100520 ) ) \r i l : | U N D E F I N E D
0100540 - F U N C T I O N r e p o r t
0100560 m e t h o d | i l : d 1 \r (
0100600 i l : p 0 i l : n a m e i
0100620 l : i 1 * s t a n d a r d -
0100640 o u t p u t * i l : i 0 i
0100660 l : c o n d i t i o n ) \0 022 001
0100700 \0 \0 002 @ \t \0 \0 021 001 \0 i o \0 \0 \0 H
0100720 \v \0 \0 020 \0 ( 1 5 f o r m a t
0100740 3 i l : u n d e f i n e d - f
0100760 u n c t i o n - n a m e ) \r n i
0101000 l \r ( 1 1 " U n d e f i n e
0101020 d f u n c t i o n : ~ S . "
0101040 ) \r ( l e t * ( ( i l : a 0 9
0101060 1 7 ( q u o t e i l : u n d
0101100 e f i n e d - f u n c t i o n )
0101120 ) ( i l : a 0 9 1 6 ( q u o
0101140 t e i l : % c o n d i t i o n
0101160 - r e p o r t e r ) ) ( i l :
0101200 a 0 9 1 5 ( \r i l : f u n c t
0101220 i o n i l : | U N D E F I N E
0101240 D - F U N C T I O N r e p o r
0101260 t m e t h o d | ) ) ) ( i l
0101300 : p u t p r o p i l : a 0 9 1
0101320 7 i l : a 0 9 1 6 i l : a 0
0101340 9 1 5 ) ) \r n o - p r o c e e d
0101360 - t e s t - n a m e i l : d 1
0101400 \r ( i l : l ( 0 i l : o b j
0101420 e c t ) ) \0 006 \0 \0 \0 001 @ 002 002 001
0101440 020 \0 n i l \r n i l \r ( ) \r n o -
0101460 p r o c e e d - t e s t - - - d
0101500 u m m y - s l o t - - i l : d
0101520 1 \r ( i l : l ( 0 i l : o b
0101540 j e c t ) ) \0 005 \0 \0 \0 001 @ 002 001
0101560 020 \0 n i l \r n i l \r ( ) \r ( i l
0101600 : d e f p r i n t ( q u o t e
0101620 i l : n o - p r o c e e d - t
0101640 e s t ) ( i l : f u n c t i o
0101660 n i l : \ \ d e f p r i n t .
0101700 d e f s t r u c t . d e f a u l
0101720 t ) ) \r i l : % m a k e - n o -
0101740 p r o c e e d - t e s t i l :
0101760 d 1 \r ( i l : l ( 0 i l : |
0102000 - a r g s - | ) ) \0 S 005 \0 002 \0
0102020 e 021 001 \0 H k 021 002 002 J d I 363 262 037 277
0102040 h 022 021 1 004 H k 273 272 K d J 363 262 " 277
0102060 h 274 g \0 \0 I L h 032 032 032 020 a g \0 \0
0102100 360 225 J k 330 a 260 333 J l 002 324 Z 260 315 a
0102120 g \0 \0 360 225 K k 330 a 260 330 K l 002 324 [
0102140 260 312 \0 n i l \r ( 6 6 : n a m e
0102160 4 7 : - - d u m m y - s l o
0102200 t - - 3 6 i l : n o - p r o
0102220 c e e d - t e s t ) \r ( ) \r ( l
0102240 e t * ( ( i l : a 0 9 1 8 (
0102260 q u o t e i l : n o - p r o c
0102300 e e d - t e s t ) ) ( i l : a
0102320 0 9 1 9 ( q u o t e ( i l :
0102340 u n d e f i n e d - f u n c t i
0102360 o n ) ) ) ) ( i l : p u t \r
0102400 i l : a 0 9 1 8 ( q u o t e
0102420 i l : % % i n c l u d e d - s t
0102440 r u c t u r e ) i l : a 0 9 1
0102460 9 ) ) \r ( i l : p u t p r o p
0102500 ( q u o t e i l : n o - p r o
0102520 c e e d - t e s t ) ( q u o t
0102540 e i l : s t r u c t u r e - c
0102560 o n s t r u c t o r ) ( q u o
0102600 t e i l : % m a k e - n o - p
0102620 r o c e e d - t e s t \r ) ) \r (
0102640 i l : p u t p r o p ( q u o t
0102660 e i l : n o - p r o c e e d -
0102700 t e s t ) ( q u o t e i l :
0102720 % s t r u c t u r e - c l a s s
0102740 ) ( q u o t e i l : l i s t
0102760 - c l a s s ) ) \r ( i l : p u t
0103000 p r o p ( q u o t e i l : n
0103020 o - p r o c e e d - t e s t )
0103040 ( q u o t e i l : % s l o t -
0103060 d e s c r i p t i o n s ) ( q
0103100 u o t e ( ( i l : - - d u m m
0103120 y - s l o t - - n i l \r : r
0103140 e a d - o n l y t ) ( i l :
0103160 n a m e n i l : r e a d - o
0103200 n l y t ) ) ) ) \r ( i l : p u
0103220 t p r o p ( q u o t e i l :
0103240 n o - p r o c e e d - t e s t )
0103260 ( q u o t e i l : % l o c a
0103300 l - s l o t - n a m e s ) ( q
0103320 u o t e n i l ) ) \r ( i l : f
0103340 i x - i n h e r i t a n c e - l
0103360 i n k s ( q u o t e i l : n
0103400 o - p r o c e e d - t e s t )
0103420 ( q u o t e i l : u n d e f i
0103440 n e d - f u n c t i o n ) ) \r (
0103460 l e t * ( ( i l : a 0 9 2 2
0103500 ( q u o t e i l : n o - p r o
0103520 c e e d - t e s t ) ) ( i l :
0103540 a 0 9 2 1 ( q u o t e i l :
0103560 % c o n d i t i o n - h a n d l
0103600 e r ) ) ( i l : a 0 9 2 0 n
0103620 i l ) ) \r ( i l : p u t p r o
0103640 p i l : a 0 9 2 2 i l : a 0
0103660 9 2 1 i l : a 0 9 2 0 ) ) \r i
0103700 l : | N O - P R O C E E D - T E
0103720 S T r e p o r t m e t h o d
0103740 | i l : d 1 \r ( i l : p 0
0103760 i l : n a m e i l : i 1 *
0104000 s t a n d a r d - o u t p u t *
0104020 i l : i 0 i l : c o n d i
0104040 t i o n ) \0 022 001 \0 \0 002 @ \t \0 \0
0104060 021 001 \0 i o \0 \0 \0 H \v \0 \0 020 \0 ( 1
0104100 5 f o r m a t 3 i l : n o
0104120 - p r o c e e d - t e s t - n a
0104140 m e ) \r n i l \r ( 1 1 " N o
0104160 t e s t s p e c i f i e d
0104200 f o r p r o c e e d c a s e
0104220 : ~ S . " ) \r ( l e t * ( (
0104240 i l : a 0 9 2 5 ( q u o t e
0104260 i l : n o - p r o c e e d - t e
0104300 s t ) ) ( i l : a 0 9 2 4 (
0104320 q u o t e i l : % c o n d i t
0104340 i o n - r e p o r t e r ) ) (
0104360 i l : a 0 9 2 3 ( \r i l : f u
0104400 n c t i o n i l : | N O - P R
0104420 O C E E D - T E S T r e p o r
0104440 t m e t h o d | ) ) ) ( i l
0104460 : p u t p r o p i l : a 0 9 2
0104500 5 i l : a 0 9 2 4 i l : a 0
0104520 9 2 3 ) ) \r i n d e x - b o u n
0104540 d s - e r r o r - i n d e x i
0104560 l : d 1 \r ( i l : l ( 0 i l
0104600 : o b j e c t ) ) \0 \a \0 \0 \0 001
0104620 @ 002 002 002 001 020 \0 n i l \r n i l \r (
0104640 ) \r i n d e x - b o u n d s - e
0104660 r r o r - n a m e i l : d 1 \r
0104700 ( i l : l ( 0 i l : o b j e
0104720 c t ) ) \0 006 \0 \0 \0 001 @ 002 002 001 020
0104740 \0 n i l \r n i l \r ( ) \r i n d e
0104760 x - b o u n d s - e r r o r - -
0105000 - d u m m y - s l o t - - i l
0105020 : d 1 \r ( i l : l ( 0 i l :
0105040 o b j e c t ) ) \0 005 \0 \0 \0 001 @
0105060 002 001 020 \0 n i l \r n i l \r ( ) \r (
0105100 i l : d e f p r i n t ( q u o
0105120 t e i l : i n d e x - b o u n
0105140 d s - e r r o r ) ( i l : f u
0105160 n c t i o n i l : \ \ d e f p
0105200 r i n t . d e f s t r u c t . d
0105220 e f a u l t ) ) \r i l : % m a k
0105240 e - i n d e x - b o u n d s - e
0105260 r r o r i l : d 1 \r ( i l : l
0105300 ( 0 i l : | - a r g s - | )
0105320 ) \0 x \b \0 002 \0 e 021 001 \0 H k 021 002
0105340 002 J d I 363 262 1 277 h 022 021 a \a H k 273
0105360 272 K d J 363 262 4 277 h 274 H k 276 275 N d
0105400 M 363 262 : 277 h _ 016 277 g \0 \0 I L O 016
0105420 h 032 032 032 032 020 a g \0 \0 360 225 J k 330 a
0105440 260 311 J l 002 324 Z 260 273 a g \0 \0 360 225 K
0105460 k 330 a 260 306 K l 002 324 [ 260 270 a g \0 \0
0105500 360 225 N k 330 a 260 300 N l 002 324 ^ 260 262 \0
0105520 n i l \r ( 1 0 3 : i n d e x
0105540 8 4 : n a m e 6 5 : - - d
0105560 u m m y - s l o t - - 5 1 i
0105600 l : i n d e x - b o u n d s - e
0105620 r r o r ) \r ( ) \r ( l e t * (
0105640 ( i l : a 0 9 2 6 ( q u o t e
0105660 i l : i n d e x - b o u n d s
0105700 - e r r o r ) ) ( i l : a 0 9
0105720 2 7 ( q u o t e ( i l : c e
0105740 l l - e r r o r ) ) ) ) ( i l
0105760 : p u t i l : a 0 9 2 6 ( \r
0106000 q u o t e i l : % % i n c l u
0106020 d e d - s t r u c t u r e ) i
0106040 l : a 0 9 2 7 ) ) \r ( i l : p u
0106060 t p r o p ( q u o t e i l :
0106100 i n d e x - b o u n d s - e r r
0106120 o r ) ( q u o t e i l : s t
0106140 r u c t u r e - c o n s t r u c
0106160 t o r ) ( q u o t e \r i l :
0106200 % m a k e - i n d e x - b o u n
0106220 d s - e r r o r ) ) \r ( i l : p
0106240 u t p r o p ( q u o t e i l
0106260 : i n d e x - b o u n d s - e r
0106300 r o r ) ( q u o t e i l : %
0106320 s t r u c t u r e - c l a s s )
0106340 ( q u o t e i l : l i s t -
0106360 c l a s s ) ) \r ( i l : p u t p
0106400 r o p ( q u o t e i l : i n
0106420 d e x - b o u n d s - e r r o r
0106440 ) ( q u o t e i l : % s l o
0106460 t - d e s c r i p t i o n s )
0106500 ( q u o t e ( ( i l : - - d u
0106520 m m y - s l o t - - n i l \r
0106540 : r e a d - o n l y t ) ( i
0106560 l : n a m e n i l : r e a d
0106600 - o n l y t ) ( i l : i n d
0106620 e x n i l : r e a d - o n l
0106640 y t ) ) ) ) \r ( i l : p u t p
0106660 r o p ( q u o t e i l : i n
0106700 d e x - b o u n d s - e r r o r
0106720 ) ( q u o t e i l : % l o c
0106740 a l - s l o t - n a m e s ) (
0106760 q u o t e ( i l : i n d e x )
0107000 ) ) \r ( i l : f i x - i n h e r
0107020 i t a n c e - l i n k s ( q u
0107040 o t e i l : i n d e x - b o u
0107060 n d s - e r r o r ) ( q u o t
0107100 e i l : c e l l - e r r o r )
0107120 ) \r ( l e t * ( ( i l : a 0 9
0107140 3 0 ( q u o t e i l : i n d
0107160 e x - b o u n d s - e r r o r )
0107200 ) ( i l : a 0 9 2 9 ( q u o
0107220 t e i l : % c o n d i t i o n
0107240 - h a n d l e r ) ) ( i l : a
0107260 0 9 2 8 n i l \r ) ) ( i l :
0107300 p u t p r o p i l : a 0 9 3 0
0107320 i l : a 0 9 2 9 i l : a 0 9
0107340 2 8 ) ) \r i l : | I N D E X - B
0107360 O U N D S - E R R O R r e p o
0107400 r t m e t h o d | i l : d 1
0107420 \r ( i l : p 1 i l : i n d e
0107440 x i l : p 0 i l : n a m e
0107460 i l : i 1 * s t a n d a r
0107500 d - o u t p u t * i l : i 0
0107520 i l : c o n d i t i o n ) \0
0107540 026 002 \0 \0 002 @ \t \0 \0 @ \t \0 \0 021 002 001
0107560 i o \0 \0 \0 I \v \0 \0 020 \0 ( 1 9 f
0107600 o r m a t 7 i l : i n d e x
0107620 - b o u n d s - e r r o r - i n
0107640 d e x 3 i l : i n d e x - b
0107660 o u n d s - e r r o r - n a m e
0107700 ) \r n i l \r ( 1 5 " I n d e
0107720 x o u t o f b o u n d s :
0107740 ~ D . " ) \r ( l e t * ( ( i
0107760 l : a 0 9 3 3 ( q u o t e i
0110000 l : i n d e x - b o u n d s - e
0110020 r r o r ) ) ( i l : a 0 9 3 2
0110040 ( q u o t e i l : % c o n d
0110060 i t i o n - r e p o r t e r ) )
0110100 ( i l : a 0 9 3 1 ( \r i l :
0110120 f u n c t i o n i l : | I N D
0110140 E X - B O U N D S - E R R O R
0110160 r e p o r t m e t h o d | ) )
0110200 ) ( i l : p u t p r o p i l
0110220 : a 0 9 3 3 i l : a 0 9 3 2
0110240 i l : a 0 9 3 1 ) ) \r i l : p r
0110260 e t t y - t y p e - n a m e i
0110300 l : d 1 \r ( i l : l ( 0 i l
0110320 : t y p e s p e c ) ) \0 \n \0 \0
0110340 \0 001 o \0 \0 \0 @ \n \0 \0 020 \0 ( 7 i
0110360 l : c o n c a t ) \r n i l \r (
0110400 3 " a " ) \r t y p e - m i s
0110420 m a t c h - m e s s a g e i l
0110440 : d 1 \r ( i l : l ( 0 i l :
0110460 o b j e c t ) ) \0 \t \0 \0 \0 001 @
0110500 002 002 002 002 002 001 020 \0 n i l \r n i l \r
0110520 ( ) \r t y p e - m i s m a t c h
0110540 - d e s i r e d - t y p e i l
0110560 : d 1 \r ( i l : l ( 0 i l :
0110600 o b j e c t ) ) \0 \b \0 \0 \0 001 @
0110620 002 002 002 002 001 020 \0 n i l \r n i l \r (
0110640 ) \r t y p e - m i s m a t c h -
0110660 v a l u e i l : d 1 \r ( i l :
0110700 l ( 0 i l : o b j e c t ) )
0110720 \0 \a \0 \0 \0 001 @ 002 002 002 001 020 \0 n i
0110740 l \r n i l \r ( ) \r t y p e - m i
0110760 s m a t c h - n a m e i l : d
0111000 1 \r ( i l : l ( 0 i l : o b
0111020 j e c t ) ) \0 006 \0 \0 \0 001 @ 002 002
0111040 001 020 \0 n i l \r n i l \r ( ) \r t y
0111060 p e - m i s m a t c h - - - d u
0111100 m m y - s l o t - - i l : d 1
0111120 \r ( i l : l ( 0 i l : o b j
0111140 e c t ) ) \0 005 \0 \0 \0 001 @ 002 001 020
0111160 \0 n i l \r n i l \r ( ) \r ( i l :
0111200 d e f p r i n t ( q u o t e
0111220 i l : t y p e - m i s m a t c h
0111240 ) ( i l : f u n c t i o n i
0111260 l : \ \ d e f p r i n t . d e f
0111300 s t r u c t . d e f a u l t ) )
0111320 \r i l : % m a k e - t y p e - m
0111340 i s m a t c h i l : d 1 \r ( i
0111360 l : l ( 0 i l : | - a r g s
0111400 - | ) ) \0 326 016 \0 002 \0 e 021 001 \0 H
0111420 k 021 002 002 J d I 363 262 a 277 h 022 021 301 \r
0111440 H k 273 272 K d J 363 262 d 277 h 274 H k 276
0111460 275 N d M 363 262 j 277 h _ 016 277 H k _ 022
0111500 277 _ 020 277 O 022 d O 020 363 262 h 277 h _ 024
0111520 277 H k _ 030 277 _ 026 277 O 030 d O 026 363 262
0111540 j 277 h _ 032 277 g \0 \0 I L O 016 O 024 O
0111560 032 h 032 032 032 032 032 032 020 a g \0 \0 360 225 J
0111600 k 330 a 260 231 J l 002 324 Z 260 213 a g \0 \0
0111620 360 225 K k 330 a 260 226 K l 002 324 [ 260 210 a
0111640 g \0 \0 360 225 N k 330 a 260 220 N l 002 324 ^
0111660 260 202 a g \0 \0 360 226 O 022 k 330 a 260 221 O
0111700 022 l 002 324 _ 022 261 377 200 a g \0 \0 360 226 O
0111720 030 k 330 a 260 217 O 030 l 002 324 _ 030 261 377 ~
0111740 \0 n i l \r ( 1 9 3 : m e s s a
0111760 g e 1 7 0 : d e s i r e d -
0112000 t y p e 1 5 1 : v a l u e
0112020 1 3 2 : n a m e 1 1 3 : -
0112040 - d u m m y - s l o t - - 9 3
0112060 i l : t y p e - m i s m a t c
0112100 h ) \r ( ) \r ( l e t * ( ( i l
0112120 : a 0 9 3 4 ( q u o t e i l
0112140 : t y p e - m i s m a t c h ) )
0112160 ( i l : a 0 9 3 5 ( q u o t
0112200 e ( i l : c e l l - e r r o r
0112220 ) ) ) ) ( i l : p u t i l :
0112240 a 0 9 3 4 ( q u o t e \r i l
0112260 : % % i n c l u d e d - s t r u
0112300 c t u r e ) i l : a 0 9 3 5 )
0112320 ) \r ( i l : p u t p r o p ( q
0112340 u o t e i l : t y p e - m i s
0112360 m a t c h ) ( q u o t e i l
0112400 : s t r u c t u r e - c o n s t
0112420 r u c t o r ) ( q u o t e i
0112440 l : % m a k e - t y p e - m i s
0112460 m a t c h ) ) \r ( i l : p u t p
0112500 r o p ( q u o t e i l : t y
0112520 p e - m i s m a t c h ) ( q u
0112540 o t e i l : % s t r u c t u r
0112560 e - c l a s s ) ( q u o t e
0112600 i l : l i s t - c l a s s ) ) \r
0112620 ( i l : p u t p r o p ( q u o
0112640 t e i l : t y p e - m i s m a
0112660 t c h ) ( q u o t e i l : %
0112700 s l o t - d e s c r i p t i o n
0112720 s ) ( q u o t e ( ( i l : -
0112740 - d u m m y - s l o t - - n i
0112760 l \r : r e a d - o n l y t )
0113000 ( i l : n a m e n i l : r
0113020 e a d - o n l y t ) ( i l :
0113040 v a l u e n i l : r e a d -
0113060 o n l y t ) ( i l : d e s i
0113100 r e d - t y p e n i l : r e
0113120 a d - o n l y t \r ) ( i l :
0113140 m e s s a g e n i l : r e a
0113160 d - o n l y t ) ) ) ) \r ( i l
0113200 : p u t p r o p ( q u o t e
0113220 i l : t y p e - m i s m a t c h
0113240 ) ( q u o t e i l : % l o c
0113260 a l - s l o t - n a m e s ) (
0113300 q u o t e ( i l : m e s s a g
0113320 e i l : d e s i r e d - t y p
0113340 e \r i l : v a l u e ) ) ) \r (
0113360 i l : f i x - i n h e r i t a n
0113400 c e - l i n k s ( q u o t e
0113420 i l : t y p e - m i s m a t c h
0113440 ) ( q u o t e i l : c e l l
0113460 - e r r o r ) ) \r ( l e t * (
0113500 ( i l : a 0 9 3 8 ( q u o t e
0113520 i l : t y p e - m i s m a t c
0113540 h ) ) ( i l : a 0 9 3 7 ( q
0113560 u o t e i l : % c o n d i t i
0113600 o n - h a n d l e r ) ) ( i l
0113620 : a 0 9 3 6 n i l ) ) ( \r i
0113640 l : p u t p r o p i l : a 0 9
0113660 3 8 i l : a 0 9 3 7 i l : a
0113700 0 9 3 6 ) ) \r i l : | T Y P E -
0113720 M I S M A T C H r e p o r t
0113740 m e t h o d | i l : d 1 \r ( i
0113760 l : p 3 i l : m e s s a g e
0114000 i l : p 2 i l : d e s i r
0114020 e d - t y p e i l : p 1 i
0114040 l : v a l u e i l : p 0 i
0114060 l : n a m e i l : i 1 * s
0114100 t a n d a r d - o u t p u t *
0114120 i l : i 0 i l : c o n d i t
0114140 i o n ) \0 ' 004 \0 \0 002 @ \t \0 \0 @
0114160 \t \0 \0 @ \t \0 \0 @ \t \0 \0 021 004 003 i o
0114200 \0 \0 \0 H I K 265 006 J \t \0 \0 \r 005 \0 \0
0114220 020 \0 ( 3 6 f o r m a t 3 2
0114240 i l : p r e t t y - t y p e - n
0114260 a m e 1 5 i l : t y p e - m
0114300 i s m a t c h - m e s s a g e
0114320 1 1 i l : t y p e - m i s m a
0114340 t c h - d e s i r e d - t y p e
0114360 7 i l : t y p e - m i s m a
0114400 t c h - v a l u e 3 i l : t
0114420 y p e - m i s m a t c h - n a m
0114440 e ) \r n i l \r ( 2 3 " T h e
0114460 v a l u e o f ~ A , ~ A
0114500 , i s n o t ~ A . " ) \r (
0114520 l e t * ( ( i l : a 0 9 4 1
0114540 ( q u o t e i l : t y p e - m
0114560 i s m a t c h ) ) ( i l : a 0
0114600 9 4 0 ( q u o t e i l : % c
0114620 o n d i t i o n - r e p o r t e
0114640 r ) ) ( i l : a 0 9 3 9 ( \r
0114660 i l : f u n c t i o n i l : |
0114700 T Y P E - M I S M A T C H r e
0114720 p o r t m e t h o d | ) ) )
0114740 ( i l : p u t p r o p i l : a
0114760 0 9 4 1 i l : a 0 9 4 0 i l
0115000 : a 0 9 3 9 ) ) \r c o n t r o l
0115020 - e r r o r - - - d u m m y - s
0115040 l o t - - i l : d 1 \r ( i l :
0115060 l ( 0 i l : o b j e c t ) )
0115100 \0 005 \0 \0 \0 001 @ 002 001 020 \0 n i l \r
0115120 n i l \r ( ) \r ( i l : d e f p r
0115140 i n t ( q u o t e i l : c o
0115160 n t r o l - e r r o r ) ( i l
0115200 : f u n c t i o n i l : \ \ d
0115220 e f p r i n t . d e f s t r u c
0115240 t . d e f a u l t ) ) \r i l : %
0115260 m a k e - c o n t r o l - e r r
0115300 o r i l : d 1 \r ( i l : l (
0115320 0 i l : | - a r g s - | ) )
0115340 \0 0 003 \0 002 \0 e 021 001 \0 H k 021 002 002 J
0115360 d I 363 235 277 h 022 021 001 001 g \0 \0 I h 032
0115400 032 020 a g \0 \0 360 225 J k 330 a 260 352 J l
0115420 002 324 Z 260 335 \0 n i l \r ( 3 1 : -
0115440 - d u m m y - s l o t - - 2 2
0115460 i l : c o n t r o l - e r r o
0115500 r ) \r ( ) \r ( l e t * ( ( i l
0115520 : a 0 9 4 2 ( q u o t e i l
0115540 : c o n t r o l - e r r o r ) )
0115560 ( i l : a 0 9 4 3 ( q u o t
0115600 e ( i l : e r r o r ) ) ) )
0115620 ( i l : p u t i l : a 0 9 4 2
0115640 ( q u o t e \r i l : % % i n
0115660 c l u d e d - s t r u c t u r e
0115700 ) i l : a 0 9 4 3 ) ) \r ( i l
0115720 : p u t p r o p ( q u o t e
0115740 i l : c o n t r o l - e r r o r
0115760 ) ( q u o t e i l : s t r u
0116000 c t u r e - c o n s t r u c t o
0116020 r ) ( q u o t e i l : % m a
0116040 k e - c o n t r o l - e r r o r
0116060 ) ) \r ( i l : p u t p r o p (
0116100 q u o t e i l : c o n t r o l
0116120 - e r r o r ) ( q u o t e i
0116140 l : % s t r u c t u r e - c l a
0116160 s s ) ( q u o t e i l : l i
0116200 s t - c l a s s ) ) \r ( i l : p
0116220 u t p r o p ( q u o t e i l
0116240 : c o n t r o l - e r r o r )
0116260 ( q u o t e i l : % s l o t -
0116300 d e s c r i p t i o n s ) ( q
0116320 u o t e ( ( i l : - - d u m m
0116340 y - s l o t - - n i l \r : r
0116360 e a d - o n l y t ) ) ) ) \r (
0116400 i l : p u t p r o p ( q u o t
0116420 e i l : c o n t r o l - e r r
0116440 o r ) ( q u o t e i l : % l
0116460 o c a l - s l o t - n a m e s )
0116500 ( q u o t e n i l ) ) \r ( i
0116520 l : f i x - i n h e r i t a n c
0116540 e - l i n k s ( q u o t e i
0116560 l : c o n t r o l - e r r o r )
0116600 ( q u o t e i l : e r r o r
0116620 ) ) \r ( l e t * ( ( i l : a 0
0116640 9 4 6 ( q u o t e i l : c o
0116660 n t r o l - e r r o r ) ) ( i
0116700 l : a 0 9 4 5 ( q u o t e i
0116720 l : % c o n d i t i o n - h a n
0116740 d l e r ) ) ( i l : a 0 9 4 4
0116760 n i l ) ) ( \r i l : p u t p
0117000 r o p i l : a 0 9 4 6 i l :
0117020 a 0 9 4 5 i l : a 0 9 4 4 ) )
0117040 \r ( l e t * ( ( i l : a 0 9 4
0117060 9 ( q u o t e i l : c o n t
0117100 r o l - e r r o r ) ) ( i l :
0117120 a 0 9 4 8 ( q u o t e i l :
0117140 % c o n d i t i o n - r e p o r
0117160 t e r ) ) ( i l : a 0 9 4 7
0117200 n i l ) ) ( \r i l : p u t p r
0117220 o p i l : a 0 9 4 9 i l : a
0117240 0 9 4 8 i l : a 0 9 4 7 ) ) \r
0117260 i l l e g a l - g o - t a g i
0117300 l : d 1 \r ( i l : l ( 0 i l
0117320 : o b j e c t ) ) \0 006 \0 \0 \0 001
0117340 @ 002 002 001 020 \0 n i l \r n i l \r ( )
0117360 \r i l l e g a l - g o - - - d u
0117400 m m y - s l o t - - i l : d 1
0117420 \r ( i l : l ( 0 i l : o b j
0117440 e c t ) ) \0 005 \0 \0 \0 001 @ 002 001 020
0117460 \0 n i l \r n i l \r ( ) \r ( i l :
0117500 d e f p r i n t ( q u o t e
0117520 i l : i l l e g a l - g o ) (
0117540 i l : f u n c t i o n i l : \
0117560 \ d e f p r i n t . d e f s t r
0117600 u c t . d e f a u l t ) ) \r i l
0117620 : % m a k e - i l l e g a l - g
0117640 o i l : d 1 \r ( i l : l ( 0
0117660 i l : | - a r g s - | ) ) \0
0117700 S 005 \0 002 \0 e 021 001 \0 H k 021 002 002 J d
0117720 I 363 262 037 277 h 022 021 1 004 H k 273 272 K d
0117740 J 363 262 " 277 h 274 g \0 \0 I L h 032 032 032
0117760 020 a g \0 \0 360 225 J k 330 a 260 333 J l 002
0120000 324 Z 260 315 a g \0 \0 360 225 K k 330 a 260 330
0120020 K l 002 324 [ 260 312 \0 n i l \r ( 6 6
0120040 : t a g 4 7 : - - d u m m y
0120060 - s l o t - - 3 6 i l : i l
0120100 l e g a l - g o ) \r ( ) \r ( l e
0120120 t * ( ( i l : a 0 9 5 0 ( q
0120140 u o t e i l : i l l e g a l -
0120160 g o ) ) ( i l : a 0 9 5 1 (
0120200 q u o t e ( i l : c o n t r o
0120220 l - e r r o r ) ) ) ) ( i l :
0120240 p u t i l : a 0 9 5 0 ( q u
0120260 o t e \r i l : % % i n c l u d
0120300 e d - s t r u c t u r e ) i l
0120320 : a 0 9 5 1 ) ) \r ( i l : p u t
0120340 p r o p ( q u o t e i l : i
0120360 l l e g a l - g o ) ( q u o t
0120400 e i l : s t r u c t u r e - c
0120420 o n s t r u c t o r ) ( q u o
0120440 t e i l : % m a k e - i l l e
0120460 g a l - g o ) ) \r ( i l : p u t
0120500 p r o p ( q u o t e i l : i
0120520 l l e g a l - g o ) ( q u o t
0120540 e i l : % s t r u c t u r e -
0120560 c l a s s ) ( q u o t e i l
0120600 : l i s t - c l a s s ) ) \r ( i
0120620 l : p u t p r o p ( q u o t e
0120640 i l : i l l e g a l - g o )
0120660 ( q u o t e i l : % s l o t -
0120700 d e s c r i p t i o n s ) ( q
0120720 u o t e ( ( i l : - - d u m m
0120740 y - s l o t - - n i l \r : r
0120760 e a d - o n l y t ) ( i l :
0121000 t a g n i l : r e a d - o n
0121020 l y t ) ) ) ) \r ( i l : p u t
0121040 p r o p ( q u o t e i l : i
0121060 l l e g a l - g o ) ( q u o t
0121100 e i l : % l o c a l - s l o t
0121120 - n a m e s ) ( q u o t e (
0121140 i l : t a g ) ) ) \r ( i l : f i
0121160 x - i n h e r i t a n c e - l i
0121200 n k s ( q u o t e i l : i l
0121220 l e g a l - g o ) ( q u o t e
0121240 i l : c o n t r o l - e r r o
0121260 r ) ) \r ( l e t * ( ( i l : a
0121300 0 9 5 4 ( q u o t e i l : i
0121320 l l e g a l - g o ) ) ( i l :
0121340 a 0 9 5 3 ( q u o t e i l :
0121360 % c o n d i t i o n - h a n d l
0121400 e r ) ) ( i l : a 0 9 5 2 n
0121420 i l ) ) ( \r i l : p u t p r o
0121440 p i l : a 0 9 5 4 i l : a 0
0121460 9 5 3 i l : a 0 9 5 2 ) ) \r i
0121500 l : | I L L E G A L - G O r e
0121520 p o r t m e t h o d | i l :
0121540 d 1 \r ( i l : p 0 i l : t a
0121560 g i l : i 1 * s t a n d a
0121600 r d - o u t p u t * i l : i
0121620 0 i l : c o n d i t i o n )
0121640 \0 022 001 \0 \0 002 @ \t \0 \0 021 001 \0 i o \0
0121660 \0 \0 H \v \0 \0 020 \0 ( 1 5 f o r m
0121700 a t 3 i l : i l l e g a l -
0121720 g o - t a g ) \r n i l \r ( 1 1
0121740 " G O t o a n o n - e x
0121760 i s t a n t t a g : ~ S . "
0122000 ) \r ( l e t * ( ( i l : a 0 9
0122020 5 7 ( q u o t e i l : i l l
0122040 e g a l - g o ) ) ( i l : a 0
0122060 9 5 6 ( q u o t e i l : % c
0122100 o n d i t i o n - r e p o r t e
0122120 r ) ) ( i l : a 0 9 5 5 ( i
0122140 l : f u n c t i o n \r i l : |
0122160 I L L E G A L - G O r e p o r
0122200 t m e t h o d | ) ) ) ( i l
0122220 : p u t p r o p i l : a 0 9 5
0122240 7 i l : a 0 9 5 6 i l : a 0
0122260 9 5 5 ) ) \r i l l e g a l - r e
0122300 t u r n - t a g i l : d 1 \r (
0122320 i l : l ( 0 i l : o b j e c
0122340 t ) ) \0 006 \0 \0 \0 001 @ 002 002 001 020 \0
0122360 n i l \r n i l \r ( ) \r i l l e g
0122400 a l - r e t u r n - - - d u m m
0122420 y - s l o t - - i l : d 1 \r (
0122440 i l : l ( 0 i l : o b j e c
0122460 t ) ) \0 005 \0 \0 \0 001 @ 002 001 020 \0 n
0122500 i l \r n i l \r ( ) \r ( i l : d e
0122520 f p r i n t ( q u o t e i l
0122540 : i l l e g a l - r e t u r n )
0122560 ( i l : f u n c t i o n i l
0122600 : \ \ d e f p r i n t . d e f s
0122620 t r u c t . d e f a u l t ) ) \r
0122640 i l : % m a k e - i l l e g a l
0122660 - r e t u r n i l : d 1 \r ( i
0122700 l : l ( 0 i l : | - a r g s
0122720 - | ) ) \0 S 005 \0 002 \0 e 021 001 \0 H
0122740 k 021 002 002 J d I 363 262 037 277 h 022 021 1 004
0122760 H k 273 272 K d J 363 262 " 277 h 274 g \0 \0
0123000 I L h 032 032 032 020 a g \0 \0 360 225 J k 330
0123020 a 260 333 J l 002 324 Z 260 315 a g \0 \0 360 225
0123040 K k 330 a 260 330 K l 002 324 [ 260 312 \0 n i
0123060 l \r ( 6 6 : t a g 4 7 : -
0123100 - d u m m y - s l o t - - 3 6
0123120 i l : i l l e g a l - r e t u
0123140 r n ) \r ( ) \r ( l e t * ( ( i
0123160 l : a 0 9 5 8 ( q u o t e i
0123200 l : i l l e g a l - r e t u r n
0123220 ) ) ( i l : a 0 9 5 9 ( q u
0123240 o t e ( i l : c o n t r o l -
0123260 e r r o r ) ) ) ) ( i l : p u
0123300 t i l : a 0 9 5 8 ( \r q u o
0123320 t e i l : % % i n c l u d e d
0123340 - s t r u c t u r e ) i l : a
0123360 0 9 5 9 ) ) \r ( i l : p u t p r
0123400 o p ( q u o t e i l : i l l
0123420 e g a l - r e t u r n ) ( q u
0123440 o t e i l : s t r u c t u r e
0123460 - c o n s t r u c t o r ) ( q
0123500 u o t e i l : % m a k e - i l
0123520 l e g a l - r e t u r n ) \r ) \r
0123540 ( i l : p u t p r o p ( q u o
0123560 t e i l : i l l e g a l - r e
0123600 t u r n ) ( q u o t e i l :
0123620 % s t r u c t u r e - c l a s s
0123640 ) ( q u o t e i l : l i s t
0123660 - c l a s s ) ) \r ( i l : p u t
0123700 p r o p ( q u o t e i l : i
0123720 l l e g a l - r e t u r n ) (
0123740 q u o t e i l : % s l o t - d
0123760 e s c r i p t i o n s ) ( q u
0124000 o t e ( ( i l : - - d u m m y
0124020 - s l o t - - n i l \r : r e
0124040 a d - o n l y t ) ( i l : t
0124060 a g n i l : r e a d - o n l
0124100 y t ) ) ) ) \r ( i l : p u t p
0124120 r o p ( q u o t e i l : i l
0124140 l e g a l - r e t u r n ) ( q
0124160 u o t e i l : % l o c a l - s
0124200 l o t - n a m e s ) ( q u o t
0124220 e ( i l : t a g ) ) ) \r ( i l
0124240 : f i x - i n h e r i t a n c e
0124260 - l i n k s ( q u o t e i l
0124300 : i l l e g a l - r e t u r n )
0124320 ( q u o t e i l : c o n t r
0124340 o l - e r r o r ) ) \r ( l e t *
0124360 ( ( i l : a 0 9 6 2 ( q u o
0124400 t e i l : i l l e g a l - r e
0124420 t u r n ) ) ( i l : a 0 9 6 1
0124440 ( q u o t e i l : % c o n d
0124460 i t i o n - h a n d l e r ) )
0124500 ( i l : a 0 9 6 0 n i l ) )
0124520 ( \r i l : p u t p r o p i l :
0124540 a 0 9 6 2 i l : a 0 9 6 1 i
0124560 l : a 0 9 6 0 ) ) \r i l : | I L
0124600 L E G A L - R E T U R N r e p
0124620 o r t m e t h o d | i l : d
0124640 1 \r ( i l : p 0 i l : t a g
0124660 i l : i 1 * s t a n d a r
0124700 d - o u t p u t * i l : i 0
0124720 i l : c o n d i t i o n ) \0
0124740 022 001 \0 \0 002 @ \t \0 \0 021 001 \0 i o \0 \0
0124760 \0 H \v \0 \0 020 \0 ( 1 5 f o r m a
0125000 t 3 i l : i l l e g a l - r
0125020 e t u r n - t a g ) \r n i l \r (
0125040 1 1 " R E T U R N t o n
0125060 o n - e x i s t a n t b l o c
0125100 k : ~ S . " ) \r ( l e t * (
0125120 ( i l : a 0 9 6 5 ( q u o t e
0125140 i l : i l l e g a l - r e t u
0125160 r n ) ) ( i l : a 0 9 6 4 (
0125200 q u o t e i l : % c o n d i t
0125220 i o n - r e p o r t e r ) ) (
0125240 i l : a 0 9 6 3 ( \r i l : f u
0125260 n c t i o n i l : | I L L E G
0125300 A L - R E T U R N r e p o r t
0125320 m e t h o d | ) ) ) ( i l :
0125340 p u t p r o p i l : a 0 9 6 5
0125360 i l : a 0 9 6 4 i l : a 0 9
0125400 6 3 ) ) \r i l l e g a l - t h r
0125420 o w - t a g i l : d 1 \r ( i l
0125440 : l ( 0 i l : o b j e c t )
0125460 ) \0 006 \0 \0 \0 001 @ 002 002 001 020 \0 n i
0125500 l \r n i l \r ( ) \r i l l e g a l
0125520 - t h r o w - - - d u m m y - s
0125540 l o t - - i l : d 1 \r ( i l :
0125560 l ( 0 i l : o b j e c t ) )
0125600 \0 005 \0 \0 \0 001 @ 002 001 020 \0 n i l \r
0125620 n i l \r ( ) \r ( i l : d e f p r
0125640 i n t ( q u o t e i l : i l
0125660 l e g a l - t h r o w ) ( i l
0125700 : f u n c t i o n i l : \ \ d
0125720 e f p r i n t . d e f s t r u c
0125740 t . d e f a u l t ) ) \r i l : %
0125760 m a k e - i l l e g a l - t h r
0126000 o w i l : d 1 \r ( i l : l (
0126020 0 i l : | - a r g s - | ) )
0126040 \0 S 005 \0 002 \0 e 021 001 \0 H k 021 002 002 J
0126060 d I 363 262 037 277 h 022 021 1 004 H k 273 272 K
0126100 d J 363 262 " 277 h 274 g \0 \0 I L h 032 032
0126120 032 020 a g \0 \0 360 225 J k 330 a 260 333 J l
0126140 002 324 Z 260 315 a g \0 \0 360 225 K k 330 a 260
0126160 330 K l 002 324 [ 260 312 \0 n i l \r ( 6 6
0126200 : t a g 4 7 : - - d u m m
0126220 y - s l o t - - 3 6 i l : i
0126240 l l e g a l - t h r o w ) \r ( )
0126260 \r ( l e t * ( ( i l : a 0 9 6
0126300 6 ( q u o t e i l : i l l e
0126320 g a l - t h r o w ) ) ( i l :
0126340 a 0 9 6 7 ( q u o t e ( i l
0126360 : c o n t r o l - e r r o r ) )
0126400 ) ) ( i l : p u t i l : a 0
0126420 9 6 6 ( \r q u o t e i l : %
0126440 % i n c l u d e d - s t r u c t
0126460 u r e ) i l : a 0 9 6 7 ) ) \r
0126500 ( i l : p u t p r o p ( q u o
0126520 t e i l : i l l e g a l - t h
0126540 r o w ) ( q u o t e i l : s
0126560 t r u c t u r e - c o n s t r u
0126600 c t o r ) ( q u o t e i l :
0126620 % m a k e - i l l e g a l - t h
0126640 r o w ) ) \r ( i l : p u t p r o
0126660 p ( q u o t e i l : i l l e
0126700 g a l - t h r o w ) ( q u o t
0126720 e i l : % s t r u c t u r e -
0126740 c l a s s ) ( q u o t e i l
0126760 : l i s t - c l a s s ) ) \r ( i
0127000 l : p u t p r o p ( q u o t e
0127020 i l : i l l e g a l - t h r o
0127040 w ) ( q u o t e i l : % s l
0127060 o t - d e s c r i p t i o n s )
0127100 ( q u o t e ( ( i l : - - d
0127120 u m m y - s l o t - - n i l
0127140 \r : r e a d - o n l y t ) (
0127160 i l : t a g n i l : r e a d
0127200 - o n l y t ) ) ) ) \r ( i l :
0127220 p u t p r o p ( q u o t e i
0127240 l : i l l e g a l - t h r o w )
0127260 ( q u o t e i l : % l o c a
0127300 l - s l o t - n a m e s ) ( q
0127320 u o t e ( i l : t a g ) ) ) \r
0127340 ( i l : f i x - i n h e r i t a
0127360 n c e - l i n k s ( q u o t e
0127400 i l : i l l e g a l - t h r o
0127420 w ) ( q u o t e i l : c o n
0127440 t r o l - e r r o r ) ) \r ( l e
0127460 t * ( ( i l : a 0 9 7 0 ( q
0127500 u o t e i l : i l l e g a l -
0127520 t h r o w ) ) ( i l : a 0 9 6
0127540 9 ( q u o t e i l : % c o n
0127560 d i t i o n - h a n d l e r ) )
0127600 ( i l : a 0 9 6 8 n i l ) )
0127620 ( \r i l : p u t p r o p i l
0127640 : a 0 9 7 0 i l : a 0 9 6 9
0127660 i l : a 0 9 6 8 ) ) \r i l : | I
0127700 L L E G A L - T H R O W r e p
0127720 o r t m e t h o d | i l : d
0127740 1 \r ( i l : p 0 i l : t a g
0127760 i l : i 1 * s t a n d a r
0130000 d - o u t p u t * i l : i 0
0130020 i l : c o n d i t i o n ) \0
0130040 022 001 \0 \0 002 @ \t \0 \0 021 001 \0 i o \0 \0
0130060 \0 H \v \0 \0 020 \0 ( 1 5 f o r m a
0130100 t 3 i l : i l l e g a l - t
0130120 h r o w - t a g ) \r n i l \r (
0130140 1 1 " T a g f o r T H R O
0130160 W n o t f o u n d : ~ S .
0130200 " ) \r ( l e t * ( ( i l : a 0
0130220 9 7 3 ( q u o t e i l : i l
0130240 l e g a l - t h r o w ) ) ( i
0130260 l : a 0 9 7 2 ( q u o t e i
0130300 l : % c o n d i t i o n - r e p
0130320 o r t e r ) ) ( i l : a 0 9 7
0130340 1 ( \r i l : f u n c t i o n
0130360 i l : | I L L E G A L - T H R O
0130400 W r e p o r t m e t h o d |
0130420 ) ) ) ( i l : p u t p r o p
0130440 i l : a 0 9 7 3 i l : a 0 9 7
0130460 2 i l : a 0 9 7 1 ) ) \r b a d
0130500 - p r o c e e d - c a s e - n a
0130520 m e i l : d 1 \r ( i l : l (
0130540 0 i l : o b j e c t ) ) \0 006
0130560 \0 \0 \0 001 @ 002 002 001 020 \0 n i l \r n i
0130600 l \r ( ) \r b a d - p r o c e e d
0130620 - c a s e - - - d u m m y - s l
0130640 o t - - i l : d 1 \r ( i l : l
0130660 ( 0 i l : o b j e c t ) )
0130700 \0 005 \0 \0 \0 001 @ 002 001 020 \0 n i l \r n
0130720 i l \r ( ) \r ( i l : d e f p r i
0130740 n t ( q u o t e i l : b a d
0130760 - p r o c e e d - c a s e ) (
0131000 i l : f u n c t i o n i l : \
0131020 \ d e f p r i n t . d e f s t r
0131040 u c t . d e f a u l t ) ) \r i l
0131060 : % m a k e - b a d - p r o c e
0131100 e d - c a s e i l : d 1 \r ( i
0131120 l : l ( 0 i l : | - a r g s
0131140 - | ) ) \0 S 005 \0 002 \0 e 021 001 \0 H
0131160 k 021 002 002 J d I 363 262 037 277 h 022 021 1 004
0131200 H k 273 272 K d J 363 262 " 277 h 274 g \0 \0
0131220 I L h 032 032 032 020 a g \0 \0 360 225 J k 330
0131240 a 260 333 J l 002 324 Z 260 315 a g \0 \0 360 225
0131260 K k 330 a 260 330 K l 002 324 [ 260 312 \0 n i
0131300 l \r ( 6 6 : n a m e 4 7 :
0131320 - - d u m m y - s l o t - - 3
0131340 6 i l : b a d - p r o c e e d
0131360 - c a s e ) \r ( ) \r ( l e t *
0131400 ( ( i l : a 0 9 7 4 ( q u o t
0131420 e i l : b a d - p r o c e e d
0131440 - c a s e ) ) ( i l : a 0 9 7
0131460 5 ( q u o t e ( i l : c o n
0131500 t r o l - e r r o r ) ) ) ) (
0131520 i l : p u t i l : a 0 9 7 4
0131540 \r ( q u o t e i l : % % i n c
0131560 l u d e d - s t r u c t u r e )
0131600 i l : a 0 9 7 5 ) ) \r ( i l :
0131620 p u t p r o p ( q u o t e i
0131640 l : b a d - p r o c e e d - c a
0131660 s e ) ( q u o t e i l : s t
0131700 r u c t u r e - c o n s t r u c
0131720 t o r ) ( q u o t e \r i l :
0131740 % m a k e - b a d - p r o c e e
0131760 d - c a s e ) ) \r ( i l : p u t
0132000 p r o p ( q u o t e i l : b
0132020 a d - p r o c e e d - c a s e )
0132040 ( q u o t e i l : % s t r u
0132060 c t u r e - c l a s s ) ( q u
0132100 o t e i l : l i s t - c l a s
0132120 s ) ) \r ( i l : p u t p r o p
0132140 ( q u o t e i l : b a d - p r
0132160 o c e e d - c a s e ) ( q u o
0132200 t e i l : % s l o t - d e s c
0132220 r i p t i o n s ) ( q u o t e
0132240 ( ( i l : - - d u m m y - s l
0132260 o t - - n i l \r : r e a d -
0132300 o n l y t ) ( i l : n a m e
0132320 n i l : r e a d - o n l y
0132340 t ) ) ) ) \r ( i l : p u t p r o
0132360 p ( q u o t e i l : b a d -
0132400 p r o c e e d - c a s e ) ( q
0132420 u o t e i l : % l o c a l - s
0132440 l o t - n a m e s ) ( q u o t
0132460 e ( i l : n a m e ) ) ) \r ( i
0132500 l : f i x - i n h e r i t a n c
0132520 e - l i n k s ( q u o t e i
0132540 l : b a d - p r o c e e d - c a
0132560 s e ) ( q u o t e i l : c o
0132600 n t r o l - e r r o r ) ) \r ( l
0132620 e t * ( ( i l : a 0 9 7 8 (
0132640 q u o t e i l : b a d - p r o
0132660 c e e d - c a s e ) ) ( i l :
0132700 a 0 9 7 7 ( q u o t e i l :
0132720 % c o n d i t i o n - h a n d l
0132740 e r ) ) ( i l : a 0 9 7 6 n
0132760 i l ) ) \r ( i l : p u t p r o
0133000 p i l : a 0 9 7 8 i l : a 0
0133020 9 7 7 i l : a 0 9 7 6 ) ) \r i
0133040 l : | B A D - P R O C E E D - C
0133060 A S E r e p o r t m e t h o
0133100 d | i l : d 1 \r ( i l : p 0
0133120 i l : n a m e i l : i 1
0133140 * s t a n d a r d - o u t p u t
0133160 * i l : i 0 i l : c o n d
0133200 i t i o n ) \0 022 001 \0 \0 002 @ \t \0
0133220 \0 021 001 \0 i o \0 \0 \0 H \v \0 \0 020 \0 (
0133240 1 5 f o r m a t 3 i l : b
0133260 a d - p r o c e e d - c a s e -
0133300 n a m e ) \r n i l \r ( 1 1 "
0133320 P r o c e e d c a s e ~ S
0133340 i s n o t c u r r e n t l y
0133360 a c t i v e . " ) \r ( l e t *
0133400 ( ( i l : a 0 9 8 1 ( q u o
0133420 t e i l : b a d - p r o c e e
0133440 d - c a s e ) ) ( i l : a 0 9
0133460 8 0 ( q u o t e i l : % c o
0133500 n d i t i o n - r e p o r t e r
0133520 ) ) ( i l : a 0 9 7 9 ( \r i
0133540 l : f u n c t i o n i l : | B
0133560 A D - P R O C E E D - C A S E
0133600 r e p o r t m e t h o d | ) )
0133620 ) ( i l : p u t p r o p i l
0133640 : a 0 9 8 1 i l : a 0 9 8 0
0133660 i l : a 0 9 7 9 ) ) \r c a l l -
0133700 e r r o r - c a l l e e i l :
0133720 d 1 \r ( i l : l ( 0 i l : o
0133740 b j e c t ) ) \0 006 \0 \0 \0 001 @ 002
0133760 002 001 020 \0 n i l \r n i l \r ( ) \r c
0134000 a l l - e r r o r - - - d u m m
0134020 y - s l o t - - i l : d 1 \r (
0134040 i l : l ( 0 i l : o b j e c
0134060 t ) ) \0 005 \0 \0 \0 001 @ 002 001 020 \0 n
0134100 i l \r n i l \r ( ) \r ( i l : d e
0134120 f p r i n t ( q u o t e i l
0134140 : c a l l - e r r o r ) ( i l
0134160 : f u n c t i o n i l : \ \ d
0134200 e f p r i n t . d e f s t r u c
0134220 t . d e f a u l t ) ) \r i l : %
0134240 m a k e - c a l l - e r r o r
0134260 i l : d 1 \r ( i l : l ( 0 i
0134300 l : | - a r g s - | ) ) \0 S 005
0134320 \0 002 \0 e 021 001 \0 H k 021 002 002 J d I 363
0134340 262 037 277 h 022 021 1 004 H k 273 272 K d J 363
0134360 262 " 277 h 274 g \0 \0 I L h 032 032 032 020 a
0134400 g \0 \0 360 225 J k 330 a 260 333 J l 002 324 Z
0134420 260 315 a g \0 \0 360 225 K k 330 a 260 330 K l
0134440 002 324 [ 260 312 \0 n i l \r ( 6 6 : c
0134460 a l l e e 4 7 : - - d u m m
0134500 y - s l o t - - 3 6 i l : c
0134520 a l l - e r r o r ) \r ( ) \r ( l
0134540 e t * ( ( i l : a 0 9 8 2 (
0134560 q u o t e i l : c a l l - e r
0134600 r o r ) ) ( i l : a 0 9 8 3
0134620 ( q u o t e ( i l : c o n t r
0134640 o l - e r r o r ) ) ) ) ( i l
0134660 : p u t i l : a 0 9 8 2 ( q
0134700 u o t e \r i l : % % i n c l u
0134720 d e d - s t r u c t u r e ) i
0134740 l : a 0 9 8 3 ) ) \r ( i l : p u
0134760 t p r o p ( q u o t e i l :
0135000 c a l l - e r r o r ) ( q u o
0135020 t e i l : s t r u c t u r e -
0135040 c o n s t r u c t o r ) ( q u
0135060 o t e i l : % m a k e - c a l
0135100 l - e r r o r ) ) \r ( i l : p u
0135120 t p r o p ( q u o t e i l :
0135140 c a l l - e r r o r ) ( q u o
0135160 t e i l : % s t r u c t u r e
0135200 - c l a s s ) ( q u o t e i
0135220 l : l i s t - c l a s s ) ) \r (
0135240 i l : p u t p r o p ( q u o t
0135260 e i l : c a l l - e r r o r )
0135300 ( q u o t e i l : % s l o t
0135320 - d e s c r i p t i o n s ) (
0135340 q u o t e ( ( i l : - - d u m
0135360 m y - s l o t - - n i l \r :
0135400 r e a d - o n l y t ) ( i l
0135420 : c a l l e e n i l : r e a
0135440 d - o n l y t ) ) ) ) \r ( i l
0135460 : p u t p r o p ( q u o t e
0135500 i l : c a l l - e r r o r ) (
0135520 q u o t e i l : % l o c a l -
0135540 s l o t - n a m e s ) ( q u o
0135560 t e ( i l : c a l l e e ) ) )
0135600 \r ( i l : f i x - i n h e r i t
0135620 a n c e - l i n k s ( q u o t
0135640 e i l : c a l l - e r r o r )
0135660 ( q u o t e i l : c o n t r
0135700 o l - e r r o r ) ) \r ( l e t *
0135720 ( ( i l : a 0 9 8 6 ( q u o
0135740 t e i l : c a l l - e r r o r
0135760 ) ) ( i l : a 0 9 8 5 ( q u
0136000 o t e i l : % c o n d i t i o
0136020 n - h a n d l e r ) ) ( i l :
0136040 a 0 9 8 4 n i l ) ) ( \r i l
0136060 : p u t p r o p i l : a 0 9 8
0136100 6 i l : a 0 9 8 5 i l : a 0
0136120 9 8 4 ) ) \r ( l e t * ( ( i l
0136140 : a 0 9 8 9 ( q u o t e i l
0136160 : c a l l - e r r o r ) ) ( i
0136200 l : a 0 9 8 8 ( q u o t e i
0136220 l : % c o n d i t i o n - r e p
0136240 o r t e r ) ) ( i l : a 0 9 8
0136260 7 n i l ) ) ( \r i l : p u t
0136300 p r o p i l : a 0 9 8 9 i l
0136320 : a 0 9 8 8 i l : a 0 9 8 7 )
0136340 ) \r t o o - m a n y - a r g u m
0136360 e n t s - a c t u a l i l : d
0136400 1 \r ( i l : l ( 0 i l : o b
0136420 j e c t ) ) \0 \b \0 \0 \0 001 @ 002 002
0136440 002 002 001 020 \0 n i l \r n i l \r ( ) \r
0136460 t o o - m a n y - a r g u m e n
0136500 t s - m a x i m u m i l : d 1
0136520 \r ( i l : l ( 0 i l : o b j
0136540 e c t ) ) \0 \a \0 \0 \0 001 @ 002 002 002
0136560 001 020 \0 n i l \r n i l \r ( ) \r t o
0136600 o - m a n y - a r g u m e n t s
0136620 - c a l l e e i l : d 1 \r ( i
0136640 l : l ( 0 i l : o b j e c t
0136660 ) ) \0 006 \0 \0 \0 001 @ 002 002 001 020 \0 n
0136700 i l \r n i l \r ( ) \r t o o - m a
0136720 n y - a r g u m e n t s - - - d
0136740 u m m y - s l o t - - i l : d
0136760 1 \r ( i l : l ( 0 i l : o b
0137000 j e c t ) ) \0 005 \0 \0 \0 001 @ 002 001
0137020 020 \0 n i l \r n i l \r ( ) \r ( i l
0137040 : d e f p r i n t ( q u o t e
0137060 i l : t o o - m a n y - a r g
0137100 u m e n t s ) ( i l : f u n c
0137120 t i o n i l : \ \ d e f p r i
0137140 n t . d e f s t r u c t . d e f
0137160 a u l t ) ) \r i l : % m a k e -
0137200 t o o - m a n y - a r g u m e n
0137220 t s i l : d 1 \r ( i l : l (
0137240 0 i l : | - a r g s - | ) )
0137260 \0 246 \v \0 002 \0 e 021 001 \0 H k 021 002 002 J
0137300 d I 363 262 I 277 h 022 021 221 \n H k 273 272 K
0137320 d J 363 262 L 277 h 274 H k 276 275 N d M 363
0137340 262 R 277 h _ 016 277 H k _ 022 277 _ 020 277 O
0137360 022 d O 020 363 262 P 277 h _ 024 277 g \0 \0 I
0137400 L O 016 O 024 h 032 032 032 032 032 020 a g \0 \0
0137420 360 225 J k 330 a 260 261 J l 002 324 Z 260 243 a
0137440 g \0 \0 360 225 K k 330 a 260 256 K l 002 324 [
0137460 260 240 a g \0 \0 360 225 N k 330 a 260 250 N l
0137500 002 324 ^ 260 232 a g \0 \0 360 226 O 022 k 330 a
0137520 260 251 O 022 l 002 324 _ 022 260 230 \0 n i l \r
0137540 ( 1 4 6 : a c t u a l 1 2 7
0137560 : m a x i m u m 1 0 8 : c
0137600 a l l e e 8 9 : - - d u m m
0137620 y - s l o t - - 7 2 i l : t
0137640 o o - m a n y - a r g u m e n t
0137660 s ) \r ( ) \r ( l e t * ( ( i l
0137700 : a 0 9 9 0 ( q u o t e i l
0137720 : t o o - m a n y - a r g u m e
0137740 n t s ) ) ( i l : a 0 9 9 1
0137760 ( q u o t e ( i l : c a l l -
0140000 e r r o r ) ) ) ) ( i l : p u
0140020 t i l : a 0 9 9 0 ( \r q u o
0140040 t e i l : % % i n c l u d e d
0140060 - s t r u c t u r e ) i l : a
0140100 0 9 9 1 ) ) \r ( i l : p u t p r
0140120 o p ( q u o t e i l : t o o
0140140 - m a n y - a r g u m e n t s )
0140160 ( q u o t e i l : s t r u c
0140200 t u r e - c o n s t r u c t o r
0140220 ) ( q u o t e \r i l : % m a
0140240 k e - t o o - m a n y - a r g u
0140260 m e n t s ) ) \r ( i l : p u t p
0140300 r o p ( q u o t e i l : t o
0140320 o - m a n y - a r g u m e n t s
0140340 ) ( q u o t e i l : % s t r
0140360 u c t u r e - c l a s s ) ( q
0140400 u o t e i l : l i s t - c l a
0140420 s s ) ) \r ( i l : p u t p r o p
0140440 ( q u o t e i l : t o o - m
0140460 a n y - a r g u m e n t s ) (
0140500 q u o t e i l : % s l o t - d
0140520 e s c r i p t i o n s ) ( q u
0140540 o t e ( ( i l : - - d u m m y
0140560 - s l o t - - n i l \r : r e
0140600 a d - o n l y t ) ( i l : c
0140620 a l l e e n i l : r e a d -
0140640 o n l y t ) ( i l : m a x i
0140660 m u m n i l : r e a d - o n
0140700 l y t ) ( i l : a c t u a l
0140720 n i l : r e a d - o n l y
0140740 t ) \r ) ) ) \r ( i l : p u t p r
0140760 o p ( q u o t e i l : t o o
0141000 - m a n y - a r g u m e n t s )
0141020 ( q u o t e i l : % l o c a
0141040 l - s l o t - n a m e s ) ( q
0141060 u o t e ( i l : a c t u a l
0141100 i l : m a x i m u m ) ) ) \r ( i
0141120 l : f i x - i n h e r i t a n c
0141140 e - l i n k s ( q u o t e i
0141160 l : t o o - m a n y - a r g u m
0141200 e n t s ) ( q u o t e i l :
0141220 c a l l - e r r o r ) ) \r ( l e
0141240 t * ( ( i l : a 0 9 9 4 ( q
0141260 u o t e i l : t o o - m a n y
0141300 - a r g u m e n t s ) ) ( i l
0141320 : a 0 9 9 3 ( q u o t e i l
0141340 : % c o n d i t i o n - h a n d
0141360 l e r ) ) ( i l : a 0 9 9 2
0141400 n i l \r ) ) ( i l : p u t p r
0141420 o p i l : a 0 9 9 4 i l : a
0141440 0 9 9 3 i l : a 0 9 9 2 ) ) \r
0141460 i l : | T O O - M A N Y - A R G
0141500 U M E N T S r e p o r t m e
0141520