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