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