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