$ od -c -N 50000 [eris]<LispCore>SOURCES>CL-ERROR.DCOM!8
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r ( f i l e c r
0000100 e a t e d " 2 1 - O c t - 8 6
0000120 1 3 : 0 2 : 0 0 " ( " c o m
0000140 p i l e d o n " { e r i s
0000160 } < l i s p c o r e > s o u r c
0000200 e s > c l - e r r o r . \ ; 9 )
0000220 \r " 2 1 - O c t - 8 6 0 4 :
0000240 1 3 : 0 1 " " C O M P I L E -
0000260 F I L E d " | i n | " X e r
0000300 o x L i s p 2 1 - O c t - 8
0000320 6 . . . " | d a t e d | "
0000340 2 1 - O c t - 8 6 0 4 : 4 8 :
0000360 4 3 " ) \r ( f i l e c r e a t e
0000400 d " 2 1 - O c t - 8 6 1 3 :
0000420 0 1 : 0 9 " { e r i s } < l i
0000440 s p c o r e > s o u r c e s > c
0000460 l - e r r o r . \ ; 9 3 5 3 6
0000500 6 | c h a n g e s | | t o :
0000520 | ( \r f u n c t i o n s d e
0000540 f i n e - p r o c e e d - f u n
0000560 c t i o n ) | p r e v i o u s
0000600 | | d a t e : | " 1 7 - O c
0000620 t - 8 6 1 7 : 3 0 : 1 0 " \r
0000640 { e r i s } < l i s p c o r e >
0000660 s o u r c e s > c l - e r r o r
0000700 . \ ; 8 ) \r ( r p a q q c l -
0000720 e r r o r c o m s ( ( c o m s
0000740 ( * | ; ; | \r " T e m p o
0000760 r a r y b o o t s t r a p p i
0001000 n g s t u f f . A n y t h i
0001020 n g i n h e r e g e t s
0001040 c h a n g e d o n c e C L
0001060 s t a r t s w o r k i n g . "
0001100 ) ( f u n c t i o n s \r c o
0001120 n d i t i o n - t y p e c a s e
0001140 c o n d i t i o n - b l o c k
0001160 c o n d i t i o n - r e t u r
0001200 n ) ) ( c o m s ( * | ; ;
0001220 | " I n t e r n a l s t u f
0001240 f . " ) ( e x p o r t ( \r v
0001260 a r i a b l e s % c o n d i t
0001300 i o n - t y p e s - r e a l ) )
0001320 ( f u n c t i o n s d e f a
0001340 u l t - p r o c e e d - r e p o
0001360 r t ) ( f u n c t i o n s w
0001400 i t h - g e n s y m s \r w i t
0001420 h - e r r - l o o p - v a r s
0001440 s t r i p - k e y w o r d s m
0001460 a k e - f a k e - r e p o r t -
0001500 f u n c t i o n m a k e - r e
0001520 p o r t - f u n c t i o n m a
0001540 k e - e n c a p s u l a t i o n
0001560 \r n o r m a l i z e - s l o t
0001600 - d e s c r i p t i o n s e x
0001620 t r a c t - c o n d i t i o n -
0001640 b i n d i n g s n o r m a l i
0001660 z e - c o n d i t i o n - c l a
0001700 u s e s \r m a s s a g e - c a
0001720 t c h - c o n d i t i o n - c l
0001740 a u s e s s p l i t - p r o c
0001760 e e d - c l a u s e s p r o c
0002000 e e d - c a s e - f r o m - c l
0002020 a u s e \r p r o c e s s - p r
0002040 o c e e d - k e y w o r d s c
0002060 h e c k - * c a s e - s e l e c
0002100 t o r c o l l e c t - c a s e
0002120 - s e l e c t o r s n o - p r
0002140 o c e e d - t e s t % p r e f
0002160 i x - s y m b o l \r % s u f f
0002200 i x - s y m b o l p r o c e e
0002220 d - a r g - c o l l e c t o r )
0002240 ) ( c o m s ( * | ; ; |
0002260 \r " U s e r - v i s i b l e f
0002300 o r m s . T h e s e s h o u
0002320 l d a l l b e e x t e r n
0002340 a l s y m b o l s . A n y
0002360 o t h e r s s h o u l d b e
0002400 i n t e r n a l . " ) ( f u
0002420 n c t i o n s \r d e f i n e -
0002440 c o n d i t i o n c l : c h e
0002460 c k - t y p e c l : e t y p e
0002500 c a s e c t y p e c a s e c
0002520 l : e c a s e c l : c c a s e
0002540 c l : a s s e r t h a n d l
0002560 e r - b i n d \r c o n d i t i
0002600 o n - b i n d c o n d i t i o
0002620 n - c a s e r e a l - c o n d
0002640 i t i o n - c a s e i g n o r
0002660 e - e r r o r s p r o c e e d
0002700 - c a s e r e a l - p r o c e
0002720 e d - c a s e \r d e f i n e -
0002740 p r o c e e d - f u n c t i o n
0002760 c a t c h - a b o r t ) ) (
0003000 p r o p f i l e t y p e c l
0003020 - e r r o r ) ( d e c l a r e
0003040 \ : d o n t e v a l @ l o a d
0003060 d o e v a l @ c o m p i l e \r
0003100 d o n t c o p y c o m p i l
0003120 e r v a r s ( a d d v a r s
0003140 ( n l a m a ) ( n l a m l )
0003160 ( l a m a ) ) ) ) ) \r | e x p a
0003200 n d - C O N D I T I O N - T Y P
0003220 E C A S E A 0 0 0 1 | d 1 \r (
0003240 l ( 0 c l a u s e ) f 3
0003260 v a l ) \0 # 003 001 \0 001 @ 021 ! 002
0003300 H 001 271 H 002 272 I i 360 221 @ 020 g \0 \0 S
0003320 g \0 \0 I h 032 032 h 032 032 032 J 032 020 \0 n
0003340 i l \r ( 2 2 q u o t e 1 8
0003360 c o n d i t i o n - t y p e p )
0003400 \r ( ) \r | e x p a n d - C O N D
0003420 I T I O N - T Y P E C A S E |
0003440 d 1 \r ( l ( 1 $ $ m a c r o
0003460 - e n v i r o n m e n t 0 $
0003500 $ m a c r o - f o r m ) p 3
0003520 v a l ) \0 , 004 \0 \0 002 @ 002 021 !
0003540 002 H 001 271 H 002 272 \b \0 \0 021 001 003 g \0 \0
0003560 K I h 032 032 h 032 g \0 \0 g \0 \0 J \n \0
0003600 \0 032 h 032 032 032 020 \0 ( 3 6 c l : m
0003620 a p c a r 1 3 c l : g e n s
0003640 y m ) \r ( 3 2 | e x p a n d -
0003660 C O N D I T I O N - T Y P E C A
0003700 S E A 0 0 0 1 | 2 9 c o n d
0003720 1 9 l e t ) \r ( ) \r ( s e t
0003740 f - m a c r o - f u n c t i o n
0003760 ( q u o t e c o n d i t i o
0004000 n - t y p e c a s e ) ( q u o
0004020 t e | e x p a n d - C O N D I
0004040 T I O N - T Y P E C A S E | ) )
0004060 \r | e x p a n d - C O N D I T I
0004100 O N - B L O C K | d 1 \r ( l
0004120 ( 1 $ $ m a c r o - e n v i r
0004140 o n m e n t 0 $ $ m a c r o
0004160 - f o r m ) ) \0 032 003 \0 \0 002 @ 002
0004200 021 ! 002 H 001 271 H 002 272 g \0 \0 g \0 \0 I
0004220 h 032 032 J 032 032 020 \0 n i l \r ( 1 6
0004240 q u o t e 1 3 c l : c a t c
0004260 h ) \r ( ) \r ( s e t f - m a c r
0004300 o - f u n c t i o n ( q u o t
0004320 e c o n d i t i o n - b l o c
0004340 k ) ( q u o t e | e x p a n
0004360 d - C O N D I T I O N - B L O C
0004400 K | ) ) \r | e x p a n d - C O N
0004420 D I T I O N - R E T U R N | d
0004440 1 \r ( l ( 1 $ $ m a c r o -
0004460 e n v i r o n m e n t 0 $ $
0004500 m a c r o - f o r m ) ) \0 037 003
0004520 \0 \0 002 @ 002 021 ! 002 H 001 271 H 002 d 220 001
0004540 272 g \0 \0 g \0 \0 I h 032 032 J h 032 032 032
0004560 020 \0 n i l \r ( 1 9 q u o t e
0004600 1 6 c l : t h r o w ) \r ( ) \r
0004620 ( s e t f - m a c r o - f u n c
0004640 t i o n ( q u o t e c o n d
0004660 i t i o n - r e t u r n ) ( q
0004700 u o t e | e x p a n d - C O N
0004720 D I T I O N - R E T U R N | ) )
0004740 \r ( s e t q % c o n d i t i o
0004760 n - t y p e s - r e a l n i l
0005000 ) \r ( p u t h a s h ( q u o t
0005020 e % c o n d i t i o n - t y p
0005040 e s - r e a l ) ( q u o t e
0005060 ( c o n s t a n t % c o n d i
0005100 t i o n - t y p e s - r e a l )
0005120 ) c o m p v a r m a c r o h a
0005140 s h ) \r | e x p a n d - D E F A
0005160 U L T - P R O C E E D - R E P O
0005200 R T | d 1 \r ( l ( 1 $ $ m
0005220 a c r o - e n v i r o n m e n t
0005240 0 $ $ m a c r o - f o r m )
0005260 ) \0 022 001 \0 \0 002 @ 002 001 021 001 \0 g \0
0005300 \0 H o \0 \0 \0 032 032 020 \0 n i l \r ( 8
0005320 g e t ) \r ( 1 3 ( ( q u o
0005340 t e % d e f a u l t - p r o c
0005360 e e d - r e p o r t ) ( q u o
0005400 t e d e f a u l t - p r o c e
0005420 e d - r e p o r t e r ) ) ) \r (
0005440 s e t f - m a c r o - f u n c t
0005460 i o n ( q u o t e d e f a u
0005500 l t - p r o c e e d - r e p o r
0005520 t ) ( q u o t e | e x p a n
0005540 d - D E F A U L T - P R O C E E
0005560 D - R E P O R T | ) ) \r | e x p
0005600 a n d - W I T H - G E N S Y M S
0005620 | d 1 \r ( l ( 1 $ $ m a c
0005640 r o - e n v i r o n m e n t 0
0005660 $ $ m a c r o - f o r m ) )
0005700 \0 > \b \0 \0 002 @ 002 021 A 004 H 001 271 H 002
0005720 Z 001 273 J 002 274 g \0 \0 021 0 \a I 260 034 d
0005740 001 g \0 \0 K h 032 032 h 032 032 275 N 265 \b M
0005760 h 032 _ 016 201 M & 276 002 003 265 345 O 016 022 L
0006000 032 032 020 \0 n i l \r ( 2 9 g e n s
0006020 y m 1 8 l e t ) \r ( ) \r ( s
0006040 e t f - m a c r o - f u n c t i
0006060 o n ( q u o t e w i t h - g
0006100 e n s y m s ) ( q u o t e |
0006120 e x p a n d - W I T H - G E N S
0006140 Y M S | ) ) \r | e x p a n d - W
0006160 I T H - E R R - L O O P - V A R
0006200 S | d 1 \r ( l ( 1 $ $ m a
0006220 c r o - e n v i r o n m e n t
0006240 0 $ $ m a c r o - f o r m ) )
0006260 \0 031 003 \0 \0 002 @ 002 021 ! 002 H 001 271 H
0006300 002 272 g \0 \0 o \0 \0 \0 I J 032 032 032 020 \0
0006320 n i l \r ( 1 3 w i t h - g e n
0006340 s y m s ) \r ( 1 7 ( v a l
0006360 b l o c k - n a m e a g a i n
0006400 ) ) \r ( s e t f - m a c r o - f
0006420 u n c t i o n ( q u o t e w
0006440 i t h - e r r - l o o p - v a r
0006460 s ) ( q u o t e | e x p a n
0006500 d - W I T H - E R R - L O O P -
0006520 V A R S | ) ) \r s t r i p - k e
0006540 y w o r d s d 1 \r ( l ( 0
0006560 a r g s ) ) \0 3 004 \0 \0 001 @ 021 1
0006600 003 H b \0 003 227 @ d 001 \t \0 \0 247 277 I 022
0006620 @ \n \0 \0 020 001 @ 002 001 h 032 032 273 J 265 \f
0006640 K h 032 Z 271 @ 002 002 260 332 K & 272 260 370 \0
0006660 ( 2 2 c l : v a l u e s 1 4
0006700 c l : k e y w o r d p ) \r n i
0006720 l \r ( ) \r m a k e - f a k e - r
0006740 e p o r t - f u n c t i o n d
0006760 1 \r ( l ( 2 e n c a p s u l
0007000 a t i o n 1 b o u n d - v a
0007020 r 0 d a t u m ) ) \0 W 002 \0
0007040 \0 003 @ 021 021 001 H Y d \t \0 \0 262 036 277 g
0007060 \0 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0 @ o \0
0007100 \0 \0 032 032 h 032 032 032 032 020 225 I 303 \0 \0 264
0007120 035 g \0 \0 A o \0 \0 \0 032 B 241 @ 210 g \0
0007140 \0 B @ h 032 032 032 h 032 032 032 020 g \0 \0 H
0007160 o \0 \0 \0 \f \0 \0 020 \0 ( 8 4 c h e
0007200 c k - t y p e - f a i l 9 c
0007220 l : s t r i n g p ) \r ( 7 6 d
0007240 a t u m 6 2 l e t 4 9 l
0007260 a m b d a 4 4 l i s t p 2
0007300 6 c l : w r i t e - s t r i n
0007320 g 1 5 l a m b d a ) \r ( 8
0007340 1 ( o r s t r i n g l i s
0007360 t ) 5 4 ( * s t a n d a r d
0007400 - o u t p u t * ) 3 1 ( s t
0007420 r e a m ) 2 3 ( d e c l a r
0007440 e ( i g n o r e d a t u m )
0007460 ) 1 9 ( d a t u m s t r e
0007500 a m ) ) \r m a k e - r e p o r t
0007520 - f u n c t i o n d 1 \r ( l
0007540 ( 2 t y p e - n a m e 1 b
0007560 o u n d - v a r 0 d a t u m
0007600 ) ) \0 Y 002 \0 \0 003 @ 021 021 001 H Y d
0007620 \t \0 \0 262 036 277 g \0 \0 o \0 \0 \0 o \0 \0
0007640 \0 g \0 \0 @ o \0 \0 \0 032 032 h 032 032 032 032
0007660 020 225 I 303 \0 \0 264 037 g \0 \0 A o \0 \0 \0
0007700 032 B 233 g \0 \0 B A @ h 032 032 032 032 200 @
0007720 h 032 032 032 020 g \0 \0 H o \0 \0 \0 \f \0 \0
0007740 020 \0 ( 8 6 c h e c k - t y p e
0007760 - f a i l 9 c l : s t r i n
0010000 g p ) \r ( 7 8 d a t u m 6 0
0010020 w i t h 4 9 l a m b d a
0010040 4 4 l i s t p 2 6 c l : w
0010060 r i t e - s t r i n g 1 5 l
0010100 a m b d a ) \r ( 8 3 ( o r
0010120 s t r i n g l i s t ) 5 4
0010140 ( * s t a n d a r d - o u t p u
0010160 t * ) 3 1 ( s t r e a m )
0010200 2 3 ( d e c l a r e ( i g n
0010220 o r e d a t u m ) ) 1 9 (
0010240 d a t u m s t r e a m ) ) \r m
0010260 a k e - e n c a p s u l a t i o
0010300 n d 1 \r ( l ( 1 s l o t -
0010320 n a m e s 0 c o n d i t i o
0010340 n - t y p e ) ) \0 < 004 \0 \0 002 021
0010360 @ 003 g \0 \0 A \n \0 \0 260 , d 001 [ @ g
0010400 \0 \0 o \0 \0 \0 K \t \0 \0 \v \0 \0 \n \0 \0
0010420 o \0 \0 \0 032 h 032 032 270 I 265 \a H h 032 Z
0010440 201 H & 271 002 003 265 325 J 020 \0 ( 3 2 %
0010460 s u f f i x - s y m b o l 2 9
0010500 c l : c o n c a t e n a t e
0010520 2 6 c l : s y m b o l - n a m
0010540 e 9 c l : r e m o v e ) \r (
0010560 1 8 s t r i n g 5 - - d u
0010600 m m y - s l o t - - ) \r ( 3 6
0010620 ( c o n d i t i o n ) 2 2
0010640 " - " ) \r n o r m a l i z e - s
0010660 l o t - d e s c r i p t i o n s
0010700 d 1 \r ( l ( 0 s l o t s )
0010720 ) \0 F 004 \0 \0 001 021 @ 003 @ 260 < d 001
0010740 [ d 003 262 # d \t \0 \0 k 364 232 277 K o \0
0010760 \0 \0 \n \0 \0 260 026 001 K 002 001 g \0 \0 i K
0011000 002 002 032 032 032 203 o \0 \0 \0 032 270 I 265 \a H
0011020 h 032 Z 201 H & 271 002 003 265 305 J 020 \0 ( 2
0011040 8 \ \ a p p e n d 2 1 6 l
0011060 e n g t h ) \r ( 3 7 : r e a d
0011100 - o n l y ) \r ( 4 9 ( n i l
0011120 : r e a d - o n l y t ) 2
0011140 5 ( n i l : r e a d o n l y
0011160 t ) ) \r e x t r a c t - c o n
0011200 d i t i o n - b i n d i n g s
0011220 d 1 \r ( l ( 0 c l a u s e s
0011240 ) ) \0 . 004 \0 \0 001 021 @ 003 @ 260 $ d
0011260 001 273 g \0 \0 g \0 \0 K 001 h 032 032 K 002 001
0011300 h 032 032 032 270 I 265 \a H h 032 Z 201 H & 271
0011320 002 003 265 335 J 020 \0 n i l \r ( 1 4 q
0011340 u o t e 1 1 c o n s ) \r ( )
0011360 \r n o r m a l i z e - c o n d i
0011400 t i o n - c l a u s e s d 1 \r
0011420 ( l ( 0 c l a u s e s ) )
0011440 \0 } \t \0 \0 001 021 ` 005 @ 260 k d 001 ] 001
0011460 \ d 227 d 303 \0 \0 262 C 277 L 001 g \0 \0 360
0011500 225 o \0 \0 \0 260 A 021 0 \b L 260 ( d 001 [
0011520 004 l 004 360 224 K M 002 032 207 o \0 \0 \0 L \n
0011540 \0 \0 276 O 016 265 \b N h 032 _ 020 201 N & _
0011560 016 277 002 003 265 331 O 020 022 217 303 \0 \0 223 M h
0011600 032 207 o \0 \0 \0 L \n \0 \0 X 003 226 I 265 \f
0011620 H Z Y 277 002 003 265 226 J 020 \t \0 \0 Y H 031
0011640 260 363 \0 ( 1 1 8 l a s t 9 9
0011660 c l : e r r o r 5 9 c l : e
0011700 r r o r ) \r ( 8 6 l i t a t o
0011720 m 2 4 q u o t e 1 6 l i
0011740 s t p ) \r ( 9 5 " B a d c
0011760 o n d i t i o n s p e c ~ s
0012000 . S h o u l d b e s y m b
0012020 o l o r l i s t o f s y
0012040 m b o l s . " 5 5 " B a d
0012060 c o n d i t i o n s p e c ~
0012100 s . S h o u l d b e l i s
0012120 t o f u n q u o t e d s y
0012140 m b o l s . " \r 3 0 " B a d
0012160 c o n d i t i o n s p e c
0012200 ~ s . S h o u l d b e u n
0012220 q u o t e d . " ) \r m a s s a g
0012240 e - c a t c h - c o n d i t i o
0012260 n - c l a u s e s d 1 \r ( l
0012300 ( 1 i n i t - v a l u e 0
0012320 c l a u s e s ) ) \0 ? \a \0 \0 002
0012340 021 p 006 @ 260 5 d 001 ^ 001 275 N 002 001 274 N
0012360 002 002 273 L 243 M K 260 024 M g \0 \0 L 001 A
0012400 h 032 032 L 002 032 K 032 032 h 032 032 270 I 265 \a
0012420 H h 032 Z 201 H & 271 002 003 265 314 J 020 \0 n
0012440 i l \r ( 2 8 l e t ) \r ( ) \r s
0012460 p l i t - p r o c e e d - c l a
0012500 u s e s d 1 \r ( l ( 1 t a
0012520 g 0 c l a u s e s ) ) \0 375
0012540 \r \0 \0 002 021 240 \t @ j 021 022 \f O 024 003 265
0012560 017 023 H \t \0 \0 I \t \0 \0 \n \0 \0 020 001 _
0012600 030 _ 022 001 _ 020 277 O 022 002 001 _ 016 277 O 020
0012620 O 030 002 002 \n \0 \0 \t \0 \0 ^ 001 275 N 002 \
0012640 001 273 L 002 001 272 O 020 263 026 M 243 g \0 \0 275
0012660 K 263 L o \0 \0 \0 O 030 \n \0 \0 260 @ M 263
0012700 027 O 020 301 002 311 \0 g \0 \0 ' 251 o \0 \0 \0
0012720 O 020 \n \0 \0 277 K 263 & g \0 \0 o \0 \0 \0
0012740 g \0 \0 g \0 \0 g \0 \0 O 020 h 032 032 h 032
0012760 032 o \0 \0 \0 032 032 h 032 032 032 [ 277 g \0 \0
0013000 g \0 \0 g \0 \0 O 020 h 032 032 g \0 \0 A g
0013020 \0 \0 O 026 g \0 \0 M 264 \t g \0 \0 M h 032
0013040 032 g \0 \0 g \0 \0 K h 032 032 h 032 032 032 032
0013060 032 032 032 032 032 032 032 H 032 270 O 026 g \0 \0 g
0013100 \0 \0 O 016 J 032 032 h 032 032 h 032 032 I 032 271
0013120 O 024 002 _ 024 277 O 026 k 324 _ 026 277 261 377 017
0013140 \0 ( 1 1 2 c l : w a r n 8 7
0013160 c l : e r r o r 5 3 \ \ m
0013200 v l i s t 5 0 p r o c e s s
0013220 - p r o c e e d - k e y w o r d
0013240 s 2 4 c l : v a l u e s 2
0013260 1 r e v e r s e 1 7 r e v
0013300 e r s e ) \r ( 2 2 1 c l : l a
0013320 m b d a 2 1 8 f u n c t i o
0013340 n 1 9 4 f u n c t i o n 1
0013360 9 1 : r e p o r t 1 8 4 f
0013400 u n c t i o n 1 7 8 : t e s
0013420 t 1 7 3 : s e l e c t o r
0013440 1 6 9 : t a g 1 6 1 q u o
0013460 t e 1 5 8 : n a m e 1 5 5
0013500 m a k e - p r o c e e d - c a
0013520 s e 1 3 2 q u o t e 1 2 9
0013540 d e f a u l t - p r o c e e d
0013560 - r e p o r t 1 2 6 c l : f
0013600 u n c a l l 1 1 9 c l : l a
0013620 m b d a 1 0 1 % d e f a u l
0013640 t - p r o c e e d - t e s t 7
0013660 4 t r u e ) \r ( 1 4 4 ( p
0013700 c s t r e a m ) 1 2 3 ( p
0013720 c s t r e a m ) 1 0 7 " N
0013740 o t e s t s p e c i f i e d
0013760 f o r p r o c e e d t y p
0014000 e ~ A : m a y b e u n d
0014020 e f i n e d . " 8 2 " U n n
0014040 a m e d p r o c e e d c a s
0014060 e s m u s t h a v e a r
0014100 e p o r t m e t h o d : ~ S
0014120 " ) \r p r o c e e d - c a s e -
0014140 f r o m - c l a u s e d 1 \r (
0014160 l ( 2 d u m m y 1 t a g
0014200 0 c l a u s e ) ) \0 315 \t \0
0014220 \0 003 @ 021 201 \b H 001 271 H 002 001 272 H 002 002
0014240 273 I K \n \0 \0 \t \0 \0 \ 001 275 L 002 ^ 001
0014260 _ 016 277 N 002 001 _ 020 277 I 263 026 M 243 g \0
0014300 \0 275 O 016 263 J o \0 \0 \0 @ \n \0 \0 260 ?
0014320 M 263 025 I 301 002 311 \0 g \0 \0 ' 250 o \0 \0
0014340 \0 I \n \0 \0 277 O 016 263 & g \0 \0 o \0 \0
0014360 \0 g \0 \0 g \0 \0 g \0 \0 I h 032 032 h 032
0014400 032 o \0 \0 \0 032 032 h 032 032 032 _ 016 277 g \0
0014420 \0 g \0 \0 g \0 \0 I h 032 032 g \0 \0 A g
0014440 \0 \0 g \0 \0 g \0 \0 g \0 \0 J 265 005 B h
0014460 032 032 O 020 032 032 h 032 032 g \0 \0 M 264 \t g
0014500 \0 \0 M h 032 032 g \0 \0 g \0 \0 O 016 h 032
0014520 032 h 032 032 032 032 032 032 032 032 032 032 032 020 \0 (
0014540 8 2 c l : w a r n 5 9 c l
0014560 : e r r o r 2 2 \ \ m v l i
0014600 s t 1 9 p r o c e s s - p r
0014620 o c e e d - k e y w o r d s ) \r
0014640 ( 1 8 5 f u n c t i o n 1 8
0014660 2 : r e p o r t 1 7 5 f u
0014700 n c t i o n 1 6 9 : t e s t
0014720 1 5 2 & o p t i o n a l 1
0014740 4 9 c l : l a m b d a 1 4 6
0014760 f u n c t i o n 1 4 3 : c
0015000 o n t i n u a t i o n 1 3 9
0015020 : t a g 1 3 2 q u o t e 1
0015040 2 9 : n a m e 1 2 6 m a k
0015060 e - r e a l - p r o c e e d - c
0015100 a s e 1 0 3 q u o t e 1 0
0015120 0 d e f a u l t - p r o c e e
0015140 d - r e p o r t 9 7 c l : f
0015160 u n c a l l 9 0 c l : l a m
0015200 b d a 7 2 % d e f a u l t -
0015220 p r o c e e d - t e s t 4 6
0015240 t r u e ) \r ( 1 1 4 ( p c
0015260 s t r e a m ) 9 4 ( p c s
0015300 t r e a m ) 7 8 " N o t e
0015320 s t s p e c i f i e d f o r
0015340 p r o c e e d t y p e ~ A
0015360 : m a y b e u n d e f i n
0015400 e d . " 5 5 " U n n a m e d
0015420 p r o c e e d c a s e s m
0015440 u s t h a v e a r e p o r
0015460 t m e t h o d : ~ S " ) \r p
0015500 r o c e s s - p r o c e e d - k
0015520 e y w o r d s d 1 \r ( l ( 1
0015540 a r g 0 n a m e ) ) \0 275
0015560 \b \0 \0 002 021 200 \a A \t \0 \0 \t \0 \0 Z 001
0015600 273 J 002 001 274 K 261 \0 234 d 001 _ 016 001 276 O
0015620 016 002 001 275 N d g \0 \0 360 237 277 H 230 o \0
0015640 \0 \0 @ \n \0 \0 277 M X 260 w g \0 \0 360 262
0015660 , H 230 o \0 \0 \0 @ \n \0 \0 277 g \0 \0 o
0015700 \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 M h 032 032
0015720 h 032 032 032 h 032 032 032 X 260 G N d g \0 \0
0015740 360 237 277 I 230 o \0 \0 \0 @ \n \0 \0 277 M Y
0015760 260 0 g \0 \0 360 262 027 I 230 o \0 \0 \0 @ \n
0016000 \0 \0 277 M g \0 \0 \n \0 \0 Y 260 025 N g \0
0016020 \0 360 235 o \0 \0 \0 o \0 \0 \0 N @ \f \0 \0
0016040 277 002 003 265 003 202 261 377 c H I L \v \0 \0 020
0016060 \0 ( 1 8 6 c l : v a l u e s
0016100 1 7 1 c l : c e r r o r 1 4
0016120 9 m a k e - r e p o r t - f u
0016140 n c t i o n 1 4 1 c l : e r
0016160 r o r 1 2 0 c l : e r r o r
0016200 7 0 c l : e r r o r 4 9
0016220 c l : e r r o r 9 \ \ m v l
0016240 i s t 6 s t r i p - k e y w
0016260 o r d s ) \r ( 1 5 6 o t h e r
0016300 w i s e 1 4 6 p r o c e e d
0016320 - c a s e 1 2 8 : r e p o r
0016340 t 1 0 7 : r e p o r t - f u
0016360 n c t i o n 8 7 q u o t e
0016400 8 4 c 8 1 c o n d i t i o
0016420 n - t y p e p 7 4 c l : l a
0016440 m b d a 5 7 : c o n d i t i
0016460 o n 3 6 : t e s t ) \r ( 1
0016500 6 6 " I l l e g a l k e y w
0016520 o r d ~ S i n p r o c e e
0016540 d c a s e ~ S . " 1 6 2
0016560 " I g n o r e k e y / v a l u
0016600 e p a i r " 1 3 7 " D u p
0016620 l i c a t e r e p o r t f o
0016640 r m s p e c i f i e d f o r
0016660 p r o c e e d t y p e ~ S
0016700 . " \r 1 1 6 " D u p l i c a
0016720 t e r e p o r t f o r m s
0016740 p e c i f i e d f o r p r o
0016760 c e e d t y p e ~ S . " 7
0017000 8 ( c ) 6 6 " D u p l i c
0017020 a t e t e s t f o r m s p
0017040 e c i f i e d f o r p r o c
0017060 e e d t y p e ~ S . " \r 4
0017100 5 " D u p l i c a t e t e s
0017120 t f o r m s p e c i f i e d
0017140 f o r p r o c e e d t y p
0017160 e ~ S . " ) \r c h e c k - * c
0017200 a s e - s e l e c t o r d 1 \r
0017220 ( l ( 1 n a m e 0 s e l
0017240 e c t o r ) ) \0 027 \0 \0 \0 002 @ i
0017260 360 247 @ d g \0 \0 360 231 277 o \0 \0 \0 @ A
0017300 \v \0 \0 020 \0 ( 2 0 c l : e r r o
0017320 r ) \r ( 8 o t h e r w i s e )
0017340 \r ( 1 5 " ~ A n o t a l
0017360 l o w e d i n t h e ~ A
0017400 f o r m . " ) \r c o l l e c t -
0017420 c a s e - s e l e c t o r s d
0017440 1 \r ( l ( 1 n a m e 0 c
0017460 l a u s e s ) ) \0 B 004 \0 \0 002 021
0017500 @ 003 @ 260 0 d 001 [ d 001 003 262 026 277 A g
0017520 \0 \0 360 245 A g \0 \0 360 225 K 001 \t \0 \0 207
0017540 K 001 A \n \0 \0 h 032 X 003 226 I 265 \f H Z
0017560 Y 277 002 003 265 321 J 020 \t \0 \0 Y H 031 260 363
0017600 \0 ( 5 9 l a s t 3 8 c h e
0017620 c k - * c a s e - s e l e c t o
0017640 r 3 1 c l : c o p y - l i s
0017660 t ) \r ( 2 4 c l : c c a s e
0017700 1 8 c l : e c a s e ) \r ( ) \r
0017720 n o - p r o c e e d - t e s t a
0017740 0 0 0 1 a 0 0 0 2 d 1 \r ( l
0017760 ( 0 c ) ) \0 \t \0 \0 \0 001 @ g \0
0020000 \0 \n \0 \0 020 \0 ( 6 f a k e - t y
0020020 p e p - f o r - c o n d i t i o
0020040 n s ) \r ( 3 n o - p r o c e e
0020060 d - t e s t ) \r ( ) \r n o - p r
0020100 o c e e d - t e s t a 0 0 0 1 a
0020120 0 0 0 3 d 1 \r ( l ( 1 s t
0020140 r e a m 0 d a t u m ) ) \0
0020160 \n \0 \0 \0 002 o \0 \0 \0 A \n \0 \0 020 \0 (
0020200 7 c l : w r i t e - s t r i n
0020220 g ) \r n i l \r ( 3 " U s e
0020240 F A L S E f o r t h e t e
0020260 s t " ) \r n o - p r o c e e d -
0020300 t e s t a 0 0 0 1 a 0 0 0 4 d
0020320 1 \r ( l ( 0 c ) ) \0 \t \0 \0
0020340 \0 001 @ g \0 \0 \n \0 \0 020 \0 ( 6 f a
0020360 k e - t y p e p - f o r - c o n
0020400 d i t i o n s ) \r ( 3 n o - p
0020420 r o c e e d - t e s t ) \r ( ) \r
0020440 n o - p r o c e e d - t e s t a
0020460 0 0 0 1 a 0 0 0 5 d 1 \r ( l
0020500 ( 1 s t r e a m 0 d a t u
0020520 m ) ) \0 \n \0 \0 \0 002 o \0 \0 \0 A \n
0020540 \0 \0 020 \0 ( 7 c l : w r i t e -
0020560 s t r i n g ) \r n i l \r ( 3
0020600 " M a k e T R U E t h e d
0020620 e f a u l t t e s t " ) \r n o
0020640 - p r o c e e d - t e s t a 0 0
0020660 0 1 a 0 0 0 6 d 1 \r ( l ( 0
0020700 c ) f 0 o n c e f 1
0020720 n a m e ) \0 032 \0 002 \0 001 @ \t \0
0020740 \0 Q 360 264 022 P 232 g \0 \0 h \t \0 \0 \n \0
0020760 \0 020 i c \0 020 \0 ( 1 9 \ \ d o -
0021000 t h r o w 1 6 \ \ m v l i s
0021020 t 3 n o - p r o c e e d - t
0021040 e s t - n a m e ) \r ( 1 2 s k
0021060 i p - p r o c e e d - c a s e )
0021100 \r ( ) \r n o - p r o c e e d - t
0021120 e s t a 0 0 0 1 d 1 \r ( p 1
0021140 * c o n d i t i o n - h a n d
0021160 l e r - b i n d i n g s * p
0021200 0 * p r o c e e d - c a s e s
0021220 * f 2 p r o c e e d - c a
0021240 s e 0 2 1 6 f 3 * p r o c
0021260 e e d - c a s e s * f 4 *
0021300 c o n d i t i o n - h a n d l e
0021320 r - b i n d i n g s * f 5
0021340 n a m e ) \0 a 002 004 \0 \0 g \0 \0 g
0021360 \0 \0 h g \0 \0 R g \0 \0 j g \0 \0 g \0
0021400 \0 g \0 \0 g \0 \0 \r \n \0 \0 g \0 \0 g \0
0021420 \0 g \0 \0 R g \0 \0 k g \0 \0 g \0 \0 g
0021440 \0 \0 g \0 \0 \r \n \0 \0 S 032 032 021 001 \0 g
0021460 \0 \0 g \0 \0 032 T 032 021 001 001 g \0 \0 g \0
0021500 \0 U \v \0 \0 022 \t \0 \0 022 032 020 \0 ( 9 2
0021520 \ \ m v l i s t 8 8 c l :
0021540 e r r o r 6 0 m a k e - p r
0021560 o c e e d - c a s e 3 0 m a
0021600 k e - p r o c e e d - c a s e )
0021620 \r ( 8 4 : n a m e 8 1 n o
0021640 - p r o c e e d - t e s t 7 2
0021660 n o - p r o c e e d - t e s t
0021700 a 0 0 0 1 a 0 0 0 6 6 9 n o
0021720 - p r o c e e d - t e s t 5 6
0021740 n o - p r o c e e d - t e s t
0021760 a 0 0 0 1 a 0 0 0 5 5 3 : r
0022000 e p o r t 5 0 n o - p r o c
0022020 e e d - t e s t a 0 0 0 1 a 0 0
0022040 0 4 4 7 : t e s t 4 3 :
0022060 s e l e c t o r 3 9 : t a g
0022100 3 6 p r o c e e d 3 3 :
0022120 n a m e 2 6 n o - p r o c e
0022140 e d - t e s t a 0 0 0 1 a 0 0 0
0022160 3 2 3 : r e p o r t 2 0
0022200 n o - p r o c e e d - t e s t a
0022220 0 0 0 1 a 0 0 0 2 1 7 : t e
0022240 s t 1 3 : s e l e c t o r
0022260 9 : t a g 5 : n a m e 2
0022300 : n o r m a l ) \r ( ) \r n o -
0022320 p r o c e e d - t e s t a 0 0 0
0022340 7 d 1 \r n i l \0 005 \0 \0 \0 \0 g
0022360 \0 \0 020 \0 n i l \r ( 2 f a l s e
0022400 ) \r ( ) \r n o - p r o c e e d -
0022420 t e s t a 0 0 0 8 d 1 \r ( f
0022440 0 n a m e ) \0 \f \0 001 \0 \0 P g
0022460 \0 \0 g \0 \0 \v \0 \0 020 \0 ( 9 p u t
0022500 p r o p ) \r ( 6 t r u e 3
0022520 % d e f a u l t - p r o c e e d
0022540 - t e s t ) \r ( ) \r n o - p r o
0022560 c e e d - t e s t d 1 \r ( p
0022600 6 p r o c e e d - c a s e 0 2
0022620 1 6 p 0 o n c e i 0
0022640 n a m e ) \0 U \a \0 \0 001 021 ` 005 h
0022660 h 032 021 001 006 N g \0 \0 \n \0 \0 022 Y 001 272
0022700 I 002 273 J d g \0 \0 360 225 277 K \t \0 \0 020
0022720 j : 223 g \0 \0 207 J k : 264 005 g \0 \0 j
0022740 275 274 K 260 027 d 001 375 002 M k 330 ] n 002 \0
0022760 361 227 o \0 \0 \0 \t \0 \0 277 265 353 M L 016 020
0023000 \0 ( 7 6 l i s p e r r o r 3
0023020 4 c l : v a l u e s - l i s t
0023040 1 5 \ \ c a t c h - f u n c
0023060 a l l ) \r ( 5 0 n o - p r o c
0023100 e e d - t e s t a 0 0 0 8 4 1
0023120 n o - p r o c e e d - t e s t
0023140 a 0 0 0 7 2 7 : n o r m a l
0023160 1 2 n o - p r o c e e d - t
0023200 e s t a 0 0 0 1 ) \r ( 7 3 "
0023220 T O O M A N Y A R G U M E N
0023240 T S " ) \r % p r e f i x - s y m
0023260 b o l d 1 \r ( l ( 1 c l :
0023300 s y m b o l 0 p r e f i x )
0023320 ) \0 024 \0 \0 \0 002 g \0 \0 @ A \t \0 \0
0023340 \v \0 \0 A \t \0 \0 \n \0 \0 020 \0 ( 1 7
0023360 c l : i n t e r n 1 4 c l :
0023400 s y m b o l - p a c k a g e 1
0023420 0 c l : c o n c a t e n a t e
0023440 7 c l : s y m b o l - n a m
0023460 e ) \r ( 2 s t r i n g ) \r ( )
0023500 \r % s u f f i x - s y m b o l
0023520 d 1 \r ( l ( 1 s u f f i x
0023540 0 c l : s y m b o l ) ) \0 024
0023560 \0 \0 \0 002 g \0 \0 @ \t \0 \0 A \v \0 \0 @
0023600 \t \0 \0 \n \0 \0 020 \0 ( 1 7 c l : i
0023620 n t e r n 1 4 c l : s y m b
0023640 o l - p a c k a g e 1 0 c l
0023660 : c o n c a t e n a t e 6 c
0023700 l : s y m b o l - n a m e ) \r (
0023720 2 s t r i n g ) \r ( ) \r | e x
0023740 p a n d - P R O C E E D - A R G
0023760 - C O L L E C T O R | d 1 \r (
0024000 l ( 1 $ $ m a c r o - e n v
0024020 i r o n m e n t 0 $ $ m a c
0024040 r o - f o r m ) ) \0 022 001 \0 \0 002
0024060 @ 002 001 021 001 \0 g \0 \0 H o \0 \0 \0 032 032
0024100 020 \0 n i l \r ( 8 g e t ) \r (
0024120 1 3 ( ( q u o t e % p r o c
0024140 e e d - a r g - c o l l e c t o
0024160 r ) ) ) \r ( s e t f - m a c r o
0024200 - f u n c t i o n ( q u o t e
0024220 p r o c e e d - a r g - c o l
0024240 l e c t o r ) ( q u o t e |
0024260 e x p a n d - P R O C E E D - A
0024300 R G - C O L L E C T O R | ) ) \r
0024320 ( l e t * ( ( a 0 1 2 9 ( q
0024340 u o t e p r o c e e d - a r g
0024360 - c o l l e c t o r ) ) ( a 0
0024400 1 3 0 ( q u o t e c l : f u
0024420 n c t i o n ) ) ( a 0 1 3 1
0024440 \r " F u n c t i o n t h a t
0024460 c o l l e c t s u s e r - s p
0024500 e c i f i e d o p t i o n a l
0024520 a r g s ( e x c l u d i n g
0024540 t h e c o n d i t i o n )
0024560 f o r a n a m e d p r o c
0024600 e e d c a s e . " \r ) ) ( p
0024620 r o g n ( c o n d ( ( c l :
0024640 f b o u n d p ( q u o t e s
0024660 e t - d o c u m e n t a t i o n
0024700 ) ) ( s e t - d o c u m e n t
0024720 a t i o n a 0 1 2 9 a 0 1 3
0024740 0 a 0 1 3 1 ) ) ) a 0 1 3 1
0024760 ) \r ) \r | e x p a n d - D E F I
0025000 N E - C O N D I T I O N A 0 0 0
0025020 1 | d 1 \r ( l ( 0 x ) )
0025040 \0 006 \0 \0 \0 001 @ \t \0 \0 020 \0 ( 3 s
0025060 l o t - n a m e ) \r n i l \r ( )
0025100 \r | e x p a n d - D E F I N E -
0025120 C O N D I T I O N | d 1 \r ( l
0025140 ( 1 $ $ m a c r o - e n v i
0025160 r o n m e n t 0 $ $ m a c r
0025200 o - f o r m ) ) 003 ^ ( \0 \0 002 @
0025220 002 \t \0 \0 021 361 017 021 0 022 @ 271 H 001 272 H
0025240 002 [ 001 274 K 002 275 g \0 \0 g \0 \0 o \0 \0
0025260 \0 g \0 \0 o \0 \0 \0 J \n \0 \0 h 032 032 o
0025300 \0 \0 \0 032 \n \0 \0 021 1 026 M \t \0 \0 \t \0
0025320 \0 _ $ 001 _ " 277 O $ 002 001 \t \0 \0 _
0025340 277 L J 360 263 7 L \t \0 \0 _ 022 277 O 021
0025360 1 032 O . 003 265 3 O 0 022 _ 020 277 g \0 \0
0025400 L O 020 032 032 O & 032 _ & 277 O 021 A 037
0025420 O 6 003 265 B O 8 022 _ 277 J L \t \0 \0
0025440 021 1 # O @ 261 \0 212 001 d 001 O 022 g \0 \0
0025460 g \0 \0 \f \0 \0 236 _ 4 277 O 2 265 022 O 4
0025500 h 032 _ 2 _ 0 277 O . 002 _ . 260 250 O 4
0025520 & _ 2 260 363 001 _ > _ 016 277 O 020 ^ 003 265
0025540 006 h 235 260 001 O 016 : 222 N 260 367 N 002 260
0025560 356 O > _ < 277 O : 265 022 O < h 032 _ :
0025600 _ 8 277 O 6 002 _ 6 260 212 O < & _ : 277
0025620 260 363 d 001 k g \0 \0 017 016 _ B 277 O D 265
0025640 \t O B h 032 _ F 202 O B & _ D 277 002 003
0025660 265 342 O F 022 O 021 1 ' O H 260 037 d 001
0025700 k g \0 \0 017 016 _ J 277 O L 265 \t O J h
0025720 032 _ N 202 O J & _ L 277 002 003 265 342 O N
0025740 022 \n \0 \0 \n \0 \0 _ , 277 O " 261 \0 317 d
0025760 001 _ 032 _ 030 001 _ 026 277 O 030 002 001 _ 024 277
0026000 O 026 d g \0 \0 360 232 277 O 032 O & 032 _ &
0026020 261 \0 251 g \0 \0 360 262 027 O ( 232 o \0 \0 \0
0026040 J \n \0 \0 261 \0 225 O 024 _ ( 261 \0 216 O 026
0026060 d g \0 \0 360 262 036 277 O ( 231 o \0 \0 \0 J
0026100 \n \0 \0 260 v O 024 g \0 \0 O , \v \0 \0 _
0026120 ( 260 h g \0 \0 360 262 025 O * 231 o \0 \0 \0
0026140 J \n \0 \0 260 U O 024 _ * 260 O O 026 d g
0026160 \0 \0 360 262 0 277 O * 231 o \0 \0 \0 J \n \0
0026200 \0 260 8 g \0 \0 o \0 \0 \0 O , 242 O 024 212
0026220 g \0 \0 O , O 024 h 032 032 032 h 032 032 032 _
0026240 * 260 030 g \0 \0 360 262 023 o \0 \0 \0 o \0 \0
0026260 \0 O 026 g \0 \0 \f \0 \0 277 002 003 265 003 202 261
0026300 377 0 g \0 \0 g \0 \0 J O & 032 O 032 032
0026320 J L 360 263 032 g \0 \0 g \0 \0 J h 032 032 g
0026340 \0 \0 L h 032 032 h 032 032 032 h 032 200 h O *
0026360 003 264 1 J o \0 \0 \0 \n \0 \0 _ 034 277 g \0
0026400 \0 g \0 \0 g \0 \0 O 034 h 032 032 h 032 032 g
0026420 \0 \0 O * h 032 032 h 032 032 032 h 032 O 034 _
0026440 * 277 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h
0026460 032 032 O * 264 \n g \0 \0 O * h 032 032 h 032
0026500 032 032 O ( 003 264 1 J o \0 \0 \0 \n \0 \0 _
0026520 036 277 g \0 \0 g \0 \0 g \0 \0 O 036 h 032 032
0026540 h 032 032 g \0 \0 O ( h 032 032 h 032 032 032 h
0026560 032 O 036 _ ( 277 g \0 \0 g \0 \0 g \0 \0 J
0026600 h 032 032 h 032 032 O ( 264 \n g \0 \0 O ( h
0026620 032 032 h 032 032 032 g \0 \0 J h 032 032 h 032 032
0026640 \n \0 \0 032 \n \0 \0 \n \0 \0 032 032 022 h 032 032
0026660 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0
0026700 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0 I h
0026720 032 032 h 032 032 032 032 h 032 032 032 h 032 032 032 g
0026740 \0 \0 J h 032 032 h 032 032 032 032 020 \0 ( 7 9
0026760 4 \ \ a p p e n d 2 7 9 1
0027000 \ \ a p p e n d 2 7 8 7 \ \
0027020 a p p e n d 2 7 0 3 % s u f
0027040 f i x - s y m b o l 6 1 9 %
0027060 s u f f i x - s y m b o l 5 5
0027100 3 c l : c e r r o r 4 9 7
0027120 c l : e r r o r 4 6 8 c l :
0027140 e r r o r 4 4 7 m a k e - f
0027160 a k e - r e p o r t - f u n c t
0027200 i o n 4 3 5 c l : e r r o r
0027220 4 0 4 c l : e r r o r 3 4
0027240 3 m a k e - e n c a p s u l a
0027260 t i o n 3 4 0 \ \ n c o n c
0027300 2 1 6 6 c l : m e m b e r
0027320 1 4 4 s l o t - l i s t 9 0
0027340 s l o t - l i s t 7 8 n o
0027360 r m a l i z e - s l o t - d e s
0027400 c r i p t i o n s 6 5 \ \ m
0027420 v l i s t 6 2 s t r i p - k
0027440 e y w o r d s 5 5 \ \ a p p
0027460 e n d 2 4 4 % p r e f i x -
0027500 s y m b o l 4 r e m o v e -
0027520 c o m m e n t s ) \r ( 8 5 0 q
0027540 u o t e 8 3 0 q u o t e 8
0027560 1 9 q u o t e 8 1 6 \ \ d
0027600 e f i n e - t y p e - s a v e -
0027620 d e f n 8 1 3 f i l e p k g
0027640 f l g 8 1 0 a n d 8 0 3
0027660 c l : e v a l - w h e n 7 7 7
0027700 q u o t e 7 6 5 f u n c t
0027720 i o n 7 5 1 q u o t e 7 4
0027740 8 c o n d i t i o n - r e p o
0027760 r t e r 7 4 5 c l : s e t f
0030000 7 2 6 f u n c t i o n 7 1
0030020 5 q u o t e 7 1 2 c l : s
0030040 y m b o l - f u n c t i o n 7
0030060 0 9 c l : s e t f 6 8 1 f
0030100 u n c t i o n 6 6 7 q u o t
0030120 e 6 6 4 c o n d i t i o n -
0030140 h a n d l e r 6 6 1 c l : s
0030160 e t f 6 4 2 f u n c t i o n
0030200 6 3 1 q u o t e 6 2 8 c
0030220 l : s y m b o l - f u n c t i o
0030240 n 6 2 5 c l : s e t f 5 9
0030260 4 q u o t e 5 8 7 q u o t
0030300 e 5 8 4 f i x - i n h e r i
0030320 t a n c e - l i n k s 5 6 8
0030340 d e f s t r u c t 5 6 5 p r
0030360 o g n 5 5 0 d e f i n e - c
0030400 o n d i t i o n 5 3 4 o t h
0030420 e r w i s e 5 1 5 l e t 5
0030440 0 2 l a m b d a 4 8 2 : h
0030460 a n d l e 4 5 4 : h a n d l
0030500 e r - f u n c t i o n 4 4 2
0030520 c o n d i t i o n 4 2 0 : r
0030540 e p o r t 3 9 0 : r e p o r
0030560 t - f u n c t i o n 3 7 4 :
0030600 c o n c - n a m e 3 0 8 | e
0030620 x p a n d - D E F I N E - C O N
0030640 D I T I O N A 0 0 0 1 | 2 6 4
0030660 | e x p a n d - D E F I N E -
0030700 C O N D I T I O N A 0 0 0 1 |
0030720 1 6 3 | e x p a n d - D E F I
0030740 N E - C O N D I T I O N A 0 0 0
0030760 1 | 1 6 0 : k e y 1 1 2
0031000 : i n c l u d e 3 6 : c o n
0031020 s t r u c t o r 2 9 w i t h
0031040 o u t - f i l e p k g 2 6 p
0031060 r o g n ) \r ( 8 2 7 ( q u o
0031100 t e s t r u c t u r e s ) 8
0031120 0 7 ( c l : e v a l ) 7 0 0
0031140 " r e p o r t m e t h o d
0031160 " 6 1 6 " d e f a u l t
0031200 h a n d l e r " 5 4 5 " I l
0031220 l e g a l k e y w o r d ~ S
0031240 i n ~ S . " \r 5 4 1 " S
0031260 k i p k e y - v a l u e p a
0031300 i r " 5 0 6 ( c o n d i t i
0031320 o n ) 4 9 3 " H a n d l e r
0031340 a l r e a d y s p e c i f i
0031360 e d f o r ~ S . " 4 6 4
0031400 " H a n d l e r a l r e a d y
0031420 s p e c i f i e d f o r ~
0031440 S . " \r 4 3 1 " R e p o r t
0031460 f u n c t i o n a l r e a d
0031500 y s p e c i f i e d f o r
0031520 ~ S . " 4 0 0 " R e p o r t
0031540 f u n c t i o n a l r e a d
0031560 y s p e c i f i e d f o r
0031600 ~ S . " 5 1 ( ( : c o p i e
0031620 r n i l ) ( : p r e d i c a
0031640 t e n i l ) ) \r 4 0 " % M
0031660 A K E - " 3 3 ( ( : t y p e
0031700 l i s t ) : n a m e d ) ) \r
0031720 ( s e t f - m a c r o - f u n c
0031740 t i o n ( q u o t e d e f i
0031760 n e - c o n d i t i o n ) ( q
0032000 u o t e | e x p a n d - D E F
0032020 I N E - C O N D I T I O N | ) )
0032040 \r ( a d d t o v a r p r e t t
0032060 y p r i n t m a c r o s ( d e
0032100 f i n e - c o n d i t i o n .
0032120 p p r i n t - d e f i n e r )
0032140 ) \r ( l e t * ( ( a 0 1 3 8
0032160 ( q u o t e d e f i n e - c o
0032200 n d i t i o n ) ) ( a 0 1 3 9
0032220 ( q u o t e c l : f u n c t
0032240 i o n ) ) ( a 0 1 4 0 \r " D
0032260 e f i n e s a n e w c o n
0032300 d i t i o n t y p e " ) ) (
0032320 p r o g n ( c o n d ( ( c l
0032340 : f b o u n d p ( q u o t e
0032360 s e t - d o c u m e n t a t i o
0032400 n ) ) ( \r s e t - d o c u m e
0032420 n t a t i o n a 0 1 3 8 a 0
0032440 1 3 9 a 0 1 4 0 ) ) ) a 0 1
0032460 4 0 ) ) \r c l : : | e x p a n d
0032500 - C H E C K - T Y P E | d 1 \r
0032520 ( l ( 1 $ $ m a c r o - e n
0032540 v i r o n m e n t 0 $ $ m a
0032560 c r o - f o r m ) ) \0 226 \b \0 \0
0032600 002 @ 002 021 A 004 H 001 271 H 002 Z 001 273 J 002
0032620 d 220 001 274 o \0 \0 \0 \t \0 \0 o \0 \0 \0 \t
0032640 \0 \0 o \0 \0 \0 \t \0 \0 021 003 \a g \0 \0 N
0032660 g \0 \0 O 016 g \0 \0 M I h 032 032 h 032 g
0032700 \0 \0 g \0 \0 M g \0 \0 K h 032 032 h 032 032
0032720 032 g \0 \0 N h 032 032 h 032 032 032 g \0 \0 I
0032740 g \0 \0 i g \0 \0 I h 032 032 M g \0 \0 K
0032760 h 032 032 L h 032 032 032 032 032 032 h 032 032 032 g
0033000 \0 \0 O 016 h 032 032 h 032 032 032 032 032 h 032 032
0033020 032 h 032 032 032 020 \0 ( 3 9 g e n s y
0033040 m 3 2 g e n s y m 2 5 g
0033060 e n s y m ) \r ( 1 2 8 g o 1
0033100 0 9 q u o t e 1 0 1 q u o
0033120 t e 9 7 c h e c k - t y p e
0033140 - f a i l 9 3 c l : s e t f
0033160 8 2 c l : r e t u r n - f r
0033200 o m 7 1 q u o t e 6 7 t
0033220 y p e p 6 4 c l : w h e n
0033240 5 4 l e t 4 9 c l : t a g
0033260 b o d y 4 5 c l : b l o c k
0033300 ) \r ( 3 6 " C H E C K - T Y
0033320 P E " 2 9 " C H E C K - T Y
0033340 P E " 2 2 " C H E C K - T Y
0033360 P E " ) \r ( s e t f - m a c r o
0033400 - f u n c t i o n ( q u o t e
0033420 c l : c h e c k - t y p e )
0033440 ( q u o t e c l : : | e x p a
0033460 n d - C H E C K - T Y P E | ) )
0033500 \r c l : : | e x p a n d - E T Y
0033520 P E C A S E | d 1 \r ( l ( 1
0033540 $ $ m a c r o - e n v i r o n
0033560 m e n t 0 $ $ m a c r o - f
0033600 o r m ) ) \0 [ 005 \0 \0 002 @ 002 021 A
0033620 004 H 001 271 H 002 272 o \0 \0 \0 \t \0 \0 273 g
0033640 \0 \0 J g \0 \0 \n \0 \0 032 274 g \0 \0 K I
0033660 h 032 032 h 032 g \0 \0 K J i g \0 \0 h g
0033700 \0 \0 I h 032 032 K g \0 \0 L h 032 032 o \0
0033720 \0 \0 032 032 032 032 032 h 032 032 h 032 \n \0 \0 032
0033740 032 h 032 032 032 020 \0 ( 8 2 \ \ a p p
0033760 e n d 2 2 8 c o l l e c t -
0034000 c a s e - s e l e c t o r s 1
0034020 7 g e n s y m ) \r ( 6 1 q u
0034040 o t e 5 3 q u o t e 4 9
0034060 c h e c k - t y p e - f a i l
0034100 4 3 c l : t y p e c a s e 3
0034120 3 l e t 2 5 c l : e t y p
0034140 e c a s e 2 1 o r ) \r ( 6
0034160 9 ( n i l ) 1 4 " E T Y P
0034200 E C A S E " ) \r ( s e t f - m a
0034220 c r o - f u n c t i o n ( q u
0034240 o t e c l : e t y p e c a s e
0034260 ) ( q u o t e c l : : | e x
0034300 p a n d - E T Y P E C A S E | )
0034320 ) \r | e x p a n d - C T Y P E C
0034340 A S E | d 1 \r ( l ( 1 $ $
0034360 m a c r o - e n v i r o n m e n
0034400 t 0 $ $ m a c r o - f o r m
0034420 ) ) \0 223 \a \0 \0 002 @ 002 021 1 003 H 001
0034440 271 H 002 272 g \0 \0 J g \0 \0 \n \0 \0 032 273
0034460 o \0 \0 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 o \0
0034500 \0 \0 \t \0 \0 021 003 006 g \0 \0 M g \0 \0 N
0034520 g \0 \0 L I h 032 032 h 032 g \0 \0 M g \0
0034540 \0 L J i g \0 \0 I g \0 \0 i g \0 \0 I
0034560 h 032 032 L g \0 \0 K h 032 032 o \0 \0 \0 032
0034600 032 032 032 032 h 032 032 032 g \0 \0 N h 032 032 h
0034620 032 032 032 h 032 \n \0 \0 032 032 h 032 032 032 h 032
0034640 032 032 h 032 032 032 h 032 032 032 020 \0 ( 1 2 6
0034660 \ \ a p p e n d 2 4 3 g e
0034700 n s y m 3 6 g e n s y m 2
0034720 9 g e n s y m 2 0 c o l l
0034740 e c t - c a s e - s e l e c t o
0034760 r s ) \r ( 1 1 3 g o 9 3 q
0035000 u o t e 8 5 q u o t e 8 1
0035020 c h e c k - t y p e - f a i l
0035040 7 7 c l : s e t f 7 1 c
0035060 l : t y p e c a s e 6 7 c l
0035100 : r e t u r n - f r o m 5 7
0035120 l e t 5 3 c l : t a g b o d
0035140 y 4 9 c l : b l o c k 1 7
0035160 c t y p e c a s e 1 3 o r
0035200 ) \r ( 1 0 1 ( n i l ) 4 0
0035220 " C T Y P E C A S E " 3 3
0035240 " C T Y P E C A S E " 2 6 "
0035260 C T Y P E C A S E " ) \r ( s e t
0035300 f - m a c r o - f u n c t i o n
0035320 ( q u o t e c t y p e c a s
0035340 e ) ( q u o t e | e x p a n
0035360 d - C T Y P E C A S E | ) ) \r c
0035400 l : : | e x p a n d - E C A S E
0035420 | d 1 \r ( l ( 1 $ $ m a c
0035440 r o - e n v i r o n m e n t 0
0035460 $ $ m a c r o - f o r m ) )
0035500 \0 [ 005 \0 \0 002 @ 002 021 A 004 H 001 271 H 002
0035520 272 o \0 \0 \0 \t \0 \0 273 J g \0 \0 \n \0 \0
0035540 \ 262 : g \0 \0 K I h 032 032 h 032 g \0 \0
0035560 K J i g \0 \0 h g \0 \0 I h 032 032 K g
0035600 \0 \0 L h 032 032 h 032 032 032 032 032 h 032 032 h
0035620 032 \n \0 \0 032 032 h 032 032 032 020 o \0 \0 \0 020
0035640 \0 ( 7 7 \ \ a p p e n d 2 2
0035660 5 c o l l e c t - c a s e - s
0035700 e l e c t o r s 1 7 g e n s
0035720 y m ) \r ( 5 9 q u o t e 5 1
0035740 q u o t e 4 7 e c a s e -
0035760 f a i l 4 1 c a s e 3 1
0036000 l e t 2 2 c l : e c a s e )
0036020 \r ( 8 8 ( c l : e r r o r
0036040 " E m p t y c a s e s t a t
0036060 e m e n t . " ) 1 4 " E C A
0036100 S E " ) \r ( s e t f - m a c r o
0036120 - f u n c t i o n ( q u o t e
0036140 c l : e c a s e ) ( q u o t
0036160 e c l : : | e x p a n d - E C
0036200 A S E | ) ) \r c l : : | e x p a
0036220 n d - C C A S E | d 1 \r ( l
0036240 ( 1 $ $ m a c r o - e n v i r
0036260 o n m e n t 0 $ $ m a c r o
0036300 - f o r m ) ) \0 224 \a \0 \0 002 @ 002
0036320 021 1 003 H 001 271 H 002 Z g \0 \0 \n \0 \0 [
0036340 247 o \0 \0 \0 \t \0 \0 277 o \0 \0 \0 \t \0 \0
0036360 o \0 \0 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 021 003
0036400 006 g \0 \0 M g \0 \0 N g \0 \0 L I h 032
0036420 032 h 032 g \0 \0 M g \0 \0 L J i g \0 \0
0036440 I g \0 \0 i g \0 \0 I h 032 032 L g \0 \0
0036460 K h 032 032 h 032 032 032 032 032 h 032 032 032 g \0
0036500 \0 N h 032 032 h 032 032 032 h 032 \n \0 \0 032 032
0036520 h 032 032 032 h 032 032 032 h 032 032 032 h 032 032 032
0036540 020 \0 ( 1 2 7 \ \ a p p e n d 2
0036560 4 7 g e n s y m 4 0 g e
0036600 n s y m 3 3 g e n s y m 2
0036620 5 c l : e r r o r 1 6 c o
0036640 l l e c t - c a s e - s e l e c
0036660 t o r s ) \r ( 1 1 4 g o 9 7
0036700 q u o t e 8 9 q u o t e
0036720 8 5 e c a s e - f a i l 8 1
0036740 c l : s e t f 7 5 c a s e
0036760 7 1 c l : r e t u r n - f r
0037000 o m 6 1 l e t 5 7 c l :
0037020 t a g b o d y 5 3 c l : b l
0037040 o c k 1 3 c l : c c a s e )
0037060 \r ( 4 4 " C C A S E " 3 7
0037100 " C C A S E " 3 0 " C C A
0037120 S E " 2 2 " E m p t y C C
0037140 A S E . " ) \r ( s e t f - m a c
0037160 r o - f u n c t i o n ( q u o
0037200 t e c l : c c a s e ) ( q u
0037220 o t e c l : : | e x p a n d -
0037240 C C A S E | ) ) \r c l : : | e x
0037260 p a n d - A S S E R T | d 1 \r
0037300 ( l ( 1 $ $ m a c r o - e n
0037320 v i r o n m e n t 0 $ $ m a
0037340 c r o - f o r m ) ) \0 z \n \0 \0
0037360 002 @ 002 021 a 006 H 001 271 H 002 Z d 220 001 273
0037400 J 002 \ d 220 001 275 L 002 276 K 265 Q o \0 \0
0037420 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 o \0 \0 \0 \t
0037440 \0 \0 021 003 \t g \0 \0 O 020 g \0 \0 O 022 g
0037460 \0 \0 I g \0 \0 O 020 o \0 \0 \0 032 032 h 032
0037500 032 032 g \0 \0 M N 032 032 g \0 \0 O 022 h 032
0037520 032 h 032 032 032 032 032 h 032 032 032 020 003 263 260 o
0037540 \0 \0 \0 K \n \0 \0 277 260 245 \0 ( 1 1 7
0037560 c l : e r r o r 4 8 g e n s
0037600 y m 4 1 g e n s y m 3 4
0037620 g e n s y m ) \r ( 9 0 g o 8
0037640 3 a s s e r t - f a i l 6 8
0037660 c l : r e t u r n - f r o m
0037700 6 4 c l : w h e n 5 9 c l
0037720 : t a g b o d y 5 4 c l : b
0037740 l o c k ) \r ( 1 1 3 " ~ S
0037760 s h o u l d b e a l i s t
0040000 o f p l a c e s . " 7 4
0040020 ( ( c l : v a l u e s ) ) 4 5
0040040 " A S S E R T " 3 8 " A S
0040060 S E R T " 3 1 " A S S E R T
0040100 " ) \r ( s e t f - m a c r o - f
0040120 u n c t i o n ( q u o t e c
0040140 l : a s s e r t ) ( q u o t e
0040160 c l : : | e x p a n d - A S S
0040200 E R T | ) ) \r | e x p a n d - H
0040220 A N D L E R - B I N D | d 1 \r
0040240 ( l ( 1 $ $ m a c r o - e n
0040260 v i r o n m e n t 0 $ $ m a
0040300 c r o - f o r m ) ) \0 - 003 \0 \0
0040320 002 @ 002 021 ! 002 H 001 271 H 002 272 g \0 \0 g
0040340 \0 \0 g \0 \0 I \t \0 \0 \t \0 \0 o \0 \0 \0
0040360 \n \0 \0 032 h 032 032 h 032 J 032 032 020 \0 ( 3
0040400 3 \ \ a p p e n d 2 2 6 e
0040420 x t r a c t - c o n d i t i o n
0040440 - b i n d i n g s 2 3 n o r
0040460 m a l i z e - c o n d i t i o n
0040500 - c l a u s e s ) \r ( 1 9 l i
0040520 s t * 1 6 * c o n d i t i o
0040540 n - h a n d l e r - b i n d i n
0040560 g s * 1 3 l e t ) \r ( 3 0
0040600 ( * c o n d i t i o n - h a n
0040620 d l e r - b i n d i n g s * ) )
0040640 \r ( s e t f - m a c r o - f u n
0040660 c t i o n ( q u o t e h a n
0040700 d l e r - b i n d ) ( q u o t
0040720 e | e x p a n d - H A N D L E
0040740 R - B I N D | ) ) \r ( l e t *
0040760 ( ( a 0 1 5 8 ( q u o t e h
0041000 a n d l e r - b i n d ) ) ( a
0041020 0 1 5 9 ( q u o t e c l : f
0041040 u n c t i o n ) ) ( a 0 1 6 0
0041060 \r " E v a l f o r m s u n
0041100 d e r t e m p o r a r y n e
0041120 w c o n d i t i o n h a n d
0041140 l e r s . " ) ) ( p r o g n
0041160 ( c o n d ( ( c l : f b o u n
0041200 d p ( q u o t e \r s e t - d
0041220 o c u m e n t a t i o n ) ) (
0041240 s e t - d o c u m e n t a t i o
0041260 n a 0 1 5 8 a 0 1 5 9 a 0
0041300 1 6 0 ) ) ) a 0 1 6 0 ) ) \r |
0041320 e x p a n d - C O N D I T I O N
0041340 - B I N D | d 1 \r ( l ( 1
0041360 $ $ m a c r o - e n v i r o n m
0041400 e n t 0 $ $ m a c r o - f o
0041420 r m ) ) \0 024 003 \0 \0 002 @ 002 021 ! 002
0041440 H 001 271 H 002 272 g \0 \0 I J 032 032 020 \0 n
0041460 i l \r ( 1 3 h a n d l e r - b
0041500 i n d ) \r ( ) \r ( s e t f - m a
0041520 c r o - f u n c t i o n ( q u
0041540 o t e c o n d i t i o n - b i
0041560 n d ) ( q u o t e | e x p a
0041600 n d - C O N D I T I O N - B I N
0041620 D | ) ) \r ( l e t * ( ( a 0 1
0041640 6 3 ( q u o t e c o n d i t
0041660 i o n - b i n d ) ) ( a 0 1 6
0041700 4 ( q u o t e c l : f u n c
0041720 t i o n ) ) ( a 0 1 6 5 \r "
0041740 E v a l f o r m s u n d e r
0041760 t e m p o r a r y n e w c
0042000 o n d i t i o n h a n d l e r
0042020 s ; s y n o n y m f o r H
0042040 A N D L E R - B I N D " ) ) (
0042060 p r o g n ( c o n d ( ( \r c
0042100 l : f b o u n d p ( q u o t e
0042120 s e t - d o c u m e n t a t i
0042140 o n ) ) ( s e t - d o c u m e
0042160 n t a t i o n a 0 1 6 3 a 0
0042200 1 6 4 a 0 1 6 5 ) ) ) a 0 1
0042220 6 5 ) ) \r | e x p a n d - C O N
0042240 D I T I O N - C A S E | d 1 \r
0042260 ( l ( 1 $ $ m a c r o - e n
0042300 v i r o n m e n t 0 $ $ m a
0042320 c r o - f o r m ) ) \0 336 \b \0 \0
0042340 002 @ 002 021 1 003 H 001 271 H 002 272 o \0 \0 \0
0042360 \t \0 \0 o \0 \0 \0 \t \0 \0 o \0 \0 \0 \t \0
0042400 \0 o \0 \0 \0 \t \0 \0 021 004 \a J \t \0 \0 [
0042420 241 I 020 g \0 \0 L o \0 \0 \0 032 M g \0 \0
0042440 N g \0 \0 O 016 g \0 \0 g \0 \0 o \0 \0 \0
0042460 g \0 \0 L o \0 \0 \0 032 032 g \0 \0 N h 032
0042500 032 h 032 032 032 032 h 032 032 h 032 032 h 032 g \0
0042520 \0 g \0 \0 K \n \0 \0 O 016 h 032 032 h 032 g
0042540 \0 \0 I h 032 032 h 032 032 032 h 032 032 032 h 032
0042560 032 032 h 032 032 h 032 032 g \0 \0 L K \t \0 \0
0042600 k : 231 K L \n \0 \0 001 002 001 260 " g \0 \0
0042620 L K L \n \0 \0 i g \0 \0 o \0 \0 \0 L h
0042640 032 032 032 h 032 032 h 032 \n \0 \0 032 032 g \0 \0
0042660 M h 032 032 h 032 032 032 032 h 032 032 032 020 \0 (
0042700 2 0 1 \ \ a p p e n d 2 1 8
0042720 0 m a s s a g e - c a t c h -
0042740 c o n d i t i o n - c l a u s e
0042760 s 1 6 6 m a s s a g e - c a
0043000 t c h - c o n d i t i o n - c l
0043020 a u s e s 1 5 8 l e n g t h
0043040 1 1 8 c l : m a p c a r 4
0043060 5 n o r m a l i z e - c o n d
0043100 i t i o n - c l a u s e s 3 8
0043120 g e n s y m 3 1 g e n s y
0043140 m 2 4 g e n s y m 1 7 g
0043160 e n s y m ) \r ( 2 0 6 c l : v
0043200 a l u e s - l i s t 1 8 4 c
0043220 l : e r r o r 1 7 4 c o n d
0043240 i t i o n - t y p e c a s e 1
0043260 5 3 c l : i f 1 2 8 c l :
0043300 m u l t i p l e - v a l u e - l
0043320 i s t 1 1 4 c a r 1 1 1
0043340 h a n d l e r - b i n d 9 1
0043360 c o n d i t i o n - r e t u r n
0043400 8 1 c l : s e t f 7 4 c
0043420 l : l a m b d a 7 1 f u n c
0043440 t i o n 6 6 l e t 6 2 c
0043460 o n d i t i o n - b l o c k 5
0043500 2 l e t * ) \r ( 1 8 8 " B
0043520 u g i n c o n d i t i o n -
0043540 c a s e ! ~ & U n e x p e c t e
0043560 d c o n d i t i o n : ~ S .
0043600 " 8 6 ( c ) 7 8 ( c )
0043620 5 7 ( n i l ) 3 5 " C O N
0043640 D I T I O N - C A S E " 2 8 \r
0043660 " C O N D I T I O N - C A S E
0043700 " 2 1 " C O N D I T I O N -
0043720 C A S E " 1 4 " C O N D I T
0043740 I O N - C A S E " ) \r ( s e t f
0043760 - m a c r o - f u n c t i o n
0044000 ( q u o t e c o n d i t i o n
0044020 - c a s e ) ( q u o t e | e
0044040 x p a n d - C O N D I T I O N -
0044060 C A S E | ) ) \r ( l e t * ( (
0044100 a 0 1 6 8 ( q u o t e c o n
0044120 d i t i o n - c a s e ) ) ( a
0044140 0 1 6 9 ( q u o t e c l : f
0044160 u n c t i o n ) ) ( a 0 1 7 0
0044200 \r " E v a l f o r m u n d
0044220 e r c o n d i t i o n h a n
0044240 d l e r s t h a t p r o v i
0044260 d e a l t e r n a t e c o n
0044300 t i n u a t i o n s . " ) ) (
0044320 p r o g n ( c o n d ( ( c l
0044340 : f b o u n d p \r ( q u o t e
0044360 s e t - d o c u m e n t a t i
0044400 o n ) ) ( s e t - d o c u m e
0044420 n t a t i o n a 0 1 6 8 a 0
0044440 1 6 9 a 0 1 7 0 ) ) ) a 0 1
0044460 7 0 ) ) \r | e x p a n d - R E A
0044500 L - C O N D I T I O N - C A S E
0044520 | d 1 \r ( l ( 1 $ $ m a c
0044540 r o - e n v i r o n m e n t 0
0044560 $ $ m a c r o - f o r m ) )
0044600 \0 331 016 \0 \0 002 @ 002 021 a 006 H 001 271 H 002
0044620 272 o \0 \0 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 o
0044640 \0 \0 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 021 004 \n
0044660 g \0 \0 O 016 g \0 \0 o \0 \0 \0 g \0 \0 O
0044700 020 g \0 \0 021 0 \r J 260 u d 001 ^ 001 275 N
0044720 002 001 274 N 002 002 273 M g \0 \0 g \0 \0 O 022
0044740 h 032 g \0 \0 O 020 g \0 \0 g \0 \0 g \0 \0
0044760 L 265 A O 024 h 032 g \0 \0 g \0 \0 O 024 h
0045000 032 032 h 032 032 h 032 032 K \n \0 \0 032 h 032 032
0045020 O 022 h 032 032 032 h 032 032 032 h 032 032 032 h 032
0045040 032 h 032 032 _ 026 277 O 030 265 \r O 026 h 032 _
0045060 032 206 h 032 260 324 O 026 & _ 030 277 002 003 265 214
0045100 O 032 022 g \0 \0 O 016 I h 032 032 032 h 032 032
0045120 032 h 032 032 032 h 032 032 032 h 032 032 032 020 \0 (
0045140 1 3 3 \ \ a p p e n d 2 3 8
0045160 g e n s y m 3 1 g e n s y
0045200 m 2 4 g e n s y m 1 7 g
0045220 e n s y m ) \r ( 1 9 1 c l : r
0045240 e t u r n - f r o m 1 1 8 i
0045260 g n o r e 1 1 5 d e c l a r
0045300 e 1 0 5 c l : l a m b d a
0045320 1 0 2 f u n c t i o n 9 9
0045340 c l : v a l u e s 9 4 c l :
0045360 r e t u r n - f r o m 8 7 c
0045400 l : l a m b d a 8 4 f u n c
0045420 t i o n 6 1 h a n d l e r -
0045440 b i n d 5 6 c l : b l o c k
0045460 4 9 c l : m u l t i p l e -
0045500 v a l u e - c a l l 4 4 c l
0045520 : b l o c k ) \r ( 5 3 ( q u
0045540 o t e c l : f u n c a l l )
0045560 3 5 " C O N D I T I O N - C A
0045600 S E " 2 8 " C O N D I T I O
0045620 N - C A S E " 2 1 " C O N D
0045640 I T I O N - C A S E " 1 4 "
0045660 C O N D I T I O N - C A S E " )
0045700 \r ( s e t f - m a c r o - f u n
0045720 c t i o n ( q u o t e r e a
0045740 l - c o n d i t i o n - c a s e
0045760 ) ( q u o t e | e x p a n d
0046000 - R E A L - C O N D I T I O N -
0046020 C A S E | ) ) \r ( l e t * ( (
0046040 a 0 1 7 3 ( q u o t e r e a
0046060 l - c o n d i t i o n - c a s e
0046100 ) ) ( a 0 1 7 4 ( q u o t e
0046120 c l : f u n c t i o n ) ) (
0046140 a 0 1 7 5 \r " E v a l f o r
0046160 m u n d e r c o n d i t i o
0046200 n h a n d l e r s t h a t
0046220 p r o v i d e a l t e r n a t
0046240 e c o n t i n u a t i o n s .
0046260 " ) ) ( p r o g n ( c o n d
0046300 ( ( c l : f b o u n d p \r (
0046320 q u o t e s e t - d o c u m e
0046340 n t a t i o n ) ) ( s e t - d
0046360 o c u m e n t a t i o n a 0 1
0046400 7 3 a 0 1 7 4 a 0 1 7 5 ) )
0046420 ) a 0 1 7 5 ) ) \r | e x p a n
0046440 d - I G N O R E - E R R O R S |
0046460 d 1 \r ( l ( 1 $ $ m a c r
0046500 o - e n v i r o n m e n t 0
0046520 $ $ m a c r o - f o r m ) ) \0
0046540 025 001 \0 \0 002 @ 002 021 001 \0 g \0 \0 g \0 \0
0046560 H 032 o \0 \0 \0 032 032 020 \0 n i l \r ( 1
0046600 0 p r o g n 7 c o n d i t
0046620 i o n - c a s e ) \r ( 1 6 (
0046640 ( e r r o r ( c o n d i t i o
0046660 n ) n i l ) ) ) \r ( s e t f -
0046700 m a c r o - f u n c t i o n (
0046720 q u o t e i g n o r e - e r r
0046740 o r s ) ( q u o t e | e x p
0046760 a n d - I G N O R E - E R R O R
0047000 S | ) ) \r ( l e t * ( ( a 0 1
0047020 7 7 ( q u o t e i g n o r e
0047040 - e r r o r s ) ) ( a 0 1 7 8
0047060 ( q u o t e c l : f u n c t
0047100 i o n ) ) ( a 0 1 7 9 \r " E
0047120 v a l f o r m s w i t h h
0047140 a n d l e r f o r a n y c
0047160 o n d i t i o n o f t y p e
0047200 E R R O R . " ) ) ( p r o g
0047220 n ( c o n d ( ( c l : f b o
0047240 u n d p ( q u o t e \r s e t
0047260 - d o c u m e n t a t i o n ) )
0047300 ( s e t - d o c u m e n t a t
0047320 i o n a 0 1 7 7 a 0 1 7 8
0047340 a 0 1 7 9 ) ) ) a 0 1 7 9 ) )
0047360 \r | e x p a n d - P R O C E E D
0047400 - C A S E | d 1 \r ( l ( 1
0047420 $ $ m a c r o - e n v i r o n m
0047440 e n t 0 $ $ m a c r o - f o
0047460 r m ) ) \0 300 \t \0 \0 002 @ 002 021 Q 005
0047500 H 001 271 H 002 272 o \0 \0 \0 \t \0 \0 o \0 \0
0047520 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 021 003 \b J O
0047540 020 \n \0 \0 \t \0 \0 [ 001 274 K 002 001 275 L 241
0047560 I 020 g \0 \0 N O 016 032 g \0 \0 O 020 o \0
0047600 \0 \0 032 h 032 g \0 \0 O 020 g \0 \0 g \0 \0
0047620 g \0 \0 g \0 \0 g \0 \0 L o \0 \0 \0 \n \0
0047640 \0 032 h 032 032 h 032 g \0 \0 I h 032 032 h 032
0047660 032 032 h 032 032 032 h 032 032 032 h 032 032 032 g \0
0047700 \0 g \0 \0 N o \0 \0 \0 032 032 g \0 \0 O 016
0047720 h 032 032 g \0 \0 M \t \0 \0 k : 224 M 001 002
0047740 001 206 g \0 \0 N M 032 032 O 016 h 032 032 032 h
0047760 032 032 032 032 h 032 032 032 032 020 \0 ( 1 5 8
0050000 l e n g t h 1 0 1 \ \ a p p
0050020 e n d 2 4 3 \ \ m v l i s t
0050040 4 0 s p l i t - p r o c e e
0050060 d - c l a u s e s 3 1 g e n
0050100 s y m 2 4 g e n s y m 1 7
0050120 g e n s y m ) \r ( 1 6 9 c a
0050140 s e 1 5 4 c l : a p p l y
0050160 1 4 6 c l : v a l u e s - l i
0050200 s t 1 3 6 e q 1 3 3 c l
0050220 : i f 1 1 0 c l : m u l t i
0050240 p l e - v a l u e - l i s t 9
0050260 3 l i s t * 9 0 * p r o c
0050300 e e d - c a s e s * 8 7 l e
0050320 t 8 4 : n o r m a l 8 1
0050340 c o n s 7 6 c l : c a t c h
0050360 6 4 l e t 5 7 d e s t r
0050400 u c t u r i n g - b i n d ) \r (
0050420 1 4 1 ( : n o r m a l ) 9
0050440 8 ( * p r o c e e d - c a s e
0050460 s * ) 7 0 ( ( l i s t n i
0050500 l ) ) 2 8 " P R O C E E D -
0050520 C A S E " 2 1 " P R O C E E
0050540 D - C A S E " 1 4 " P R O C
0050560 E E D - C A S E " ) \r ( s e t f
0050600 - m a c r o - f u n c t i o n
0050620 ( q u o t e p r o c e e d - c
0050640 a s e ) ( q u o t e | e x p
0050660 a n d - P R O C E E D - C A S E
0050700 | ) ) \r ( l e t * ( ( a 0 1 8
0050720 2 ( q u o t e p r o c e e d
0050740 - c a s e ) ) ( a 0 1 8 3 (
0050760 q u o t e c l : f u n c t i o
0051000 n ) ) ( a 0 1 8 4 \r " E v a
0051020 l f o r m s , e s t a b l i
0051040 s h i n g a p l a c e t o
0051060 p r o c e e d f r o m e r
0051100 r o r s . " ) ) ( p r o g n
0051120 ( c o n d ( ( c l : f b o u n
0051140 d p ( q u o t e \r s e t - d
0051160 o c u m e n t a t i o n ) ) (
0051200 s e t - d o c u m e n t a t i o
0051220 n a 0 1 8 2 a 0 1 8 3 a 0
0051240 1 8 4 ) ) ) a 0 1 8 4 ) ) \r |
0051260 e x p a n d - R E A L - P R O C
0051300 E E D - C A S E | d 1 \r ( l
0051320 ( 1 $ $ m a c r o - e n v i r
0051340 o n m e n t 0 $ $ m a c r o
0051360 - f o r m ) ) \0 216 \t \0 \0 002 @ 002
0051400 021 ! 002 H 001 271 H 002 272 o \0 \0 \0 \t \0 \0
0051420 o \0 \0 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 021 003
0051440 005 g \0 \0 K g \0 \0 L o \0 \0 \0 032 g \0
0051460 \0 g \0 \0 021 0 \b J 260 032 d 001 L M \v \0
0051500 \0 276 O 016 265 \b N h 032 _ 020 201 N & _ 016
0051520 277 002 003 265 347 O 020 022 o \0 \0 \0 \n \0 \0 032
0051540 h 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0
0051560 L g \0 \0 K I h 032 032 032 h 032 032 032 h 032
0051600 032 032 h 032 032 032 h 032 032 032 020 \0 ( 9 6
0051620 \ \ a p p e n d 2 6 6 p r o
0051640 c e e d - c a s e - f r o m - c
0051660 l a u s e 3 1 g e n s y m
0051700 2 4 g e n s y m 1 7 g e n
0051720 s y m ) \r ( 1 1 7 c l : r e t
0051740 u r n - f r o m 1 1 3 c l :
0051760 c a t c h 1 0 6 c l : m u l
0052000 t i p l e - v a l u e - c a l l
0052020 5 3 l i s t * 5 0 * p r
0052040 o c e e d - c a s e s * 4 1
0052060 l e t * 3 7 c l : b l o c k
0052100 ) \r ( 1 1 0 ( q u o t e c
0052120 l : f u n c a l l ) 9 3 ( *
0052140 p r o c e e d - c a s e s * )
0052160 4 6 ( ( l i s t n i l ) )
0052200 2 8 " P R O C E E D - C A S E
0052220 " 2 1 " P R O C E E D - C A
0052240 S E " 1 4 " P R O C E E D -
0052260 C A S E " ) \r ( s e t f - m a c
0052300 r o - f u n c t i o n ( q u o
0052320 t e r e a l - p r o c e e d -
0052340 c a s e ) ( q u o t e | e x
0052360 p a n d - R E A L - P R O C E E
0052400 D - C A S E | ) ) \r ( l e t *
0052420 ( ( a 0 1 8 7 ( q u o t e r
0052440 e a l - p r o c e e d - c a s e
0052460 ) ) ( a 0 1 8 8 ( q u o t e
0052500 c l : f u n c t i o n ) ) (
0052520 a 0 1 8 9 \r " E v a l f o r
0052540 m s , e s t a b l i s h i n g
0052560 a p l a c e t o p r o c
0052600 e e d f r o m e r r o r s .
0052620 " ) ) ( p r o g n ( c o n d
0052640 ( ( c l : f b o u n d p ( q
0052660 u o t e \r s e t - d o c u m e
0052700 n t a t i o n ) ) ( s e t - d
0052720 o c u m e n t a t i o n a 0 1
0052740 8 7 a 0 1 8 8 a 0 1 8 9 ) )
0052760 ) a 0 1 8 9 ) ) \r | e x p a n
0053000 d - D E F I N E - P R O C E E D
0053020 - F U N C T I O N | d 1 \r ( l
0053040 ( 1 $ $ m a c r o - e n v i
0053060 r o n m e n t 0 $ $ m a c r
0053100 o - f o r m ) ) 001 266 017 \0 \0 002 @
0053120 002 \t \0 \0 021 261 \v @ 271 H 001 272 H 002 273 g
0053140 \0 \0 g \0 \0 J K \n \0 \0 \t \0 \0 _ 026 001
0053160 _ 024 277 O 026 002 _ 022 001 _ 020 277 O 022 002 001
0053200 _ 016 277 021 0 016 O 016 260 d 001 d 004 l 004
0053220 360 240 001 _ 030 277 O 032 265 \t O 030 h 032 _ 034
0053240 202 O 030 & _ 032 277 002 003 265 341 O 034 022 274 O
0053260 024 245 g \0 \0 _ 024 277 O 020 245 g \0 \0 _ 020
0053300 277 g \0 \0 O 024 003 264 - J o \0 \0 \0 \n \0
0053320 \0 275 g \0 \0 g \0 \0 g \0 \0 M h 032 032 h
0053340 032 032 g \0 \0 O 024 h 032 032 h 032 032 032 h 032
0053360 M _ 024 277 g \0 \0 g \0 \0 g \0 \0 J h 032
0053400 032 h 032 032 g \0 \0 O 024 h 032 032 h 032 032 032
0053420 O 020 003 264 - J o \0 \0 \0 \n \0 \0 276 g \0
0053440 \0 g \0 \0 g \0 \0 N h 032 032 h 032 032 g \0
0053460 \0 O 020 h 032 032 h 032 032 032 h 032 N _ 020 277
0053500 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032 032
0053520 g \0 \0 O 020 h 032 032 h 032 032 032 g \0 \0 g
0053540 \0 \0 g \0 \0 J h 032 032 h 032 032 g \0 \0 g
0053560 \0 \0 g \0 \0 g \0 \0 O 016 032 032 g \0 \0 L
0053600 032 h 032 032 032 h 032 032 h 032 032 032 g \0 \0 J
0053620 g \0 \0 g \0 \0 O 016 032 032 g \0 \0 g \0 \0
0053640 g \0 \0 J h 032 032 g \0 \0 L 032 032 032 o \0
0053660 \0 \0 032 032 h 032 032 032 032 h 032 032 032 \n \0 \0
0053700 032 \n \0 \0 032 h 032 032 g \0 \0 o \0 \0 \0 g
0053720 \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o
0053740 \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032 h
0053760 032 032 032 h 032 032 032 g \0 \0 J h 032 032 h 032
0054000 032 032 032 020 \0 ( 3 7 2 \ \ a p p e
0054020 n d 2 3 6 8 \ \ a p p e n d
0054040 2 2 0 5 % s u f f i x - s y
0054060 m b o l 1 2 9 % s u f f i x
0054100 - s y m b o l 2 9 \ \ m v l
0054120 i s t 2 6 p r o c e s s - p
0054140 r o c e e d - k e y w o r d s
0054160 4 r e m o v e - c o m m e n t
0054200 s ) \r ( 4 2 6 q u o t e 4 0
0054220 6 q u o t e 3 9 5 q u o t
0054240 e 3 9 2 \ \ d e f i n e - t
0054260 y p e - s a v e - d e f n 3 8
0054300 9 f i l e p k g f l g 3 8 6
0054320 a n d 3 7 9 c l : e v a l
0054340 - w h e n 3 4 6 c o n d i t
0054360 i o n 3 3 9 q u o t e 3 3
0054400 6 i n v o k e - p r o c e e d
0054420 - c a s e 3 3 3 c o n d i t
0054440 i o n - c a s e 3 2 6 c o n
0054460 d i t i o n 3 2 3 & o p t i
0054500 o n a l 3 1 9 c l : d e f u
0054520 n 3 0 3 l i s t 2 9 6 c
0054540 o n d i t i o n 2 9 3 & o p
0054560 t i o n a l 2 9 0 c l : l a
0054600 m b d a 2 8 7 f u n c t i o
0054620 n 2 7 7 q u o t e 2 7 4
0054640 p r o c e e d - a r g - c o l l
0054660 e c t o r 2 7 1 c l : s e t
0054700 f 2 5 9 q u o t e 2 4 9
0054720 q u o t e 2 4 6 d e f a u l
0054740 t - p r o c e e d - r e p o r t
0054760 2 4 3 c l : s e t f 2 2 5
0055000 f u n c t i o n 2 1 5 q u
0055020 o t e 2 1 2 c l : s y m b o
0055040 l - f u n c t i o n 2 0 9 c
0055060 l : s e t f 1 8 3 q u o t e
0055100 1 7 3 q u o t e 1 7 0 d
0055120 e f a u l t - p r o c e e d - t
0055140 e s t 1 6 7 c l : s e t f
0055160 1 4 9 f u n c t i o n 1 3 9
0055200 q u o t e 1 3 6 c l : s y
0055220 m b o l - f u n c t i o n 1 3
0055240 3 c l : s e t f 1 1 6 p r
0055260 o g n 1 1 0 d e f a u l t -
0055300 p r o c e e d - r e p o r t e r
0055320 1 0 1 t r u e 2 1 w i t
0055340 h o u t - f i l e p k g 1 8
0055360 p r o g n ) \r ( 4 0 3 ( q u
0055400 o t e f u n c t i o n s ) 3
0055420 8 3 ( c l : e v a l ) 3 5 4
0055440 ( ( b a d - p r o c e e d - c
0055460 a s e n i l n i l ) ) 2 0
0055500 2 " - p r o c e e d - r e p o
0055520 r t e r " 1 2 6 " - p r o c
0055540 e e d - t e s t " ) \r ( s e t f
0055560 - m a c r o - f u n c t i o n
0055600 ( q u o t e d e f i n e - p r
0055620 o c e e d - f u n c t i o n )
0055640 ( q u o t e | e x p a n d - D
0055660 E F I N E - P R O C E E D - F U
0055700 N C T I O N | ) ) \r ( a d d t o
0055720 v a r p r e t t y p r i n t m
0055740 a c r o s ( d e f i n e - p r
0055760 o c e e d - f u n c t i o n .
0056000 p p r i n t - d e f i n e r )
0056020 ) \r | e x p a n d - C A T C H -
0056040 A B O R T | d 1 \r ( l ( 1
0056060 $ $ m a c r o - e n v i r o n m
0056100 e n t 0 $ $ m a c r o - f o
0056120 r m ) ) \0 , 003 \0 \0 002 @ 002 021 ! 002
0056140 H 001 271 H 002 272 g \0 \0 g \0 \0 J 032 g \0
0056160 \0 o \0 \0 \0 g \0 \0 I o \0 \0 \0 032 032 032
0056200 032 h 032 032 032 020 \0 n i l \r ( 2 8 :
0056220 r e p o r t 2 1 a b o r t
0056240 1 6 p r o g n 1 3 p r o c
0056260 e e d - c a s e ) \r ( 3 3 (
0056300 : t e s t t r u e ( c l : v
0056320 a l u e s n i l c o n d i t
0056340 i o n ) ) 2 5 ( c o n d i t
0056360 i o n ) ) \r ( s e t f - m a c r
0056400 o - f u n c t i o n ( q u o t
0056420 e c a t c h - a b o r t ) (
0056440 q u o t e | e x p a n d - C A
0056460 T C H - A B O R T | ) ) \r ( p u
0056500 t p r o p s c l - e r r o r
0056520 f i l e t y p e c l : c o m p
0056540 i l e - f i l e ) \r ( p u t p r
0056560 o p s c l - e r r o r c o p
0056600 y r i g h t ( " X e r o x C
0056620 o r p o r a t i o n " 1 9 8 6
0056640 ) ) \r n i l \r
0056647