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