$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>FLOAT-ARRAY-SUPPORT!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 5 - D e c - 8
0000140 6 1 8 : 2 3 : 4 4 " 006 004 { Q
0000160 V } < P E D E R S E N > L I S P
0000200 > F L O A T - A R R A Y - S U P
0000220 P O R T . ; 4 006 001 9 2 1 8
0000240 \r \r c h a n g e s
0000260 t o % : ( V A R S F L O
0000300 A T - A R R A Y - S U P P O R T
0000320 C O M S ) \r
0000340 ( F U N C T
0000360 I O N S S I N G L E - F L O A
0000400 T - V E C T O R - P S I N G L
0000420 E - F L O A T - A R R A Y - P
0000440 M A K E - F L O A T - V E C T O
0000460 R \r
0000500 M A
0000520 K E - F L O A T - A R R A Y %
0000540 % B L K F D I F F ) \r
0000560 (
0000600 P R O P S ( % % B L K F D I F
0000620 F D O P V A L ) ) \r \r
0000640 p r e v i o u s d a t e %
0000660 : " 2 1 - O c t - 8 6 1 3 :
0000700 2 8 : 2 3 " { Q V } < P E D E
0000720 R S E N > L I S P > F L O A T -
0000740 A R R A Y - S U P P P O R T . ;
0000760 1 ) \r \r \r ( * " \r C o p y r i
0001000 g h t ( c ) 1 9 8 6 b y
0001020 X e r o x C o r p o r a t i o
0001040 n . A l l r i g h t s r
0001060 e s e r v e d . \r " ) \r \r ( P R
0001100 E T T Y C O M P R I N T F L O
0001120 A T - A R R A Y - S U P P O R T
0001140 C O M S ) \r \r ( R P A Q Q 006 002
0001160 F L O A T - A R R A Y - S U P P
0001200 O R T C O M S 006 001 \r
0001220 ( ( F I L E S ( S Y S L O
0001240 A D F R O M V A L U E O F
0001260 D I R E C T O R I E S ) \r
0001300 U N B O
0001320 X E D O P S ) \r
0001340 ( F U N C T I O N S % % B L K
0001360 E X P O N E N T % % B L K F A
0001400 B S M A X % % B L K F A B S M
0001420 I N % % B L K F M A X % % B
0001440 L K F M I N % % B L K F P L U
0001460 S % % B L K F D I F F \r
0001500 % % B
0001520 L K F T I M E S % % B L K P E
0001540 R M % % B L K S M A L L P 2 F
0001560 L O A T % % F L O A T T O B Y
0001600 T E % % G E T - F L O A T - A
0001620 R R A Y - B A S E \r
0001640 % % I N S U
0001660 R E - A R R A Y % % M A T M U
0001700 L T - 1 3 3 % % M A T M U L T
0001720 - 1 4 4 % % M A T M U L T - 3
0001740 3 1 % % M A T M U L T - 3 3 3
0001760 % % M A T M U L T - 4 4 1 \r
0002000 %
0002020 % M A T M U L T - 4 4 4 % % M
0002040 U L 2 % % P O L Y - E V A L
0002060 % % T E S T - A R R A Y M A K
0002100 E - F L O A T - A R R A Y M A
0002120 K E - F L O A T - V E C T O R
0002140 \r
0002160 S I N G L E - F L O A T - A R R
0002200 A Y - P S I N G L E - F L O A
0002220 T - V E C T O R - P ) \r
0002240 ( O P T I M I Z E R S
0002260 % % P O L Y - E V A L % % M A
0002300 T M U L T - 1 3 3 % % M A T M
0002320 U L T - 1 4 4 % % M A T M U L
0002340 T - 3 3 1 % % M A T M U L T -
0002360 3 3 3 % % M A T M U L T - 4 4
0002400 1 \r
0002420 % % M A T M U L T - 4 4 4 )
0002440 \r ( P R O P D
0002460 O P V A L % % B L K E X P O N
0002500 E N T % % B L K F A B S M A X
0002520 % % B L K F A B S M I N % %
0002540 B L K F D I F F % % B L K F M
0002560 A X % % B L K F M I N \r
0002600 % % B L
0002620 K F P L U S % % B L K F T I M
0002640 E S % % B L K P E R M % % B
0002660 L K S M A L L P 2 F L O A T %
0002700 % F L O A T T O B Y T E ) \r
0002720 ( P R O P F I L E
0002740 T Y P E F L O A T - A R R A Y
0002760 - S U P P O R T ) \r
0003000 ( D E C L A R E % : D O N
0003020 T C O P Y D O E V A L @ C O M
0003040 P I L E D O N T E V A L @ L O
0003060 A D ( L O C A L V A R S .
0003100 T ) ) ) ) \r ( F I L E S L O A D
0003120 ( S Y S L O A D F R O M V
0003140 A L U E O F D I R E C T O R I
0003160 E S ) \r U N B O X
0003200 E D O P S ) \r \r ( C L : D E F U
0003220 N 006 002 % % B L K E X P O N E N
0003240 T 006 001 ( S O U R C E D E S T
0003260 S I Z E ) ( \ M I S C 3 . U
0003300 F N S O U R C E D E S T S
0003320 I Z E 0 ) ) \r \r \r ( C L : D E
0003340 F U N 006 002 % % B L K F A B S M
0003360 A X 006 001 ( B A S E Z E R O
0003400 S I Z E ) ( \ M I S C 3 . U F
0003420 N B A S E Z E R O S I Z E
0003440 6 ) ) \r \r \r ( C L : D E F U N
0003460 006 002 % % B L K F A B S M I N 006
0003500 001 ( B A S E Z E R O S I Z
0003520 E ) ( \ M I S C 3 . U F N B
0003540 A S E Z E R O S I Z E 7 )
0003560 ) \r \r \r ( C L : D E F U N 006 002
0003600 % % B L K F M A X 006 001 ( B A S
0003620 E Z E R O S I Z E ) ( \ M
0003640 I S C 3 . U F N B A S E Z E
0003660 R O S I Z E 4 ) ) \r \r \r ( C
0003700 L : D E F U N 006 002 % % B L K F
0003720 M I N 006 001 ( B A S E Z E R O
0003740 S I Z E ) ( \ M I S C 3 . U
0003760 F N B A S E Z E R O S I Z
0004000 E 5 ) ) \r \r \r ( C L : D E F U
0004020 N 006 002 % % B L K F P L U S 006 001
0004040 ( S O U R C E 1 S O U R C E
0004060 2 D E S T S I Z E ) ( \ M
0004100 I S C 4 . U F N S O U R C E 1
0004120 S O U R C E 2 D E S T S I
0004140 Z E 2 ) ) \r \r \r ( C L : D E F
0004160 U N 006 002 % % B L K F D I F F 006
0004200 001 ( S O U R C E 1 S O U R C
0004220 E 2 D E S T S I Z E ) ( \
0004240 M I S C 4 . U F N S O U R C E
0004260 1 S O U R C E 2 D E S T S
0004300 I Z E 3 ) ) \r \r \r ( C L : D E
0004320 F U N 006 002 % % B L K F T I M E
0004340 S 006 001 ( S O U R C E 1 S O U
0004360 R C E 2 D E S T S I Z E )
0004400 ( \ M I S C 4 . U F N S O U R
0004420 C E 1 S O U R C E 2 D E S T
0004440 S I Z E 0 ) ) \r \r \r ( C L :
0004460 D E F U N 006 002 % % B L K P E R
0004500 M 006 001 ( S O U R C E P E R M
0004520 U T A T I O N D E S T S I Z
0004540 E ) ( \ M I S C 4 . U F N S
0004560 O U R C E P E R M U T A T I O
0004600 N D E S T S I Z E 1 ) ) \r
0004620 \r \r ( C L : D E F U N 006 002 % %
0004640 B L K S M A L L P 2 F L O A T 006
0004660 001 ( S O U R C E D E S T S
0004700 I Z E ) ( \ M I S C 3 . U F N
0004720 S O U R C E D E S T S I Z
0004740 E 2 ) ) \r \r \r ( C L : D E F U
0004760 N 006 002 % % F L O A T T O B Y T
0005000 E 006 001 ( S O U R C E D E S T
0005020 S I Z E ) ( \ M I S C 3 . U
0005040 F N S O U R C E D E S T S
0005060 I Z E 8 ) ) \r \r \r ( D E F M A
0005100 C R O 006 002 % % G E T - F L O A
0005120 T - A R R A Y - B A S E 006 001 (
0005140 F L O A T - A R R A Y ) ` ( \
0005160 A D D B A S E ( % % A R R A Y
0005200 - B A S E , F L O A T - A R R
0005220 A Y ) \r
0005240
*
0005300 ( L L S H
0005320 ( % % A R R A Y - O F F S E T
0005340 , F L O A T - A R R A Y ) \r
0005360
*
0005440 1 ) ) )
0005460 \r \r \r ( D E F M A C R O 006 002 %
0005500 % I N S U R E - A R R A Y 006 001
0005520 ( R E S U L T T E S T - D I M
0005540 S & O P T I O N A L ( M A K
0005560 E - D I M S ( L I S T ' Q U
0005600 O T E T E S T - D I M S ) ) )
0005620 \r ` ( C L : I F , R E S
0005640 U L T ( % % T E S T - A R R A
0005660 Y , R E S U L T , T E S T -
0005700 D I M S ) \r
0005720 ( C L : M A K E - A R R A Y
0005740 , M A K E - D I M S : E L E M
0005760 E N T - T Y P E ' C L : S I N
0006000 G L E - F L O A T ) ) ) \r \r \r (
0006020 C L : D E F U N 006 002 % % M A T
0006040 M U L T - 1 3 3 006 001 ( M A T R
0006060 I X A B A S E M A T R I X B B
0006100 A S E M A T R I X C B A S E )
0006120 ( \ U N B O X F L O A T 3 M
0006140 A T R I X A B A S E M A T R I
0006160 X B B A S E \r
0006200
*
0006260 M A T
0006300 R I X C B A S E 3 ) ) \r \r \r (
0006320 C L : D E F U N 006 002 % % M A T
0006340 M U L T - 1 4 4 006 001 ( M A T R
0006360 I X A B A S E M A T R I X B B
0006400 A S E M A T R I X C B A S E )
0006420 ( \ U N B O X F L O A T 3 M
0006440 A T R I X A B A S E M A T R I
0006460 X B B A S E \r
0006500
*
0006560 M A T
0006600 R I X C B A S E 5 ) ) \r \r \r (
0006620 C L : D E F U N 006 002 % % M A T
0006640 M U L T - 3 3 1 006 001 ( M A T R
0006660 I X A B A S E M A T R I X B B
0006700 A S E M A T R I X C B A S E )
0006720 ( \ U N B O X F L O A T 3 M
0006740 A T R I X A B A S E M A T R I
0006760 X B B A S E \r
0007000
*
0007060 M A T
0007100 R I X C B A S E 4 ) ) \r \r \r (
0007120 C L : D E F U N 006 002 % % M A T
0007140 M U L T - 3 3 3 006 001 ( M A T R
0007160 I X A B A S E M A T R I X B B
0007200 A S E M A T R I X C B A S E )
0007220 ( \ U N B O X F L O A T 3 M
0007240 A T R I X A B A S E M A T R I
0007260 X B B A S E \r
0007300
*
0007360 M A T
0007400 R I X C B A S E 1 ) ) \r \r \r (
0007420 C L : D E F U N 006 002 % % M A T
0007440 M U L T - 4 4 1 006 001 ( M A T R
0007460 I X A B A S E M A T R I X B B
0007500 A S E M A T R I X C B A S E )
0007520 ( \ U N B O X F L O A T 3 M
0007540 A T R I X A B A S E M A T R I
0007560 X B B A S E \r
0007600
*
0007660 M A T
0007700 R I X C B A S E 6 ) ) \r \r \r (
0007720 C L : D E F U N 006 002 % % M A T
0007740 M U L T - 4 4 4 006 001 ( M A T R
0007760 I X A B A S E M A T R I X B B
0010000 A S E M A T R I X C B A S E )
0010020 ( \ U N B O X F L O A T 3 M
0010040 A T R I X A B A S E M A T R I
0010060 X B B A S E \r
0010100
*
0010160 M A T
0010200 R I X C B A S E 2 ) ) \r \r \r (
0010220 D E F M A C R O 006 002 % % M U L
0010240 2 006 001 ( X ) ` ( L L S H ,
0010260 X 1 ) ) \r \r \r ( C L : D E F U
0010300 N 006 002 % % P O L Y - E V A L 006
0010320 001 ( X B A S E S I Z E )
0010340 ( \ F L O A T B O X ( \ U N B
0010360 O X F L O A T 3 ( \ F L O A T
0010400 U N B O X X ) \r
0010420
*
0010460 B
0010500 A S E S I Z E 0 ) ) ) \r \r \r
0010520 ( D E F M A C R O 006 002 % % T E
0010540 S T - A R R A Y 006 001 ( A R R A
0010560 Y D I M S ) ` ( C L : I F
0010600 [ T Y P E P , A R R A Y ' (
0010620 C L : A R R A Y C L : S I N G
0010640 L E - F L O A T , D I M S ] \r
0010660
*
0010720 , A R R
0010740 A Y \r
0010760
0011000 (
0011020 C L : E R R O R " A r r a y
0011040 o f i n c o r r e c t t y p
0011060 e : ~ S " , A R R A Y ) ) )
0011100 \r \r \r ( D E F M A C R O 006 002 M
0011120 A K E - F L O A T - A R R A Y 006
0011140 001 ( D I M S & K E Y I N I
0011160 T I A L - E L E M E N T ) [ C
0011200 L : I F I N I T I A L - E L E
0011220 M E N T \r
0011240
*
0011320 ` ( C L : M A K E - A R R
0011340 A Y , D I M S : E L E M E N
0011360 T - T Y P E \r
0011400
*
0011460 ' C L
0011500 : S I N G L E - F L O A T \r
0011520
*
0011620 : I N I T I A L - E L
0011640 E M E N T , \r
0011660
*
0011740 I N
0011760 I T I A L - E L E M E N T ) \r
0012000
*
0012060 ` ( C
0012100 L : M A K E - A R R A Y , D I
0012120 M S : E L E M E N T - T Y P E
0012140 \r
0012160
*
0012240 ' C L : S I N G L
0012260 E - F L O A T ] ) \r \r \r ( D E F
0012300 M A C R O 006 002 M A K E - F L O
0012320 A T - V E C T O R 006 001 ( S I Z
0012340 E & K E Y I N I T I A L - E
0012360 L E M E N T ) [ C L : I F I
0012400 N I T I A L - E L E M E N T \r
0012420
*
0012500 ` (
0012520 M A K E - V E C T O R , S I Z
0012540 E : E L E M E N T - T Y P E \r
0012560
*
0012660 ' C L : S I N G L
0012700 E - F L O A T \r
0012720
*
0013020 : I N I T I A L - E L E M E N T
0013040 , \r
0013060
*
0013140 I N I T I A
0013160 L - E L E M E N T ) \r
0013200
*
0013260 ` ( M A K E
0013300 - V E C T O R , S I Z E : E
0013320 L E M E N T - T Y P E \r
0013340
*
0013440 ' C L : S I N G L E - F L
0013460 O A T ] ) \r \r \r ( D E F M A C R
0013500 O 006 002 S I N G L E - F L O A T
0013520 - A R R A Y - P 006 001 ( A R R A
0013540 Y ) ` ( T Y P E P , A R R A
0013560 Y ' ( C L : A R R A Y C L :
0013600 S I N G L E - F L O A T ) ) ) \r
0013620 \r \r ( D E F M A C R O 006 002 S I
0013640 N G L E - F L O A T - V E C T O
0013660 R - P 006 001 ( A R R A Y ) ` [
0013700 T Y P E P , A R R A Y ' ( C
0013720 L : A R R A Y C L : S I N G L
0013740 E - F L O A T ( C L : * ] ) \r
0013760 \r \r ( D E F O P T I M I Z E R
0014000 006 002 % % P O L Y - E V A L 006 001
0014020 ( X B A S E S I Z E ) ` (
0014040 \ F L O A T B O X ( ( O P C O
0014060 D E S U B F L O A T 3 0 ) \r
0014100
*
0014160 ( \ F L O A T U N B O
0014200 X , X ) \r
0014220
*
0014260 , B A S E
0014300 \r
0014320
*
0014360 , S I Z E ) ) ) \r \r
0014400 \r ( D E F O P T I M I Z E R 006
0014420 002 % % M A T M U L T - 1 3 3 006 001
0014440 ( M A T R I X A B A S E M A
0014460 T R I X B B A S E M A T R I X
0014500 C B A S E ) ` ( ( O P C O D E
0014520 S U B F L O A T 3 3 ) \r
0014540
*
0014640 , M A T R I X A B A S E \r
0014660
*
0014760 , M A T R I X B B A S E \r
0015000
*
0015100 , M A T R I X C B A S E
0015120 ) ) \r \r \r ( D E F O P T I M I Z
0015140 E R 006 002 % % M A T M U L T - 1
0015160 4 4 006 001 ( M A T R I X A B A S
0015200 E M A T R I X B B A S E M A
0015220 T R I X C B A S E ) ` ( ( O P
0015240 C O D E S U B F L O A T 3 5
0015260 ) \r
0015300
*
0015360 , M A T R I X A B A
0015400 S E \r
0015420
*
0015500 , M A T R I X B B
0015520 A S E \r
0015540
*
0015620 , M A T R I X C
0015640 B A S E ) ) \r \r \r ( D E F O P T
0015660 I M I Z E R 006 002 % % M A T M U
0015700 L T - 3 3 1 006 001 ( M A T R I X
0015720 A B A S E M A T R I X B B A S
0015740 E M A T R I X C B A S E ) `
0015760 ( ( O P C O D E S U B F L O A
0016000 T 3 4 ) \r
0016020
*
0016100 , M A T R I
0016120 X A B A S E \r
0016140
*
0016220 , M A T R
0016240 I X B B A S E \r
0016260
*
0016340 , M A T
0016360 R I X C B A S E ) ) \r \r \r ( D E
0016400 F O P T I M I Z E R 006 002 % % M
0016420 A T M U L T - 3 3 3 006 001 ( M A
0016440 T R I X A B A S E M A T R I X
0016460 B B A S E M A T R I X C B A S
0016500 E ) ` ( ( O P C O D E S U B
0016520 F L O A T 3 1 ) \r
0016540
*
0016620 , M
0016640 A T R I X A B A S E \r
0016660
*
0016740 ,
0016760 M A T R I X B B A S E \r
0017000
*
0017100 , M A T R I X C B A S E ) ) \r \r
0017120 \r ( D E F O P T I M I Z E R 006
0017140 002 % % M A T M U L T - 4 4 1 006 001
0017160 ( M A T R I X A B A S E M A
0017200 T R I X B B A S E M A T R I X
0017220 C B A S E ) ` ( ( O P C O D E
0017240 S U B F L O A T 3 6 ) \r
0017260
*
0017360 , M A T R I X A B A S E \r
0017400
*
0017500 , M A T R I X B B A S E \r
0017520
*
0017620 , M A T R I X C B A S E
0017640 ) ) \r \r \r ( D E F O P T I M I Z
0017660 E R 006 002 % % M A T M U L T - 4
0017700 4 4 006 001 ( M A T R I X A B A S
0017720 E M A T R I X B B A S E M A
0017740 T R I X C B A S E ) ` ( ( O P
0017760 C O D E S U B F L O A T 3 2
0020000 ) \r
0020020
*
0020100 , M A T R I X A B A
0020120 S E \r
0020140
*
0020220 , M A T R I X B B
0020240 A S E \r
0020260
*
0020340 , M A T R I X C
0020360 B A S E ) ) \r \r \r ( P U T P R O
0020400 P S 006 002 % % B L K E X P O N E
0020420 N T D O P V A L 006 001 ( 3 M
0020440 I S C 3 0 ) ) \r \r ( P U T P R
0020460 O P S 006 002 % % B L K F A B S M
0020500 A X D O P V A L 006 001 ( 3 M
0020520 I S C 3 6 ) ) \r \r ( P U T P R
0020540 O P S 006 002 % % B L K F A B S M
0020560 I N D O P V A L 006 001 ( 3 M
0020600 I S C 3 7 ) ) \r \r ( P U T P R
0020620 O P S 006 002 % % B L K F D I F F
0020640 D O P V A L 006 001 ( 4 M I S
0020660 C 4 3 ) ) \r \r ( P U T P R O P
0020700 S 006 002 % % B L K F M A X D O
0020720 P V A L 006 001 ( 3 M I S C 3
0020740 4 ) ) \r \r ( P U T P R O P S 006
0020760 002 % % B L K F M I N D O P V A
0021000 L 006 001 ( 3 M I S C 3 5 ) )
0021020 \r \r ( P U T P R O P S 006 002 % %
0021040 B L K F P L U S D O P V A L 006
0021060 001 ( 4 M I S C 4 2 ) ) \r \r
0021100 ( P U T P R O P S 006 002 % % B L
0021120 K F T I M E S D O P V A L 006 001
0021140 ( 4 M I S C 4 0 ) ) \r \r (
0021160 P U T P R O P S 006 002 % % B L K
0021200 P E R M D O P V A L 006 001 ( 4
0021220 M I S C 4 1 ) ) \r \r ( P U T
0021240 P R O P S 006 002 % % B L K S M A
0021260 L L P 2 F L O A T D O P V A L
0021300 006 001 ( 3 M I S C 3 2 ) ) \r
0021320 \r ( P U T P R O P S 006 002 % % F
0021340 L O A T T O B Y T E D O P V A
0021360 L 006 001 ( 3 M I S C 3 8 ) )
0021400 \r \r ( P U T P R O P S 006 002 F L
0021420 O A T - A R R A Y - S U P P O R
0021440 T F I L E T Y P E 006 001 C L :
0021460 C O M P I L E - F I L E ) \r ( D
0021500 E C L A R E % : D O N T C O P
0021520 Y D O E V A L @ C O M P I L E
0021540 D O N T E V A L @ L O A D \r
0021560 ( D E C L A R E % : D O E V A
0021600 L @ C O M P I L E D O N T C O
0021620 P Y \r \r ( L O C A L V A R S .
0021640 T ) \r ) \r ) \r ( P U T P R O P
0021660 S F L O A T - A R R A Y - S U
0021700 P P O R T C O P Y R I G H T
0021720 ( " X e r o x C o r p o r a t
0021740 i o n " 1 9 8 6 ) ) \r ( D E C
0021760 L A R E % : D O N T C O P Y \r
0022000 ( F I L E M A P ( N I L )
0022020 ) ) \r S T O P \r
0022030