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