$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLTYPES.DCOM!2
0000000 ( F I L E C R E A T E D " 1 0
0000020 - S e p - 8 6 1 7 : 5 9 : 3 6
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > C M L T Y P
0000120 E S . ; 6 1 ) \r " 2 9 - A u g
0000140 - 8 6 2 2 : 2 1 : 5 6 " " C
0000160 O M P I L E - F I L E d " i n
0000200 " X e r o x L i s p 2 9 -
0000220 A u g - 8 6 . . . " d a t e
0000240 d " 2 9 - A u g - 8 6 2 2 :
0000260 5 5 : 0 3 " ) \r ( F I L E C R E
0000300 A T E D " 1 0 - S e p - 8 6
0000320 1 7 : 5 8 : 1 1 " { E R I S }
0000340 < L I S P C O R E > L I B R A R
0000360 Y > C M L T Y P E S . ; 6 1 3
0000400 4 4 1 0 c h a n g e s t o :
0000420 ( T Y P E S A R R A Y \r V
0000440 E C T O R S I M P L E - A R R
0000460 A Y ) p r e v i o u s d a t
0000500 e : " 8 - S e p - 8 6 1 5
0000520 : 1 7 : 3 1 " { E R I S } < L
0000540 I S P C O R E > L I B R A R Y >
0000560 C M L T Y P E S . ; 6 0 ) \r ( R
0000600 P A Q Q C M L T Y P E S C O M
0000620 S ( ( * * P r e d i c a t
0000640 e s ) ( F U N C T I O N S C
0000660 L : E Q U A L E Q U A L P )
0000700 ( * E Q L i s n o w i n
0000720 t h e i n i t ) ( * *
0000740 \r T y p e p a n d f r i e n
0000760 d s ) ( F U N C T I O N S C
0001000 O E R C E T Y P E C A S E T
0001020 Y P E P T Y P E - O F ) ( *
0001040 * O p t i m i z e r s ) (
0001060 O P T I M I Z E R S C O E R C
0001100 E F A L S E \r T R U E T Y
0001120 P E P ) ( * O p t i m i z e
0001140 b y c o n s t a n t f o l
0001160 d a n d c o e r c e t o
0001200 E Q w h e r e p o s s i b l
0001220 e ) ( P R O P B Y T E M A C
0001240 R O C L : E Q U A L \r E Q U
0001260 A L P ) ( * * S u p p o r
0001300 t f u n c t i o n s ) ( F N
0001320 S A R R A Y - T Y P E F A L
0001340 S E S Y M B O L - T Y P E T
0001360 R U E \ R A N G E . T Y P E
0001400 \ T Y P E P . E X P A N D . M A
0001420 C R O \r \ T Y P E P . P R E D
0001440 ) ( F U N C T I O N S D E F
0001460 T Y P E ) ( D E F I N E - T Y
0001500 P E S T Y P E S ) ( * *
0001520 F o r T Y P E P ) ( T Y P E
0001540 S C L : A T O M B I G N U M
0001560 B I T \r C L : C H A R A C T
0001600 E R C O N S D O U B L E - F
0001620 L O A T F I X N U M F L O A
0001640 T F U N C T I O N H A S H -
0001660 T A B L E I N T E G E R K E
0001700 Y W O R D L I S T L O N G -
0001720 F L O A T \r C L : M E M B E R
0001740 C L : M O D N U L L N U M
0001760 B E R P A C K A G E S H O R
0002000 T - F L O A T S I G N E D - B
0002020 Y T E S T A N D A R D - C H A
0002040 R S T R I N G - C H A R S I
0002060 N G L E - F L O A T \r S Y M B
0002100 O L U N S I G N E D - B Y T E
0002120 R A T I O N A L R E A D T A
0002140 B L E C O M M O N C O M P I
0002160 L E D - F U N C T I O N C O M
0002200 P L E X S E Q U E N C E ) (
0002220 * * A r r a y T y p e s )
0002240 ( \r T Y P E S A R R A Y V
0002260 E C T O R S I M P L E - S T R
0002300 I N G S T R I N G S I M P L
0002320 E - A R R A Y S I M P L E - V
0002340 E C T O R B I T - V E C T O R
0002360 S I M P L E - B I T - V E C T
0002400 O R ) ( * * \r f o r T Y
0002420 P E - O F - I n t e r l i s
0002440 p t y p e s t h a t h a v
0002460 e d i f f e r e n t c o m m
0002500 o n L i s p n a m e s ) (
0002520 P R O P C M L T Y P E C H A
0002540 R A C T E R F I X P \r F L O
0002560 A T P G E N E R A L - A R R A
0002600 Y L I S T P L I T A T O M
0002620 O N E D - A R R A Y S M A L L
0002640 P S T R I N G P H A R R A Y
0002660 P T W O D - A R R A Y ) ( P
0002700 R O P \r C M L S U B T Y P E D
0002720 E S C R I M I N A T O R S Y M
0002740 B O L A R R A Y ) ( * *
0002760 W h a t ' s t h i s f o r ?
0003000 ) ( C O M S ( P R O P P R
0003020 O P T Y P E D E F T Y P E ) )
0003040 ( * * \r C o m p i l e r
0003060 o p t i o n s ) ( P R O P F
0003100 I L E T Y P E C M L T Y P E S
0003120 ) ( D E C L A R E : D O N T
0003140 E V A L @ L O A D D O E V A L
0003160 @ C O M P I L E D O N T C O P
0003200 Y ( L O C A L V A R S \r .
0003220 T ) ) ( D E C L A R E : D O
0003240 N T E V A L @ L O A D D O E V
0003260 A L @ C O M P I L E D O N T C
0003300 O P Y C O M P I L E R V A R S
0003320 ( A D D V A R S ( N L A M A
0003340 ) ( N L A M L ) ( L A M A )
0003360 ) ) ) \r ) \r C L : E Q U A L D
0003400 1 \r ( L ( 1 Y 0 X ) )
0003420 \0 273 004 \0 \0 002 @ A : 265 003 202 261 \0 263 @
0003440 021 1 003 H d 004 l 005 360 262 277 A 003 264 003
0003460 202 261 \0 236 @ 001 A 001 \n \0 \0 264 003 202 261 \0
0003500 221 @ 002 A 002 \n \0 \0 020 \t \0 \0 233 A \t \0
0003520 \0 264 ~ @ A \n \0 \0 020 H d 005 016 256 005 020
0003540 262 \ H d 311 006 \t \0 \0 k : 262 R 277 H d
0003560 312 002 j 360 263 H 277 A d 005 016 221 277 215 005
0003600 020 264 N A 311 006 \t \0 \0 k : 264 D A 312 002
0003620 j 360 h 360 264 : @ \t \0 \0 Y A \t \0 \0
0003640 : 264 . I j 273 272 J K 363 241 i 020 @ K 266
0003660 A K 266 360 264 033 K k 324 273 260 355 H 004 ` \0
0003700 \0 360 264 \r A \t \0 \0 264 \a @ A \n \0 \0 020
0003720 \0 ( 2 7 0 Q % % P A T H N A M
0003740 E - E Q U A L 2 6 1 Q P A T
0003760 H N A M E P 2 1 1 Q C L : L
0004000 E N G T H 2 0 4 Q C L : L E
0004020 N G T H 1 6 2 Q L E N G T H
0004040 1 2 2 Q L E N G T H 1 0 1
0004060 Q S T R I N G = 7 2 Q C L
0004100 : S T R I N G P 6 5 Q C L :
0004120 S T R I N G P 6 1 Q C L : E
0004140 Q U A L 4 4 Q C L : E Q U A
0004160 L ) \r ( 2 5 2 Q 004 003 P A T H N
0004200 A M E T Y P E # ) \r ( ) \r E Q U
0004220 A L P D 1 \r ( L ( 1 Y 0
0004240 X ) ) 001 ! \n \0 \0 002 @ A : 265 003
0004260 202 261 \0 231 @ 021 221 \t H d 3 020 237 277 A 3
0004300 020 264 003 202 261 \0 206 @ A \n \0 \0 020 004 l 005
0004320 360 262 027 A 003 264 u @ 001 A 001 \n \0 \0 264 l
0004340 @ 002 A 002 \n \0 \0 020 H d 004 l \t 360 262 8
0004360 277 A 004 l \t 360 264 T @ 006 \0 \0 323 271 l a
0004400 I 363 251 I d l z 363 244 l 325 200 I A 006
0004420 \0 \0 323 272 l a J 363 251 J d l z 363 244 l
0004440 325 200 J 360 020 \t \0 \0 233 A \t \0 \0 264 034
0004460 @ A \n \0 \0 020 H d 004 ` \0 \0 360 234 277 A
0004500 \t \0 \0 264 \a @ A \n \0 \0 020 \t \0 \0 262 /
0004520 A \t \0 \0 264 366 @ \t \0 \0 [ A \t \0 \0 :
0004540 264 352 K j 275 274 L M 363 241 i 020 @ M 266 A
0004560 M 266 \n \0 \0 264 325 M k 324 275 260 353 H \t \0
0004600 \0 264 311 A \t \0 \0 264 303 @ \t \0 \0 A \t \0
0004620 \0 \n \0 \0 264 266 @ \t \0 \0 A \t \0 \0 _ 016
0004640 277 276 @ \t \0 \0 j _ 022 277 _ 020 277 O 020 O
0004660 022 363 262 270 N O 022 266 O 016 O 022 266 \n \0 \0
0004700 264 212 O 022 k 324 _ 022 277 260 344 \0 ( 4 2 4
0004720 Q E Q U A L P 3 7 2 Q A R
0004740 R A Y - T O T A L - S I Z E 3
0004760 6 2 Q \ F L A T T E N - A R R
0005000 A Y 3 5 6 Q \ F L A T T E N
0005020 - A R R A Y 3 5 0 Q C L : E
0005040 Q U A L 3 4 5 Q A R R A Y -
0005060 D I M E N S I O N S 3 4 1 Q
0005100 A R R A Y - D I M E N S I O N S
0005120 3 3 3 Q C L : A R R A Y P
0005140 3 2 5 Q C L : A R R A Y P 3
0005160 1 1 Q E Q U A L P 2 6 3 Q
0005200 C L : L E N G T H 2 5 6 Q C
0005220 L : L E N G T H 2 5 0 Q V E
0005240 C T O R P 2 4 2 Q V E C T O
0005260 R P 2 3 6 Q % % P A T H N A
0005300 M E - E Q U A L 2 2 7 Q P A
0005320 T H N A M E P 2 1 1 Q S T R
0005340 I N G - E Q U A L 2 0 2 Q C
0005360 L : S T R I N G P 1 7 5 Q C
0005400 L : S T R I N G P 7 3 Q E Q
0005420 U A L P 6 2 Q E Q U A L P
0005440 4 0 Q % % = ) \r ( 2 2 0 Q 004
0005460 003 P A T H N A M E T Y P E # 1
0005500 4 6 Q C H A R A C T E R 1 2
0005520 0 Q C H A R A C T E R ) \r ( )
0005540 \r C O E R C E D 1 \r ( L ( 1
0005560 R E S U L T - T Y P E 0 O
0005600 B J E C T ) ) \0 c \0 \0 \0 002 A d
0005620 i 360 221 @ 020 g \0 \0 360 224 @ \t \0 \0 020 A
0005640 g \0 \0 360 263 026 A g \0 \0 360 255 A g \0 \0
0005660 360 247 A d g \0 \0 360 225 277 @ 006 \0 \0 020 g
0005700 \0 \0 360 234 @ d d \t \0 \0 263 312 277 \t \0 \0
0005720 020 @ \t \0 \0 247 @ 225 @ 004 l 005 360 230 A g
0005740 \0 \0 @ \v \0 \0 020 o \0 \0 \0 A \n \0 \0 020
0005760 \0 ( 1 4 0 Q C L : E R R O R
0006000 1 2 7 Q C L : M A P 1 0 6 Q
0006020 V E C T O R P 1 0 1 Q C O
0006040 M P L E X 7 3 Q C O M P L E
0006060 X P 1 7 Q C L : C H A R A C
0006100 T E R ) \r ( 1 2 3 Q I D E N T
0006120 I T Y 6 3 Q C O M P L E X
0006140 5 7 Q F L O A T P 5 0 Q L
0006160 O N G - F L O A T 4 1 Q D O
0006200 U B L E - F L O A T 3 3 Q S
0006220 I N G L E - F L O A T 2 4 Q
0006240 F L O A T 1 1 Q C L : C H A
0006260 R A C T E R ) \r ( 1 3 4 Q "
0006300 C a n n o t c o e r c e t o
0006320 t y p e : ~ S " ) \r e x p a
0006340 n d - T Y P E C A S E A 0 0 0 1
0006360 D 1 \r ( L ( 0 F O R M ) )
0006400 \0 & 002 \0 \0 001 @ d 001 g \0 \0 360 222 277
0006420 i 200 001 @ 002 021 002 001 g \0 \0 g \0 \0 g \0
0006440 \0 H h 032 032 h 032 032 032 I 032 020 \0 N I L
0006460 \r ( 3 1 Q Q U O T E 2 6 Q
0006500 $ $ T Y P E - V A L U E 2 3 Q
0006520 T Y P E P 5 O T H E R W I
0006540 S E ) \r ( ) \r e x p a n d - T Y
0006560 P E C A S E D 1 \r ( L ( 1
0006600 $ $ M A C R O - E N V I R O N M
0006620 E N T 0 $ $ M A C R O - F O
0006640 R M ) ) \0 ( 003 \0 \0 002 @ 002 021 ! 002
0006660 H 001 271 H 002 272 g \0 \0 g \0 \0 I h 032 032
0006700 h 032 g \0 \0 g \0 \0 J \n \0 \0 032 h 032 032
0006720 032 020 \0 ( 4 0 Q C L : M A P C A
0006740 R ) \r ( 3 4 Q e x p a n d - T
0006760 Y P E C A S E A 0 0 0 1 3 1 Q
0007000 C O N D 2 0 Q $ $ T Y P E
0007020 - V A L U E 1 5 Q L E T ) \r
0007040 ( ) \r ( S E T F - M A C R O - F
0007060 U N C T I O N ( Q U O T E T
0007100 Y P E C A S E ) ( Q U O T E
0007120 e x p a n d - T Y P E C A S E )
0007140 ) \r T Y P E P D 1 \r ( L ( 1
0007160 T Y P E 0 O B J E C T ) )
0007200 \0 \f \0 \0 \0 002 @ k A \t \0 \0 016 264 003
0007220 i 020 \0 ( 5 \ T Y P E P . P R E
0007240 D ) \r N I L \r ( ) \r T Y P E - O
0007260 F D 1 \r ( L ( 0 X ) ) \0
0007300 $ 002 \0 \0 001 @ \t \0 \0 021 021 001 H g \0 \0
0007320 \n \0 \0 265 003 H X d g \0 \0 \n \0 \0 Y 225
0007340 @ k I 016 265 003 H 020 \0 ( 3 0 Q G E
0007360 T P R O P 1 5 Q G E T P R O
0007400 P 3 T Y P E N A M E ) \r ( 2
0007420 5 Q C M L S U B T Y P E D E S
0007440 C R I M I N A T O R 1 2 Q C
0007460 M L T Y P E ) \r ( ) \r o p t i m
0007500 i z e - C O E R C E D 1 \r ( L
0007520 ( 2 $ $ C T X 1 $ $ E N
0007540 V 0 $ $ W H O L E ) ) \0 i
0007560 003 \0 \0 003 @ 002 021 ! 002 H 001 271 H 002 001 \t
0007600 \0 \0 001 Z d i 360 221 I 020 g \0 \0 360 227 g
0007620 \0 \0 I h 032 032 020 J d g \0 \0 360 262 033 277
0007640 g \0 \0 g \0 \0 I h 032 032 I g \0 \0 I h
0007660 032 032 h 032 032 032 032 020 g \0 \0 360 263 024 J g
0007700 \0 \0 360 253 J g \0 \0 360 245 J g \0 \0 360 227
0007720 g \0 \0 I h 032 032 020 g \0 \0 020 \0 ( 1 5
0007740 Q C O N S T A N T E X P R E S
0007760 S I O N P ) \r ( 1 4 6 Q C O M
0010000 P I L E R : P A S S 1 3 6 Q
0010020 F L O A T 1 3 1 Q L O N G -
0010040 F L O A T 1 2 3 Q D O U B L
0010060 E - F L O A T 1 1 5 Q S I N
0010100 G L E - F L O A T 1 0 6 Q F
0010120 L O A T 7 1 Q C O M P L E X
0010140 6 1 Q C O M P L E X P 5 6
0010160 Q C L : I F 4 7 Q C O M P
0010200 L E X 3 5 Q C L : C H A R A
0010220 C T E R 3 0 Q C L : C H A R
0010240 A C T E R ) \r ( ) \r ( L E T *
0010260 ( ( A 5 7 1 7 ( Q U O T E C
0010300 O E R C E ) ) ( A 5 7 1 8 (
0010320 Q U O T E C O M P I L E R : O
0010340 P T I M I Z E R - L I S T ) )
0010360 ( A 5 7 2 0 ( A D J O I N (
0010400 Q U O T E \r o p t i m i z e -
0010420 C O E R C E ) ( G E T A 5 7
0010440 1 7 A 5 7 1 8 ) ) ) ) ( P U
0010460 T P R O P A 5 7 1 7 A 5 7 1
0010500 8 A 5 7 2 0 ) ) \r o p t i m i
0010520 z e - F A L S E D 1 \r ( L (
0010540 2 $ $ C T X 1 $ $ E N V
0010560 0 $ $ W H O L E ) ) \0 016 001 \0
0010600 \0 003 @ 002 021 001 \0 g \0 \0 h H 032 032 020 \0
0010620 N I L \r ( 7 P R O G 1 ) \r ( )
0010640 \r ( L E T * ( ( A 5 7 2 2 (
0010660 Q U O T E F A L S E ) ) ( A
0010700 5 7 2 3 ( Q U O T E C O M P
0010720 I L E R : O P T I M I Z E R - L
0010740 I S T ) ) ( A 5 7 2 5 ( A D
0010760 J O I N ( Q U O T E \r o p t
0011000 i m i z e - F A L S E ) ( G E
0011020 T A 5 7 2 2 A 5 7 2 3 ) ) )
0011040 ) ( P U T P R O P A 5 7 2 2
0011060 A 5 7 2 3 A 5 7 2 5 ) ) \r o
0011100 p t i m i z e - T R U E D 1 \r
0011120 ( L ( 2 $ $ C T X 1 $ $
0011140 E N V 0 $ $ W H O L E ) )
0011160 \0 016 001 \0 \0 003 @ 002 021 001 \0 g \0 \0 i H
0011200 032 032 020 \0 N I L \r ( 7 P R O G 1
0011220 ) \r ( ) \r ( L E T * ( ( A 5 7
0011240 2 7 ( Q U O T E T R U E ) )
0011260 ( A 5 7 2 8 ( Q U O T E C
0011300 O M P I L E R : O P T I M I Z E
0011320 R - L I S T ) ) ( A 5 7 3 0
0011340 ( A D J O I N ( Q U O T E \r
0011360 o p t i m i z e - T R U E ) (
0011400 G E T A 5 7 2 7 A 5 7 2 8 )
0011420 ) ) ) ( P U T P R O P A 5 7
0011440 2 7 A 5 7 2 8 A 5 7 3 0 ) )
0011460 \r o p t i m i z e - T Y P E P
0011500 D 1 \r ( L ( 2 $ $ C T X 1
0011520 $ $ E N V 0 $ $ W H O L E
0011540 ) ) \0 ) 003 \0 \0 003 @ 002 021 ! 002 H 001
0011560 271 H 002 001 \t \0 \0 Z 262 025 g \0 \0 J 001 \t
0011600 \0 \0 I h 032 032 o \0 \0 \0 032 032 020 g \0 \0
0011620 020 \0 ( 3 0 Q \ T Y P E P . P R
0011640 E D 1 5 Q C O N S T A N T E
0011660 X P R E S S I O N P ) \r ( 4 6 Q
0011700 C O M P I L E R : P A S S 2
0011720 3 Q A N D ) \r ( 4 0 Q ( T
0011740 ) ) \r ( L E T * ( ( A 5 7 3 2
0011760 ( Q U O T E T Y P E P ) )
0012000 ( A 5 7 3 3 ( Q U O T E C O
0012020 M P I L E R : O P T I M I Z E R
0012040 - L I S T ) ) ( A 5 7 3 5 (
0012060 A D J O I N ( Q U O T E \r o
0012100 p t i m i z e - T Y P E P ) (
0012120 G E T A 5 7 3 2 A 5 7 3 3 )
0012140 ) ) ) ( P U T P R O P A 5 7
0012160 3 2 A 5 7 3 3 A 5 7 3 5 ) )
0012200 \r ( P U T P R O P S C L : E Q
0012220 U A L B Y T E M A C R O C O
0012240 M P . E Q ) \r ( P U T P R O P S
0012260 E Q U A L P B Y T E M A C R
0012300 O C O M P . E Q ) \r A R R A Y
0012320 - T Y P E D 1 \r ( L ( 0 A
0012340 R R A Y ) ) \0 311 004 \0 \0 001 @ \t \0
0012360 \0 021 1 003 @ \t \0 \0 262 g H k : 262 R @
0012400 \t \0 \0 271 @ d \t \0 \0 230 277 g \0 \0 I h
0012420 032 032 020 005 016 262 036 @ d 312 002 \a l 017 345 j
0012440 360 262 023 d 312 002 j 360 251 277 g \0 \0 I h
0012460 032 032 020 @ \t \0 \0 Z i 360 227 g \0 \0 I h
0012500 032 032 020 g \0 \0 J I h 032 h 032 032 032 020 g
0012520 \0 \0 @ \t \0 \0 @ \t \0 \0 h 032 032 032 020 H
0012540 k : 262 C @ \t \0 \0 273 @ d \t \0 \0 230 277
0012560 g \0 \0 K h 032 032 020 005 016 255 @ 005 020 262 032
0012600 @ 311 006 \t \0 \0 k : 236 @ 312 002 j 360 247
0012620 g \0 \0 K h 032 032 020 g \0 \0 @ \t \0 \0 K
0012640 h 032 032 032 020 g \0 \0 @ \t \0 \0 @ \t \0 \0
0012660 h 032 032 032 020 \0 ( 3 0 2 Q A R R A
0012700 Y - D I M E N S I O N S 2 7 6
0012720 Q A R R A Y - E L E M E N T -
0012740 T Y P E 2 6 1 Q A R R A Y -
0012760 E L E M E N T - T Y P E 2 3 0
0013000 Q L E N G T H 2 0 0 Q C L
0013020 : S T R I N G P 1 7 2 Q A R
0013040 R A Y - T O T A L - S I Z E 1
0013060 5 4 Q A R R A Y - D I M E N S
0013100 I O N S 1 5 0 Q A R R A Y -
0013120 E L E M E N T - T Y P E 1 1 1
0013140 Q A R R A Y - E L E M E N T -
0013160 T Y P E 3 3 Q S I M P L E -
0013200 S T R I N G - P 2 5 Q A R R
0013220 A Y - T O T A L - S I Z E 1 2
0013240 Q S I M P L E - A R R A Y - P
0013260 3 A R R A Y - R A N K ) \r (
0013300 2 7 2 Q A R R A Y 2 5 5 Q
0013320 V E C T O R 2 4 5 Q B I T -
0013340 V E C T O R 2 0 5 Q S T R I
0013360 N G 1 4 4 Q S I M P L E - A
0013400 R R A Y 1 3 0 Q S I M P L E
0013420 - A R R A Y 1 2 0 Q S I M P
0013440 L E - V E C T O R 1 0 0 Q S
0013460 I M P L E - B I T - V E C T O R
0013500 4 0 Q S I M P L E - S T R I
0013520 N G ) \r ( ) \r F A L S E D 1 \r
0013540 N I L \0 003 \0 \0 \0 \0 h 020 \0 N I L
0013560 \r N I L \r ( ) \r S Y M B O L - T
0013600 Y P E D 1 \r ( L ( 0 X ) )
0013620 \0 016 \0 \0 \0 001 @ \t \0 \0 223 g \0 \0 020
0013640 g \0 \0 020 \0 ( 3 K E Y W O R D P
0013660 ) \r ( 1 3 Q S Y M B O L 7
0013700 K E Y W O R D ) \r ( ) \r T R U E
0013720 D 1 \r N I L \0 003 \0 \0 \0 \0 i 020
0013740 \0 N I L \r N I L \r ( ) \r \ R A N
0013760 G E . T Y P E D 1 \r ( L ( 3
0014000 R A N G E L I S T 2 H I G
0014020 H 1 L O W 0 B A S E T Y
0014040 P E ) ) 001 5 006 \0 \0 004 A 245 g \0 \0
0014060 b 002 277 B 245 g \0 \0 b 004 277 A d g \0 \0
0014100 360 231 277 B g \0 \0 360 221 @ 020 A g \0 \0 360
0014120 246 B g \0 \0 360 262 h g \0 \0 @ g \0 \0 g
0014140 \0 \0 o \0 \0 \0 g \0 \0 A g \0 \0 360 263 034
0014160 A 003 265 017 g \0 \0 A o \0 \0 \0 032 032 h 032
0014200 211 001 b 002 277 g \0 \0 260 357 h B g \0 \0 360
0014220 263 035 B 003 265 020 g \0 \0 g \0 \0 B h 032 032
0014240 032 h 032 211 001 b 004 277 g \0 \0 260 356 h \n \0
0014260 \0 032 h 032 032 032 h 032 032 h 032 032 032 020 C 021
0014300 021 001 H 265 R g \0 \0 @ g \0 \0 g \0 \0 o
0014320 \0 \0 \0 g \0 \0 A 003 265 4 g \0 \0 A o \0
0014340 \0 \0 032 032 B 003 265 035 g \0 \0 g \0 \0 B h
0014360 032 032 032 h 032 032 032 h 032 032 032 h 032 032 h 032
0014400 032 032 020 001 b 004 277 g \0 \0 260 341 001 b 002 277
0014420 g \0 \0 260 312 001 271 A I 001 364 232 B I 002 001
0014440 364 224 I 002 002 001 020 I 001 A d 003 222 001 k 324
0014460 B d 003 222 001 k 325 I 002 001 021 004 005 J K 363
0014500 h 360 264 016 K L 363 h 360 264 \a L M 363 h 360
0014520 022 226 I 002 002 001 b \0 277 H 002 X 261 377 g \0
0014540 ( 2 0 5 Q \ A P P E N D 2 ) \r
0014560 ( 3 4 7 Q < 3 3 6 Q < 3
0014600 0 2 Q X 2 7 7 Q < = 2 6
0014620 1 Q < = 2 5 2 Q A N D 2
0014640 4 3 Q L A M B D A 2 4 0 Q
0014660 S A T I S F I E S 2 3 4 Q A
0014700 N D 1 7 7 Q < 1 6 0 Q X
0014720 1 5 5 Q < = 1 4 3 Q C L
0014740 : * 1 3 4 Q < 1 1 3 Q <
0014760 = 1 0 1 Q C L : * 7 5 Q
0015000 A N D 6 6 Q L A M B D A 6
0015020 3 Q S A T I S F I E S 5 7 Q
0015040 A N D 5 1 Q C L : * 4 3
0015060 Q C L : * 3 3 Q C L : *
0015100 2 4 Q C L : * 1 4 Q C L :
0015120 * 4 C L : * ) \r ( 2 6 6 Q
0015140 ( X ) 2 4 7 Q ( X ) 1 2
0015160 0 Q ( X ) 7 2 Q ( X ) ) \r
0015200 \ T Y P E P . E X P A N D . M A
0015220 C R O D 1 \r ( L ( 1 T Y P
0015240 E 0 P R O P ) ) \0 \v \0 \0 \0
0015260 002 @ 002 A g \0 \0 \v \0 \0 020 \0 ( 1 0 Q
0015300 E X P A N D - D E F M A C R O
0015320 ) \r ( 5 C L : * ) \r ( ) \r \ T
0015340 Y P E P . P R E D A 0 0 0 1 D
0015360 1 \r ( L ( 0 P R E D ) ) \0
0015400 \f \0 \0 \0 001 @ \t \0 \0 g \0 \0 h 032 032 020
0015420 \0 ( 3 \ T Y P E P . P R E D )
0015440 \r ( 6 X ) \r ( ) \r \ T Y P E P
0015460 . P R E D D 1 \r ( L ( 0 T
0015500 Y P E ) F 2 C L I S P A R
0015520 R A Y ) 001 004 002 001 \0 001 @ d 003 242 261
0015540 \0 230 R \n \0 \0 265 003 202 261 \0 215 @ d 001 021
0015560 021 001 H d g \0 \0 360 225 277 @ 002 001 260 t g
0015600 \0 \0 360 262 " g \0 \0 o \0 \0 \0 g \0 \0 g
0015620 \0 \0 g \0 \0 @ 002 001 h 032 032 h 032 032 032 h
0015640 032 032 032 260 N H g \0 \0 360 254 H g \0 \0 360
0015660 246 H g \0 \0 360 262 032 g \0 \0 o \0 \0 \0 @
0015700 001 g \0 \0 @ 002 \n \0 \0 032 h 032 032 032 260 #
0015720 @ 001 g \0 \0 \n \0 \0 Y 001 g \0 \0 360 230 I
0015740 @ \n \0 \0 \t \0 \0 210 o \0 \0 \0 @ h \v \0
0015760 \0 022 R \v \0 \0 020 i 360 223 g \0 \0 020 @ d
0016000 243 g \0 \0 020 g \0 \0 \n \0 \0 021 001 \0 H 001
0016020 g \0 \0 360 234 H @ h 032 \n \0 \0 b \0 023 261
0016040 377 < o \0 \0 \0 i \n \0 \0 277 @ i \n \0 \0
0016060 277 o \0 \0 \0 i \n \0 \0 277 i \t \0 \0 @ g
0016100 \0 \0 g \0 \0 h g \0 \0 g \0 \0 @ h 032 032
0016120 h 032 032 h 032 032 032 \v \0 \0 023 261 377 \0 \0 (
0016140 3 7 6 Q / P U T P R O P 3 4
0016160 2 Q T E R P R I 3 3 5 Q P
0016200 R I N 1 3 2 4 Q P R I N 1
0016220 3 1 6 Q P R I N 1 3 0 0 Q
0016240 \ T Y P E P . E X P A N D . M A
0016260 C R O 2 5 7 Q G E T P R O P
0016300 2 3 2 Q P U T H A S H 2 2
0016320 5 Q C L : E R R O R 2 1 3 Q
0016340 \ T Y P E P . P R E D 2 1 0
0016360 Q \ T Y P E P . E X P A N D .
0016400 M A C R O 1 7 4 Q G E T P R
0016420 O P 1 5 5 Q C L : M A P C A
0016440 R 1 2 Q G E T H A S H ) \r (
0016460 3 6 0 Q D A T A T Y P E 3 5
0016500 5 Q Q U O T E 3 5 1 Q M A
0016520 C R O 3 4 6 Q D E F T Y P E
0016540 2 6 7 Q M A C R O 2 5 4 Q
0016560 D E F T Y P E 2 5 0 Q F A
0016600 L S E 2 4 1 Q T R U E 2 0
0016620 1 Q M A C R O 1 7 1 Q D E
0016640 F T Y P E 1 5 0 Q \ T Y P E
0016660 P . P R E D A 0 0 0 1 1 3 7 Q
0016700 O P E N L A M B D A 1 3 1 Q
0016720 N O T 1 2 3 Q O R 1 1 5
0016740 Q A N D 7 1 Q Q U O T E
0016760 6 6 Q X 6 3 Q T Y P E N A
0017000 M E P 5 4 Q O P E N L A M B
0017020 D A 4 6 Q D A T A T Y P E
0017040 3 3 Q S A T I S F I E S ) \r (
0017060 3 3 1 Q " a s s u m e d
0017100 t o b e d a t a t y p e "
0017120 3 1 2 Q " W a r n i n g : t
0017140 y p e " 2 2 0 Q " u n d e
0017160 f i n e d t y p e u s e d
0017200 i n T Y P E P : ~ S " 1 4
0017220 3 Q ( X ) \r 6 0 Q ( X ) )
0017240 \r e x p a n d - D E F T Y P E
0017260 D 1 \r ( L ( 1 $ $ M A C R O
0017300 - E N V I R O N M E N T 0 $
0017320 $ M A C R O - F O R M ) ) \0 f
0017340 006 \0 \0 002 @ 002 \t \0 \0 021 Q 005 @ 271 H 001
0017360 272 H 002 [ 001 274 K 002 275 g \0 \0 g \0 \0 g
0017400 \0 \0 J g \0 \0 g \0 \0 L M \t \0 \0 h 032
0017420 032 032 h 032 032 032 032 h 032 032 g \0 \0 o \0 \0
0017440 \0 g \0 \0 g \0 \0 g \0 \0 J g \0 \0 I h
0017460 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J
0017500 h 032 032 h 032 032 032 032 020 \0 ( 5 1 Q M
0017520 K P R O G N 4 R E M O V E -
0017540 C O M M E N T S ) \r ( 1 3 2 Q
0017560 Q U O T E 1 1 1 Q T Y P E S
0017600 1 0 5 Q P U T P R O P S 1
0017620 0 2 Q F I L E P K G F L G 7
0017640 7 Q A N D 7 0 Q E V A L -
0017660 W H E N 4 4 Q M A C R O 4
0017700 1 Q D E F T Y P E 3 5 Q P
0017720 U T P R O P S 3 2 Q W I T H
0017740 O U T - F I L E P K G 2 7 Q
0017760 P R O G N ) \r ( 7 4 Q ( C L
0020000 : E V A L ) ) \r ( S E T F - M A
0020020 C R O - F U N C T I O N ( Q U
0020040 O T E D E F T Y P E ) ( Q U
0020060 O T E e x p a n d - D E F T Y
0020100 P E ) ) \r ( A D D T O V A R P
0020120 R E T T Y P R I N T M A C R O S
0020140 ( D E F T Y P E . P P R I
0020160 N T - D E F I N E R ) ) \r ( A D
0020200 D T O V A R P R E T T Y D E F
0020220 M A C R O S ( T Y P E S X
0020240 ( P * ( M A P C A R ( Q U
0020260 O T E X ) ( F U N C T I O N
0020300 ( L A M B D A ( I T E M )
0020320 ( C L : D O ( ( D E F ( G E
0020340 T \r I T E M ( Q U O T E T
0020360 Y P E S ) ) ) ) ( D E F D E
0020400 F ) ( C E R R O R " R e - f
0020420 e t c h t h e d e f i n i t
0020440 i o n " " N o ~ S d e f i
0020460 n i t i o n f o r ~ S " (
0020500 Q U O T E \r T Y P E S ) I T
0020520 E M ) ) ) ) ) ) ) ) \r ( A D D T
0020540 O V A R P R E T T Y T Y P E L
0020560 S T ( C H A N G E D T Y P E S
0020600 L S T T Y P E S " C o m m o
0020620 n L i s p t y p e d e f i
0020640 n i t i o n s " ) ) \r ( A D D T
0020660 O V A R F I L E P K G T Y P E
0020700 S T Y P E S ) \r ( P U T P R O
0020720 P S T Y P E S G E T D E F
0020740 \ D E F I N E - T Y P E - G E T
0020760 D E F ) \r ( P U T P R O P S T
0021000 Y P E S F I L E P K G C O N T
0021020 E N T S N I L L ) \r ( P U T P
0021040 R O P S T Y P E S P R O P T
0021060 Y P E T Y P E S ) \r ( P U T P
0021100 R O P S C L : A T O M D E F
0021120 T Y P E ( M A C R O N I L
0021140 ( Q U O T E ( S A T I S F I E
0021160 S C L : A T O M ) ) ) ) \r ( P
0021200 U T P R O P S B I G N U M D
0021220 E F T Y P E ( M A C R O N I
0021240 L ( Q U O T E ( O R ( D A
0021260 T A T Y P E F I X P ) ( D A
0021300 T A T Y P E B I G N U M ) ) )
0021320 ) ) \r ( P U T P R O P S B I T
0021340 D E F T Y P E ( M A C R O
0021360 N I L ( Q U O T E ( C L : M
0021400 O D 2 ) ) ) ) \r ( P U T P R O
0021420 P S C L : C H A R A C T E R
0021440 D E F T Y P E ( M A C R O N
0021460 I L ( Q U O T E ( S A T I S
0021500 F I E S C H A R A C T E R P )
0021520 ) ) ) \r ( P U T P R O P S C O
0021540 N S D E F T Y P E ( M A C R
0021560 O N I L ( Q U O T E ( D A
0021600 T A T Y P E L I S T P ) ) ) )
0021620 \r ( P U T P R O P S D O U B L
0021640 E - F L O A T D E F T Y P E
0021660 ( M A C R O ( & R E S T X )
0021700 ( C O N S ( Q U O T E F L
0021720 O A T ) X ) ) ) \r ( P U T P R
0021740 O P S F I X N U M D E F T Y
0021760 P E ( M A C R O N I L ( Q
0022000 U O T E ( D A T A T Y P E S
0022020 M A L L P ) ) ) ) \r ( P U T P R
0022040 O P S F L O A T D E F T Y P
0022060 E ( M A C R O ( & O P T I O
0022100 N A L L O W H I G H ) ( \
0022120 R A N G E . T Y P E ( Q U O T
0022140 E ( D A T A T Y P E F L O A
0022160 T P ) ) L O W H I G H ) ) )
0022200 \r ( P U T P R O P S F U N C T
0022220 I O N D E F T Y P E ( M A C
0022240 R O N I L ( Q U O T E ( S
0022260 A T I S F I E S F U N C T I O
0022300 N P ) ) ) ) \r ( P U T P R O P S
0022320 H A S H - T A B L E D E F T
0022340 Y P E ( M A C R O N I L (
0022360 Q U O T E ( D A T A T Y P E
0022400 H A R R A Y P ) ) ) ) \r ( P U T
0022420 P R O P S I N T E G E R D E
0022440 F T Y P E ( M A C R O ( & O
0022460 P T I O N A L L O W H I G H
0022500 ) ( \ R A N G E . T Y P E (
0022520 Q U O T E ( S A T I S F I E S
0022540 I N T E G E R P ) ) L O W
0022560 \r H I G H ( Q U O T E ( ( -
0022600 6 5 5 3 6 6 5 5 3 5 F I X N
0022620 U M ) ( 0 1 ( C L : M E M
0022640 B E R 0 1 ) ) ) ) ) ) ) \r (
0022660 P U T P R O P S K E Y W O R D
0022700 D E F T Y P E ( M A C R O
0022720 N I L ( Q U O T E ( S A T I
0022740 S F I E S K E Y W O R D P ) )
0022760 ) ) \r ( P U T P R O P S L I S
0023000 T D E F T Y P E ( M A C R O
0023020 ( & O P T I O N A L T Y P E
0023040 ) ( C L : I F ( E Q T Y P
0023060 E ( Q U O T E C L : * ) )
0023100 ( Q U O T E ( O R N U L L
0023120 C O N S ) ) ( \r B Q U O T E
0023140 ( A N D L I S T ( S A T I S
0023160 F I E S ( L A M B D A ( X )
0023200 ( C L : E V E R Y ( C L : F
0023220 U N C T I O N ( C L : L A M B
0023240 D A ( E L E M E N T ) ( T Y
0023260 P E P E L E M E N T ( \r Q U
0023300 O T E ( \ , T Y P E ) ) ) )
0023320 ) X ) ) ) ) ) ) ) ) \r ( P U T
0023340 P R O P S L O N G - F L O A T
0023360 D E F T Y P E ( M A C R O
0023400 ( & R E S T X ) ( C O N S
0023420 ( Q U O T E F L O A T ) X )
0023440 ) ) \r ( P U T P R O P S C L :
0023460 M E M B E R D E F T Y P E (
0023500 M A C R O ( & R E S T V A L
0023520 U E S ) ( B Q U O T E ( S A
0023540 T I S F I E S ( L A M B D A
0023560 ( X ) ( C L : M E M B E R X
0023600 ( Q U O T E ( \r \ , V A L
0023620 U E S ) ) ) ) ) ) ) ) \r ( P U T
0023640 P R O P S C L : M O D D E F
0023660 T Y P E ( M A C R O ( N )
0023700 ( B Q U O T E ( I N T E G E R
0023720 0 ( \ , ( 1 - N ) ) ) )
0023740 ) ) \r ( P U T P R O P S N U L
0023760 L D E F T Y P E ( M A C R O
0024000 N I L ( Q U O T E ( S A T
0024020 I S F I E S N U L L ) ) ) ) \r
0024040 ( P U T P R O P S N U M B E R
0024060 D E F T Y P E ( M A C R O
0024100 N I L ( Q U O T E ( S A T I
0024120 S F I E S N U M B E R P ) ) )
0024140 ) \r ( P U T P R O P S P A C K
0024160 A G E D E F T Y P E ( M A C
0024200 R O N I L ( Q U O T E ( D
0024220 A T A T Y P E P A C K A G E )
0024240 ) ) ) \r ( P U T P R O P S S H
0024260 O R T - F L O A T D E F T Y P
0024300 E ( M A C R O ( & R E S T
0024320 R E S T ) ( C O N S ( Q U O
0024340 T E F L O A T ) R E S T ) )
0024360 ) \r ( P U T P R O P S S I G N
0024400 E D - B Y T E D E F T Y P E
0024420 ( M A C R O ( & O P T I O N A
0024440 L S ) ( C L : I F ( E Q
0024460 S ( Q U O T E C L : * ) )
0024500 ( Q U O T E I N T E G E R )
0024520 ( L E T ( ( \r S I Z E ( C L
0024540 : E X P T 2 ( 1 - S ) ) )
0024560 ) ( B Q U O T E ( I N T E G
0024600 E R ( \ , ( - S ) ) ( \
0024620 , ( 1 - S ) ) ) ) ) ) ) ) \r
0024640 ( P U T P R O P S S T A N D A
0024660 R D - C H A R D E F T Y P E
0024700 ( M A C R O N I L ( Q U O T
0024720 E ( S A T I S F I E S S T A
0024740 N D A R D - C H A R - P ) ) ) )
0024760 \r ( P U T P R O P S S T R I N
0025000 G - C H A R D E F T Y P E (
0025020 M A C R O N I L ( Q U O T E
0025040 ( S A T I S F I E S S T R I
0025060 N G - C H A R - P ) ) ) ) \r ( P
0025100 U T P R O P S S I N G L E - F
0025120 L O A T D E F T Y P E ( M A
0025140 C R O ( & R E S T R E S T )
0025160 ( C O N S ( Q U O T E F L
0025200 O A T ) R E S T ) ) ) \r ( P U
0025220 T P R O P S S Y M B O L D E
0025240 F T Y P E ( M A C R O N I L
0025260 ( Q U O T E ( D A T A T Y P
0025300 E L I T A T O M ) ) ) ) \r ( P
0025320 U T P R O P S U N S I G N E D
0025340 - B Y T E D E F T Y P E ( M
0025360 A C R O ( & O P T I O N A L
0025400 S ) ( C L : I F ( E Q S
0025420 ( Q U O T E C L : * ) ) ( Q
0025440 U O T E ( I N T E G E R 0 )
0025460 ) ( \r B Q U O T E ( I N T E
0025500 G E R 0 ( ( \ , ( C L : E
0025520 X P T 2 S ) ) ) ) ) ) ) ) \r
0025540 ( P U T P R O P S R A T I O N
0025560 A L D E F T Y P E ( M A C R
0025600 O N I L ( Q U O T E ( O R
0025620 R A T I O I N T E G E R ) )
0025640 ) ) \r ( P U T P R O P S R E A
0025660 D T A B L E D E F T Y P E (
0025700 M A C R O N I L ( Q U O T E
0025720 ( D A T A T Y P E R E A D T
0025740 A B L E P ) ) ) ) \r ( P U T P R
0025760 O P S C O M M O N D E F T Y
0026000 P E ( M A C R O T N I L )
0026020 ) \r ( P U T P R O P S C O M P
0026040 I L E D - F U N C T I O N D E
0026060 F T Y P E ( M A C R O N I L
0026100 ( Q U O T E ( S A T I S F I
0026120 E S C O M P I L E D - F U N C
0026140 T I O N - P ) ) ) ) \r ( P U T P
0026160 R O P S C O M P L E X D E F
0026200 T Y P E ( M A C R O ( & O P
0026220 T I O N A L T Y P E ) ( C L
0026240 : I F ( E Q T Y P E ( Q U
0026260 O T E C L : * ) ) ( Q U O T
0026300 E ( D A T A T Y P E \r C O M
0026320 P L E X ) ) ( B Q U O T E (
0026340 A N D C O M P L E X ( S A T
0026360 I S F I E S ( L A M B D A (
0026400 X ) ( A N D ( T Y P E P (
0026420 C O M P L E X - R E A L P A R T
0026440 X ) ( Q U O T E ( \ , T
0026460 Y P E \r ) ) ) ( T Y P E P (
0026500 C O M P L E X - I M A G P A R T
0026520 X ) ( Q U O T E ( \ , T
0026540 Y P E ) ) ) ) ) ) ) ) ) ) ) \r (
0026560 P U T P R O P S S E Q U E N C
0026600 E D E F T Y P E ( M A C R O
0026620 ( & O P T I O N A L T Y P E
0026640 ) ( C L : I F ( E Q T Y P
0026660 E ( Q U O T E C L : * ) )
0026700 ( Q U O T E ( O R V E C T O
0026720 R \r L I S T ) ) ( B Q U O T
0026740 E ( A N D S E Q U E N C E
0026760 ( S A T I S F I E S ( L A M B
0027000 D A ( X ) ( C L : E V E R Y
0027020 ( C L : F U N C T I O N ( C
0027040 L : L A M B D A ( E L E M E N
0027060 T ) ( T Y P E P \r E L E M E
0027100 N T ( Q U O T E ( \ , T Y
0027120 P E ) ) ) ) ) X ) ) ) ) ) ) )
0027140 ) \r ( P U T P R O P S A R R A
0027160 Y D E F T Y P E ( M A C R O
0027200 ( & O P T I O N A L E L E M
0027220 E N T - T Y P E D I M E N S I
0027240 O N S ) ( P R O G N ( C L :
0027260 I F ( T Y P E P D I M E N S
0027300 I O N S ( \r Q U O T E F I X
0027320 N U M ) ) ( S E T Q D I M E
0027340 N S I O N S ( M A K E - L I S
0027360 T D I M E N S I O N S : I N
0027400 I T I A L - E L E M E N T ( Q
0027420 U O T E C L : * ) ) ) ) ( C
0027440 L : I F ( N O T ( E Q \r E
0027460 L E M E N T - T Y P E ( Q U O
0027500 T E C L : * ) ) ) ( S E T Q
0027520 E L E M E N T - T Y P E ( %
0027540 % G E T - C A N O N I C A L - C
0027560 M L - T Y P E E L E M E N T -
0027600 T Y P E ) ) ) ( C O N D ( (
0027620 E Q \r D I M E N S I O N S (
0027640 Q U O T E C L : * ) ) ( C L
0027660 : I F ( E Q E L E M E N T -
0027700 T Y P E ( Q U O T E C L : *
0027720 ) ) ( Q U O T E ( S A T I S
0027740 F I E S C L : A R R A Y P ) )
0027760 ( B Q U O T E ( \r S A T I S
0030000 F I E S ( L A M B D A ( X )
0030020 ( A N D ( C L : A R R A Y P
0030040 X ) ( E Q U A L ( A R R A
0030060 Y - E L E M E N T - T Y P E X
0030100 ) ( Q U O T E ( \ , E L E
0030120 M E N T - T Y P E ) ) ) ) ) ) )
0030140 ) \r ) ( ( E Q U A L D I M E
0030160 N S I O N S ( Q U O T E ( C
0030200 L : * ) ) ) ( C O N D ( ( E
0030220 Q E L E M E N T - T Y P E (
0030240 Q U O T E C L : * ) ) ( Q U
0030260 O T E V E C T O R ) ) ( ( E
0030300 Q \r E L E M E N T - T Y P E
0030320 ( Q U O T E S T R I N G - C H
0030340 A R ) ) ( Q U O T E S T R I
0030360 N G ) ) ( ( O R ( E Q E L
0030400 E M E N T - T Y P E ( Q U O T
0030420 E B I T ) ) ( E Q U A L \r
0030440 E L E M E N T - T Y P E ( Q U
0030460 O T E ( U N S I G N E D - B Y
0030500 T E 1 ) ) ) ) ( Q U O T E
0030520 B I T - V E C T O R ) ) ( T
0030540 ( B Q U O T E ( S A T I S F I
0030560 E S ( L A M B D A ( X ) (
0030600 A N D ( \r V E C T O R P X )
0030620 ( E Q U A L ( A R R A Y - E
0030640 L E M E N T - T Y P E X ) (
0030660 Q U O T E ( \ , E L E M E N
0030700 T - T Y P E ) ) ) ) ) ) ) ) ) )
0030720 ( ( D O L I S T ( D I M D
0030740 I M E N S I O N S T ) \r ( C
0030760 L : I F ( N O T ( E Q D I
0031000 M ( Q U O T E C L : * ) ) )
0031020 ( R E T U R N N I L ) ) )
0031040 ( B Q U O T E ( S A T I S F I
0031060 E S ( L A M B D A ( X ) (
0031100 A N D ( C L : A R R A Y P X
0031120 ) ( \r E Q L ( A R R A Y - R
0031140 A N K X ) ( \ , ( C L : L
0031160 E N G T H D I M E N S I O N S
0031200 ) ) ) ( \ , @ ( C L : I F
0031220 ( N O T ( E Q E L E M E N T
0031240 - T Y P E ( Q U O T E C L :
0031260 * ) ) ) ( \r B Q U O T E ( (
0031300 E Q U A L ( A R R A Y - E L E
0031320 M E N T - T Y P E X ) ( Q U
0031340 O T E ( \ , E L E M E N T -
0031360 T Y P E ) ) ) ) ) ) ) ) ) ) ) )
0031400 ( ( D O L I S T ( D I M D
0031420 I M E N S I O N S T ) \r ( C
0031440 L : I F ( N O T ( O R ( E
0031460 Q D I M ( Q U O T E C L :
0031500 * ) ) ( T Y P E P D I M (
0031520 Q U O T E F I X N U M ) ) ) )
0031540 ( R E T U R N N I L ) ) )
0031560 ( C L : I F ( E Q L ( \r C L
0031600 : L E N G T H D I M E N S I O
0031620 N S 1 ) ) ( B Q U O T E (
0031640 V E C T O R ( \ , ( C A R
0031660 D I M E N S I O N S ) ) ) ) (
0031700 B Q U O T E ( S A T I S F I E
0031720 S ( L A M B D A ( X ) ( A
0031740 N D ( \r C L : A R R A Y P X
0031760 ) ( E Q L ( A R R A Y - R A
0032000 N K X ) ( \ , ( C L : L E
0032020 N G T H D I M E N S I O N S )
0032040 ) ) ( \ , @ ( C L : D O (
0032060 ( D I M S P E C D I M E N S I
0032100 O N S ( C D R \r D I M S P E
0032120 C ) ) ( D I M 0 ( 1 + D
0032140 I M ) ) F O R M S ) ( ( N U
0032160 L L D I M S P E C ) F O R M
0032200 S ) ( C L : I F ( N O T (
0032220 E Q L ( C A R D I M S P E C
0032240 ) ( Q U O T E C L : * ) ) )
0032260 \r ( C L : P U S H ( B Q U O
0032300 T E ( E Q L ( A R R A Y - D
0032320 I M E N S I O N X ( \ , D
0032340 I M ) ) ( \ , ( C A R D I
0032360 M S P E C ) ) ) ) F O R M S )
0032400 ) ) ) ( \ , @ ( C L : I F
0032420 ( N O T ( \r E Q E L E M E N
0032440 T - T Y P E ( Q U O T E C L
0032460 : * ) ) ) ( B Q U O T E ( (
0032500 E Q U A L ( A R R A Y - E L E
0032520 M E N T - T Y P E X ) ( Q U
0032540 O T E ( \ , E L E M E N T -
0032560 T Y P E ) ) ) ) ) ) ) ) ) \r ) )
0032600 ) ) ( T ( C L : E R R O R
0032620 " B a d ( f i n a l ) a r r
0032640 a y t y p e d e s i g n a t
0032660 o r : ~ S " ( B Q U O T E
0032700 ( A R R A Y ( \ , E L E M E
0032720 N T - T Y P E ) ( \ , \r D I
0032740 M E N S I O N S ) ) ) ) ) ) ) )
0032760 ) \r ( P U T P R O P S V E C T
0033000 O R D E F T Y P E ( M A C R
0033020 O ( & O P T I O N A L E L E
0033040 M E N T - T Y P E S I Z E )
0033060 ( C O N D ( ( E Q E L E M E
0033100 N T - T Y P E ( Q U O T E C
0033120 L : * ) ) ( \r C L : I F ( E
0033140 Q S I Z E ( Q U O T E C L
0033160 : * ) ) ( Q U O T E ( S A T
0033200 I S F I E S V E C T O R P ) )
0033220 ( B Q U O T E ( S A T I S F
0033240 I E S ( L A M B D A ( V )
0033260 ( A N D ( V E C T O R P \r V
0033300 ) ( E Q L ( A R R A Y - T O
0033320 T A L - S I Z E V ) ( \ ,
0033340 S I Z E ) ) ) ) ) ) ) ) ( ( E
0033360 Q E L E M E N T - T Y P E (
0033400 Q U O T E S T R I N G - C H A
0033420 R ) ) ( B Q U O T E ( S T R
0033440 I N G ( \r \ , S I Z E ) ) )
0033460 ) ( ( M E M B E R E L E M E
0033500 N T - T Y P E ( Q U O T E (
0033520 B I T ( U N S I G N E D - B Y
0033540 T E 1 ) ) ) ) ( B Q U O T E
0033560 ( B I T - V E C T O R ( \ ,
0033600 S I Z E ) ) ) ) ( T \r ( B
0033620 Q U O T E ( S A T I S F I E S
0033640 ( L A M B D A ( V ) ( A N
0033660 D ( V E C T O R P V ) ( E
0033700 Q U A L ( A R R A Y - E L E M
0033720 E N T - T Y P E V ) ( Q U O
0033740 T E ( \ , ( \r % % G E T - C
0033760 A N O N I C A L - C M L - T Y P
0034000 E E L E M E N T - T Y P E ) )
0034020 ) ) ( \ , @ ( C L : I F (
0034040 N O T ( E Q S I Z E ( Q U
0034060 O T E C L : * ) ) ) ( B Q U
0034100 O T E ( ( E Q L ( \r A R R A
0034120 Y - T O T A L - S I Z E V )
0034140 ( \ , S I Z E ) ) ) ) ) ) ) )
0034160 ) ) ) ) ) ) \r ( P U T P R O P S
0034200 S I M P L E - S T R I N G D
0034220 E F T Y P E ( M A C R O ( &
0034240 O P T I O N A L S I Z E ) (
0034260 C L : I F ( E Q S I Z E (
0034300 Q U O T E C L : * ) ) ( B Q
0034320 U O T E ( \r S A T I S F I E S
0034340 S I M P L E - S T R I N G - P
0034360 ) ) ( B Q U O T E ( S A T I
0034400 S F I E S ( L A M B D A ( V
0034420 ) ( A N D ( S I M P L E - S
0034440 T R I N G - P V ) ( E Q L
0034460 ( \r A R R A Y - T O T A L - S I
0034500 Z E V ) ( \ , S I Z E ) )
0034520 ) ) ) ) ) ) ) \r ( P U T P R O P
0034540 S S T R I N G D E F T Y P E
0034560 ( M A C R O ( & O P T I O N
0034600 A L S I Z E ) ( C L : I F
0034620 ( E Q S I Z E ( Q U O T E
0034640 C L : * ) ) ( Q U O T E ( S
0034660 A T I S F I E S \r C L : S T R
0034700 I N G P ) ) ( B Q U O T E (
0034720 S A T I S F I E S ( L A M B D
0034740 A ( X ) ( A N D ( C L : S
0034760 T R I N G P X ) ( E Q L (
0035000 A R R A Y - T O T A L - S I Z E
0035020 X ) ( \ , S I Z E ) ) ) )
0035040 \r ) ) ) ) ) \r ( P U T P R O P S
0035060 S I M P L E - A R R A Y D E
0035100 F T Y P E ( M A C R O ( & O
0035120 P T I O N A L E L E M E N T -
0035140 T Y P E D I M E N S I O N S )
0035160 ( P R O G N ( C L : I F (
0035200 T Y P E P \r D I M E N S I O N
0035220 S ( Q U O T E F I X N U M )
0035240 ) ( S E T Q D I M E N S I O
0035260 N S ( M A K E - L I S T D I
0035300 M E N S I O N S : I N I T I A
0035320 L - E L E M E N T ( Q U O T E
0035340 C L : * ) ) ) ) ( \r C L : I
0035360 F ( N O T ( E Q E L E M E
0035400 N T - T Y P E ( Q U O T E C
0035420 L : * ) ) ) ( S E T Q E L E
0035440 M E N T - T Y P E ( % % G E T
0035460 - C A N O N I C A L - C M L - T
0035500 Y P E E L E M E N T - T Y P E
0035520 ) ) \r ) ( C O N D ( ( E Q
0035540 D I M E N S I O N S ( Q U O T
0035560 E C L : * ) ) ( C L : I F
0035600 ( E Q E L E M E N T - T Y P E
0035620 ( Q U O T E C L : * ) ) (
0035640 Q U O T E ( S A T I S F I E S
0035660 \r S I M P L E - A R R A Y - P
0035700 ) ) ( B Q U O T E ( S A T I
0035720 S F I E S ( L A M B D A ( X
0035740 ) ( A N D ( S I M P L E - A
0035760 R R A Y - P X ) ( E Q U A L
0036000 ( A R R A Y - E L E M E N T -
0036020 T Y P E X ) \r ( Q U O T E
0036040 ( \ , E L E M E N T - T Y P E
0036060 ) ) ) ) ) ) ) ) ) ( ( E Q U A
0036100 L D I M E N S I O N S ( Q U
0036120 O T E ( C L : * ) ) ) ( C O
0036140 N D ( ( E Q E L E M E N T -
0036160 T Y P E ( Q U O T E \r S T R
0036200 I N G - C H A R ) ) ( Q U O T
0036220 E S I M P L E - S T R I N G )
0036240 ) ( ( O R ( E Q E L E M E
0036260 N T - T Y P E ( Q U O T E B
0036300 I T ) ) ( E Q U A L E L E M
0036320 E N T - T Y P E ( Q U O T E
0036340 ( \r U N S I G N E D - B Y T E
0036360 1 ) ) ) ) ( Q U O T E S I M
0036400 P L E - B I T - V E C T O R ) )
0036420 ( ( E Q E L E M E N T - T Y
0036440 P E T ) ( Q U O T E S I M
0036460 P L E - V E C T O R ) ) ( T
0036500 ( B Q U O T E \r ( S A T I S F
0036520 I E S ( L A M B D A ( X )
0036540 ( A N D ( S I M P L E - A R R
0036560 A Y - P X ) ( E Q L 1 (
0036600 A R R A Y - R A N K X ) ) (
0036620 \ , @ ( C L : I F ( N O T
0036640 ( E Q \r E L E M E N T - T Y P
0036660 E ( Q U O T E C L : * ) ) )
0036700 ( B Q U O T E ( ( E Q U A L
0036720 ( A R R A Y - E L E M E N T -
0036740 T Y P E X ) ( Q U O T E (
0036760 \ , E L E M E N T - T Y P E )
0037000 ) ) ) ) ) ) ) ) ) ) ) \r ) ) (
0037020 ( D O L I S T ( D I M D I M
0037040 E N S I O N S T ) ( C L : I
0037060 F ( N O T ( E Q D I M (
0037100 Q U O T E C L : * ) ) ) ( R
0037120 E T U R N N I L ) ) ) ( B Q
0037140 U O T E ( S A T I S F I E S
0037160 ( \r L A M B D A ( X ) ( A N
0037200 D ( S I M P L E - A R R A Y -
0037220 P X ) ( E Q L ( A R R A Y
0037240 - R A N K X ) ( \ , ( C L
0037260 : L E N G T H D I M E N S I O
0037300 N S ) ) ) ( \ , @ ( C L : I
0037320 F ( N O T ( \r E Q E L E M
0037340 E N T - T Y P E ( Q U O T E
0037360 C L : * ) ) ) ( B Q U O T E
0037400 ( ( E Q U A L ( A R R A Y - E
0037420 L E M E N T - T Y P E X ) (
0037440 Q U O T E ( \ , E L E M E N
0037460 T - T Y P E ) ) ) ) ) ) ) ) ) \r
0037500 ) ) ) ( ( D O L I S T ( D I
0037520 M D I M E N S I O N S T )
0037540 ( C L : I F ( N O T ( O R
0037560 ( E Q D I M ( Q U O T E C
0037600 L : * ) ) ( T Y P E P D I M
0037620 ( Q U O T E F I X N U M ) )
0037640 ) ) ( \r R E T U R N N I L )
0037660 ) ) ( B Q U O T E ( S A T I
0037700 S F I E S ( L A M B D A ( X
0037720 ) ( A N D ( S I M P L E - A
0037740 R R A Y - P X ) ( E Q L (
0037760 A R R A Y - R A N K X ) ( \
0040000 , ( \r C L : L E N G T H D I
0040020 M E N S I O N S ) ) ) ( \ , @
0040040 ( C L : D O ( ( D I M S P E
0040060 C D I M E N S I O N S ( C D
0040100 R D I M S P E C ) ) ( D I M
0040120 0 ( 1 + D I M ) ) F O R
0040140 M S ) ( ( N U L L \r D I M S
0040160 P E C ) F O R M S ) ( C L :
0040200 I F ( N O T ( E Q L ( C A
0040220 R D I M S P E C ) ( Q U O T
0040240 E C L : * ) ) ) ( C L : P U
0040260 S H ( B Q U O T E ( E Q L
0040300 ( A R R A Y - D I M E N S I O N
0040320 \r X ( \ , D I M ) ) ( \
0040340 , ( C A R D I M S P E C ) )
0040360 ) ) F O R M S ) ) ) ) ( \ ,
0040400 @ ( C L : I F ( N O T ( E
0040420 Q E L E M E N T - T Y P E (
0040440 Q U O T E C L : * ) ) ) ( B
0040460 Q U O T E ( ( \r E Q U A L (
0040500 A R R A Y - E L E M E N T - T Y
0040520 P E X ) ( Q U O T E ( \ ,
0040540 E L E M E N T - T Y P E ) ) )
0040560 ) ) ) ) ) ) ) ) ) ( T ( C L
0040600 : E R R O R \r " B a d ( f i
0040620 n a l ) a r r a y t y p e
0040640 d e s i g n a t o r : ~ S "
0040660 ( B Q U O T E ( S I M P L E -
0040700 A R R A Y ( \ , E L E M E N
0040720 T - T Y P E ) ( \ , D I M E
0040740 N S I O N S ) ) ) ) ) ) ) ) \r )
0040760 \r ( P U T P R O P S S I M P L
0041000 E - V E C T O R D E F T Y P E
0041020 ( M A C R O ( & O P T I O N
0041040 A L S I Z E ) ( C L : I F
0041060 ( E Q S I Z E ( Q U O T E
0041100 C L : * ) ) ( B Q U O T E (
0041120 \r S A T I S F I E S S I M P L
0041140 E - V E C T O R - P ) ) ( B Q
0041160 U O T E ( S A T I S F I E S
0041200 ( L A M B D A ( V ) ( A N D
0041220 ( S I M P L E - V E C T O R -
0041240 P V ) ( E Q L ( \r A R R A
0041260 Y - T O T A L - S I Z E V )
0041300 ( \ , S I Z E ) ) ) ) ) ) ) )
0041320 ) \r ( P U T P R O P S B I T -
0041340 V E C T O R D E F T Y P E (
0041360 M A C R O ( & O P T I O N A L
0041400 S I Z E ) ( C L : I F ( E
0041420 Q S I Z E ( Q U O T E C L
0041440 : * ) ) ( B Q U O T E ( S A
0041460 T I S F I E S \r B I T - V E C
0041500 T O R - P ) ) ( B Q U O T E
0041520 ( S A T I S F I E S ( L A M B
0041540 D A ( V ) ( A N D ( B I T
0041560 - V E C T O R - P V ) ( E Q
0041600 L ( A R R A Y - T O T A L - S
0041620 I Z E V ) ( \ , S I Z E \r
0041640 ) ) ) ) ) ) ) ) ) \r ( P U T P R
0041660 O P S S I M P L E - B I T - V
0041700 E C T O R D E F T Y P E ( M
0041720 A C R O ( & O P T I O N A L
0041740 S I Z E ) ( C L : I F ( E Q
0041760 S I Z E ( Q U O T E C L :
0042000 * ) ) ( B Q U O T E ( \r S A
0042020 T I S F I E S S I M P L E - B
0042040 I T - V E C T O R - P ) ) ( B
0042060 Q U O T E ( S A T I S F I E S
0042100 ( L A M B D A ( V ) ( A N
0042120 D ( S I M P L E - B I T - V E
0042140 C T O R - P V ) ( E Q L (
0042160 \r A R R A Y - T O T A L - S I Z
0042200 E V ) ( \ , S I Z E ) ) )
0042220 ) ) ) ) ) ) \r ( P U T P R O P S
0042240 C H A R A C T E R C M L T Y
0042260 P E C L : C H A R A C T E R )
0042300 \r ( P U T P R O P S F I X P
0042320 C M L T Y P E B I G N U M ) \r
0042340 ( P U T P R O P S F L O A T P
0042360 C M L T Y P E S I N G L E -
0042400 F L O A T ) \r ( P U T P R O P S
0042420 G E N E R A L - A R R A Y C
0042440 M L T Y P E A R R A Y ) \r ( P
0042460 U T P R O P S L I S T P C M
0042500 L T Y P E C O N S ) \r ( P U T
0042520 P R O P S L I T A T O M C M
0042540 L T Y P E S Y M B O L ) \r ( P
0042560 U T P R O P S O N E D - A R R
0042600 A Y C M L T Y P E A R R A Y
0042620 ) \r ( P U T P R O P S S M A L
0042640 L P C M L T Y P E F I X N U
0042660 M ) \r ( P U T P R O P S S T R
0042700 I N G P C M L T Y P E S I M
0042720 P L E - S T R I N G ) \r ( P U T
0042740 P R O P S H A R R A Y P C M
0042760 L T Y P E H A S H - A R R A Y
0043000 ) \r ( P U T P R O P S T W O D
0043020 - A R R A Y C M L T Y P E A
0043040 R R A Y ) \r ( P U T P R O P S
0043060 S Y M B O L C M L S U B T Y P
0043100 E D E S C R I M I N A T O R S
0043120 Y M B O L - T Y P E ) \r ( P U T
0043140 P R O P S A R R A Y C M L S
0043160 U B T Y P E D E S C R I M I N A
0043200 T O R A R R A Y - T Y P E ) \r
0043220 ( P U T P R O P S D E F T Y P
0043240 E P R O P T Y P E I G N O R
0043260 E ) \r ( P U T P R O P S C M L
0043300 T Y P E S F I L E T Y P E C
0043320 O M P I L E - F I L E ) \r ( P U
0043340 T P R O P S C M L T Y P E S
0043360 C O P Y R I G H T ( " X e r o
0043400 x C o r p o r a t i o n " 1
0043420 9 8 5 1 9 8 6 ) ) \r S T O P \r
0043440