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