$ od -c -N 50000 [eris]<LispCore>CML>LAB>ARRAYTEST.DCOM!1
0000000 ( F I L E C R E A T E D " 2 4
0000020 - F e b - 8 6 1 7 : 0 7 : 1 9
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < F I S C H E R
0000100 > A R R A Y T E S T . ; 2 7 )
0000120 " 1 5 - F e b - 8 6 1 5 : 5 0
0000140 : 4 5 " \r r e c o m p i l e d
0000160 c h a n g e s : D U M P W O
0000200 R D S M A K E - N E W A R R A
0000220 Y M A K E - R A N K V E C T O
0000240 R N E W A R R A Y - D I M E N
0000260 S I O N S N E W A R R A Y - R
0000300 A N K \r P R I N T - R A N K V
0000320 E C T O R P R I N T - N E W A
0000340 R R A Y \ A R R A Y I N D E X
0000360 . U F N \ R A N K T R I P L E
0000400 R E F i n " X e r o x L i
0000420 s p 1 5 - F e b - 8 6 . . .
0000440 " d a t e d \r " 1 5 - F e b
0000460 - 8 6 1 6 : 0 3 : 5 2 " ) \r (
0000500 F I L E C R E A T E D " 2 4 -
0000520 F e b - 8 6 1 7 : 0 7 : 0 2 "
0000540 { E R I S } < F I S C H E R >
0000560 A R R A Y T E S T . ; 2 7 7 8
0000600 6 4 c h a n g e s t o : (
0000620 R E C O R D S R A N K V E C T
0000640 O R \r R A N K T R I P L E N
0000660 E W A R R A Y ) ( F N S \ R
0000700 A N K T R I P L E R E F M A K
0000720 E - R A N K V E C T O R D U M
0000740 P W O R D S \ A R R A Y I N D
0000760 E X . U F N P R I N T - N E W
0001000 A R R A Y \r M A K E - N E W A
0001020 R R A Y N E W A R R A Y - D I
0001040 M E N S I O N S P R I N T - R
0001060 A N K V E C T O R N E W A R R
0001100 A Y - R A N K ) ( V A R S A
0001120 R R A Y T E S T C O M S ) p r
0001140 e v i o u s d a t e : \r " 2
0001160 0 - F e b - 8 6 1 6 : 0 0 : 1
0001200 5 " { E R I S } < F I S C H E
0001220 R > A R R A Y T E S T . ; 2 5 )
0001240 \r D U M P W O R D S D 1 \r ( P
0001260 1 I I 1 N I 0 H
0001300 ) \0 + 002 \0 \0 002 A k 331 j 021 002 001 I
0001320 H 363 263 033 o \0 \0 \0 i \n \0 \0 277 @ I 320
0001340 310 \0 i \n \0 \0 277 I k 324 Y 260 345 023 \b \0
0001360 \0 020 \0 ( 5 0 Q T E R P R I 3
0001400 5 Q P R I N 1 2 3 Q P R I
0001420 N 1 ) \r N I L \r ( 1 7 Q "
0001440 " ) \r M A K E - N E W A R R A Y
0001460 D 1 \r ( I 0 D I M S ) \0
0001500 023 002 \0 \0 001 ` \0 \0 037 @ \t \0 \0 021 002 001
0001520 H d I 024 \0 277 020 \0 ( 7 M A K E -
0001540 R A N K V E C T O R ) \r ( 2 004
0001560 003 N E W A R R A Y T Y P E # ) \r
0001600 ( ) \r M A K E - R A N K V E C T
0001620 O R D 1 \r ( P 6 D I M E N
0001640 S I O N P 5 I P 2 R
0001660 V P 0 R A N K I 0 D
0001700 I M S ) \0 d \a \0 \0 001 @ 265 \v o \0
0001720 \0 \0 \t \0 \0 277 @ \t \0 \0 021 021 001 H l 006
0001740 332 l 002 330 j h l 020 \f \0 \0 021 001 002 J H
0001760 315 001 H k 331 @ j 021 023 006 L 003 265 004 J 020
0002000 001 276 M K 363 263 371 N 3 276 J M \n \0 \0
0002020 Y j 314 \0 277 I H k 360 221 N 200 j 314 002 277
0002040 I N 314 004 277 L 002 274 M k 324 275 260 316 \0 (
0002060 1 0 4 Q \ R A N K T R I P L E
0002100 R E F 3 7 Q \ A L L O C B L
0002120 O C K 1 6 Q L E N G T H 1
0002140 1 Q E R R O R ) \r N I L \r (
0002160 6 " N o d i m e n s i o n s
0002200 g i v e n " ) \r N E W A R R A
0002220 Y - D I M E N S I O N S D 1 \r
0002240 ( P 2 I P 0 R A N K V
0002260 E C T O R I 0 A R R A Y )
0002300 \0 5 006 \0 \0 001 @ 006 \0 \0 311 \0 021 001 \0
0002320 H 310 001 k 331 j 021 2 005 J I 363 263 035 H J
0002340 \n \0 \0 313 004 275 L 265 \r M h 032 \ 273 J k
0002360 324 Z 260 350 M & 274 260 367 K 020 \0 ( 3 3 Q
0002400 \ R A N K T R I P L E R E F )
0002420 \r ( 3 N E W A R R A Y ) \r ( )
0002440 \r N E W A R R A Y - R A N K D
0002460 1 \r ( L ( 0 A ) ) \0 \n \0 \0
0002500 \0 001 @ 006 \0 \0 311 \0 310 001 020 \0 N I L \r
0002520 ( 3 N E W A R R A Y ) \r ( ) \r
0002540 P R I N T - R A N K V E C T O R
0002560 D 1 \r ( P 2 I P 0 R
0002600 A N K I 0 R V ) \0 H 003 \0
0002620 \0 001 @ 310 001 021 001 \0 o \0 \0 \0 i \n \0 \0
0002640 277 H i \n \0 \0 H l 006 332 l 002 021 002 002 J
0002660 I 363 263 034 o \0 \0 \0 i \n \0 \0 277 @ J 320
0002700 313 \0 i \n \0 \0 277 J l 002 324 Z 260 344 023 o
0002720 \0 \0 \0 i \n \0 \0 @ 020 \0 ( 1 0 4 Q
0002740 P R I N 1 6 3 Q P R I N 1
0002760 5 1 Q P R I N 1 2 3 Q P R
0003000 I N 1 1 5 Q P R I N 1 ) \r N
0003020 I L \r ( 1 0 0 Q " > " 4 5
0003040 Q " " 1 1 Q " # < R A N
0003060 K V E C T O R : D I M S " )
0003100 \r P R I N T - N E W A R R A Y
0003120 D 1 \r ( P 1 I P 0 R A
0003140 N K I 0 A R R A Y F 2
0003160 \ C M L . R E A D P R E F I X
0003200 ) \0 > 002 001 \0 001 @ \t \0 \0 021 001 \0 R
0003220 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0 @ \t \0
0003240 \0 260 027 d 001 021 001 001 o \0 \0 \0 i \n \0 \0
0003260 277 I i \n \0 \0 023 002 003 265 352 o \0 \0 \0 i
0003300 \n \0 \0 @ 020 \0 ( 7 2 Q P R I N 1
0003320 5 5 Q P R I N 1 4 7 Q P
0003340 R I N 1 3 0 Q N E W A R R A
0003360 Y - D I M E N S I O N S 2 4 Q
0003400 P R I N 1 1 3 Q P R I N 1
0003420 3 N E W A R R A Y - R A N K
0003440 ) \r N I L \r ( 6 6 Q " > "
0003460 4 3 Q " " 2 0 Q " < N E
0003500 W A R R A Y , D I M E N S I O
0003520 N S : " ) \r \ A R R A Y I N D
0003540 E X . U F N D 1 \r ( P 1 4 Q
0003560 I N D E X P 1 3 Q L E N
0003600 G T H P 1 2 Q F I L L P
0003620 1 1 Q O F F S E T P 1 0
0003640 Q R A N K T R I P L E P 7
0003660 I P 5 R A N K P 4
0003700 R A N K V E C T O R P 3 A
0003720 R R A Y P 2 L A S T W I D
0003740 T H P 1 F I N A L I N D E
0003760 X P 0 A R G S ) \0 222 \r \0
0004000 002 \0 e 021 001 \0 j 021 A 005 k 272 @ [ 006 \0
0004020 \0 311 \0 \ 310 001 ] H k 331 360 250 o \0 \0 \0
0004040 K \n \0 \0 277 j M k 331 021 002 \a N O 016 363
0004060 263 a L O 016 \n \0 \0 021 001 \b O 020 313 \0 O
0004100 020 313 002 O 020 313 004 O 016 l 002 330 a 021 004 \f
0004120 j O 030 361 231 o \0 \0 \0 O 030 \n \0 \0 277 M
0004140 k : 222 O 024 201 O 026 O 030 361 237 I J O 022
0004160 O 030 324 326 324 271 J O 026 326 Z 210 o \0 \0 \0
0004200 O 030 \n \0 \0 023 023 O 016 m 377 324 _ 016 277 260
0004220 235 I 020 \0 ( 2 0 2 Q E R R O R
0004240 1 3 3 Q E R R O R 6 5 Q \
0004260 R A N K T R I P L E R E F 4 1
0004300 Q E R R O R ) \r ( 1 6 Q N E
0004320 W A R R A Y ) \r ( 1 7 5 Q "
0004340 I n d e x o u t o f b o u
0004360 n d s " 1 2 6 Q " I n d e
0004400 x m u s t b e p o s i t i
0004420 v e " 3 5 Q " D i m e n s i
0004440 o n a l i t y m i s m a t c h
0004460 " ) \r \ R A N K T R I P L E R E
0004500 F D 1 \r ( L ( 1 I N D E X
0004520 0 R A N K V E C T O R ) )
0004540 \0 \v \0 \0 \0 002 @ A l 006 332 l 002 330 320 020
0004560 \0 N I L \r N I L \r ( ) \r ( P R E
0004600 T T Y C O M P R I N T A R R A
0004620 Y T E S T C O M S ) \r ( R P A Q
0004640 Q A R R A Y T E S T C O M S
0004660 ( ( R E C O R D S N E W A R R
0004700 A Y R A N K T R I P L E R A
0004720 N K V E C T O R ) ( F N S D
0004740 U M P W O R D S M A K E - N E
0004760 W A R R A Y \r M A K E - R A N
0005000 K V E C T O R N E W A R R A Y
0005020 - D I M E N S I O N S N E W A
0005040 R R A Y - R A N K P R I N T -
0005060 R A N K V E C T O R P R I N T
0005100 - N E W A R R A Y \ A R R A Y
0005120 I N D E X . U F N \r \ R A N K
0005140 T R I P L E R E F ) ( P ( D
0005160 E F P R I N T ( Q U O T E N
0005200 E W A R R A Y ) ( Q U O T E
0005220 P R I N T - N E W A R R A Y ) )
0005240 ( M O V D ( Q U O T E \ A
0005260 R R A Y I N D E X . U F N ) (
0005300 \r Q U O T E \ A R R A Y I N D
0005320 E X 1 ) ) ( M O V D ( Q U O
0005340 T E \ A R R A Y I N D E X . U
0005360 F N ) ( Q U O T E \ A R R A
0005400 Y I N D E X 2 ) ) ) ( P R O P
0005420 D O P V A L A R R A Y I N D
0005440 E X 1 \r A R R A Y I N D E X 2
0005460 ) ( D E C L A R E : D O N T
0005500 E V A L @ L O A D D O E V A L
0005520 @ C O M P I L E D O N T C O P
0005540 Y C O M P I L E R V A R S (
0005560 A D D V A R S ( N L A M A )
0005600 ( N L A M L ) ( \r L A M A \
0005620 A R R A Y I N D E X . U F N ) )
0005640 ) ) ) \r ( D A T A T Y P E N E
0005660 W A R R A Y ( ( R A N K V E C
0005700 T O R P O I N T E R ) ( B A
0005720 S E P O I N T E R ) ) ) \r ( B
0005740 L O C K R E C O R D R A N K T
0005760 R I P L E ( ( O F F S E T F
0006000 I X P ) ( F I L L F I X P )
0006020 ( L E N G T H F I X P ) ) )
0006040 \r ( B L O C K R E C O R D R A
0006060 N K V E C T O R ( ( E L E M E
0006100 N T T Y P E W O R D ) ( R A
0006120 N K W O R D ) ) ) \r ( / D E C
0006140 L A R E D A T A T Y P E ( Q U
0006160 O T E N E W A R R A Y ) ( Q
0006200 U O T E ( P O I N T E R P O
0006220 I N T E R ) ) ( Q U O T E (
0006240 ( N E W A R R A Y 0 P O I N
0006260 T E R ) ( N E W A R R A Y 2
0006300 \r P O I N T E R ) ) ) ( Q U
0006320 O T E 4 ) ) \r ( D E F P R I N
0006340 T ( Q U O T E N E W A R R A
0006360 Y ) ( Q U O T E P R I N T -
0006400 N E W A R R A Y ) ) \r ( M O V D
0006420 ( Q U O T E \ A R R A Y I N
0006440 D E X . U F N ) ( Q U O T E
0006460 \ A R R A Y I N D E X 1 ) ) \r (
0006500 M O V D ( Q U O T E \ A R R
0006520 A Y I N D E X . U F N ) ( Q U
0006540 O T E \ A R R A Y I N D E X 2
0006560 ) ) \r ( P U T P R O P S A R R
0006600 A Y I N D E X 1 D O P V A L
0006620 ( 2 A R R A Y I N D E X 1 ) )
0006640 \r ( P U T P R O P S A R R A Y
0006660 I N D E X 2 D O P V A L ( 3
0006700 A R R A Y I N D E X 2 ) ) \r (
0006720 P U T P R O P S A R R A Y T E
0006740 S T C O P Y R I G H T ( " X
0006760 e r o x C o r p o r a t i o n
0007000 " 1 9 8 6 ) ) \r N I L \r
0007015