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