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