$ 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