$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLTYPES.DCOM!14
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 " 1 6 - O c t - 8 6
0000120 1 3 : 5 3 : 5 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 m l t y p e s . \ ; 1 2
0000220 ) \r " 1 4 - O c t - 8 6 2 1
0000240 : 0 6 : 0 5 " " 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 1 4 - O c t -
0000320 8 6 . . . " | d a t e d |
0000340 " 1 4 - O c t - 8 6 2 2 : 2 4
0000360 : 4 7 " ) \r ( f i l e c r e a t
0000400 e d " 1 6 - O c t - 8 6 1 3
0000420 : 5 1 : 5 0 " { e r i s } < l
0000440 i s p c o r e > s o u r c e s >
0000460 c m l t y p e s . \ ; 1 2 4 6
0000500 0 8 6 | c h a n g e s | | t
0000520 o : | ( v a r s \r c m l t y
0000540 p e s c o m s ) ( t y p e s
0000560 c l : f u n c t i o n c l : :
0000600 s i g n e d - b y t e c l : :
0000620 u n s i g n e d - b y t e c l
0000640 : r e a d t a b l e c l : c o
0000660 m m o n ) ( f u n c t i o n s
0000700 \r c l : t y p e c a s e ) |
0000720 p r e v i o u s | | d a t e :
0000740 | " 1 2 - O c t - 8 6 1 7 :
0000760 3 2 : 1 1 " { e r i s } < l i
0001000 s p c o r e > s o u r c e s > c
0001020 m l t y p e s . \ ; 1 1 ) \r ( r
0001040 p a q q c m l t y p e s c o m
0001060 s ( ( * | ; ; ; | " P r e
0001100 d i c a t e s " ) ( f u n c t
0001120 i o n s c l : e q u a l c l
0001140 : e q u a l p ) ( * \ ; \r
0001160 " E Q L i s n o w i n t
0001200 h e i n i t " ) ( * | ; ;
0001220 ; | " T y p e p a n d f r
0001240 i e n d s " ) ( f u n c t i o
0001260 n s c o e r c e c l : t y p
0001300 e c a s e t y p e p c l : t
0001320 y p e - o f \r ) ( * | ; ; ;
0001340 | " O p t i m i z e r s " )
0001360 ( o p t i m i z e r s c o e r
0001400 c e f a l s e t r u e t y
0001420 p e p c l : n u m b e r p c
0001440 l : f l o a t p ) ( * \ ;
0001460 \r " O p t i m i z e b y c o
0001500 n s t a n t f o l d a n d
0001520 c o e r c e t o E Q w h e
0001540 r e p o s s i b l e " ) ( p
0001560 r o p b y t e m a c r o c l
0001600 : e q u a l c l : e q u a l p
0001620 ) ( * \r | ; ; ; | " f o r
0001640 D E F T Y P E " ) ( f u n c
0001660 t i o n s c l : d e f t y p e
0001700 t y p e - e x p a n d e r s
0001720 e t f - t y p e - e x p a n d e
0001740 r ) ( d e f i n e - t y p e s
0001760 t y p e s ) ( \r s e t f s
0002000 t y p e - e x p a n d e r ) (
0002020 * | ; ; ; | " S u p p o r t
0002040 f u n c t i o n s " ) ( f n
0002060 s a r r a y - t y p e f a l
0002100 s e s y m b o l - t y p e t
0002120 r u e \ \ r a n g e . t y p e
0002140 \r ) ( f u n c t i o n s c l
0002160 : n u m b e r p c l : f l o a
0002200 t p ) ( * | ; ; ; | " f o
0002220 r S U B T Y P E P " ) ( f
0002240 u n c t i o n s s i : : d a t
0002260 a t y p e - p \r s i : : s u b
0002300 - d a t a t y p e - p s u b -
0002320 s u b t y p e p c l : s u b t
0002340 y p e p t y p e - e x p a n d
0002360 h a n d l e - t y p e 1 - m e
0002400 t a - e x p r e s s i o n \r h
0002420 a n d l e - t y p e 2 - m e t a
0002440 - e x p r e s s i o n ) ( v a
0002460 r i a b l e s % n o - s u p e
0002500 r - t y p e t y p e - m e t a
0002520 - e x p r e s s i o n s ) ( *
0002540 | ; ; ; | " F o r T Y P E
0002560 P " ) ( \r f n s \ \ t y p e
0002600 p . p r e d ) ( t y p e s c
0002620 l : a t o m b i g n u m b i
0002640 t c l : c h a r a c t e r c
0002660 o n s c l : d o u b l e - f l
0002700 o a t c l : f i x n u m f l
0002720 o a t \r c l : f u n c t i o n
0002740 c l : h a s h - t a b l e i
0002760 n t e g e r c l : k e y w o r
0003000 d l i s t c l : l o n g - f
0003020 l o a t c l : m e m b e r c
0003040 l : m o d n u l l c l : n u
0003060 m b e r \r p a c k a g e c l
0003100 : s h o r t - f l o a t c l :
0003120 : s i g n e d - b y t e c l :
0003140 s t a n d a r d - c h a r c l
0003160 : s t r i n g - c h a r c l :
0003200 s i n g l e - f l o a t c l :
0003220 s y m b o l \r c l : : u n s i
0003240 g n e d - b y t e c l : r a t
0003260 i o n a l c l : r e a d t a b
0003300 l e c l : c o m m o n c l :
0003320 c o m p i l e d - f u n c t i o
0003340 n c o m p l e x s e q u e n
0003360 c e ) ( * | ; ; ; | \r " A
0003400 r r a y T y p e s " ) ( t y
0003420 p e s c l : a r r a y c l :
0003440 v e c t o r c l : s i m p l e
0003460 - s t r i n g s t r i n g c
0003500 l : s i m p l e - a r r a y c
0003520 l : s i m p l e - v e c t o r
0003540 \r c l : b i t - v e c t o r c
0003560 l : s i m p l e - b i t - v e c
0003600 t o r ) ( * | ; ; ; | \r "
0003620 f o r T Y P E - O F I n t e
0003640 r l i s p t y p e s t h a t
0003660 h a v e d i f f e r e n t
0003700 c o m m o n L i s p n a m e
0003720 s " ) ( p r o p c m l t y p
0003740 e c h a r a c t e r f i x p
0003760 \r f l o a t p g e n e r a l
0004000 - a r r a y l i s t p l i t
0004020 a t o m o n e d - a r r a y
0004040 s m a l l p s t r i n g p h
0004060 a r r a y p t w o d - a r r a
0004100 y ) ( p r o p \r c m l s u b
0004120 t y p e d e s c r i m i n a t o
0004140 r c l : s y m b o l c l : a
0004160 r r a y ) ( * | ; ; ; | \r
0004200 " t e l l t h e f i l e p k
0004220 g w h a t t o d o w i t
0004240 h t h e \ " d e f t y p e \
0004260 " p r o p e r t y " ) ( c o
0004300 m s ( p r o p p r o p t y p
0004320 e c l : d e f t y p e ) ) (
0004340 * \r | ; ; ; | " C o m p i l
0004360 e r o p t i o n s " ) ( p r
0004400 o p f i l e t y p e c m l t
0004420 y p e s ) ( d e c l a r e \ :
0004440 d o n t e v a l @ l o a d d
0004460 o e v a l @ c o m p i l e d o
0004500 n t c o p y ( \r l o c a l v a
0004520 r s . t ) ) ( d e c l a r
0004540 e \ : d o n t e v a l @ l o a
0004560 d d o e v a l @ c o m p i l e
0004600 d o n t c o p y c o m p i l
0004620 e r v a r s ( a d d v a r s
0004640 ( n l a m a ) ( n l a m l ) \r
0004660 ( l a m a ) ) ) ) ) \r c l : e
0004700 q u a l d 1 \r ( l ( 1 y
0004720 0 x ) ) \0 210 004 \0 \0 002 @ A : 265
0004740 003 202 261 \0 200 @ 021 1 003 H d 303 \0 \0 262 030
0004760 277 A 003 264 o @ 001 A 001 \n \0 \0 264 f @ 002
0005000 A 002 \n \0 \0 020 \t \0 \0 233 A \t \0 \0 264 T
0005020 @ A \n \0 \0 020 H d \t \0 \0 262 7 277 A \t
0005040 \0 \0 264 @ @ \t \0 \0 Y A \t \0 \0 : 264 4
0005060 I j 273 272 J K 363 221 h 200 i 221 i 020 @ K
0005100 266 A K 266 360 221 h 200 i 221 h 020 K k 324 273
0005120 260 344 303 \0 \0 264 \r A \t \0 \0 264 \a @ A \n
0005140 \0 \0 020 \0 ( 1 3 3 % p a t h n a
0005160 m e - e q u a l 1 2 6 c l :
0005200 p a t h n a m e p 8 0 c l :
0005220 l e n g t h 7 5 c l : l e n
0005240 g t h 6 9 c l : b i t - v e
0005260 c t o r - p 6 2 c l : b i t
0005300 - v e c t o r - p 5 6 c l :
0005320 s t r i n g = 4 9 c l : s t
0005340 r i n g p 4 4 c l : s t r i
0005360 n g p 4 0 c l : e q u a l
0005400 3 1 c l : e q u a l ) \r ( 1 2
0005420 0 p a t h n a m e 1 7 l i
0005440 s t p ) \r ( ) \r c l : e q u a l
0005460 p d 1 \r ( l ( 1 y 0 x
0005500 ) ) 001 177 \r \0 \0 002 @ A : 265 003 202 261
0005520 \0 250 @ 021 301 \f H d 3 020 237 277 A 3 020 264
0005540 003 202 261 \0 225 @ A \n \0 \0 020 303 \0 \0 262 033
0005560 A 003 264 003 202 261 \0 202 @ 001 A 001 \n \0 \0 264
0005600 x @ 002 A 002 \n \0 \0 020 H d 303 \0 \0 262 G
0005620 277 A 303 \0 \0 264 b @ 006 \0 \0 323 271 l a I
0005640 363 221 h 200 i 235 I l z 363 221 h 200 i 224 I
0005660 l 325 200 I A 006 \0 \0 323 272 l a J 363 221
0005700 h 200 i 235 J l z 363 221 h 200 i 224 J l
0005720 325 200 J 360 020 \t \0 \0 233 A \t \0 \0 264 032 @
0005740 A \n \0 \0 020 H d 303 \0 \0 234 277 A \t \0 \0
0005760 264 \a @ A \n \0 \0 020 \t \0 \0 262 9 A \t \0
0006000 \0 264 366 @ \t \0 \0 [ A \t \0 \0 : 264 352 K
0006020 j 275 274 L M 363 221 h 200 i 222 261 \0 217 @ M
0006040 266 A M 266 \n \0 \0 221 h 200 i 221 h 020 M k
0006060 324 275 260 341 H \t \0 \0 262 R A \t \0 \0 264 271
0006100 @ \t \0 \0 A \t \0 \0 \n \0 \0 264 254 @ \t \0
0006120 \0 A \t \0 \0 _ 016 277 276 @ \t \0 \0 j _ 022
0006140 277 _ 020 277 O 020 O 022 363 221 h 200 i 263 = N
0006160 O 022 266 O 016 O 022 266 \n \0 \0 221 h 200 i 263
0006200 255 O 022 k 324 _ 022 277 260 334 @ \t \0 \0 _ 024
0006220 A \t \0 \0 360 264 003 202 261 377 _ O 024 \t \0 \0
0006240 d 242 261 377 U _ 026 003 265 004 i 020 001 _ 030 @
0006260 \n \0 \0 O 030 A \n \0 \0 \n \0 \0 264 003 202 261
0006300 377 n O 026 002 260 340 \0 ( 3 7 0 c l :
0006320 e q u a l p 3 6 7 f e t c h
0006340 f i e l d 3 6 1 f e t c h f
0006360 i e l d 3 4 2 g e t d e s c
0006400 r i p t o r s 3 3 0 t y p e
0006420 n a m e 3 2 4 t y p e n a m
0006440 e 3 0 5 c l : e q u a l p
0006460 2 7 5 c l : a r r a y - t o t
0006500 a l - s i z e 2 6 7 \ \ f l
0006520 a t t e n - a r r a y 2 6 3
0006540 \ \ f l a t t e n - a r r a y
0006560 2 5 7 c l : e q u a l 2 5 4
0006600 c l : a r r a y - d i m e n s
0006620 i o n s 2 5 0 c l : a r r a
0006640 y - d i m e n s i o n s 2 4 4
0006660 c l : a r r a y p 2 3 8 c
0006700 l : a r r a y p 2 2 1 c l :
0006720 e q u a l p 1 9 4 c l : l e
0006740 n g t h 1 8 9 c l : l e n g
0006760 t h 1 8 3 c l : v e c t o r
0007000 p 1 7 7 c l : v e c t o r p
0007020 1 7 3 % p a t h n a m e - e
0007040 q u a l 1 6 6 c l : p a t h
0007060 n a m e p 1 5 4 s t r i n g
0007100 - e q u a l 1 4 7 c l : s t
0007120 r i n g p 1 4 2 c l : s t r
0007140 i n g p 6 2 c l : e q u a l
0007160 p 5 3 c l : e q u a l p 3
0007200 2 % = ) \r ( 1 6 0 p a t h n
0007220 a m e 1 1 1 c h a r a c t e
0007240 r 8 1 c h a r a c t e r 7
0007260 5 c h a r a c t e r 6 8 c
0007300 h a r a c t e r 3 6 l i s t
0007320 p ) \r ( ) \r c o e r c e d 1 \r
0007340 ( l ( 1 r e s u l t - t y p
0007360 e 0 o b j e c t ) ) \0 b \0
0007400 \0 \0 002 A d i 360 221 @ 020 g \0 \0 360 224 @
0007420 \t \0 \0 020 A g \0 \0 360 263 026 A g \0 \0 360
0007440 255 A g \0 \0 360 247 A d g \0 \0 360 225 277 @
0007460 006 \0 \0 020 g \0 \0 360 234 @ d d \t \0 \0 263
0007500 312 277 \t \0 \0 020 @ \t \0 \0 246 @ 224 @ 303 \0
0007520 \0 230 A g \0 \0 @ \v \0 \0 020 o \0 \0 \0 A
0007540 \n \0 \0 020 \0 ( 9 5 c l : e r r o
0007560 r 8 6 c l : m a p 7 0 c
0007600 l : v e c t o r p 6 5 c o m
0007620 p l e x 5 9 c l : c o m p l
0007640 e x p 1 5 c l : c h a r a c
0007660 t e r ) \r ( 8 2 c l : i d e n
0007700 t i t y 7 7 l i s t p 5 1
0007720 c o m p l e x 4 7 f l o a
0007740 t p 4 0 c l : l o n g - f l
0007760 o a t 3 3 c l : d o u b l e
0010000 - f l o a t 2 7 c l : s i n
0010020 g l e - f l o a t 2 0 f l o
0010040 a t 9 c l : c h a r a c t e
0010060 r ) \r ( 9 1 " C a n n o t
0010100 c o e r c e t o t y p e :
0010120 ~ S " ) \r ( l e t * ( ( a 3 0
0010140 6 6 ( q u o t e c o e r c e
0010160 ) ) ( a 3 0 6 7 ( q u o t e
0010200 c l : f u n c t i o n ) ) (
0010220 a 3 0 6 8 \r " C o e r c e o
0010240 b j e c t t o r e s u l t -
0010260 t y p e i f p o s s i b l e
0010300 " ) ) ( p r o g n ( c o n d
0010320 ( ( c l : f b o u n d p ( q
0010340 u o t e s e t - d o c u m e n
0010360 t a t i o n ) ) ( \r s e t - d
0010400 o c u m e n t a t i o n a 3 0
0010420 6 6 a 3 0 6 7 a 3 0 6 8 ) )
0010440 ) a 3 0 6 8 ) ) \r | e x p a n
0010460 d - T Y P E C A S E A 0 0 0 1 |
0010500 d 1 \r ( l ( 0 c l : : f o
0010520 r m ) ) \0 5 \0 \0 \0 001 @ 001 d g \0
0010540 \0 360 243 d i 360 222 277 i 201 277 h 222 i 260 024
0010560 g \0 \0 g \0 \0 g \0 \0 @ 001 h 032 032 h 032
0010600 032 032 @ d 002 245 277 o \0 \0 \0 200 002 032 020 \0
0010620 n i l \r ( 2 9 q u o t e 2 6
0010640 c l : : $ $ t y p e - v a l u
0010660 e 2 3 t y p e p 5 c l :
0010700 o t h e r w i s e ) \r ( 4 7
0010720 ( n i l ) ) \r c l : : | e x p a
0010740 n d - T Y P E C A S E | d 1 \r
0010760 ( l ( 1 $ $ m a c r o - e n
0011000 v i r o n m e n t 0 $ $ m a
0011020 c r o - f o r m ) ) \0 ( 003 \0 \0
0011040 002 @ 002 021 ! 002 H 001 271 H 002 272 g \0 \0 g
0011060 \0 \0 I h 032 032 h 032 g \0 \0 g \0 \0 J \n
0011100 \0 \0 032 h 032 032 032 020 \0 ( 3 2 c l :
0011120 m a p c a r ) \r ( 2 8 | e x p
0011140 a n d - T Y P E C A S E A 0 0 0
0011160 1 | 2 5 c o n d 1 6 c l
0011200 : : $ $ t y p e - v a l u e 1
0011220 3 l e t ) \r ( ) \r ( s e t f -
0011240 m a c r o - f u n c t i o n (
0011260 q u o t e c l : t y p e c a s
0011300 e ) ( q u o t e c l : : | e
0011320 x p a n d - T Y P E C A S E | )
0011340 ) \r ( l e t * ( ( a 3 0 7 1
0011360 ( q u o t e c l : t y p e c a
0011400 s e ) ) ( a 3 0 7 2 ( q u o
0011420 t e c l : f u n c t i o n ) )
0011440 ( a 3 0 7 3 \r " T y p e d
0011460 i s p a t c h , o r d e r i
0011500 s i m p o r t a n t , m o r
0011520 e s p e c i f i c t y p e s
0011540 s h o u l d a p p e a r f
0011560 i r s t " ) ) ( p r o g n (
0011600 c o n d ( ( c l : f b o u n d
0011620 p \r ( q u o t e s e t - d o
0011640 c u m e n t a t i o n ) ) ( s
0011660 e t - d o c u m e n t a t i o n
0011700 a 3 0 7 1 a 3 0 7 2 a 3 0
0011720 7 3 ) ) ) a 3 0 7 3 ) ) \r t y
0011740 p e p d 1 \r ( l ( 1 t y p
0011760 e 0 o b j e c t ) ) \0 \f \0
0012000 \0 \0 002 @ k A \t \0 \0 016 264 003 i 020 \0 (
0012020 5 \ \ t y p e p . p r e d ) \r
0012040 n i l \r ( ) \r ( l e t * ( ( a
0012060 3 0 7 4 ( q u o t e t y p e
0012100 p ) ) ( a 3 0 7 5 ( q u o t
0012120 e c l : f u n c t i o n ) )
0012140 ( a 3 0 7 6 " C h e c k i f
0012160 O B J E C T i s o f t y
0012200 p e T Y P E " ) ) ( \r p r o
0012220 g n ( c o n d ( ( c l : f b
0012240 o u n d p ( q u o t e s e t
0012260 - d o c u m e n t a t i o n ) )
0012300 ( s e t - d o c u m e n t a t
0012320 i o n a 3 0 7 4 a 3 0 7 5
0012340 a 3 0 7 6 ) ) ) a 3 0 7 6 ) )
0012360 \r c l : t y p e - o f d 1 \r (
0012400 l ( 0 x ) ) \0 $ 002 \0 \0 001 @
0012420 \t \0 \0 021 021 001 H g \0 \0 \n \0 \0 265 003 H
0012440 X d g \0 \0 \n \0 \0 Y 225 @ k I 016 265 003
0012460 H 020 \0 ( 2 4 g e t p r o p 1
0012500 3 g e t p r o p 3 t y p e
0012520 n a m e ) \r ( 2 1 c m l s u b
0012540 t y p e d e s c r i m i n a t o
0012560 r 1 0 c m l t y p e ) \r ( )
0012600 \r c l : : | o p t i m i z e - C
0012620 O E R C E | d 1 \r ( l ( 2
0012640 $ $ c t x 1 $ $ e n v 0
0012660 $ $ w h o l e ) ) \0 i 003 \0 \0 003
0012700 @ 002 021 ! 002 H 001 271 H 002 001 \t \0 \0 001 Z
0012720 d i 360 221 I 020 g \0 \0 360 227 g \0 \0 I h
0012740 032 032 020 J d g \0 \0 360 262 033 277 g \0 \0 g
0012760 \0 \0 I h 032 032 I g \0 \0 I h 032 032 h 032
0013000 032 032 032 020 g \0 \0 360 263 024 J g \0 \0 360 253
0013020 J g \0 \0 360 245 J g \0 \0 360 227 g \0 \0 I
0013040 h 032 032 020 g \0 \0 020 \0 ( 1 3 c o n
0013060 s t a n t e x p r e s s i o n p
0013100 ) \r ( 1 0 2 c o m p i l e r :
0013120 p a s s 9 4 f l o a t 8 9
0013140 c l : l o n g - f l o a t 8
0013160 3 c l : d o u b l e - f l o a
0013200 t 7 7 c l : s i n g l e - f
0013220 l o a t 7 0 f l o a t 5 7
0013240 c o m p l e x 4 9 c l : c
0013260 o m p l e x p 4 6 c l : i f
0013300 3 9 c o m p l e x 2 9 c
0013320 l : c h a r a c t e r 2 4 c
0013340 l : c h a r a c t e r ) \r ( ) \r
0013360 ( p u t p r o p ( q u o t e
0013400 c o e r c e ) ( q u o t e c
0013420 o m p i l e r : o p t i m i z e
0013440 r - l i s t ) ( u n i o n (
0013460 g e t p r o p ( q u o t e c
0013500 o e r c e ) ( q u o t e \r c
0013520 o m p i l e r : o p t i m i z e
0013540 r - l i s t ) ) ( l i s t (
0013560 q u o t e c l : : | o p t i m
0013600 i z e - C O E R C E | ) ) ) ) \r
0013620 | o p t i m i z e - F A L S E |
0013640 d 1 \r ( l ( 2 $ $ c t x
0013660 1 $ $ e n v 0 $ $ w h o l
0013700 e ) ) \0 016 001 \0 \0 003 @ 002 021 001 \0 g
0013720 \0 \0 h H 032 032 020 \0 n i l \r ( 7 p
0013740 r o g 1 ) \r ( ) \r ( p u t p r o
0013760 p ( q u o t e f a l s e )
0014000 ( q u o t e c o m p i l e r :
0014020 o p t i m i z e r - l i s t )
0014040 ( u n i o n ( g e t p r o p
0014060 ( q u o t e f a l s e ) ( q
0014100 u o t e \r c o m p i l e r : o
0014120 p t i m i z e r - l i s t ) )
0014140 ( l i s t ( q u o t e | o p
0014160 t i m i z e - F A L S E | ) ) )
0014200 ) \r | o p t i m i z e - T R U E
0014220 | d 1 \r ( l ( 2 $ $ c t x
0014240 1 $ $ e n v 0 $ $ w h o
0014260 l e ) ) \0 016 001 \0 \0 003 @ 002 021 001 \0
0014300 g \0 \0 i H 032 032 020 \0 n i l \r ( 7
0014320 p r o g 1 ) \r ( ) \r ( p u t p r
0014340 o p ( q u o t e t r u e )
0014360 ( q u o t e c o m p i l e r :
0014400 o p t i m i z e r - l i s t )
0014420 ( u n i o n ( g e t p r o p
0014440 ( q u o t e t r u e ) ( q u
0014460 o t e \r c o m p i l e r : o p
0014500 t i m i z e r - l i s t ) ) (
0014520 l i s t ( q u o t e | o p t
0014540 i m i z e - T R U E | ) ) ) ) \r
0014560 c l : : | o p t i m i z e - T Y
0014600 P E P | d 1 \r ( l ( 2 $ $
0014620 c t x 1 $ $ e n v 0 $ $
0014640 w h o l e ) ) \0 ) 003 \0 \0 003 @ 002
0014660 021 ! 002 H 001 271 H 002 001 \t \0 \0 Z 262 025 g
0014700 \0 \0 J 001 \t \0 \0 I h 032 032 o \0 \0 \0 032
0014720 032 020 g \0 \0 020 \0 ( 2 4 \ \ t y p
0014740 e p . p r e d 1 3 c o n s t
0014760 a n t e x p r e s s i o n p ) \r
0015000 ( 3 8 c o m p i l e r : p a s
0015020 s 1 9 a n d ) \r ( 3 2 (
0015040 t ) ) \r ( p u t p r o p ( q u
0015060 o t e t y p e p ) ( q u o t
0015100 e c o m p i l e r : o p t i m
0015120 i z e r - l i s t ) ( u n i o
0015140 n ( g e t p r o p ( q u o t
0015160 e t y p e p ) ( q u o t e
0015200 \r c o m p i l e r : o p t i m i
0015220 z e r - l i s t ) ) ( l i s t
0015240 ( q u o t e c l : : | o p t
0015260 i m i z e - T Y P E P | ) ) ) )
0015300 \r c l : : | o p t i m i z e - N
0015320 U M B E R P | d 1 \r ( l ( 2
0015340 $ $ c t x 1 $ $ e n v 0
0015360 $ $ w h o l e ) ) \0 030 001 \0 \0
0015400 003 @ 002 001 021 001 \0 g \0 \0 g \0 \0 H h 032
0015420 032 o \0 \0 \0 032 032 020 \0 n i l \r ( 1 1
0015440 n u m b e r p 8 a n d ) \r
0015460 ( 1 9 ( t ) ) \r ( p u t p r
0015500 o p ( q u o t e c l : n u m
0015520 b e r p ) ( q u o t e c o m
0015540 p i l e r : o p t i m i z e r -
0015560 l i s t ) ( u n i o n ( g e
0015600 t p r o p ( q u o t e c l :
0015620 n u m b e r p ) ( q u o t e
0015640 \r c o m p i l e r : o p t i m i
0015660 z e r - l i s t ) ) ( l i s t
0015700 ( q u o t e c l : : | o p t
0015720 i m i z e - N U M B E R P | ) )
0015740 ) ) \r c l : : | o p t i m i z e
0015760 - F L O A T P | d 1 \r ( l (
0016000 2 $ $ c t x 1 $ $ e n v
0016020 0 $ $ w h o l e ) ) \0 030 001 \0
0016040 \0 003 @ 002 001 021 001 \0 g \0 \0 g \0 \0 H h
0016060 032 032 o \0 \0 \0 032 032 020 \0 n i l \r ( 1
0016100 1 f l o a t p 8 a n d ) \r
0016120 ( 1 9 ( t ) ) \r ( p u t p r
0016140 o p ( q u o t e c l : f l o
0016160 a t p ) ( q u o t e c o m p
0016200 i l e r : o p t i m i z e r - l
0016220 i s t ) ( u n i o n ( g e t
0016240 p r o p ( q u o t e c l : f
0016260 l o a t p ) ( q u o t e \r c
0016300 o m p i l e r : o p t i m i z e
0016320 r - l i s t ) ) ( l i s t (
0016340 q u o t e c l : : | o p t i m
0016360 i z e - F L O A T P | ) ) ) ) \r
0016400 ( p u t p r o p s c l : e q u
0016420 a l b y t e m a c r o c o m
0016440 p . e q ) \r ( p u t p r o p s
0016460 c l : e q u a l p b y t e m a
0016500 c r o c o m p . e q ) \r c l :
0016520 : | e x p a n d - D E F T Y P E
0016540 | d 1 \r ( l ( 1 $ $ m a c
0016560 r o - e n v i r o n m e n t 0
0016600 $ $ m a c r o - f o r m ) )
0016620 001 ( \f \0 \0 002 @ 002 \t \0 \0 021 261 \v @ 271
0016640 H 001 272 H 002 [ 001 274 K 002 275 g \0 \0 g \0
0016660 \0 J 221 h 200 i 251 J 004 l 004 360 221 h 200 i
0016700 230 o \0 \0 \0 J \n \0 \0 277 o \0 \0 \0 J h
0016720 032 032 J \t \0 \0 \n \0 \0 _ 026 277 L g \0 \0
0016740 M J h g \0 \0 o \0 \0 \0 \r \a \0 \0 \t \0
0016760 \0 _ 024 001 _ 022 277 O 024 002 _ 020 001 _ 016 277
0017000 O 020 002 001 276 g \0 \0 o \0 \0 \0 g \0 \0 g
0017020 \0 \0 g \0 \0 O 026 h 032 032 h 032 032 g \0 \0
0017040 g \0 \0 o \0 \0 \0 O 016 g \0 \0 J O 022 h
0017060 032 032 032 h 032 \n \0 \0 032 032 h 032 032 h 032 032
0017100 032 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032
0017120 032 g \0 \0 O 026 h 032 032 h 032 032 032 N 264 034
0017140 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0
0017160 \0 032 032 N h 032 032 032 h 032 032 032 032 032 h 032
0017200 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0
0017220 \0 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0 I
0017240 h 032 032 h 032 032 032 032 h 032 032 032 h 032 032 032
0017260 g \0 \0 J h 032 032 h 032 032 032 032 020 \0 ( 1
0017300 6 1 \ \ a p p e n d 2 9 0
0017320 \ \ m v l i s t 8 7 p a r s
0017340 e - d e f m a c r o 6 6 x c
0017360 l : p a c k 6 3 c l : s y m
0017400 b o l - p a c k a g e 5 0 c
0017420 l : e r r o r 4 r e m o v e
0017440 - c o m m e n t s ) \r ( 2 8 4
0017460 q u o t e 2 6 4 q u o t e
0017500 2 5 3 q u o t e 2 5 0 \ \
0017520 d e f i n e - t y p e - s a v e
0017540 - d e f n 2 4 7 f i l e p k
0017560 g f l g 2 4 4 a n d 2 3 7
0017600 c l : e v a l - w h e n 2 1
0017620 0 q u o t e 2 0 7 c l : d
0017640 o c u m e n t a t i o n 2 0 4
0017660 c l : s e t f 1 8 9 q u o
0017700 t e 1 7 9 q u o t e 1 7 6
0017720 t y p e - e x p a n d e r 1
0017740 7 3 c l : s e t f 1 4 9 c
0017760 l : b l o c k 1 4 0 c l : l
0020000 a m b d a 1 3 7 c l : f u n
0020020 c t i o n 1 2 6 q u o t e
0020040 1 2 3 c l : s y m b o l - f u
0020060 n c t i o n 1 2 0 c l : s e
0020100 t f 1 1 3 c l : e v a l - w
0020120 h e n 7 9 : d e f a u l t -
0020140 d e f a u l t 7 3 $ $ t y p
0020160 e - f o r m 2 6 w i t h o u
0020200 t - f i l e p k g 2 3 p r o
0020220 g n ) \r ( 2 6 1 ( q u o t e
0020240 t y p e s ) 2 4 1 ( c l :
0020260 e v a l ) 2 1 8 ( ( q u o t
0020300 e t y p e ) ) 1 4 4 ( $ $
0020320 t y p e - f o r m ) 1 1 7 (
0020340 c l : e v a l c l : c o m p i
0020360 l e c l : l o a d ) \r 8 3
0020400 ( q u o t e c l : * ) 5 5
0020420 " t y p e - e x p a n d - " 4
0020440 6 " I l l e g a l n a m e
0020460 u s e d i n D E F T Y P E :
0020500 ~ S " ) \r ( s e t f - m a c r
0020520 o - f u n c t i o n ( q u o t
0020540 e c l : d e f t y p e ) ( q
0020560 u o t e c l : : | e x p a n d
0020600 - D E F T Y P E | ) ) \r ( a d d
0020620 t o v a r p r e t t y p r i n
0020640 t m a c r o s ( c l : d e f t
0020660 y p e . p p r i n t - d e f
0020700 i n e r ) ) \r t y p e - e x p a
0020720 n d e r d 1 \r ( l ( 0 t y
0020740 p e ) ) \0 , 001 \0 \0 001 @ 021 001 \0 H
0020760 d 303 \0 \0 223 277 @ 260 025 303 \0 \0 264 005 @ 001
0021000 212 g \0 \0 H o \0 \0 \0 \f \0 \0 022 301 002 311
0021020 \0 g \0 \0 ' 020 \0 ( 3 2 c h e c k
0021040 - t y p e - f a i l ) \r ( 4 0
0021060 t y p e - e x p a n d e r 2 4
0021100 t y p e 1 6 l i s t p 8
0021120 l i t a t o m ) \r ( 2 9 (
0021140 o r c l : s y m b o l c o n
0021160 s ) ) \r | e x p a n d - S E T F
0021200 - T Y P E - E X P A N D E R |
0021220 d 1 \r ( l ( 1 $ $ m a c r o
0021240 - e n v i r o n m e n t 0 $
0021260 $ m a c r o - f o r m ) ) \0 034
0021300 003 \0 \0 002 @ 002 021 ! 002 H 001 271 H 002 001 272
0021320 g \0 \0 I o \0 \0 \0 J h 032 032 032 032 020 \0
0021340 n i l \r ( 1 4 p u t ) \r ( 1
0021360 9 ( q u o t e t y p e - e x
0021400 p a n d e r ) ) \r ( s e t f - m
0021420 a c r o - f u n c t i o n ( q
0021440 u o t e s e t f - t y p e - e
0021460 x p a n d e r ) ( q u o t e
0021500 | e x p a n d - S E T F - T Y P
0021520 E - E X P A N D E R | ) ) \r ( a
0021540 d d t o v a r p r e t t y d e
0021560 f m a c r o s ( t y p e s x
0021600 ( p * ( m a p c a r ( q
0021620 u o t e x ) ( f u n c t i o
0021640 n ( l a m b d a ( i t e m )
0021660 ( c l : d o ( ( d e f ( \r
0021700 g e t d e f i t e m ( q u o
0021720 t e t y p e s ) ) ) ) ( d e
0021740 f d e f ) ( c l : c e r r o
0021760 r " R e - f e t c h t h e
0022000 d e f i n i t i o n " " N o
0022020 ~ S d e f i n i t i o n f o
0022040 r ~ S " \r ( q u o t e t y
0022060 p e s ) i t e m ) ) ) ) ) ) )
0022100 ) \r ( a d d t o v a r p r e t
0022120 t y t y p e l s t ( c h a n g
0022140 e d t y p e s l s t t y p e s
0022160 " C o m m o n L i s p t y
0022200 p e d e f i n i t i o n s " )
0022220 ) \r ( c o n d ( ( n o t ( c
0022240 l : g e t h a s h ( q u o t e
0022260 t y p e s ) * d e f i n i t
0022300 i o n - h a s h - t a b l e * )
0022320 ) ( l e t * ( ( a 3 0 8 7
0022340 ( q u o t e t y p e s ) ) (
0022360 a 3 0 8 8 \r * d e f i n i t i
0022400 o n - h a s h - t a b l e * )
0022420 ( a 3 0 9 0 ( c l : m a k e -
0022440 h a s h - t a b l e ( q u o t
0022460 e : t e s t ) ( q u o t e
0022500 c l : e q u a l ) ( q u o t e
0022520 : s i z e ) 5 0 ( \r q u o
0022540 t e : r e h a s h - s i z e )
0022560 5 0 ) ) ) ( c l : p u t h a
0022600 s h a 3 0 8 7 a 3 0 8 8 a
0022620 3 0 9 0 ) ) ) ) \r ( a d d t o v
0022640 a r f i l e p k g t y p e s
0022660 t y p e s ) \r ( p u t p r o p s
0022700 t y p e s g e t d e f \ \
0022720 d e f i n e - t y p e - g e t d
0022740 e f ) \r ( p u t p r o p s t y
0022760 p e s f i l e p k g c o n t e
0023000 n t s n i l l ) \r ( p u t p r
0023020 o p s t y p e s p r o p t y
0023040 p e t y p e s ) \r ( r e m p r
0023060 o p ( q u o t e t y p e - e
0023100 x p a n d e r ) ( q u o t e
0023120 s e t f - m e t h o d - e x p a
0023140 n d e r ) ) \r ( p u t p r o p s
0023160 t y p e - e x p a n d e r s
0023200 e t f - i n v e r s e s e t f
0023220 - t y p e - e x p a n d e r ) \r
0023240 a r r a y - t y p e d 1 \r ( l
0023260 ( 0 a r r a y ) ) \0 241 004 \0
0023300 \0 001 @ \t \0 \0 021 1 003 @ \t \0 \0 262 S H
0023320 k : 262 > @ \t \0 \0 271 @ d \t \0 \0 230 277
0023340 g \0 \0 I h 032 032 020 \t \0 \0 227 g \0 \0 I
0023360 h 032 032 020 @ \t \0 \0 Z i 360 227 g \0 \0 I
0023400 h 032 032 020 g \0 \0 J I h 032 h 032 032 032 020
0023420 g \0 \0 @ \t \0 \0 @ \t \0 \0 h 032 032 032 020
0023440 H k : 262 / @ \t \0 \0 273 @ d \t \0 \0 230
0023460 277 g \0 \0 K h 032 032 020 \t \0 \0 227 g \0 \0
0023500 K h 032 032 020 g \0 \0 @ \t \0 \0 K h 032 032
0023520 032 020 g \0 \0 @ \t \0 \0 @ \t \0 \0 h 032 032
0023540 032 020 \0 ( 1 5 4 c l : a r r a y
0023560 - d i m e n s i o n s 1 5 0
0023600 c l : a r r a y - e l e m e n t
0023620 - t y p e 1 3 7 c l : a r r
0023640 a y - e l e m e n t - t y p e
0023660 1 2 1 c l : b i t - v e c t o
0023700 r - p 1 0 8 c l : s t r i n
0023720 g p 1 0 2 c l : a r r a y -
0023740 t o t a l - s i z e 8 8 c l
0023760 : a r r a y - d i m e n s i o n
0024000 s 8 4 c l : a r r a y - e l
0024020 e m e n t - t y p e 5 3 c l
0024040 : a r r a y - e l e m e n t - t
0024060 y p e 4 0 c l : s i m p l e
0024100 - b i t - v e c t o r - p 2 7
0024120 c l : s i m p l e - s t r i n
0024140 g - p 2 1 c l : a r r a y -
0024160 t o t a l - s i z e 1 0 s i
0024200 m p l e - a r r a y - p 3 c
0024220 l : a r r a y - r a n k ) \r ( 1
0024240 4 6 c l : a r r a y 1 3 3
0024260 c l : v e c t o r 1 2 5 c l
0024300 : b i t - v e c t o r 1 1 3
0024320 s t r i n g 8 0 c l : s i m
0024340 p l e - a r r a y 6 8 c l :
0024360 s i m p l e - a r r a y 6 0
0024400 c l : s i m p l e - v e c t o r
0024420 4 4 c l : s i m p l e - b i
0024440 t - v e c t o r 3 2 c l : s
0024460 i m p l e - s t r i n g ) \r ( )
0024500 \r f a l s e d 1 \r n i l \0 003
0024520 \0 \0 \0 \0 h 020 \0 n i l \r n i l \r (
0024540 ) \r s y m b o l - t y p e d 1
0024560 \r ( l ( 0 x ) ) \0 016 \0 \0 \0
0024600 001 @ \t \0 \0 223 g \0 \0 020 g \0 \0 020 \0 (
0024620 3 c l : k e y w o r d p ) \r (
0024640 1 1 c l : s y m b o l 7 c
0024660 l : k e y w o r d ) \r ( ) \r t r
0024700 u e d 1 \r n i l \0 003 \0 \0 \0 \0
0024720 i 020 \0 n i l \r n i l \r ( ) \r \ \
0024740 r a n g e . t y p e d 1 \r ( l
0024760 ( 3 r a n g e l i s t 2
0025000 h i g h 1 l o w 0 b a s
0025020 e t y p e ) ) 001 ? 006 \0 \0 004 A 245
0025040 g \0 \0 b 002 277 B 245 g \0 \0 b 004 277 A d
0025060 g \0 \0 360 231 277 B g \0 \0 360 221 @ 020 A g
0025100 \0 \0 360 246 B g \0 \0 360 262 l g \0 \0 @ g
0025120 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 A g \0 \0
0025140 360 221 h 200 i 264 022 A 003 265 026 g \0 \0 A o
0025160 \0 \0 \0 032 032 h 032 B g \0 \0 360 232 h 211 001
0025200 b 002 277 g \0 \0 260 350 i 264 023 B 003 265 037 g
0025220 \0 \0 g \0 \0 B h 032 032 032 h 032 \n \0 \0 032
0025240 h 032 032 032 h 032 032 h 032 032 032 020 001 b 004 277
0025260 g \0 \0 260 337 C 021 021 001 H 265 R g \0 \0 @
0025300 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 A 003 265
0025320 4 g \0 \0 A o \0 \0 \0 032 032 B 003 265 035 g
0025340 \0 \0 g \0 \0 B h 032 032 032 h 032 032 032 h 032
0025360 032 032 h 032 032 h 032 032 032 020 001 b 004 277 g \0
0025400 \0 260 341 001 b 002 277 g \0 \0 260 312 001 271 A I
0025420 001 364 232 B I 002 001 364 224 I 002 002 001 020 I 001
0025440 A d 003 222 001 k 324 B d 003 222 001 k 325 I 002
0025460 001 021 004 005 J K 363 221 h 200 i 264 022 K L 363
0025500 221 h 200 i 264 \t L M 363 221 h 200 i 022 226 I
0025520 002 002 001 b \0 277 H 002 X 261 377 a \0 ( 1 2
0025540 8 \ \ a p p e n d 2 ) \r ( 2 3
0025560 5 < 2 2 6 < 1 9 8 x
0025600 1 9 5 < = 1 8 1 < = 1 7
0025620 4 a n d 1 6 7 l a m b d a
0025640 1 6 4 s a t i s f i e s 1
0025660 6 0 a n d 1 4 8 < 1 1 8
0025700 x 1 1 5 < = 1 0 3 <
0025720 9 2 c l : * 7 9 < = 6 5
0025740 c l : * 6 1 a n d 5 4
0025760 l a m b d a 5 1 s a t i s f
0026000 i e s 4 7 a n d 4 1 c l
0026020 : * 3 5 c l : * 2 7 c l
0026040 : * 2 0 c l : * 1 2 c l
0026060 : * 4 c l : * ) \r ( 1 8 6
0026100 ( x ) 1 7 1 ( x ) 8 4
0026120 ( x ) 5 8 ( x ) ) \r c l : n
0026140 u m b e r p d 1 \r ( l ( 0
0026160 x ) ) \0 \b \0 \0 \0 001 @ 3 020 264 003 i
0026200 020 \0 n i l \r n i l \r ( ) \r c l :
0026220 f l o a t p d 1 \r ( l ( 0
0026240 x ) ) \0 \b \0 \0 \0 001 @ 005 003 264 003 i
0026260 020 \0 n i l \r n i l \r ( ) \r s i :
0026300 : d a t a t y p e - p d 1 \r (
0026320 l ( 0 n a m e ) ) \0 \t \0 \0
0026340 \0 001 @ \t \0 \0 264 003 i 020 \0 ( 3 \ \
0026360 t y p e n u m b e r f r o m n a
0026400 m e ) \r n i l \r ( ) \r ( l e t *
0026420 ( ( a 3 0 9 1 ( q u o t e
0026440 s i : : d a t a t y p e - p ) )
0026460 ( a 3 0 9 2 ( q u o t e c
0026500 l : f u n c t i o n ) ) ( a 3
0026520 0 9 3 \r " R e t u r n s T
0026540 i f n a m e i s a d a t
0026560 a t y p e k n o w n t o t
0026600 h e X A I E t y p e s y s
0026620 t e m " ) ) ( p r o g n ( c
0026640 o n d ( ( c l : f b o u n d p
0026660 ( q u o t e \r s e t - d o c
0026700 u m e n t a t i o n ) ) ( s e
0026720 t - d o c u m e n t a t i o n
0026740 a 3 0 9 1 a 3 0 9 2 a 3 0 9
0026760 3 ) ) ) a 3 0 9 3 ) ) \r s i :
0027000 : s u b - d a t a t y p e - p
0027020 d 1 \r ( l ( 1 t y p e 2 0
0027040 t y p e 1 ) ) \0 ' 003 \0 \0 002 @
0027060 \t \0 \0 021 ! 002 A \t \0 \0 271 H Z d j 360
0027100 221 h 020 I 360 221 i 020 ` \0 \0 J 340 340 340 340
0027120 320 310 017 260 351 \0 ( 1 0 \ \ t y p e
0027140 n u m b e r f r o m n a m e 3
0027160 \ \ t y p e n u m b e r f r o
0027200 m n a m e ) \r ( 2 7 | \ \ D T
0027220 D S p a c e B a s e | ) \r ( ) \r
0027240 ( l e t * ( ( a 3 0 9 5 ( q
0027260 u o t e s i : : s u b - d a t
0027300 a t y p e - p ) ) ( a 3 0 9 6
0027320 ( q u o t e c l : f u n c t
0027340 i o n ) ) ( a 3 0 9 7 \r " R
0027360 e t u r n s T i f t y p e
0027400 2 i s a ( n o t n e c e
0027420 s s a r i l y p r o p e r )
0027440 s u p e r t y p e o f t y p
0027460 e 1 . " ) ) ( p r o g n ( c
0027500 o n d ( ( c l : f b o u n d p
0027520 ( \r q u o t e s e t - d o c
0027540 u m e n t a t i o n ) ) ( s e
0027560 t - d o c u m e n t a t i o n
0027600 a 3 0 9 5 a 3 0 9 6 a 3 0 9
0027620 7 ) ) ) a 3 0 9 7 ) ) \r s u b
0027640 - s u b t y p e p d 1 \r ( l
0027660 ( 1 t y p e 2 0 t y p e 1
0027700 ) ) \0 311 004 \0 \0 002 @ d A \n \0 \0 237
0027720 277 g \0 \0 i d \n \0 \0 \t \0 \0 \n \0 \0 020
0027740 262 361 A d i 360 263 352 256 g \0 \0 h i \n \0
0027760 \0 \t \0 \0 \n \0 \0 020 @ d 003 262 1 277 A 003
0030000 262 + @ d 001 g \0 \0 360 262 # 277 A 001 g \0
0030020 \0 360 262 031 g \0 \0 @ 002 001 A 002 001 \n \0 \0
0030040 i \n \0 \0 \t \0 \0 \n \0 \0 020 @ 003 237 @ 001
0030060 o \0 \0 \0 \n \0 \0 225 @ A \n \0 \0 020 A 003
0030100 265 A @ \t \0 \0 021 1 003 H 264 006 @ \t \0 \0
0030120 271 A \t \0 \0 Z 264 006 A \t \0 \0 273 H 262 024
0030140 J 226 I K \n \0 \0 265 031 H 226 I A \n \0 \0
0030160 265 020 J 264 \t @ K \n \0 \0 d 243 d \n \0 \0
0030200 020 001 o \0 \0 \0 \n \0 \0 262 271 @ A \n \0 \0
0030220 020 \0 ( 1 9 8 h a n d l e - t y
0030240 p e 2 - m e t a - e x p r e s s
0030260 i o n 1 9 1 m e m b e r 1
0030300 8 2 c l : v a l u e s 1 7 6
0030320 s u b - s u b t y p e p 1 6
0030340 6 s u b - s u b t y p e p 1
0030360 5 7 s u b - s u b t y p e p
0030400 1 4 6 t y p e - e x p a n d
0030420 1 3 9 t y p e - e x p a n d e
0030440 r 1 3 4 t y p e - e x p a n
0030460 d 1 2 4 t y p e - e x p a n
0030500 d e r 1 1 5 h a n d l e - t
0030520 y p e 1 - m e t a - e x p r e s
0030540 s i o n 1 0 9 m e m b e r
0030560 9 6 \ \ d o - t h r o w 9 3
0030600 \ \ m v l i s t 9 0 c l :
0030620 v a l u e s 8 6 s i : : s u
0030640 b - d a t a t y p e - p 4 5
0030660 \ \ d o - t h r o w 4 2 \ \
0030700 m v l i s t 3 9 c l : v a l
0030720 u e s 2 1 \ \ d o - t h r o
0030740 w 1 8 \ \ m v l i s t 1 5
0030760 c l : v a l u e s 5 c l :
0031000 e q u a l ) \r ( 7 7 h a i r y
0031020 - s u b t y p e p 7 1 d a t
0031040 a t y p e 6 2 d a t a t y p
0031060 e 3 4 h a i r y - s u b t y
0031100 p e p 1 0 h a i r y - s u b
0031120 t y p e p ) \r ( 1 8 8 ( a n
0031140 d o r ) 1 0 6 ( a n d o
0031160 r ) ) \r ( l e t * ( ( a 3 0 9
0031200 8 ( q u o t e s u b - s u b
0031220 t y p e p ) ) ( a 3 0 9 9 (
0031240 q u o t e c l : f u n c t i o
0031260 n ) ) ( a 3 1 0 0 \r " R e t
0031300 u r n s ( T T ) i f f t
0031320 y p e 1 i s a s u b t y p
0031340 e o f t y p e 2 . " ) ) (
0031360 p r o g n ( c o n d ( ( c l
0031400 : f b o u n d p ( q u o t e
0031420 s e t - d o c u m e n t a t i o
0031440 n ) \r ) ( s e t - d o c u m e
0031460 n t a t i o n a 3 0 9 8 a 3
0031500 0 9 9 a 3 1 0 0 ) ) ) a 3 1
0031520 0 0 ) ) \r s u b t y p e p a 0 0
0031540 0 1 d 1 \r ( f 0 t y p e 1
0031560 f 1 t y p e 2 ) \0 \f \0 002
0031600 \0 \0 P Q \n \0 \0 h d \n \0 \0 020 \0 ( 9
0031620 c l : v a l u e s 4 s u b
0031640 - s u b t y p e p ) \r n i l \r (
0031660 ) \r c l : s u b t y p e p d 1
0031700 \r ( i 1 t y p e 2 i 0
0031720 t y p e 1 ) \0 \v \0 \0 \0 002 g \0 \0
0031740 g \0 \0 \n \0 \0 020 \0 ( 8 \ \ c a t
0031760 c h - f u n c a l l ) \r ( 5 s
0032000 u b t y p e p a 0 0 0 1 2 h
0032020 a i r y - s u b t y p e p ) \r (
0032040 ) \r ( l e t * ( ( a 3 1 0 1
0032060 ( q u o t e c l : s u b t y p
0032100 e p ) ) ( a 3 1 0 2 ( q u o
0032120 t e c l : f u n c t i o n ) )
0032140 ( a 3 1 0 3 \r " R e t u r n
0032160 s T i f t y p e 1 i s
0032200 a s u b t y p e o f t y p
0032220 e 2 . I f s e c o n d v
0032240 a l u e i s ( ) , c o u l
0032260 d n ' t \r d e c i d e . " )
0032300 ) ( p r o g n ( c o n d (
0032320 ( c l : f b o u n d p ( q u o
0032340 t e s e t - d o c u m e n t a
0032360 t i o n ) ) ( s e t - d o c u
0032400 m e n t a t i o n a 3 1 0 1
0032420 a 3 1 0 2 a 3 1 0 3 \r ) ) )
0032440 a 3 1 0 3 ) ) \r t y p e - e x p
0032460 a n d d 1 \r ( l ( 0 | - a
0032500 r g s - | ) ) \0 d 005 \0 002 \0 e 021
0032520 001 \0 k a 021 1 004 l 002 H 361 262 $ I Z d
0032540 303 \0 \0 223 277 I 260 025 303 \0 \0 264 005 I 001 212
0032560 g \0 \0 J o \0 \0 \0 \f \0 \0 \t \0 \0 202 l
0032600 002 a [ 262 % I \ d 303 \0 \0 225 277 I h 032
0032620 260 024 303 \0 \0 264 004 I 212 g \0 \0 L o \0 \0
0032640 \0 \f \0 \0 k K 016 020 o \0 \0 \0 I \n \0 \0
0032660 020 \0 ( 9 7 c l : e r r o r 8
0032700 5 c h e c k - t y p e - f a i
0032720 l 4 7 t y p e - e x p a n d
0032740 e r 4 4 c h e c k - t y p e
0032760 - f a i l ) \r ( 7 7 f o r m
0033000 7 0 l i s t p 6 0 l i t a
0033020 t o m 3 6 f o r m 2 8 l
0033040 i s t p 2 0 l i t a t o m )
0033060 \r ( 9 3 " n o t y p e e
0033100 x p a n d e r f o r ~ s "
0033120 8 2 ( o r c l : s y m b o l
0033140 c o n s ) 4 1 ( o r c l
0033160 : s y m b o l c o n s ) ) \r (
0033200 l e t * ( ( a 3 1 0 4 ( q u
0033220 o t e t y p e - e x p a n d )
0033240 ) ( a 3 1 0 5 ( q u o t e
0033260 c l : f u n c t i o n ) ) ( a
0033300 3 1 0 6 \r " e x p a n d s a
0033320 t y p e f o r m a c c o r
0033340 d i n g t o d e f t y p e s
0033360 i n e f f e c t . T h e
0033400 c a l l e r m u s t e n s
0033420 u r e t h e r e i s a n
0033440 e x p a n d e r f o r t h e
0033460 f o r m " \r ) ) ( p r o g n
0033500 ( c o n d ( ( c l : f b o u
0033520 n d p ( q u o t e s e t - d
0033540 o c u m e n t a t i o n ) ) (
0033560 s e t - d o c u m e n t a t i o
0033600 n a 3 1 0 4 a 3 1 0 5 a 3
0033620 1 0 6 ) ) ) a 3 1 0 6 ) \r ) \r
0033640 h a n d l e - t y p e 1 - m e t
0033660 a - e x p r e s s i o n d 1 \r
0033700 ( l ( 1 t y p e 2 0 t y
0033720 p e 1 ) ) \0 200 006 \0 \0 002 @ 001 021 Q
0033740 005 H d g \0 \0 360 221 h 020 g \0 \0 360 262 #
0033760 @ 002 Y d 262 7 d 001 A \n \0 \0 262 365 277 g
0034000 \0 \0 i d \n \0 \0 \t \0 \0 \n \0 \0 277 I 260
0034020 342 H g \0 \0 360 262 = @ 002 Z 265 021 g \0 \0
0034040 i d \n \0 \0 \t \0 \0 \n \0 \0 020 001 A \n \0
0034060 \0 \t \0 \0 ] 001 274 M 002 001 273 L 263 024 K 264
0034100 354 g \0 \0 h i \n \0 \0 \t \0 \0 \n \0 \0 277
0034120 J 260 310 o \0 \0 \0 \t \0 \0 020 \0 ( 1 2 5
0034140 e r r o r 1 1 4 \ \ d o -
0034160 t h r o w 1 1 1 \ \ m v l i
0034200 s t 1 0 8 c l : v a l u e s
0034220 8 7 \ \ m v l i s t 8 4
0034240 c l : s u b t y p e p 7 8 \
0034260 \ d o - t h r o w 7 5 \ \ m
0034300 v l i s t 7 2 c l : v a l u
0034320 e s 4 8 \ \ d o - t h r o w
0034340 4 5 \ \ m v l i s t 4 2
0034360 c l : v a l u e s 3 1 c l :
0034400 s u b t y p e p ) \r ( 1 0 3 h
0034420 a i r y - s u b t y p e p 6 7
0034440 h a i r y - s u b t y p e p
0034460 5 6 o r 3 7 h a i r y - s
0034500 u b t y p e p 1 6 a n d 9
0034520 s a t i s f i e s ) \r ( 1 2
0034540 2 " a n e n t r y i n T
0034560 Y P E - M E T A - E X P R E S S
0034600 I O N S i s n o t h a n d
0034620 l e d b y h a n d l e - t y
0034640 p e 1 - m e t a - e x p r e s s
0034660 i o n " ) \r h a n d l e - t y p
0034700 e 2 - m e t a - e x p r e s s i
0034720 o n d 1 \r ( l ( 1 t y p e
0034740 2 0 t y p e 1 ) ) \0 247 \b \0
0034760 \0 002 A 001 021 q \a H d g \0 \0 360 262 @ 277
0035000 A 002 Y 265 021 g \0 \0 i d \n \0 \0 \t \0 \0
0035020 \n \0 \0 020 001 272 @ J \n \0 \0 \t \0 \0 ] 001
0035040 274 M 002 001 273 L 263 024 K 264 f g \0 \0 h i
0035060 \n \0 \0 \t \0 \0 \n \0 \0 277 I 260 306 g \0 \0
0035100 360 262 % A 002 ^ d 262 H 001 _ 016 277 @ O 016
0035120 \n \0 \0 236 g \0 \0 i d \n \0 \0 \t \0 \0 \n
0035140 \0 \0 277 N 260 340 H g \0 \0 360 262 % @ 003 264
0035160 @ 001 g \0 \0 360 264 030 g \0 \0 @ 002 001 A
0035200 002 001 \n \0 \0 i \n \0 \0 \t \0 \0 \n \0 \0 020
0035220 o \0 \0 \0 \t \0 \0 020 \0 ( 1 6 4 e r
0035240 r o r 1 5 6 \ \ d o - t h r
0035260 o w 1 5 3 \ \ m v l i s t
0035300 1 5 0 c l : v a l u e s 1 4
0035320 6 s i : : s u b - d a t a t y
0035340 p e - p 1 1 1 \ \ d o - t h
0035360 r o w 1 0 8 \ \ m v l i s t
0035400 1 0 5 c l : v a l u e s 9
0035420 6 s u b - s u b t y p e p 7
0035440 0 \ \ d o - t h r o w 6 7
0035460 \ \ m v l i s t 6 4 c l : v
0035500 a l u e s 4 3 \ \ m v l i s
0035520 t 4 0 c l : s u b t y p e p
0035540 3 2 \ \ d o - t h r o w 2
0035560 9 \ \ m v l i s t 2 6 c l
0035600 : v a l u e s ) \r ( 1 3 7 h a
0035620 i r y - s u b t y p e p 1 3 1
0035640 d a t a t y p e 1 1 9 d a
0035660 t a t y p e 1 0 0 h a i r y
0035700 - s u b t y p e p 7 7 o r
0035720 5 9 h a i r y - s u b t y p e
0035740 p 2 1 h a i r y - s u b t y
0035760 p e p 9 a n d ) \r ( 1 6 1
0036000 " a n e n t r y i n T Y
0036020 P E - M E T A - E X P R E S S I
0036040 O N S i s n o t h a n d l
0036060 e d b y h a n d l e - t y p
0036100 e 2 - m e t a - e x p r e s s i
0036120 o n " ) \r ( s e t q % n o - s
0036140 u p e r - t y p e 0 ) \r ( p u
0036160 t h a s h ( q u o t e % n o
0036200 - s u p e r - t y p e ) ( q u
0036220 o t e ( c o n s t a n t % n
0036240 o - s u p e r - t y p e ) ) c
0036260 o m p v a r m a c r o h a s h )
0036300 \r ( l e t * ( ( a 3 1 0 9 (
0036320 q u o t e % n o - s u p e r -
0036340 t y p e ) ) ( a 3 1 1 0 ( q
0036360 u o t e v a r i a b l e ) )
0036400 ( a 3 1 1 1 \r " t h e v a l
0036420 u e i n t h e d t d s u p
0036440 e r t y p e f i e l d w h i
0036460 c h i n d i c a t e s n o
0036500 s u p e r t y p e . " ) ) (
0036520 p r o g n ( c o n d ( ( c l
0036540 : f b o u n d p ( \r q u o t e
0036560 s e t - d o c u m e n t a t i
0036600 o n ) ) ( s e t - d o c u m e
0036620 n t a t i o n a 3 1 0 9 a 3
0036640 1 1 0 a 3 1 1 1 ) ) ) a 3 1
0036660 1 1 ) ) \r ( s e t q t y p e -
0036700 m e t a - e x p r e s s i o n s
0036720 ( q u o t e ( a n d o r )
0036740 ) ) \r ( p u t h a s h ( q u o
0036760 t e t y p e - m e t a - e x p
0037000 r e s s i o n s ) ( q u o t e
0037020 ( c o n s t a n t t y p e -
0037040 m e t a - e x p r e s s i o n s
0037060 ) ) c o m p v a r m a c r o h
0037100 a s h ) \r ( l e t * ( ( a 3 1
0037120 1 2 ( q u o t e t y p e - m
0037140 e t a - e x p r e s s i o n s )
0037160 ) ( a 3 1 1 3 ( q u o t e
0037200 v a r i a b l e ) ) ( a 3 1 1
0037220 4 \r " t h e e x p r e s s i
0037240 o n s t h a t s u b - s u b
0037260 t y p e p k n o w s h o w
0037300 t o d i s s e c t " ) ) ( p
0037320 r o g n ( c o n d ( ( c l :
0037340 f b o u n d p ( q u o t e \r
0037360 s e t - d o c u m e n t a t i o
0037400 n ) ) ( s e t - d o c u m e n
0037420 t a t i o n a 3 1 1 2 a 3 1
0037440 1 3 a 3 1 1 4 ) ) ) a 3 1 1
0037460 4 ) ) \r \ \ t y p e p . p r e d
0037500 a 0 0 0 1 d 1 \r ( l ( 0 p
0037520 r e d ) ) \0 \f \0 \0 \0 001 @ \t \0 \0
0037540 g \0 \0 h 032 032 020 \0 ( 3 \ \ t y p
0037560 e p . p r e d ) \r ( 6 x ) \r (
0037600 ) \r \ \ t y p e p . p r e d d
0037620 1 \r ( l ( 0 t y p e ) f
0037640 2 c l i s p a r r a y ) \0 376
0037660 002 001 \0 001 @ d 003 242 261 \0 222 R \n \0 \0 265
0037700 003 202 261 \0 207 @ d 001 021 021 001 H d g \0 \0
0037720 360 225 277 @ 002 001 260 n g \0 \0 360 262 " g \0
0037740 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 @ 002
0037760 001 h 032 032 h 032 032 032 h 032 032 032 260 H H g
0040000 \0 \0 360 254 H g \0 \0 360 246 H g \0 \0 360 262
0040020 032 g \0 \0 o \0 \0 \0 @ 001 g \0 \0 @ 002 \n
0040040 \0 \0 032 h 032 032 032 260 035 @ 001 \t \0 \0 Y 227
0040060 @ k I 016 \t \0 \0 213 o \0 \0 \0 o \0 \0 \0
0040100 @ \v \0 \0 022 R \v \0 \0 020 i 360 223 g \0 \0
0040120 020 @ d 243 g \0 \0 020 \t \0 \0 021 001 \0 H 233
0040140 @ h 032 k H 016 b \0 023 261 377 K @ d \t \0
0040160 \0 262 , 277 o \0 \0 \0 @ \n \0 \0 277 g \0 \0
0040200 @ h g \0 \0 g \0 \0 @ h 032 032 h 032 032 h
0040220 032 032 032 032 \t \0 \0 277 023 261 377 033 @ \t \0 \0
0040240 263 370 o \0 \0 \0 o \0 \0 \0 @ \v \0 \0 277 260
0040260 355 \0 ( 2 4 9 c l : c e r r o r
0040300 2 3 5 t y p e - e x p a n d
0040320 e r 2 2 6 e v a l 1 9 9
0040340 c l : w a r n 1 8 8 s i : :
0040360 d a t a t y p e - p 1 6 6 t
0040400 y p e - e x p a n d e r 1 4 8
0040420 p u t h a s h 1 4 3 c l :
0040440 c e r r o r 1 3 0 \ \ t y p
0040460 e p . p r e d 1 2 1 t y p e
0040500 - e x p a n d e r 1 0 9 c l
0040520 : m a p c a r 1 0 g e t h a
0040540 s h ) \r ( 2 1 1 d a t a t y p
0040560 e 2 0 8 q u o t e 2 0 3
0040600 c l : d e f t y p e 1 6 2 f
0040620 a l s e 1 5 5 t r u e 1 0
0040640 4 \ \ t y p e p . p r e d a 0
0040660 0 0 1 9 5 o p e n l a m b d
0040700 a 8 9 n o t 8 3 o r 7
0040720 7 a n d 5 7 q u o t e 5
0040740 4 x 5 1 t y p e n a m e p
0040760 4 4 o p e n l a m b d a 3
0041000 8 d a t a t y p e 2 7 s a
0041020 t i s f i e s ) \r ( 2 4 5 "
0041040 N o t y p e d e f i n i t i
0041060 o n f o r ~ S . S p e c i
0041100 f y o n e w i t h D E F T
0041120 Y P E . " 2 4 1 " U s e t
0041140 h e d e f t y p e y o u h
0041160 a v e s p e c i f i e d . " \r
0041200 1 9 5 " I n s t a l l i n g
0041220 D E F T Y P E f o r d a t
0041240 a t y p e ~ S " 1 3 9 " N
0041260 o t y p e d e f i n i t i o
0041300 n f o r ~ S . S p e c i f
0041320 y o n e w i t h D E F T Y
0041340 P E . " 1 3 5 \r " L o o k
0041360 a g a i n f o r a d e f t
0041400 y p e o n ~ S . " 9 9 (
0041420 x ) 4 8 ( x ) ) \r c l : : |
0041440 t y p e - e x p a n d - A T O M
0041460 | d 1 \r ( l ( 0 $ $ t y p
0041500 e - f o r m ) ) \0 006 \0 \0 \0 001 o
0041520 \0 \0 \0 020 \0 n i l \r n i l \r ( 3
0041540 ( s a t i s f i e s c l : a
0041560 t o m ) ) \r ( p u t ( q u o t
0041600 e c l : a t o m ) ( q u o t
0041620 e t y p e - e x p a n d e r )
0041640 ( q u o t e c l : : | t y p
0041660 e - e x p a n d - A T O M | ) )
0041700 \r c l : : | t y p e - e x p a n
0041720 d - B I G N U M | d 1 \r ( l
0041740 ( 0 $ $ t y p e - f o r m ) )
0041760 \0 006 \0 \0 \0 001 o \0 \0 \0 020 \0 n i l
0042000 \r n i l \r ( 3 ( o r ( d a
0042020 t a t y p e f i x p ) ( d a
0042040 t a t y p e b i g n u m ) ) )
0042060 \r ( p u t ( q u o t e b i g
0042100 n u m ) ( q u o t e t y p e
0042120 - e x p a n d e r ) ( q u o t
0042140 e c l : : | t y p e - e x p a
0042160 n d - B I G N U M | ) ) \r c l :
0042200 : | t y p e - e x p a n d - B I
0042220 T | d 1 \r ( l ( 0 $ $ t y
0042240 p e - f o r m ) ) \0 006 \0 \0 \0 001
0042260 o \0 \0 \0 020 \0 n i l \r n i l \r (
0042300 3 ( c l : m o d 2 ) ) \r ( p
0042320 u t ( q u o t e b i t ) (
0042340 q u o t e t y p e - e x p a n
0042360 d e r ) ( q u o t e c l : :
0042400 | t y p e - e x p a n d - B I T
0042420 | ) ) \r c l : : | t y p e - e x
0042440 p a n d - C H A R A C T E R |
0042460 d 1 \r ( l ( 0 $ $ t y p e -
0042500 f o r m ) ) \0 006 \0 \0 \0 001 o \0 \0
0042520 \0 020 \0 n i l \r n i l \r ( 3 (
0042540 s a t i s f i e s c l : c h a
0042560 r a c t e r p ) ) \r ( p u t (
0042600 q u o t e c l : c h a r a c t
0042620 e r ) ( q u o t e t y p e -
0042640 e x p a n d e r ) ( q u o t e
0042660 c l : : | t y p e - e x p a n
0042700 d - C H A R A C T E R | ) ) \r c
0042720 l : : | t y p e - e x p a n d -
0042740 C O N S | d 1 \r ( l ( 0 $
0042760 $ t y p e - f o r m ) ) \0 006 \0
0043000 \0 \0 001 o \0 \0 \0 020 \0 n i l \r n i l
0043020 \r ( 3 ( d a t a t y p e l
0043040 i s t p ) ) \r ( p u t ( q u o
0043060 t e c o n s ) ( q u o t e
0043100 t y p e - e x p a n d e r ) (
0043120 q u o t e c l : : | t y p e -
0043140 e x p a n d - C O N S | ) ) \r c
0043160 l : : | t y p e - e x p a n d -
0043200 D O U B L E - F L O A T | d 1
0043220 \r ( l ( 0 $ $ t y p e - f o
0043240 r m ) ) \0 \f 001 \0 \0 001 @ 002 021 001 \0
0043260 g \0 \0 H 032 020 \0 n i l \r ( 7 f l
0043300 o a t ) \r ( ) \r ( p u t ( q u
0043320 o t e c l : d o u b l e - f l
0043340 o a t ) ( q u o t e t y p e
0043360 - e x p a n d e r ) ( q u o t
0043400 e c l : : | t y p e - e x p a
0043420 n d - D O U B L E - F L O A T |
0043440 ) ) \r c l : : | t y p e - e x p
0043460 a n d - F I X N U M | d 1 \r (
0043500 l ( 0 $ $ t y p e - f o r m
0043520 ) ) \0 006 \0 \0 \0 001 o \0 \0 \0 020 \0 n
0043540 i l \r n i l \r ( 3 ( d a t a
0043560 t y p e s m a l l p ) ) \r ( p
0043600 u t ( q u o t e c l : f i x
0043620 n u m ) ( q u o t e t y p e
0043640 - e x p a n d e r ) ( q u o t
0043660 e c l : : | t y p e - e x p a
0043700 n d - F I X N U M | ) ) \r c l :
0043720 : | t y p e - e x p a n d - F L
0043740 O A T | d 1 \r ( l ( 0 $ $
0043760 t y p e - f o r m ) ) \0 % 003 \0
0044000 \0 001 @ 002 021 ! 002 H 265 \r g \0 \0 271 H 002
0044020 226 H 002 001 205 001 260 367 g \0 \0 272 o \0 \0 \0
0044040 I J \v \0 \0 020 \0 ( 3 4 \ \ r a n
0044060 g e . t y p e ) \r ( 2 4 c l :
0044100 * 1 0 c l : * ) \r ( 2 9
0044120 ( d a t a t y p e f l o a t p
0044140 ) ) \r ( p u t ( q u o t e f
0044160 l o a t ) ( q u o t e t y p
0044200 e - e x p a n d e r ) ( q u o
0044220 t e c l : : | t y p e - e x p
0044240 a n d - F L O A T | ) ) \r c l :
0044260 : | t y p e - e x p a n d - F U
0044300 N C T I O N | d 1 \r ( l ( 0
0044320 $ $ t y p e - f o r m ) ) \0
0044340 006 \0 \0 \0 001 o \0 \0 \0 020 \0 n i l \r n
0044360 i l \r ( 3 ( s a t i s f i e
0044400 s c l : f u n c t i o n p ) )
0044420 \r ( p u t ( q u o t e c l :
0044440 f u n c t i o n ) ( q u o t e
0044460 t y p e - e x p a n d e r )
0044500 ( q u o t e c l : : | t y p e
0044520 - e x p a n d - F U N C T I O N
0044540 | ) ) \r c l : : | t y p e - e x
0044560 p a n d - H A S H - T A B L E |
0044600 d 1 \r ( l ( 0 $ $ t y p e
0044620 - f o r m ) ) \0 006 \0 \0 \0 001 o \0
0044640 \0 \0 020 \0 n i l \r n i l \r ( 3
0044660 ( d a t a t y p e h a r r a y
0044700 p ) ) \r ( p u t ( q u o t e
0044720 c l : h a s h - t a b l e ) (
0044740 q u o t e t y p e - e x p a n
0044760 d e r ) ( q u o t e c l : :
0045000 | t y p e - e x p a n d - H A S
0045020 H - T A B L E | ) ) \r c l : : |
0045040 t y p e - e x p a n d - I N T E
0045060 G E R | d 1 \r ( l ( 0 $ $
0045100 t y p e - f o r m ) ) \0 ) 003 \0
0045120 \0 001 @ 002 021 ! 002 H 265 \r g \0 \0 271 H 002
0045140 226 H 002 001 205 001 260 367 g \0 \0 272 o \0 \0 \0
0045160 I J o \0 \0 \0 \f \0 \0 020 \0 ( 3 8 \
0045200 \ r a n g e . t y p e ) \r ( 2 4
0045220 c l : * 1 0 c l : * ) \r (
0045240 3 5 ( ( - 6 5 5 3 6 6 5 5
0045260 3 5 c l : f i x n u m ) ( 0
0045300 1 ( c l : m e m b e r 0
0045320 1 ) ) ) 2 9 ( s a t i s f i
0045340 e s c l : i n t e g e r p ) )
0045360 \r ( p u t ( q u o t e i n t
0045400 e g e r ) ( q u o t e t y p
0045420 e - e x p a n d e r ) ( q u o
0045440 t e c l : : | t y p e - e x p
0045460 a n d - I N T E G E R | ) ) \r c
0045500 l : : | t y p e - e x p a n d -
0045520 K E Y W O R D | d 1 \r ( l (
0045540 0 $ $ t y p e - f o r m ) )
0045560 \0 006 \0 \0 \0 001 o \0 \0 \0 020 \0 n i l \r
0045600 n i l \r ( 3 ( s a t i s f i
0045620 e s c l : k e y w o r d p ) )
0045640 \r ( p u t ( q u o t e c l :
0045660 k e y w o r d ) ( q u o t e
0045700 t y p e - e x p a n d e r ) (
0045720 q u o t e c l : : | t y p e -
0045740 e x p a n d - K E Y W O R D | )
0045760 ) \r c l : : | t y p e - e x p a
0046000 n d - L I S T | d 1 \r ( l (
0046020 0 $ $ t y p e - f o r m ) )
0046040 \0 ` 001 \0 \0 001 @ 002 265 023 g \0 \0 021 001 \0
0046060 H g \0 \0 360 227 o \0 \0 \0 020 001 260 361 g \0
0046100 \0 g \0 \0 g \0 \0 g \0 \0 o \0 \0 \0 g \0
0046120 \0 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0046140 \0 g \0 \0 H h 032 032 h 032 032 032 h 032 032 032
0046160 h 032 032 o \0 \0 \0 032 032 h 032 032 032 h 032 032
0046200 h 032 032 032 020 \0 n i l \r ( 6 1 q u
0046220 o t e 5 8 e l e m e n t 5
0046240 5 t y p e p 4 8 c l : l a
0046260 m b d a 4 5 c l : f u n c t
0046300 i o n 4 2 c l : e v e r y
0046320 3 5 l a m b d a 3 2 s a t
0046340 i s f i e s 2 9 l i s t 2
0046360 6 a n d 1 3 c l : * 6
0046400 c l : * ) \r ( 8 0 ( x ) 5
0046420 2 ( e l e m e n t ) 3 9 (
0046440 x ) 1 9 ( o r n u l l c
0046460 o n s ) ) \r ( p u t ( q u o t
0046500 e l i s t ) ( q u o t e t
0046520 y p e - e x p a n d e r ) ( q
0046540 u o t e c l : : | t y p e - e
0046560 x p a n d - L I S T | ) ) \r c l
0046600 : : | t y p e - e x p a n d - L
0046620 O N G - F L O A T | d 1 \r ( l
0046640 ( 0 $ $ t y p e - f o r m )
0046660 ) \0 \f 001 \0 \0 001 @ 002 021 001 \0 g \0 \0
0046700 H 032 020 \0 n i l \r ( 7 f l o a t
0046720 ) \r ( ) \r ( p u t ( q u o t e
0046740 c l : l o n g - f l o a t )
0046760 ( q u o t e t y p e - e x p a
0047000 n d e r ) ( q u o t e c l :
0047020 : | t y p e - e x p a n d - L O
0047040 N G - F L O A T | ) ) \r c l : :
0047060 | t y p e - e x p a n d - M E M
0047100 B E R | d 1 \r ( l ( 0 $ $
0047120 t y p e - f o r m ) ) \0 ) 001 \0
0047140 \0 001 @ 002 021 001 \0 g \0 \0 g \0 \0 o \0 \0
0047160 \0 g \0 \0 g \0 \0 g \0 \0 H h 032 032 h 032
0047200 032 032 h 032 032 032 h 032 032 020 \0 n i l \r (
0047220 2 3 q u o t e 2 0 x 1 7
0047240 c l : m e m b e r 1 0 l a
0047260 m b d a 7 s a t i s f i e s
0047300 ) \r ( 1 4 ( x ) ) \r ( p u t
0047320 ( q u o t e c l : m e m b e
0047340 r ) ( q u o t e t y p e - e
0047360 x p a n d e r ) ( q u o t e
0047400 c l : : | t y p e - e x p a n d
0047420 - M E M B E R | ) ) \r c l : : |
0047440 t y p e - e x p a n d - M O D |
0047460 d 1 \r ( l ( 0 $ $ t y p e
0047500 - f o r m ) ) \0 023 001 \0 \0 001 @ 002
0047520 001 021 001 \0 g \0 \0 j H k 325 h 032 032 032 020
0047540 \0 n i l \r ( 8 i n t e g e r )
0047560 \r ( ) \r ( p u t ( q u o t e
0047600 c l : m o d ) ( q u o t e t
0047620 y p e - e x p a n d e r ) ( q
0047640 u o t e c l : : | t y p e - e
0047660 x p a n d - M O D | ) ) \r c l :
0047700 : | t y p e - e x p a n d - N U
0047720 L L | d 1 \r ( l ( 0 $ $ t
0047740 y p e - f o r m ) ) \0 006 \0 \0 \0
0047760 001 o \0 \0 \0 020 \0 n i l \r n i l \r (
0050000 3 ( s a t i s f i e s n u
0050020 l l ) ) \r ( p u t ( q u o t e
0050040 n u l l ) ( q u o t e t y
0050060 p e - e x p a n d e r ) ( q u
0050100 o t e c l : : | t y p e - e x
0050120 p a n d - N U L L | ) ) \r c l :
0050140 : | t y p e - e x p a n d - N U
0050160 M B E R | d 1 \r ( l ( 0 $
0050200 $ t y p e - f o r m ) ) \0 006 \0
0050220 \0 \0 001 o \0 \0 \0 020 \0 n i l \r n i l
0050240 \r ( 3 ( s a t i s f i e s
0050260 n u m b e r p ) ) \r ( p u t (
0050300 q u o t e c l : n u m b e r )
0050320 ( q u o t e t y p e - e x p
0050340 a n d e r ) ( q u o t e c l
0050360 : : | t y p e - e x p a n d - N
0050400 U M B E R | ) ) \r c l : : | t y
0050420 p e - e x p a n d - P A C K A G
0050440 E | d 1 \r ( l ( 0 $ $ t y
0050460 p e - f o r m ) ) \0 006 \0 \0 \0 001
0050500 o \0 \0 \0 020 \0 n i l \r n i l \r (
0050520 3 ( d a t a t y p e p a c k
0050540 a g e ) ) \r ( p u t ( q u o t
0050560 e p a c k a g e ) ( q u o t
0050600 e t y p e - e x p a n d e r )
0050620 ( q u o t e c l : : | t y p
0050640 e - e x p a n d - P A C K A G E
0050660 | ) ) \r c l : : | t y p e - e x
0050700 p a n d - S H O R T - F L O A T
0050720 | d 1 \r ( l ( 0 $ $ t y p
0050740 e - f o r m ) ) \0 \f 001 \0 \0 001 @
0050760 002 021 001 \0 g \0 \0 H 032 020 \0 n i l \r (
0051000 7 f l o a t ) \r ( ) \r ( p u t
0051020 ( q u o t e c l : s h o r t
0051040 - f l o a t ) ( q u o t e t
0051060 y p e - e x p a n d e r ) ( q
0051100 u o t e c l : : | t y p e - e
0051120 x p a n d - S H O R T - F L O A
0051140 T | ) ) \r c l : : | t y p e - e
0051160 x p a n d - S I G N E D - B Y T
0051200 E | d 1 \r ( l ( 0 $ $ t y
0051220 p e - f o r m ) ) \0 / 002 \0 \0 001
0051240 @ 002 265 022 g \0 \0 021 021 001 H g \0 \0 360 226
0051260 g \0 \0 020 001 260 362 l 002 H k 325 \n \0 \0 271
0051300 g \0 \0 j I 325 I k 325 h 032 032 032 020 \0 (
0051320 3 0 c l : e x p t ) \r ( 3 4
0051340 i n t e g e r 1 8 i n t e g
0051360 e r 1 3 c l : * 6 c l :
0051400 * ) \r ( ) \r ( p u t ( q u o t
0051420 e c l : : s i g n e d - b y t
0051440 e ) ( q u o t e t y p e - e
0051460 x p a n d e r ) ( q u o t e
0051500 c l : : | t y p e - e x p a n d
0051520 - S I G N E D - B Y T E | ) ) \r
0051540 c l : : | t y p e - e x p a n d
0051560 - S T A N D A R D - C H A R |
0051600 d 1 \r ( l ( 0 $ $ t y p e -
0051620 f o r m ) ) \0 006 \0 \0 \0 001 o \0 \0
0051640 \0 020 \0 n i l \r n i l \r ( 3 (
0051660 s a t i s f i e s c l : s t a
0051700 n d a r d - c h a r - p ) ) \r (
0051720 p u t ( q u o t e c l : s t
0051740 a n d a r d - c h a r ) ( q u
0051760 o t e t y p e - e x p a n d e
0052000 r ) ( q u o t e c l : : | t
0052020 y p e - e x p a n d - S T A N D
0052040 A R D - C H A R | ) ) \r c l : :
0052060 | t y p e - e x p a n d - S T R
0052100 I N G - C H A R | d 1 \r ( l
0052120 ( 0 $ $ t y p e - f o r m ) )
0052140 \0 006 \0 \0 \0 001 o \0 \0 \0 020 \0 n i l
0052160 \r n i l \r ( 3 ( s a t i s f
0052200 i e s c l : s t r i n g - c h
0052220 a r - p ) ) \r ( p u t ( q u o
0052240 t e c l : s t r i n g - c h a
0052260 r ) ( q u o t e t y p e - e
0052300 x p a n d e r ) ( q u o t e
0052320 c l : : | t y p e - e x p a n d
0052340 - S T R I N G - C H A R | ) ) \r
0052360 c l : : | t y p e - e x p a n d
0052400 - S I N G L E - F L O A T | d
0052420 1 \r ( l ( 0 $ $ t y p e - f
0052440 o r m ) ) \0 \f 001 \0 \0 001 @ 002 021 001
0052460 \0 g \0 \0 H 032 020 \0 n i l \r ( 7 f
0052500 l o a t ) \r ( ) \r ( p u t ( q
0052520 u o t e c l : s i n g l e - f
0052540 l o a t ) ( q u o t e t y p
0052560 e - e x p a n d e r ) ( q u o
0052600 t e c l : : | t y p e - e x p
0052620 a n d - S I N G L E - F L O A T
0052640 | ) ) \r c l : : | t y p e - e x
0052660 p a n d - S Y M B O L | d 1 \r
0052700 ( l ( 0 $ $ t y p e - f o r
0052720 m ) ) \0 006 \0 \0 \0 001 o \0 \0 \0 020 \0
0052740 n i l \r n i l \r ( 3 ( d a t
0052760 a t y p e l i t a t o m ) ) \r
0053000 ( p u t ( q u o t e c l : s
0053020 y m b o l ) ( q u o t e t y
0053040 p e - e x p a n d e r ) ( q u
0053060 o t e c l : : | t y p e - e x
0053100 p a n d - S Y M B O L | ) ) \r c
0053120 l : : | t y p e - e x p a n d -
0053140 U N S I G N E D - B Y T E | d
0053160 1 \r ( l ( 0 $ $ t y p e - f
0053200 o r m ) ) \0 * 001 \0 \0 001 @ 002 265 023
0053220 g \0 \0 021 001 \0 H g \0 \0 360 227 o \0 \0 \0
0053240 020 001 260 361 g \0 \0 j l 002 H \n \0 \0 h 032
0053260 h 032 032 032 020 \0 ( 3 3 c l : e x p
0053300 t ) \r ( 2 6 i n t e g e r 1
0053320 3 c l : * 6 c l : * ) \r (
0053340 1 9 ( i n t e g e r 0 ) )
0053360 \r ( p u t ( q u o t e c l :
0053400 : u n s i g n e d - b y t e )
0053420 ( q u o t e t y p e - e x p a
0053440 n d e r ) ( q u o t e c l :
0053460 : | t y p e - e x p a n d - U N
0053500 S I G N E D - B Y T E | ) ) \r c
0053520 l : : | t y p e - e x p a n d -
0053540 R A T I O N A L | d 1 \r ( l
0053560 ( 0 $ $ t y p e - f o r m ) )
0053600 \0 006 \0 \0 \0 001 o \0 \0 \0 020 \0 n i l
0053620 \r n i l \r ( 3 ( o r r a t
0053640 i o i n t e g e r ) ) \r ( p u
0053660 t ( q u o t e c l : r a t i
0053700 o n a l ) ( q u o t e t y p
0053720 e - e x p a n d e r ) ( q u o
0053740 t e c l : : | t y p e - e x p
0053760 a n d - R A T I O N A L | ) ) \r
0054000 c l : : | t y p e - e x p a n d
0054020 - R E A D T A B L E | d 1 \r (
0054040 l ( 0 $ $ t y p e - f o r m
0054060 ) ) \0 006 \0 \0 \0 001 o \0 \0 \0 020 \0 n
0054100 i l \r n i l \r ( 3 ( d a t a
0054120 t y p e r e a d t a b l e p )
0054140 ) \r ( p u t ( q u o t e c l
0054160 : r e a d t a b l e ) ( q u o
0054200 t e t y p e - e x p a n d e r
0054220 ) ( q u o t e c l : : | t y
0054240 p e - e x p a n d - R E A D T A
0054260 B L E | ) ) \r c l : : | t y p e
0054300 - e x p a n d - C O M M O N |
0054320 d 1 \r ( l ( 0 $ $ t y p e -
0054340 f o r m ) ) \0 003 \0 \0 \0 001 i 020 \0
0054360 n i l \r n i l \r ( ) \r ( p u t
0054400 ( q u o t e c l : c o m m o n
0054420 ) ( q u o t e t y p e - e x
0054440 p a n d e r ) ( q u o t e c
0054460 l : : | t y p e - e x p a n d -
0054500 C O M M O N | ) ) \r c l : : | t
0054520 y p e - e x p a n d - C O M P I
0054540 L E D - F U N C T I O N | d 1
0054560 \r ( l ( 0 $ $ t y p e - f o
0054600 r m ) ) \0 006 \0 \0 \0 001 o \0 \0 \0 020
0054620 \0 n i l \r n i l \r ( 3 ( s a
0054640 t i s f i e s c l : c o m p i
0054660 l e d - f u n c t i o n - p ) )
0054700 \r ( p u t ( q u o t e c l :
0054720 c o m p i l e d - f u n c t i o
0054740 n ) ( q u o t e t y p e - e
0054760 x p a n d e r ) ( q u o t e
0055000 c l : : | t y p e - e x p a n d
0055020 - C O M P I L E D - F U N C T I
0055040 O N | ) ) \r c l : : | t y p e -
0055060 e x p a n d - C O M P L E X |
0055100 d 1 \r ( l ( 0 $ $ t y p e -
0055120 f o r m ) ) \0 ` 001 \0 \0 001 @ 002 265
0055140 023 g \0 \0 021 001 \0 H g \0 \0 360 227 o \0 \0
0055160 \0 020 001 260 361 g \0 \0 g \0 \0 g \0 \0 g \0
0055200 \0 o \0 \0 \0 g \0 \0 g \0 \0 o \0 \0 \0 g
0055220 \0 \0 H h 032 032 h 032 032 032 g \0 \0 o \0 \0
0055240 \0 g \0 \0 H h 032 032 h 032 032 032 h 032 032 032
0055260 h 032 032 032 h 032 032 h 032 032 032 020 \0 n i l
0055300 \r ( 7 0 q u o t e 6 3 t y
0055320 p e p 5 2 q u o t e 4 5
0055340 t y p e p 4 2 a n d 3 5
0055360 l a m b d a 3 2 s a t i s f
0055400 i e s 2 9 c o m p l e x 2
0055420 6 a n d 1 3 c l : * 6
0055440 c l : * ) \r ( 6 7 ( c o m p
0055460 l e x - i m a g p a r t x )
0055500 4 9 ( c o m p l e x - r e a l
0055520 p a r t x ) 3 9 ( x ) 1
0055540 9 ( d a t a t y p e c o m p
0055560 l e x ) ) \r ( p u t ( q u o t
0055600 e c o m p l e x ) ( q u o t
0055620 e t y p e - e x p a n d e r )
0055640 ( q u o t e c l : : | t y p
0055660 e - e x p a n d - C O M P L E X
0055700 | ) ) \r c l : : | t y p e - e x
0055720 p a n d - S E Q U E N C E | d
0055740 1 \r ( l ( 0 $ $ t y p e - f
0055760 o r m ) ) \0 ` 001 \0 \0 001 @ 002 265 023
0056000 g \0 \0 021 001 \0 H g \0 \0 360 227 o \0 \0 \0
0056020 020 001 260 361 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0056040 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 o \0 \0
0056060 \0 g \0 \0 g \0 \0 g \0 \0 H h 032 032 h 032
0056100 032 032 h 032 032 032 h 032 032 o \0 \0 \0 032 032 h
0056120 032 032 032 h 032 032 h 032 032 032 020 \0 n i l \r
0056140 ( 6 1 q u o t e 5 8 e l e
0056160 m e n t 5 5 t y p e p 4 8
0056200 c l : l a m b d a 4 5 c l
0056220 : f u n c t i o n 4 2 c l :
0056240 e v e r y 3 5 l a m b d a
0056260 3 2 s a t i s f i e s 2 9
0056300 s e q u e n c e 2 6 a n d
0056320 1 3 c l : * 6 c l : * ) \r
0056340 ( 8 0 ( x ) 5 2 ( e l e
0056360 m e n t ) 3 9 ( x ) 1 9
0056400 ( o r c l : v e c t o r l i
0056420 s t ) ) \r ( p u t ( q u o t e
0056440 s e q u e n c e ) ( q u o t
0056460 e t y p e - e x p a n d e r )
0056500 ( q u o t e c l : : | t y p
0056520 e - e x p a n d - S E Q U E N C
0056540 E | ) ) \r c l : : | t y p e - e
0056560 x p a n d - A R R A Y | d 1 \r
0056600 ( l ( 0 $ $ t y p e - f o r
0056620 m ) ) 002 \b \t \0 \0 001 @ 002 021 Q 005 H
0056640 265 \r g \0 \0 271 H 002 226 H 002 001 205 001 260 367
0056660 g \0 \0 Z 303 \0 \0 232 J g \0 \0 g \0 \0 \v
0056700 \0 \0 272 I g \0 \0 360 221 h 200 i 224 I \t \0
0056720 \0 271 J d g \0 \0 360 262 = 277 I g \0 \0 360
0056740 224 o \0 \0 \0 020 g \0 \0 g \0 \0 o \0 \0 \0
0056760 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0
0057000 \0 I h 032 032 h 032 032 032 h 032 032 032 h 032 032
0057020 032 h 032 032 020 o \0 \0 \0 364 262 V I d g \0
0057040 \0 360 223 g \0 \0 020 g \0 \0 360 223 g \0 \0 020
0057060 I g \0 \0 360 246 I o \0 \0 \0 364 223 g \0 \0
0057100 020 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 o \0
0057120 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 I h 032 032
0057140 h 032 032 032 h 032 032 032 h 032 032 032 h 032 032 020
0057160 J [ 265 004 i 213 001 g \0 \0 360 221 h 200 i 262
0057200 - h 262 P g \0 \0 g \0 \0 o \0 \0 \0 g \0
0057220 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 J \t \0 \0
0057240 h 032 032 032 I g \0 \0 360 225 h 204 K 002 260 303
0057260 i 264 026 g \0 \0 o \0 \0 \0 g \0 \0 I h 032
0057300 032 h 032 032 032 h 032 032 032 032 h 032 032 032 h 032
0057320 032 020 J h 275 \ 265 005 i 260 024 001 ] g \0 \0
0057340 360 244 M 303 \0 \0 221 h 200 i 262 026 h 242 261 \0
0057360 242 J k \n \0 \0 254 g \0 \0 J 001 h 032 032 020
0057400 L 002 260 323 g \0 \0 g \0 \0 o \0 \0 \0 g \0
0057420 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 J \t \0 \0
0057440 h 032 032 032 J j 021 022 \b N 265 017 O 020 022 I
0057460 g \0 \0 360 262 7 h 260 5 001 g \0 \0 360 221 h
0057500 200 i 262 035 g \0 \0 g \0 \0 g \0 \0 O 016 h
0057520 032 032 032 N 001 h 032 032 032 O 020 032 _ 020 277 N
0057540 002 O 016 k 324 _ 016 277 ^ 260 301 i 264 026 g \0
0057560 \0 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032
0057600 h 032 \n \0 \0 032 032 032 h 032 032 032 h 032 032 020
0057620 o \0 \0 \0 g \0 \0 I J h 032 032 032 \n \0 \0
0057640 020 \0 ( 5 1 7 c l : e r r o r
0057660 4 9 0 \ \ a p p e n d 2 3 8
0057700 9 c l : l e n g t h 3 4 7
0057720 c l : l e n g t h 2 6 1 c l
0057740 : l e n g t h 5 4 % g e t -
0057760 c a n o n i c a l - c m l - t y
0060000 p e 3 9 c l : m a k e - l i
0060020 s t ) \r ( 5 0 8 c l : a r r a
0060040 y 4 7 7 q u o t e 4 7 0
0060060 e q u a l 4 3 4 x 4 3 1
0060100 c l : a r r a y - d i m e n s i
0060120 o n 4 2 8 e q l 4 1 8 c
0060140 l : * 4 0 8 c l : * 3 8 1
0060160 e q l 3 7 4 a n d 3 6 7
0060200 l a m b d a 3 6 4 s a t i
0060220 s f i e s 3 5 1 c l : v e c
0060240 t o r 3 3 1 s m a l l p 3
0060260 2 5 c l : * 2 9 0 q u o t
0060300 e 2 8 3 e q u a l 2 6 9
0060320 c l : * 2 5 3 e q l 2 4 6
0060340 a n d 2 3 9 l a m b d a
0060360 2 3 6 s a t i s f i e s 2 2
0060400 3 c l : * 1 9 3 q u o t e
0060420 1 8 6 e q u a l 1 7 9 a
0060440 n d 1 7 2 l a m b d a 1 6
0060460 9 s a t i s f i e s 1 6 5
0060500 c l : b i t - v e c t o r 1 5
0060520 3 b i t 1 4 8 s t r i n g
0060540 1 4 3 c l : s t r i n g - c
0060560 h a r 1 3 9 c l : v e c t o
0060600 r 1 3 4 c l : * 1 0 2 q
0060620 u o t e 9 5 e q u a l 8 8
0060640 a n d 8 1 l a m b d a 7
0060660 8 s a t i s f i e s 6 8 c
0060700 l : * 6 0 c l : * 4 4 c
0060720 l : * 3 6 c l : * 3 3 :
0060740 i n i t i a l - e l e m e n t
0060760 2 8 s m a l l p 2 4 c l :
0061000 * 1 0 c l : * ) \r ( 5 0 5
0061020 " B a d ( f i n a l ) a r
0061040 r a y t y p e d e s i g n a
0061060 t o r : ~ S " 4 7 4 ( c l
0061100 : a r r a y - e l e m e n t - t
0061120 y p e x ) 3 8 5 ( c l : a
0061140 r r a y - r a n k x ) 3 7 8
0061160 ( c l : a r r a y p x ) \r
0061200 3 7 1 ( x ) 2 8 7 ( c l :
0061220 a r r a y - e l e m e n t - t y
0061240 p e x ) 2 5 7 ( c l : a r
0061260 r a y - r a n k x ) 2 5 0
0061300 ( c l : a r r a y p x ) 2 4
0061320 3 ( x ) 1 9 0 ( c l : a r
0061340 r a y - e l e m e n t - t y p e
0061360 x ) \r 1 8 3 ( c l : v e c
0061400 t o r p x ) 1 7 6 ( x )
0061420 1 6 0 ( u n s i g n e d - b y
0061440 t e 1 ) 1 2 6 ( c l : * )
0061460 9 9 ( c l : a r r a y - e l
0061500 e m e n t - t y p e x ) 9 2
0061520 ( c l : a r r a y p x ) \r
0061540 8 5 ( x ) 7 4 ( s a t i s
0061560 f i e s c l : a r r a y p ) )
0061600 \r ( p u t ( q u o t e c l :
0061620 a r r a y ) ( q u o t e t y
0061640 p e - e x p a n d e r ) ( q u
0061660 o t e c l : : | t y p e - e x
0061700 p a n d - A R R A Y | ) ) \r c l
0061720 : : | t y p e - e x p a n d - V
0061740 E C T O R | d 1 \r ( l ( 0
0061760 $ $ t y p e - f o r m ) ) \0 300
0062000 003 \0 \0 001 @ 002 021 ! 002 H 265 \r g \0 \0 271
0062020 H 002 226 H 002 001 205 001 260 367 g \0 \0 272 I d
0062040 g \0 \0 360 262 7 277 J g \0 \0 360 224 o \0 \0
0062060 \0 020 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 o
0062100 \0 \0 \0 g \0 \0 o \0 \0 \0 J h 032 032 032 h
0062120 032 032 032 h 032 032 032 h 032 032 020 g \0 \0 360 227
0062140 g \0 \0 J h 032 032 020 I o \0 \0 \0 \n \0 \0
0062160 227 g \0 \0 J h 032 032 020 g \0 \0 g \0 \0 o
0062200 \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0
0062220 \0 g \0 \0 I \t \0 \0 h 032 032 h 032 032 032 J
0062240 g \0 \0 360 221 h 200 i 264 020 g \0 \0 o \0 \0
0062260 \0 J h 032 032 032 h 032 032 032 032 h 032 032 032 h
0062300 032 032 020 \0 ( 1 4 7 % g e t - c a
0062320 n o n i c a l - c m l - t y p e
0062340 1 0 7 m e m b e r ) \r ( 1 6
0062360 8 e q l 1 5 8 c l : * 1
0062400 4 3 q u o t e 1 3 6 e q u
0062420 a l 1 2 9 a n d 1 2 2 l
0062440 a m b d a 1 1 9 s a t i s f
0062460 i e s 1 1 1 c l : b i t - v
0062500 e c t o r 9 4 s t r i n g
0062520 8 9 c l : s t r i n g - c h a
0062540 r 6 5 e q l 5 8 a n d
0062560 5 1 l a m b d a 4 8 s a t
0062600 i s f i e s 3 8 c l : * 3
0062620 0 c l : * 2 4 c l : * 1
0062640 0 c l : * ) \r ( 1 7 2 ( c
0062660 l : a r r a y - t o t a l - s i
0062700 z e v ) 1 4 0 ( c l : a r
0062720 r a y - e l e m e n t - t y p e
0062740 v ) 1 3 3 ( c l : v e c t
0062760 o r p v ) 1 2 6 ( v ) 1
0063000 0 4 ( b i t ( u n s i g n e
0063020 d - b y t e 1 ) ) \r 6 9 (
0063040 c l : a r r a y - t o t a l - s
0063060 i z e v ) 6 2 ( c l : v e
0063100 c t o r p v ) 5 5 ( v )
0063120 4 4 ( s a t i s f i e s c l
0063140 : v e c t o r p ) ) \r ( p u t
0063160 ( q u o t e c l : v e c t o r
0063200 ) ( q u o t e t y p e - e x
0063220 p a n d e r ) ( q u o t e c
0063240 l : : | t y p e - e x p a n d -
0063260 V E C T O R | ) ) \r c l : : | t
0063300 y p e - e x p a n d - S I M P L
0063320 E - S T R I N G | d 1 \r ( l
0063340 ( 0 $ $ t y p e - f o r m ) )
0063360 \0 B 001 \0 \0 001 @ 002 265 023 g \0 \0 021 001
0063400 \0 H g \0 \0 360 227 o \0 \0 \0 020 001 260 361 g
0063420 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0
0063440 g \0 \0 o \0 \0 \0 H h 032 032 032 h 032 032 032
0063460 h 032 032 032 h 032 032 020 \0 n i l \r ( 4 3
0063500 e q l 3 6 a n d 2 9 l
0063520 a m b d a 2 6 s a t i s f i
0063540 e s 1 3 c l : * 6 c l :
0063560 * ) \r ( 4 7 ( c l : a r r a
0063600 y - t o t a l - s i z e v )
0063620 4 0 ( c l : s i m p l e - s t
0063640 r i n g - p v ) 3 3 ( v )
0063660 1 9 ( s a t i s f i e s c
0063700 l : s i m p l e - s t r i n g -
0063720 p ) ) \r ( p u t ( q u o t e
0063740 c l : s i m p l e - s t r i n g
0063760 ) ( q u o t e t y p e - e x
0064000 p a n d e r ) ( q u o t e c
0064020 l : : | t y p e - e x p a n d -
0064040 S I M P L E - S T R I N G | ) )
0064060 \r c l : : | t y p e - e x p a n
0064100 d - S T R I N G | d 1 \r ( l
0064120 ( 0 $ $ t y p e - f o r m ) )
0064140 \0 B 001 \0 \0 001 @ 002 265 023 g \0 \0 021 001
0064160 \0 H g \0 \0 360 227 o \0 \0 \0 020 001 260 361 g
0064200 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0
0064220 g \0 \0 o \0 \0 \0 H h 032 032 032 h 032 032 032
0064240 h 032 032 032 h 032 032 020 \0 n i l \r ( 4 3
0064260 e q l 3 6 a n d 2 9 l
0064300 a m b d a 2 6 s a t i s f i
0064320 e s 1 3 c l : * 6 c l :
0064340 * ) \r ( 4 7 ( c l : a r r a
0064360 y - t o t a l - s i z e x )
0064400 4 0 ( c l : s t r i n g p x
0064420 ) 3 3 ( x ) 1 9 ( s a t
0064440 i s f i e s c l : s t r i n g
0064460 p ) ) \r ( p u t ( q u o t e
0064500 s t r i n g ) ( q u o t e t
0064520 y p e - e x p a n d e r ) ( q
0064540 u o t e c l : : | t y p e - e
0064560 x p a n d - S T R I N G | ) ) \r
0064600 c l : : | t y p e - e x p a n d
0064620 - S I M P L E - A R R A Y | d
0064640 1 \r ( l ( 0 $ $ t y p e - f
0064660 o r m ) ) 002 \a \t \0 \0 001 @ 002 021 Q
0064700 005 H 265 \r g \0 \0 271 H 002 226 H 002 001 205 001
0064720 260 367 g \0 \0 Z 303 \0 \0 232 J g \0 \0 g \0
0064740 \0 \v \0 \0 272 I g \0 \0 360 221 h 200 i 224 I
0064760 \t \0 \0 271 J d g \0 \0 360 262 = 277 I g \0
0065000 \0 360 224 o \0 \0 \0 020 g \0 \0 g \0 \0 o \0
0065020 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0
0065040 g \0 \0 I h 032 032 h 032 032 032 h 032 032 032 h
0065060 032 032 032 h 032 032 020 o \0 \0 \0 364 262 d I d
0065100 g \0 \0 360 223 g \0 \0 020 g \0 \0 360 247 I d
0065120 o \0 \0 \0 364 223 g \0 \0 020 i 360 223 g \0 \0
0065140 020 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 o \0
0065160 \0 \0 o \0 \0 \0 I g \0 \0 360 221 h 200 i 264
0065200 026 g \0 \0 o \0 \0 \0 g \0 \0 I h 032 032 h
0065220 032 032 032 h 032 032 032 032 h 032 032 032 h 032 032 020
0065240 J [ 265 004 i 213 001 g \0 \0 360 221 h 200 i 262
0065260 - h 262 P g \0 \0 g \0 \0 o \0 \0 \0 g \0
0065300 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 J \t \0 \0
0065320 h 032 032 032 I g \0 \0 360 225 h 204 K 002 260 303
0065340 i 264 026 g \0 \0 o \0 \0 \0 g \0 \0 I h 032
0065360 032 h 032 032 032 h 032 032 032 032 h 032 032 032 h 032
0065400 032 020 J h 275 \ 265 005 i 260 024 001 ] g \0 \0
0065420 360 244 M 303 \0 \0 221 h 200 i 262 < h 242 261 \0
0065440 223 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 o \0
0065460 \0 \0 g \0 \0 o \0 \0 \0 J \t \0 \0 h 032 032
0065500 032 J j 021 022 \b N 265 023 O 020 022 I g \0 \0
0065520 360 262 ; h 260 9 L 002 260 255 001 g \0 \0 360 221
0065540 h 200 i 262 035 g \0 \0 g \0 \0 g \0 \0 O 016
0065560 h 032 032 032 N 001 h 032 032 032 O 020 032 _ 020 277
0065600 N 002 O 016 k 324 _ 016 277 ^ 260 275 i 264 026 g
0065620 \0 \0 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032
0065640 032 h 032 \n \0 \0 032 032 032 h 032 032 032 h 032 032
0065660 020 o \0 \0 \0 g \0 \0 I J h 032 032 032 \n \0
0065700 \0 020 \0 ( 5 1 6 c l : e r r o r
0065720 4 8 9 \ \ a p p e n d 2 3
0065740 8 4 c l : l e n g t h 2 7 5
0065760 c l : l e n g t h 5 4 % g
0066000 e t - c a n o n i c a l - c m l
0066020 - t y p e 3 9 c l : m a k e
0066040 - l i s t ) \r ( 5 0 7 c l : s
0066060 i m p l e - a r r a y 4 7 6
0066100 q u o t e 4 6 9 e q u a l
0066120 4 3 3 x 4 3 0 c l : a r r
0066140 a y - d i m e n s i o n 4 2 7
0066160 e q l 4 1 7 c l : * 4 0
0066200 3 c l : * 3 7 6 e q l 3
0066220 6 9 a n d 3 6 2 l a m b d
0066240 a 3 5 9 s a t i s f i e s
0066260 3 4 5 s m a l l p 3 3 9 c
0066300 l : * 3 0 4 q u o t e 2 9
0066320 7 e q u a l 2 8 3 c l : *
0066340 2 6 7 e q l 2 6 0 a n d
0066360 2 5 3 l a m b d a 2 5 0
0066400 s a t i s f i e s 2 3 7 c l
0066420 : * 2 0 6 q u o t e 1 9 9
0066440 e q u a l 1 8 9 c l : *
0066460 1 7 7 a n d 1 7 0 l a m b
0066500 d a 1 6 7 s a t i s f i e s
0066520 1 6 3 c l : s i m p l e - v
0066540 e c t o r 1 5 6 c l : s i m
0066560 p l e - b i t - v e c t o r 1
0066600 4 3 b i t 1 3 9 c l : s i
0066620 m p l e - s t r i n g 1 3 4
0066640 c l : s t r i n g - c h a r 1
0066660 0 2 q u o t e 9 5 e q u a
0066700 l 8 8 a n d 8 1 l a m b
0066720 d a 7 8 s a t i s f i e s
0066740 6 8 c l : * 6 0 c l : *
0066760 4 4 c l : * 3 6 c l : *
0067000 3 3 : i n i t i a l - e l e m
0067020 e n t 2 8 s m a l l p 2 4
0067040 c l : * 1 0 c l : * ) \r (
0067060 5 0 4 " B a d ( f i n a l
0067100 ) a r r a y t y p e d e s
0067120 i g n a t o r : ~ S " 4 7 3
0067140 ( c l : a r r a y - e l e m e
0067160 n t - t y p e x ) 3 8 0 (
0067200 c l : a r r a y - r a n k x )
0067220 3 7 3 ( s i m p l e - a r r
0067240 a y - p x ) \r 3 6 6 ( x )
0067260 3 0 1 ( c l : a r r a y - e
0067300 l e m e n t - t y p e x ) 2
0067320 7 1 ( c l : a r r a y - r a n
0067340 k x ) 2 6 4 ( s i m p l e
0067360 - a r r a y - p x ) 2 5 7
0067400 ( x ) 2 0 3 ( c l : a r r a
0067420 y - e l e m e n t - t y p e x
0067440 ) \r 1 8 5 ( e q l 1 ( c
0067460 l : a r r a y - r a n k x ) )
0067500 1 8 1 ( s i m p l e - a r r
0067520 a y - p x ) 1 7 4 ( x )
0067540 1 5 1 ( u n s i g n e d - b y
0067560 t e 1 ) 1 2 6 ( c l : * )
0067600 9 9 ( c l : a r r a y - e l
0067620 e m e n t - t y p e x ) \r 9
0067640 2 ( s i m p l e - a r r a y -
0067660 p x ) 8 5 ( x ) 7 4 (
0067700 s a t i s f i e s s i m p l e
0067720 - a r r a y - p ) ) \r ( p u t
0067740 ( q u o t e c l : s i m p l e
0067760 - a r r a y ) ( q u o t e t
0070000 y p e - e x p a n d e r ) ( q
0070020 u o t e c l : : | t y p e - e
0070040 x p a n d - S I M P L E - A R R
0070060 A Y | ) ) \r ( l e t * ( ( a 3
0070100 1 5 4 ( q u o t e c l : s i
0070120 m p l e - a r r a y ) ) ( a 3
0070140 1 5 5 ( q u o t e t y p e )
0070160 ) ( a 3 1 5 6 " S i m p l e
0070200 - a r r a y t y p e e x p a
0070220 n d e r " ) ) ( \r p r o g n
0070240 ( c o n d ( ( c l : f b o u n
0070260 d p ( q u o t e s e t - d o
0070300 c u m e n t a t i o n ) ) ( s
0070320 e t - d o c u m e n t a t i o n
0070340 a 3 1 5 4 a 3 1 5 5 a 3 1
0070360 5 6 ) ) ) a 3 1 5 6 ) ) \r c l
0070400 : : | t y p e - e x p a n d - S
0070420 I M P L E - V E C T O R | d 1
0070440 \r ( l ( 0 $ $ t y p e - f o
0070460 r m ) ) \0 B 001 \0 \0 001 @ 002 265 023 g
0070500 \0 \0 021 001 \0 H g \0 \0 360 227 o \0 \0 \0 020
0070520 001 260 361 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0
0070540 o \0 \0 \0 g \0 \0 o \0 \0 \0 H h 032 032 032
0070560 h 032 032 032 h 032 032 032 h 032 032 020 \0 n i l
0070600 \r ( 4 3 e q l 3 6 a n d
0070620 2 9 l a m b d a 2 6 s a t
0070640 i s f i e s 1 3 c l : * 6
0070660 c l : * ) \r ( 4 7 ( c l :
0070700 a r r a y - t o t a l - s i z e
0070720 v ) 4 0 ( c l : s i m p l
0070740 e - v e c t o r - p v ) 3 3
0070760 ( v ) 1 9 ( s a t i s f i
0071000 e s c l : s i m p l e - v e c
0071020 t o r - p ) ) \r ( p u t ( q u
0071040 o t e c l : s i m p l e - v e
0071060 c t o r ) ( q u o t e t y p
0071100 e - e x p a n d e r ) ( q u o
0071120 t e c l : : | t y p e - e x p
0071140 a n d - S I M P L E - V E C T O
0071160 R | ) ) \r c l : : | t y p e - e
0071200 x p a n d - B I T - V E C T O R
0071220 | d 1 \r ( l ( 0 $ $ t y p
0071240 e - f o r m ) ) \0 B 001 \0 \0 001 @
0071260 002 265 023 g \0 \0 021 001 \0 H g \0 \0 360 227 o
0071300 \0 \0 \0 020 001 260 361 g \0 \0 g \0 \0 o \0 \0
0071320 \0 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 H
0071340 h 032 032 032 h 032 032 032 h 032 032 032 h 032 032 020
0071360 \0 n i l \r ( 4 3 e q l 3 6
0071400 a n d 2 9 l a m b d a 2 6
0071420 s a t i s f i e s 1 3 c l
0071440 : * 6 c l : * ) \r ( 4 7
0071460 ( c l : a r r a y - t o t a l -
0071500 s i z e v ) 4 0 ( c l : b
0071520 i t - v e c t o r - p v ) 3
0071540 3 ( v ) 1 9 ( s a t i s f
0071560 i e s c l : b i t - v e c t o
0071600 r - p ) ) \r ( p u t ( q u o t
0071620 e c l : b i t - v e c t o r )
0071640 ( q u o t e t y p e - e x p
0071660 a n d e r ) ( q u o t e c l
0071700 : : | t y p e - e x p a n d - B
0071720 I T - V E C T O R | ) ) \r c l :
0071740 : | t y p e - e x p a n d - S I
0071760 M P L E - B I T - V E C T O R |
0072000 d 1 \r ( l ( 0 $ $ t y p e
0072020 - f o r m ) ) \0 B 001 \0 \0 001 @ 002
0072040 265 023 g \0 \0 021 001 \0 H g \0 \0 360 227 o \0
0072060 \0 \0 020 001 260 361 g \0 \0 g \0 \0 o \0 \0 \0
0072100 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 H h
0072120 032 032 032 h 032 032 032 h 032 032 032 h 032 032 020 \0
0072140 n i l \r ( 4 3 e q l 3 6 a
0072160 n d 2 9 l a m b d a 2 6
0072200 s a t i s f i e s 1 3 c l :
0072220 * 6 c l : * ) \r ( 4 7 (
0072240 c l : a r r a y - t o t a l - s
0072260 i z e v ) 4 0 ( c l : s i
0072300 m p l e - b i t - v e c t o r -
0072320 p v ) 3 3 ( v ) 1 9 (
0072340 s a t i s f i e s c l : s i m
0072360 p l e - b i t - v e c t o r - p
0072400 ) ) \r ( p u t ( q u o t e c
0072420 l : s i m p l e - b i t - v e c
0072440 t o r ) ( q u o t e t y p e
0072460 - e x p a n d e r ) ( q u o t
0072500 e c l : : | t y p e - e x p a
0072520 n d - S I M P L E - B I T - V E
0072540 C T O R | ) ) \r ( p u t p r o p
0072560 s c h a r a c t e r c m l t
0072600 y p e c l : c h a r a c t e r
0072620 ) \r ( p u t p r o p s f i x p
0072640 c m l t y p e b i g n u m )
0072660 \r ( p u t p r o p s f l o a t
0072700 p c m l t y p e c l : s i n
0072720 g l e - f l o a t ) \r ( p u t p
0072740 r o p s g e n e r a l - a r r
0072760 a y c m l t y p e c l : a r
0073000 r a y ) \r ( p u t p r o p s l
0073020 i s t p c m l t y p e c o n
0073040 s ) \r ( p u t p r o p s l i t
0073060 a t o m c m l t y p e c l :
0073100 s y m b o l ) \r ( p u t p r o p
0073120 s o n e d - a r r a y c m l
0073140 t y p e c l : a r r a y ) \r (
0073160 p u t p r o p s s m a l l p
0073200 c m l t y p e c l : f i x n u
0073220 m ) \r ( p u t p r o p s s t r
0073240 i n g p c m l t y p e c l :
0073260 s i m p l e - s t r i n g ) \r (
0073300 p u t p r o p s h a r r a y p
0073320 c m l t y p e c l : h a s h
0073340 - t a b l e ) \r ( p u t p r o p
0073360 s t w o d - a r r a y c m l
0073400 t y p e c l : a r r a y ) \r (
0073420 p u t p r o p s c l : s y m b
0073440 o l c m l s u b t y p e d e s
0073460 c r i m i n a t o r s y m b o
0073500 l - t y p e ) \r ( p u t p r o p
0073520 s c l : a r r a y c m l s u
0073540 b t y p e d e s c r i m i n a t
0073560 o r a r r a y - t y p e ) \r (
0073600 p u t p r o p s c l : d e f t
0073620 y p e p r o p t y p e i g n
0073640 o r e ) \r ( p u t p r o p s c
0073660 m l t y p e s f i l e t y p e
0073700 c l : c o m p i l e - f i l e
0073720 ) \r ( p u t p r o p s c m l t
0073740 y p e s c o p y r i g h t (
0073760 " X e r o x C o r p o r a t i
0074000 o n " 1 9 8 5 1 9 8 6 ) ) \r
0074020 n i l \r
0074024