$ od -c -N 50000 [eris]<Lisp>KOTO>Library>NEW>CMLTYPES.DCOM!1
0000000 ( F I L E C R E A T E D " 7
0000020 - F e b - 8 6 1 8 : 5 0 : 1 2
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 . ; 2 1 ) \r " 1 2 - N o v
0000140 - 8 5 1 4 : 5 9 : 2 3 " r e
0000160 c o m p i l e d c h a n g e s
0000200 : n o t h i n g i n " I N
0000220 T E R L I S P - D 2 9 - J a n
0000240 - 8 6 . . . " d a t e d \r
0000260 " 2 9 - J a n - 8 6 1 3 : 2 6
0000300 : 3 0 " ) \r ( F I L E C R E A T
0000320 E D " 7 - F e b - 8 6 1 8
0000340 : 4 9 : 2 1 " { E R I S } < L
0000360 I S P C O R E > L I B R A R Y >
0000400 C M L T Y P E S . ; 2 1 1 8 2
0000420 2 1 c h a n g e s t o : (
0000440 T Y P E S A R R A Y ) \r p r
0000460 e v i o u s d a t e : " 3
0000500 - D e c - 8 5 1 6 : 2 4 : 0 6
0000520 " { E R I S } < L I S P C O R
0000540 E > L I B R A R Y > C M L T Y P
0000560 E S . ; 2 0 ) \r E N U M E R A T
0000600 E D - T Y P E S - O F D 1 \r N
0000620 I L \0 % 004 \0 \0 \0 021 @ 003 \b \0 \0 260
0000640 031 d 001 [ g \0 \0 033 265 003 K 270 I 265 \a H
0000660 h 032 Z 201 H & 271 002 003 265 350 J 020 \0 ( 5
0000700 D A T A T Y P E S ) \r ( 1 5 Q
0000720 C M L T Y P E ) \r ( ) \r T Y P
0000740 E - O F D 1 \r ( P 1 D P
0000760 0 T Y P E I 0 X ) \0
0001000 ! 002 \0 \0 001 @ \t \0 \0 021 021 001 H g \0 \0
0001020 033 265 003 H X d g \0 \0 033 Y 226 @ k I 017
0001040 016 265 003 H 020 \0 ( 3 T Y P E N A M
0001060 E ) \r ( 2 3 Q C M L S U B T Y
0001100 P E D E S C R I M I N A T O R
0001120 1 2 Q C M L T Y P E ) \r ( ) \r
0001140 T Y P E P D 1 \r ( I 1 T Y
0001160 P E I 0 O B J E C T ) \0
0001200 022 001 \0 \0 002 A \t \0 \0 021 001 \0 @ k H 017
0001220 016 022 264 003 i 020 \0 ( 3 \ T Y P E P
0001240 . P R E D ) \r N I L \r ( ) \r T Y
0001260 P E S . G E T D E F D 1 \r ( P
0001300 2 T Y P E - P R E D I C A T
0001320 E P 1 D O C P 0 P R
0001340 O P I 0 N A M E ) \0 X 003
0001360 \0 \0 001 @ g \0 \0 033 @ g \0 \0 033 @ g \0
0001400 \0 033 021 003 002 H 265 006 I 264 ( H 001 g \0 \0
0001420 360 262 035 g \0 \0 @ H 002 001 I d 221 h 032 H
0001440 002 002 001 h 032 \n \0 \0 032 032 032 h 032 202 \b \0
0001460 \0 J 264 021 g \0 \0 @ g \0 \0 J h 032 032 032
0001500 032 h 032 \n \0 \0 \t \0 \0 020 \0 ( 1 2 5 Q
0001520 M K P R O G N 1 2 2 Q \ A
0001540 P P E N D 2 7 5 Q H E L P
0001560 6 4 Q \ A P P E N D 2 ) \r ( 1
0001600 0 7 Q T Y P E - P R E D I C A
0001620 T E 1 0 3 Q P U T P R O P S
0001640 4 2 Q D E F T Y P E 3 4 Q
0001660 M A C R O 1 5 Q T Y P E -
0001700 P R E D I C A T E 1 0 Q T Y
0001720 P E - D O C U M E N T A T I O N
0001740 3 D E F T Y P E ) \r ( ) \r \
0001760 C O E R C E . F U N C T I O N
0002000 D 1 \r ( P 0 P R O P I 0
0002020 T Y P E F 1 \ C O E R C
0002040 E M A C R O H A S H ) \0 267 001 001
0002060 \0 001 @ d 003 242 261 \0 210 Q 035 265 003 202 261 \0
0002100 251 @ d 001 d g \0 \0 360 225 277 \b \0 \0 260 k
0002120 d g \0 \0 360 262 4 277 @ 002 002 247 @ 002 001 \t
0002140 \0 \0 260 W g \0 \0 o \0 \0 \0 g \0 \0 @ 002
0002160 002 032 \t \0 \0 @ 002 001 \t \0 \0 o \0 \0 \0 032
0002200 h 032 032 h 032 032 032 260 2 d g \0 \0 360 245 d
0002220 g \0 \0 360 225 277 \b \0 \0 260 277 @ 001 g \0
0002240 \0 033 021 001 \0 H 001 g \0 \0 360 230 H @ \n \0
0002260 \0 \t \0 \0 202 \b \0 \0 022 Q \v \0 \0 020 i 360
0002300 223 g \0 \0 020 @ d 244 o \0 \0 \0 020 g \0 \0
0002320 033 265 026 o \0 \0 \0 i \n \0 \0 277 @ i \n \0
0002340 \0 277 i \t \0 \0 h 020 \0 ( 2 6 3 Q T
0002360 E R P R I 2 5 6 Q P R I N 1
0002400 2 5 0 Q P R I N 1 2 1 2 Q
0002420 P U T H A S H 2 0 5 Q H E
0002440 L P 2 0 1 Q \ C O E R C E .
0002460 F U N C T I O N 1 7 6 Q \ T
0002500 Y P E P . E X P A N D . M A C R
0002520 O 1 4 6 Q S H O U L D N T
0002540 1 1 0 Q \ C O E R C E . F U N
0002560 C T I O N 1 0 2 Q \ C O E R
0002600 C E . F U N C T I O N 5 7 Q
0002620 \ C O E R C E . F U N C T I O N
0002640 3 3 Q S H O U L D N T ) \r (
0002660 2 3 5 Q T Y P E - C O E R C E
0002700 2 2 1 Q I D E N T I T Y 1
0002720 6 7 Q M A C R O 1 5 6 Q D
0002740 E F T Y P E 1 4 0 Q N O T
0002760 1 3 2 Q O R 7 3 Q A N D
0003000 6 4 Q L A M B D A 4 1 Q A
0003020 N D 2 5 Q S A T I S F I E S
0003040 ) \r ( 2 4 4 Q " W a r n i n
0003060 g : N o C O E R C E f u n
0003100 c t i o n f o r " 2 3 1 Q
0003120 ( L A M B D A ( X ) ( E R
0003140 R O R " c a n ' t c o e r c
0003160 e " X ) ) 1 1 4 Q ( X )
0003200 7 0 Q ( X ) ) \r \ R A N G E .
0003220 T Y P E D 1 \r ( P 1 X I
0003240 3 R A N G E L I S T I 2
0003260 H I G H I 1 L O W I
0003300 0 B A S E T Y P E ) \0 250 002 \0
0003320 \0 004 A 245 g \0 \0 b 002 277 B 245 g \0 \0 b
0003340 004 277 A g \0 \0 360 227 B g \0 \0 360 221 @ 020
0003360 C 021 021 001 H 003 265 5 g \0 \0 @ g \0 \0 g
0003400 \0 \0 o \0 \0 \0 g \0 \0 A g \0 \0 360 263 4
0003420 A 003 265 020 g \0 \0 A o \0 \0 \0 032 032 h 032
0003440 260 # 001 b 002 277 g \0 \0 260 356 001 271 A I 001
0003460 364 232 B I 002 001 364 224 I 002 002 001 020 H 002 X
0003500 260 265 h B g \0 \0 360 263 035 B 003 265 020 g \0
0003520 \0 g \0 \0 B h 032 032 032 h 032 211 001 b 004 277
0003540 g \0 \0 260 356 h \t \0 \0 \n \0 \0 032 h 032 032
0003560 032 h 032 032 h 032 032 032 020 \0 ( 2 3 1 Q
0003600 \ A P P E N D 2 2 2 6 Q \ A
0003620 P P E N D 2 ) \r ( 2 2 0 Q <
0003640 2 0 1 Q X 1 7 6 Q < = 1
0003660 6 4 Q * 1 2 6 Q < 1 0 4
0003700 Q < = 7 2 Q * 6 6 Q A
0003720 N D 5 7 Q L A M B D A 5 4
0003740 Q S A T I S F I E S 5 0 Q
0003760 A N D 3 1 Q * 2 3 Q *
0004000 1 4 Q * 4 * ) \r ( 1 1 1
0004020 Q ( X ) 6 3 Q ( X ) ) \r \
0004040 T Y P E P . E X P A N D . M A C
0004060 R O D 1 \r ( I 1 T Y P E
0004100 I 0 P R O P ) \0 020 \0 \0 \0 002
0004120 @ 002 001 A @ 002 002 001 g \0 \0 \f \0 \0 020 \0
0004140 ( 1 5 Q D E F M A C R O . E X
0004160 P A N D ) \r ( 1 2 Q * ) \r ( )
0004200 \r \ T Y P E P . P R E D D 1 \r
0004220 ( P 4 P R O P P 3 P R
0004240 E D I 0 T Y P E F 5
0004260 C L I S P A R R A Y ) 001 036 005 001
0004300 \0 001 @ d 003 242 261 \0 265 U 035 265 003 202 261 \0
0004320 254 @ d 001 d g \0 \0 360 226 277 @ 002 001 261 \0
0004340 230 d g \0 \0 360 262 # 277 g \0 \0 o \0 \0 \0
0004360 g \0 \0 g \0 \0 g \0 \0 @ 002 001 h 032 032 h
0004400 032 032 032 h 032 032 032 260 o d g \0 \0 360 254 d
0004420 g \0 \0 360 246 d g \0 \0 360 262 : 277 g \0 \0
0004440 o \0 \0 \0 @ 001 021 @ 003 @ 260 032 d 001 [ \t
0004460 \0 \0 g \0 \0 h 032 032 270 I 265 \a H h 032 Z
0004500 201 H & 271 002 003 265 346 J 022 \t \0 \0 032 h 032
0004520 032 032 260 $ 277 @ 001 g \0 \0 033 021 001 004 L 001
0004540 g \0 \0 360 230 L @ \n \0 \0 \t \0 \0 206 o \0
0004560 \0 \0 \t \0 \0 022 U \v \0 \0 020 i 360 223 g \0
0004600 \0 020 @ d 243 g \0 \0 020 g \0 \0 033 021 001 004
0004620 L 001 g \0 \0 360 232 L @ h 032 \n \0 \0 \t \0
0004640 \0 020 o \0 \0 \0 i \n \0 \0 277 @ i \n \0 \0
0004660 277 o \0 \0 \0 i \n \0 \0 277 i \t \0 \0 @ g
0004700 \0 \0 g \0 \0 h g \0 \0 g \0 \0 @ h 032 032
0004720 h 032 032 h 032 032 032 \v \0 \0 @ \t \0 \0 020 \0
0004740 ( 4 3 3 Q \ T Y P E P . P R E
0004760 D 4 2 7 Q / P U T P R O P
0005000 3 7 3 Q T E R P R I 3 6 6 Q
0005020 P R I N 1 3 5 5 Q P R I N
0005040 1 3 4 7 Q P R I N 1 3 3 6
0005060 Q \ T Y P E P . P R E D 3 3
0005100 3 Q \ T Y P E P . E X P A N D
0005120 . M A C R O 2 6 7 Q P U T H
0005140 A S H 2 6 2 Q H E L P 2 5
0005160 2 Q \ T Y P E P . P R E D 2
0005200 4 7 Q \ T Y P E P . E X P A N
0005220 D . M A C R O 2 1 2 Q \ A P
0005240 P E N D 2 1 5 7 Q \ T Y P E
0005260 P . P R E D ) \r ( 4 1 1 Q D A
0005300 T A T Y P E 4 0 6 Q Q U O T
0005320 E 4 0 2 Q M A C R O 3 7 7
0005340 Q D E F T Y P E 3 2 2 Q M
0005360 A C R O 3 1 1 Q D E F T Y P
0005400 E 3 0 5 Q N I L L 2 7 6 Q
0005420 T R U E 2 4 0 Q M A C R O
0005440 2 2 7 Q D E F T Y P E 1 6
0005460 2 Q X 1 3 5 Q O P E N L A
0005500 M B D A 1 2 6 Q N O T 1 2
0005520 0 Q O R 1 1 2 Q A N D 6
0005540 6 Q Q U O T E 6 3 Q X 6
0005560 0 Q T Y P E N A M E P 5 1 Q
0005600 O P E N L A M B D A 4 2 Q
0005620 D A T A T Y P E 2 5 Q S A T
0005640 I S F I E S ) \r ( 3 6 2 Q "
0005660 a s s u m e d t o b e d
0005700 a t a t y p e " 3 4 3 Q " W
0005720 a r n i n g : t y p e " 2
0005740 5 7 Q " u n d e f i n e d t
0005760 y p e u s e d i n T Y P E
0006000 P " 1 4 1 Q ( X ) 5 5 Q
0006020 ( X ) ) \r \ C H E C K - T Y P E
0006040 - F A I L D 1 \r ( L ( 2 S
0006060 T R I N G O R T Y P E S P E C
0006100 1 O B J E C T 0 N A M E )
0006120 ) \0 ) \0 \0 \0 003 o \0 \0 \0 @ o \0 \0
0006140 \0 A o \0 \0 \0 B 005 \a 221 B 207 o \0 \0 \0
0006160 B \n \0 \0 \r 006 \0 \0 o \0 \0 \0 \n \0 \0 020
0006200 \0 ( 4 6 Q E R R O R 3 7 Q
0006220 C O N C A T 3 3 Q C O N C A
0006240 T ) \r N I L \r ( 4 3 Q " T y
0006260 p e ' R E T U R N X ' w h
0006300 e r e X i s a n e w v
0006320 a l u e " 2 7 Q " a / a n
0006340 " 1 5 Q " w a s n o t
0006360 " 1 0 Q " " 3 " T h e
0006400 " ) \r ( P R E T T Y C O M P R
0006420 I N T C M L T Y P E S C O M S
0006440 ) \r ( R P A Q Q C M L T Y P E
0006460 S C O M S ( ( M A C R O S C
0006500 O E R C E D E F T Y P E N I
0006520 L L T R U E T Y P E P C H
0006540 E C K - T Y P E T H E ) ( P
0006560 R O P P R O P T Y P E D E F
0006600 T Y P E \r T Y P E - D O C U M
0006620 E N T A T I O N T Y P E - P R
0006640 E D I C A T E ) ( F N S E N
0006660 U M E R A T E D - T Y P E S - O
0006700 F T Y P E - O F T Y P E P
0006720 T Y P E S . G E T D E F \r \ C
0006740 O E R C E . F U N C T I O N \
0006760 R A N G E . T Y P E \ T Y P E
0007000 P . E X P A N D . M A C R O \
0007020 T Y P E P . P R E D \ C H E C
0007040 K - T Y P E - F A I L ) ( P
0007060 ( M O V D ( Q U O T E S T R
0007100 I N G P \r ) ( Q U O T E S I
0007120 M P L E - S T R I N G - P ) )
0007140 ( M O V D ( Q U O T E T Y P
0007160 E N A M E P ) ( Q U O T E S
0007200 T R U C T U R E - T Y P E P ) )
0007220 ( A D D T O V A R S Y S P R
0007240 O P S D E F T Y P E \r T Y P
0007260 E - D O C U M E N T A T I O N )
0007300 ) ( F I L E P K G C O M S T
0007320 Y P E S ) ( T Y P E S A T O
0007340 M B I G N U M B I T C H A
0007360 R A C T E R C O N S D O U B
0007400 L E - F L O A T F I X N U M
0007420 \r F L O A T H A S H - T A B L
0007440 E I N T E G E R K E Y W O R
0007460 D L I S T L O N G - F L O A
0007500 T M E M B E R M O D N U L
0007520 L N U M B E R S H O R T - F
0007540 L O A T S I G N E D - B Y T E
0007560 \r S T A N D A R D - C H A R
0007600 S I N G L E - F L O A T S Y M
0007620 B O L U N S I G N E D - B Y T
0007640 E ) ( T Y P E S A R R A Y
0007660 V E C T O R S I M P L E - S T
0007700 R I N G S T R I N G S I M P
0007720 L E - A R R A Y \r S I M P L E
0007740 - V E C T O R B I T - V E C T
0007760 O R S I M P L E - B I T - V E
0010000 C T O R ) ( P R O P C M L T
0010020 Y P E A R R A Y P C M L A R
0010040 R A Y F I X P F L O A T P
0010060 L I S T P L I T A T O M \r S
0010100 M A L L P S T R I N G P H A
0010120 R R A Y P ) ( P R O P C M L
0010140 S U B T Y P E D E S C R I M I N
0010160 A T O R S Y M B O L ) ( P R
0010200 O P T Y P E - C O E R C E C
0010220 H A R A C T E R F L O A T \r
0010240 S I M P L E - S T R I N G ) (
0010260 V A R S ( \ C O E R C E M A C
0010300 R O H A S H ( H A S H A R R A
0010320 Y 3 0 ) ) ) ( M A C R O S
0010340 T Y P E C A S E ) ) ) \r ( P U T
0010360 P R O P S C O E R C E D M A
0010400 C R O ( D E F M A C R O ( O
0010420 B J T Y P E S P E C ) ( L E
0010440 T * ( ( C E ( C O N S T A N
0010460 T E X P R E S S I O N P T Y P
0010500 E S P E C ) ) ( C F ( A N D
0010520 \r C E ( \ C O E R C E . F U
0010540 N C T I O N ( C A R C E ) )
0010560 ) ) ) ( i f C F t h e n
0010600 ( L I S T C F O B J ) e l
0010620 s e ( Q U O T E I G N O R E
0010640 M A C R O ) ) ) ) ) \r ( D E F M
0010660 A C R O D E F T Y P E ( N A
0010700 M E L A M B D A - L I S T &
0010720 R E S T R E S T ) ( * d o
0010740 e s n ' t r e t u r n r i g
0010760 h t v a l u e ) ( L E T (
0011000 ( D O C ( i f ( S T R I N G
0011020 P \r ( C A R R E S T ) ) t
0011040 h e n ( p o p R E S T ) ) )
0011060 ) ( B Q U O T E ( P U T P R
0011100 O P S ( \ , N A M E ) D E
0011120 F T Y P E ( M A C R O ( \ ,
0011140 L A M B D A - L I S T ) ( \
0011160 , ( \r M K P R O G N R E S T
0011200 ) ) ) ( \ , @ ( A N D D O
0011220 C ( B Q U O T E ( ( \ , N
0011240 A M E ) T Y P E - D O C U M E
0011260 N T A T I O N ( \ , D O C )
0011300 ) ) ) ) ) ) ) ) \r ( P U T P R O
0011320 P S N I L L D M A C R O (
0011340 D E F M A C R O B O D Y ( B
0011360 Q U O T E ( P R O G 1 N I L
0011400 ( \ , @ B O D Y ) ) ) ) ) \r
0011420 ( P U T P R O P S T R U E D
0011440 M A C R O ( D E F M A C R O
0011460 B O D Y ( B Q U O T E ( P R
0011500 O G 1 T ( \ , @ B O D Y )
0011520 ) ) ) ) \r ( P U T P R O P S T
0011540 Y P E P D M A C R O ( D E F
0011560 M A C R O ( O B J T Y P E S
0011600 P E C ) ( L E T ( ( C E (
0011620 C O N S T A N T E X P R E S S I
0011640 O N P T Y P E S P E C ) ) )
0011660 ( i f C E t h e n \r ( B Q
0011700 U O T E ( A N D ( , ( \ T
0011720 Y P E P . P R E D ( C A R C
0011740 E ) ) , O B J ) T ) ) e
0011760 l s e ( Q U O T E I G N O R
0012000 E M A C R O ) ) ) ) ) \r ( D E F
0012020 M A C R O C H E C K - T Y P E
0012040 ( P L A C E T Y P E S P E C
0012060 & O P T I O N A L S T R I N
0012100 G ) ( B Q U O T E ( P R O G
0012120 N I L T O P ( i f ( T Y
0012140 P E P ( \ , P L A C E ) (
0012160 \r Q U O T E ( \ , T Y P E S
0012200 P E C ) ) ) t h e n ( R E T
0012220 U R N N I L ) ) ( S E T F
0012240 ( \ , P L A C E ) ( \ C H E
0012260 C K - T Y P E - F A I L " p l
0012300 a c e " ( Q U O T E ( \ ,
0012320 P L A C E ) ) \r ( \ , ( O R
0012340 S T R I N G ( B Q U O T E
0012360 ( Q U O T E ( \ , T Y P E S
0012400 P E C ) ) ) ) ) ) ) ( G O T
0012420 O P ) ) ) ) \r ( P U T P R O P S
0012440 T H E M A C R O ( ( T Y P
0012460 E S P E C F O R M ) ( P R O
0012500 G ( ( V A L F O R M ) ) R
0012520 E T R Y ( R E T U R N ( C L
0012540 : I F ( T Y P E P V A L (
0012560 Q U O T E \r T Y P E S P E C )
0012600 ) V A L ( P R O G N ( S E
0012620 T Q V A L ( \ C H E C K - T
0012640 Y P E - F A I L " v a l u e "
0012660 V A L ( Q U O T E T Y P E
0012700 S P E C ) ) ) ( G O R E T R
0012720 Y ) ) ) ) ) ) ) \r ( P U T P R O
0012740 P S D E F T Y P E P R O P T
0012760 Y P E T Y P E S ) \r ( P U T P
0013000 R O P S T Y P E - D O C U M E
0013020 N T A T I O N P R O P T Y P E
0013040 T Y P E S ) \r ( P U T P R O P
0013060 S T Y P E - P R E D I C A T E
0013100 P R O P T Y P E T Y P E S )
0013120 \r ( M O V D ( Q U O T E S T
0013140 R I N G P ) ( Q U O T E S I
0013160 M P L E - S T R I N G - P ) ) \r
0013200 ( M O V D ( Q U O T E T Y P
0013220 E N A M E P ) ( Q U O T E S
0013240 T R U C T U R E - T Y P E P ) )
0013260 \r ( A D D T O V A R S Y S P R
0013300 O P S D E F T Y P E T Y P E
0013320 - D O C U M E N T A T I O N ) \r
0013340 ( P U T D E F ( Q U O T E T
0013360 Y P E S ) ( Q U O T E F I L
0013400 E P K G C O M S ) ( Q U O T E
0013420 ( ( T Y P E D E S C R I P T
0013440 I O N " t y p e s p e c i f
0013460 i e r s " G E T D E F \r T Y
0013500 P E S . G E T D E F ) ) ) ) \r (
0013520 P U T D E F ( Q U O T E A T
0013540 O M ) ( Q U O T E T Y P E S
0013560 ) ( Q U O T E ( P U T P R O
0013600 P S A T O M T Y P E - P R E
0013620 D I C A T E N L I S T P ) ) )
0013640 \r ( P U T D E F ( Q U O T E
0013660 B I G N U M ) ( Q U O T E T
0013700 Y P E S ) ( Q U O T E ( D E
0013720 F T Y P E B I G N U M N I L
0013740 ( Q U O T E ( N O T ( D A
0013760 T A T Y P E S M A L L P ) ) )
0014000 ) ) ) \r ( P U T D E F ( Q U O
0014020 T E B I T ) ( Q U O T E T
0014040 Y P E S ) ( Q U O T E ( D E
0014060 F T Y P E B I T N I L ( Q
0014100 U O T E ( M O D 2 ) ) ) ) )
0014120 \r ( P U T D E F ( Q U O T E
0014140 C H A R A C T E R ) ( Q U O T
0014160 E T Y P E S ) ( Q U O T E
0014200 ( D E F T Y P E C H A R A C T
0014220 E R N I L ( Q U O T E ( S
0014240 A T I S F I E S C H A R A C T
0014260 E R P ) ) ) ) \r ) \r ( P U T D E
0014300 F ( Q U O T E C O N S ) (
0014320 Q U O T E T Y P E S ) ( Q U
0014340 O T E ( D E F T Y P E C O N
0014360 S N I L ( Q U O T E ( D A
0014400 T A T Y P E L I S T P ) ) ) )
0014420 ) \r ( P U T D E F ( Q U O T E
0014440 D O U B L E - F L O A T ) (
0014460 Q U O T E T Y P E S ) ( Q U
0014500 O T E ( D E F T Y P E D O U
0014520 B L E - F L O A T ( & R E S T
0014540 X ) ( C O N S ( Q U O T E
0014560 F L O A T ) \r X ) ) ) ) \r (
0014600 P U T D E F ( Q U O T E F I
0014620 X N U M ) ( Q U O T E T Y P
0014640 E S ) ( Q U O T E ( D E F T
0014660 Y P E F I X N U M N I L (
0014700 Q U O T E ( D A T A T Y P E
0014720 S M A L L P ) ) ) ) ) \r ( P U T
0014740 D E F ( Q U O T E F L O A T
0014760 ) ( Q U O T E T Y P E S )
0015000 ( Q U O T E ( D E F T Y P E
0015020 F L O A T ( & O P T I O N A L
0015040 L O W H I G H ) ( \ R A N
0015060 G E . T Y P E ( Q U O T E (
0015100 \r D A T A T Y P E F L O A T P
0015120 ) ) L O W H I G H ) ) ) ) \r
0015140 ( P U T D E F ( Q U O T E H
0015160 A S H - T A B L E ) ( Q U O T
0015200 E T Y P E S ) ( Q U O T E
0015220 ( D E F T Y P E H A S H - T A
0015240 B L E N I L ( Q U O T E (
0015260 D A T A T Y P E H A R R A Y P
0015300 ) ) ) ) ) \r ( P U T D E F ( Q
0015320 U O T E I N T E G E R ) ( Q
0015340 U O T E T Y P E S ) ( Q U O
0015360 T E ( D E F T Y P E I N T E
0015400 G E R ( & O P T I O N A L L
0015420 O W H I G H ) ( \ R A N G E
0015440 . T Y P E ( Q U O T E \r ( S
0015460 A T I S F I E S F I X P ) )
0015500 L O W H I G H ( Q U O T E
0015520 ( ( - 6 5 5 3 6 6 5 5 3 5 F
0015540 I X N U M ) ( 0 1 ( M E M
0015560 B E R 0 1 ) ) ) ) ) ) ) ) \r
0015600 ( P U T D E F ( Q U O T E K
0015620 E Y W O R D ) ( Q U O T E T
0015640 Y P E S ) ( Q U O T E ( D E
0015660 F T Y P E K E Y W O R D N I
0015700 L ( Q U O T E ( S A T I S F
0015720 I E S \ K E Y W O R D P ) ) )
0015740 ) ) \r ( P U T D E F ( Q U O T
0015760 E L I S T ) ( Q U O T E T
0016000 Y P E S ) ( Q U O T E ( D E
0016020 F T Y P E L I S T N I L (
0016040 Q U O T E ( O R C O N S N
0016060 U L L ) ) ) ) ) \r ( P U T D E F
0016100 ( Q U O T E L O N G - F L O
0016120 A T ) ( Q U O T E T Y P E S
0016140 ) ( Q U O T E ( D E F T Y P
0016160 E L O N G - F L O A T ( & R
0016200 E S T X ) ( C O N S ( Q U
0016220 O T E F L O A T ) X ) ) ) \r
0016240 ) \r ( P U T D E F ( Q U O T E
0016260 M E M B E R ) ( Q U O T E
0016300 T Y P E S ) ( Q U O T E ( D
0016320 E F T Y P E M E M B E R ( &
0016340 R E S T V A L U E S ) ( B Q
0016360 U O T E ( S A T I S F I E S
0016400 ( L A M B D A \r ( X ) ( C L
0016420 : M E M B E R X ( Q U O T E
0016440 ( \ , V A L U E S ) ) ) ) )
0016460 ) ) ) ) \r ( P U T D E F ( Q U
0016500 O T E M O D ) ( Q U O T E
0016520 T Y P E S ) ( Q U O T E ( D
0016540 E F T Y P E M O D ( N ) (
0016560 B Q U O T E ( I N T E G E R
0016600 0 ( \ , ( S U B 1 N ) ) )
0016620 ) ) ) ) \r ( P U T D E F ( Q U
0016640 O T E N U L L ) ( Q U O T E
0016660 T Y P E S ) ( Q U O T E (
0016700 D E F T Y P E N U L L N I L
0016720 ( Q U O T E ( M E M B E R
0016740 N I L ) ) ) ) ) \r ( P U T D E F
0016760 ( Q U O T E N U M B E R )
0017000 ( Q U O T E T Y P E S ) ( Q
0017020 U O T E ( D E F T Y P E N U
0017040 M B E R N I L ( Q U O T E
0017060 ( S A T I S F I E S N U M B E
0017100 R P ) ) ) ) ) \r ( P U T D E F
0017120 ( Q U O T E S H O R T - F L O
0017140 A T ) ( Q U O T E T Y P E S
0017160 ) ( Q U O T E ( D E F T Y P
0017200 E S H O R T - F L O A T ( &
0017220 R E S T R E S T ) ( C O N S
0017240 ( Q U O T E F L O A T ) \r
0017260 R E S T ) ) ) ) \r ( P U T D E F
0017300 ( Q U O T E S I G N E D - B
0017320 Y T E ) ( Q U O T E T Y P E
0017340 S ) ( Q U O T E ( D E F T Y
0017360 P E S I G N E D - B Y T E (
0017400 & O P T I O N A L S ) ( i f
0017420 ( E Q S ( Q U O T E * \r
0017440 ) ) t h e n ( Q U O T E I
0017460 N T E G E R ) e l s e ( B Q
0017500 U O T E ( I N T E G E R ( \
0017520 , ( M I N U S ( S E T Q S
0017540 ( E X P T 2 ( S U B 1 S
0017560 ) ) ) ) ) ( \ , ( S U B 1
0017600 S ) ) ) ) ) \r ) ) ) \r ( P U T D
0017620 E F ( Q U O T E S T A N D A
0017640 R D - C H A R ) ( Q U O T E
0017660 T Y P E S ) ( Q U O T E ( D
0017700 E F T Y P E S T A N D A R D -
0017720 C H A R N I L ( Q U O T E
0017740 ( S A T I S F I E S \r S T A N
0017760 D A R D - C H A R - P ) ) ) ) )
0020000 \r ( P U T D E F ( Q U O T E
0020020 S I N G L E - F L O A T ) ( Q
0020040 U O T E T Y P E S ) ( Q U O
0020060 T E ( D E F T Y P E S I N G
0020100 L E - F L O A T ( & R E S T
0020120 R E S T ) ( C O N S ( Q U O
0020140 T E \r F L O A T ) R E S T )
0020160 ) ) ) \r ( P U T D E F ( Q U O
0020200 T E S Y M B O L ) ( Q U O T
0020220 E T Y P E S ) ( Q U O T E
0020240 ( D E F T Y P E S Y M B O L
0020260 N I L ( Q U O T E ( D A T A
0020300 T Y P E L I T A T O M ) ) ) )
0020320 ) \r ( P U T D E F ( Q U O T E
0020340 U N S I G N E D - B Y T E )
0020360 ( Q U O T E T Y P E S ) ( Q
0020400 U O T E ( D E F T Y P E U N
0020420 S I G N E D - B Y T E ( & O P
0020440 T I O N A L S ) ( i f ( E
0020460 Q S ( \r Q U O T E * ) )
0020500 t h e n ( Q U O T E ( I N T
0020520 E G E R 0 ) ) e l s e ( B
0020540 Q U O T E ( I N T E G E R 0
0020560 ( ( \ , ( E X P T 2 S )
0020600 ) ) ) ) ) ) ) ) \r ( P U T D E F
0020620 ( Q U O T E A R R A Y ) (
0020640 Q U O T E T Y P E S ) ( Q U
0020660 O T E ( D E F T Y P E A R R
0020700 A Y ( & O P T I O N A L ( E
0020720 L E M E N T - T Y P E ( Q U O
0020740 T E * ) ) ( \r D I M E N S I
0020760 O N S ( Q U O T E * ) ) )
0021000 ( P R O G N ( i f ( A N D
0021020 ( N L I S T P D I M E N S I O
0021040 N S ) ( N E Q D I M E N S I
0021060 O N S ( Q U O T E * ) ) )
0021100 t h e n ( S E T Q \r D I M E
0021120 N S I O N S ( t o D I M E N
0021140 S I O N S c o l l e c t ( Q
0021160 U O T E * ) ) ) ) ( i f (
0021200 A N D ( E Q E L E M E N T -
0021220 T Y P E ( Q U O T E S T R I
0021240 N G - C H A R ) ) ( I L E S S
0021260 P \r ( L E N G T H D I M E N
0021300 S I O N S ) 2 ) ) t h e n
0021320 ( i f ( M E M B E R D I M E
0021340 N S I O N S ( Q U O T E ( *
0021360 ( * ) ) ) ) t h e n ( Q U
0021400 O T E ( D A T A T Y P E S T
0021420 R I N G P ) ) \r e l s e ( B
0021440 Q U O T E ( A N D ( D A T A
0021460 T Y P E S T R I N G P ) ( S
0021500 A T I S F I E S ( L A M B D A
0021520 ( X ) ( = ( N C H A R S
0021540 X ) , ( C A R D I M E N S
0021560 I O N S ) ) ) ) ) ) ) \r e l s
0021600 e i f ( N E Q E L E M E N T
0021620 - T Y P E ( Q U O T E * ) )
0021640 t h e n ( B Q U O T E ( A
0021660 N D ( A R R A Y * ( \ ,
0021700 D I M E N S I O N S ) ) ( S A
0021720 T I S F I E S ( L A M B D A
0021740 ( X ) \r ( E Q U A L ( A R R
0021760 A Y - E L E M E N T - T Y P E
0022000 X ) ( Q U O T E ( \ , E L
0022020 E M E N T - T Y P E ) ) ) ) ) )
0022040 ) e l s e i f ( A N D ( E
0022060 Q E L E M E N T - T Y P E (
0022100 Q U O T E * ) ) \r ( E Q D
0022120 I M E N S I O N S ( Q U O T E
0022140 * ) ) ) t h e n ( Q U O T
0022160 E ( O R ( D A T A T Y P E
0022200 A R R A Y ) ( D A T A T Y P E
0022220 S T R I N G P ) ( D A T A T
0022240 Y P E A R R A Y P ) ( \r D A
0022260 T A T Y P E B I T M A P ) ) )
0022300 e l s e i f ( E Q U A L D
0022320 I M E N S I O N S ( Q U O T E
0022340 ( * ) ) ) t h e n ( i f
0022360 ( E Q E L E M E N T - T Y P E
0022400 ( Q U O T E S T R I N G - C
0022420 H A R ) \r ) t h e n ( Q U O
0022440 T E S T R I N G ) e l s e
0022460 ( Q U O T E V E C T O R ) )
0022500 e l s e i f ( E Q E L E M E
0022520 N T - T Y P E ( Q U O T E *
0022540 ) ) t h e n ( B Q U O T E
0022560 ( S A T I S F I E S \r ( L A M
0022600 B D A ( X ) ( A N D ( C L
0022620 : A R R A Y P X ) , ( i f
0022640 ( O R ( N L I S T P D I M
0022660 E N S I O N S ) ( i f ( E V
0022700 E R Y D I M E N S I O N S (
0022720 F U N C T I O N ( L A M B D A
0022740 ( \r X ) ( E Q X ( Q U O
0022760 T E * ) ) ) ) ) t h e n (
0023000 S E T Q D I M E N S I O N S
0023020 ( L E N G T H D I M E N S I O
0023040 N S ) ) ) ) t h e n ( B Q U
0023060 O T E ( E Q ( A R R A Y - R
0023100 A N K X ) , \r D I M E N S
0023120 I O N S ) ) e l s e ( B Q U
0023140 O T E ( \ A R R A Y . D I M E
0023160 N S I O N S . M A T C H ( A R
0023200 R A Y - D I M E N S I O N S X
0023220 ) ( Q U O T E , D I M E N
0023240 S I O N S ) ) ) ) ) ) ) ) \r e
0023260 l s e ( E R R O R " B a d
0023300 ( f i n a l ) a r r a y t y
0023320 p e d e s i g n a t o r " (
0023340 B Q U O T E ( A R R A Y ,
0023360 E L E M E N T - T Y P E , D
0023400 I M E N S I O N S ) ) ) ) ) ) )
0023420 ) \r ( P U T D E F ( Q U O T E
0023440 V E C T O R ) ( Q U O T E
0023460 T Y P E S ) ( Q U O T E ( D
0023500 E F T Y P E V E C T O R ( &
0023520 O P T I O N A L ( E L E M E N
0023540 T - T Y P E ( Q U O T E * )
0023560 ) ( S I Z E \r ( Q U O T E
0023600 * ) ) ) ( i f ( E Q E L E
0023620 M E N T - T Y P E ( Q U O T E
0023640 * ) ) t h e n ( i f ( E
0023660 Q S I Z E ( Q U O T E * )
0023700 ) t h e n ( B Q U O T E (
0023720 S A T I S F I E S \r V E C T O
0023740 R P ) ) e l s e ( B Q U O T
0023760 E ( A N D ( S A T I S F I E
0024000 S V E C T O R P ) ( S A T I
0024020 S F I E S ( L A M B D A ( V
0024040 ) ( I E Q P ( A R R A Y - D
0024060 I M E N S I O N V 0 ) ,
0024100 \r S I Z E ) ) ) ) ) ) e l s e
0024120 ( B Q U O T E ( A R R A Y
0024140 , E L E M E N T - T Y P E (
0024160 * ) ) ) ) ) ) ) \r ( P U T D E F
0024200 ( Q U O T E S I M P L E - S
0024220 T R I N G ) ( Q U O T E T Y
0024240 P E S ) ( Q U O T E ( D E F
0024260 T Y P E S I M P L E - S T R I
0024300 N G N I L ( Q U O T E ( S
0024320 A T I S F I E S \r S T R I N G
0024340 P ) ) ) ) ) \r ( P U T D E F (
0024360 Q U O T E S T R I N G ) ( Q
0024400 U O T E T Y P E S ) ( Q U O
0024420 T E ( D E F T Y P E S T R I
0024440 N G ( & O P T I O N A L S I
0024460 Z E ) ( i f ( O R ( N U L
0024500 L S I Z E ) ( E Q \r S I Z
0024520 E ( Q U O T E * ) ) ) t h
0024540 e n ( Q U O T E ( S A T I S
0024560 F I E S S T R I N G P ) ) e
0024600 l s e ( B Q U O T E ( S A T
0024620 I S F I E S ( L A M B D A (
0024640 X ) ( A N D ( S T R I N G P
0024660 X ) \r ( E Q L ( N C H A R
0024700 S X ) ( \ , S I Z E ) ) )
0024720 ) ) ) ) ) ) ) \r ( P U T D E F
0024740 ( Q U O T E S I M P L E - A R
0024760 R A Y ) ( Q U O T E T Y P E
0025000 S ) ( Q U O T E ( D E F T Y
0025020 P E S I M P L E - A R R A Y
0025040 ( & O P T I O N A L ( E L E M
0025060 E N T - T Y P E ( \r Q U O T E
0025100 * ) ) ( D I M S P E C ( Q
0025120 U O T E * ) ) ) ( i f ( E
0025140 Q E L E M E N T - T Y P E (
0025160 Q U O T E * ) ) t h e n (
0025200 i f ( E Q D I M S P E C (
0025220 Q U O T E * ) ) t h e n (
0025240 \r B Q U O T E ( S A T I S F I
0025260 E S S I M P L E - A R R A Y -
0025300 P ) ) e l s e ( B Q U O T E
0025320 ( A N D ( S A T I S F I E S
0025340 S I M P L E - A R R A Y - P )
0025360 ( A R R A Y * , D I M S
0025400 P E C ) ) ) ) \r e l s e ( B
0025420 Q U O T E ( A N D ( S A T I
0025440 S F I E S S I M P L E - A R R
0025460 A Y - P ) ( A R R A Y , E
0025500 L E M E N T - T Y P E , D I
0025520 M S P E C ) ) ) ) ) ) ) \r ( P U
0025540 T D E F ( Q U O T E S I M P
0025560 L E - V E C T O R ) ( Q U O T
0025600 E T Y P E S ) ( Q U O T E
0025620 ( D E F T Y P E S I M P L E -
0025640 V E C T O R ( & O P T I O N A
0025660 L ( S I Z E ( Q U O T E *
0025700 ) ) ) \r ( i f ( E Q S I Z
0025720 E ( Q U O T E * ) ) t h e
0025740 n ( B Q U O T E ( S A T I S
0025760 F I E S S I M P L E - V E C T
0026000 O R - P ) ) e l s e ( B Q U
0026020 O T E ( A N D ( S A T I S F
0026040 I E S \r S I M P L E - V E C T
0026060 O R - P ) ( S A T I S F I E S
0026100 ( L A M B D A ( V ) ( I E
0026120 Q P ( A R R A Y - D I M E N S
0026140 I O N V 0 ) , S I Z E )
0026160 ) ) ) ) ) ) ) ) \r ( P U T D E F
0026200 ( Q U O T E B I T - V E C T
0026220 O R ) ( Q U O T E T Y P E S
0026240 ) ( Q U O T E ( D E F T Y P
0026260 E B I T - V E C T O R ( & O
0026300 P T I O N A L ( S I Z E ( Q
0026320 U O T E * ) ) ) ( i f ( \r
0026340 E Q S I Z E ( Q U O T E *
0026360 ) ) t h e n ( B Q U O T E
0026400 ( S A T I S F I E S B I T - V
0026420 E C T O R - P ) ) e l s e (
0026440 B Q U O T E ( A N D ( S A T
0026460 I S F I E S B I T - V E C T O
0026500 R - P ) ( \r S A T I S F I E S
0026520 ( L A M B D A ( V ) ( I E
0026540 Q P ( A R R A Y - D I M E N S
0026560 I O N V 0 ) , S I Z E )
0026600 ) ) ) ) ) ) ) ) \r ( P U T D E F
0026620 ( Q U O T E S I M P L E - B
0026640 I T - V E C T O R ) ( Q U O T
0026660 E T Y P E S ) ( Q U O T E
0026700 ( D E F T Y P E S I M P L E -
0026720 B I T - V E C T O R ( & O P T
0026740 I O N A L ( S I Z E ( \r Q U
0026760 O T E * ) ) ) ( i f ( E Q
0027000 S I Z E ( Q U O T E * ) )
0027020 t h e n ( B Q U O T E ( S
0027040 A T I S F I E S S I M P L E -
0027060 B I T - V E C T O R - P ) ) e
0027100 l s e ( B Q U O T E ( A N D
0027120 ( \r S A T I S F I E S S I M
0027140 P L E - B I T - V E C T O R - P
0027160 ) ( S A T I S F I E S ( L A
0027200 M B D A ( V ) ( I E Q P (
0027220 A R R A Y - D I M E N S I O N
0027240 V 0 ) , S I Z E ) ) ) ) )
0027260 ) ) ) ) \r ( P U T P R O P S A
0027300 R R A Y P C M L T Y P E A R
0027320 R A Y ) \r ( P U T P R O P S C
0027340 M L A R R A Y C M L T Y P E
0027360 A R R A Y ) \r ( P U T P R O P S
0027400 F I X P C M L T Y P E B I
0027420 G N U M ) \r ( P U T P R O P S
0027440 F L O A T P C M L T Y P E S
0027460 I N G L E - F L O A T ) \r ( P U
0027500 T P R O P S L I S T P C M L
0027520 T Y P E C O N S ) \r ( P U T P
0027540 R O P S L I T A T O M C M L
0027560 T Y P E S Y M B O L ) \r ( P U
0027600 T P R O P S S M A L L P C M
0027620 L T Y P E F I X N U M ) \r ( P
0027640 U T P R O P S S T R I N G P
0027660 C M L T Y P E S I M P L E - S
0027700 T R I N G ) \r ( P U T P R O P S
0027720 H A R R A Y P C M L T Y P E
0027740 H A S H - A R R A Y ) \r ( P U
0027760 T P R O P S S Y M B O L C M
0030000 L S U B T Y P E D E S C R I M I
0030020 N A T O R ( L A M B D A ( X
0030040 ) ( C L : I F ( \ K E Y W O
0030060 R D P X ) ( Q U O T E K E
0030100 Y W O R D ) ( Q U O T E \r S
0030120 Y M B O L ) ) ) ) \r ( P U T P R
0030140 O P S C H A R A C T E R T Y
0030160 P E - C O E R C E C L : C H A
0030200 R A C T E R ) \r ( P U T P R O P
0030220 S F L O A T T Y P E - C O E
0030240 R C E F L O A T ) \r ( P U T P
0030260 R O P S S I M P L E - S T R I
0030300 N G T Y P E - C O E R C E M
0030320 K S T R I N G ) \r ( R P A Q \
0030340 C O E R C E M A C R O H A S H
0030360 ( H A S H A R R A Y 3 0 ) ) \r
0030400 ( D E F M A C R O T Y P E C A
0030420 S E ( K E Y F O R M & R E S
0030440 T F O R M S ) \r " T y p e
0030460 d i s p a t c h , o r d e r
0030500 i s i m p o r t a n t , m o
0030520 r e s p e c i f i c t y p e
0030540 s s h o u l d a p p e a r
0030560 f i r s t " ( B Q U O T E (
0030600 L E T ( ( \r $ $ T Y P E - V A
0030620 L U E , K E Y F O R M ) )
0030640 ( C O N D . , ( C L : M A P
0030660 C A R ( F U N C T I O N ( L
0030700 A M B D A ( F O R M ) ( L E
0030720 T ( ( T Y P E ( C L : I F
0030740 ( E Q ( C A R F O R M \r )
0030760 ( B Q U O T E O T H E R W I S
0031000 E ) ) T ( C A R F O R M )
0031020 ) ) ( F O R M ( C D R F O
0031040 R M ) ) ) ( B Q U O T E ( (
0031060 T Y P E P $ $ T Y P E - V A L
0031100 U E ( Q U O T E , T Y P E
0031120 ) ) \r . , F O R M ) ) ) ) )
0031140 F O R M S ) ) ) ) ) \r ( P U T
0031160 P R O P S C M L T Y P E S C
0031200 O P Y R I G H T ( " X e r o x
0031220 C o r p o r a t i o n " 1 9
0031240 8 5 1 9 8 6 ) ) \r N I L \r
0031256