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