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