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