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