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