$ od -c -N 50000 [qv]<IDL>koto>TEST-UNBOXED-FLOAT-OPS.DCOM!1
0000000 ( F I L E C R E A T E D " 9
0000020 - D e c - 8 6 1 5 : 5 8 : 5 2
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 > T E S T - U N B O X E
0000120 D - F L O A T - O P S . ; 2 )
0000140 \r " 1 2 - N o v - 8 5 1 4 : 5
0000160 9 : 2 3 " r e c o m p i l e d
0000200 c h a n g e s : P R I N T -
0000220 U N B O X E D - F L O A T - B E
0000240 N C H M A R K R U N - U N B O
0000260 X E D - F L O A T - B E N C H M
0000300 A R K S \r S E T U P - A R R A
0000320 Y T E S T . P O L Y N O M T
0000340 E S T . U F A B S T E S T . U
0000360 F D I F F E R E N C E T E S T
0000400 . U F G R E A T E R P T E S T
0000420 . U F I X T E S T . U F M A X
0000440 T E S T . U F M I N \r T E S
0000460 T . U F M I N U S T E S T . U
0000500 F P L U S T E S T . U F Q U O
0000520 T I E N T T E S T . U F T I M
0000540 E S i n " I N T E R L I S P
0000560 - D 1 1 - M a y - 8 6 . . .
0000600 " d a t e d \r " 1 1 - M a y
0000620 - 8 6 1 5 : 1 9 : 0 8 " ) \r (
0000640 F I L E C R E A T E D " 9 -
0000660 D e c - 8 6 1 5 : 5 8 : 0 9 "
0000700 { Q V } < P E D E R S E N > L
0000720 I S P > T E S T - U N B O X E D
0000740 - F L O A T - O P S . ; 2 8 2
0000760 3 2 c h a n g e s t o : (
0001000 F N S \r R U N - U N B O X E D
0001020 - F L O A T - B E N C H M A R K
0001040 S T E S T . U F T I M E S T
0001060 E S T . U F P L U S T E S T .
0001100 U F D I F F E R E N C E T E S
0001120 T . U F Q U O T I E N T T E S
0001140 T . U F M I N U S \r T E S T .
0001160 U F M I N T E S T . U F M A X
0001200 T E S T . U F I X T E S T .
0001220 U F A B S T E S T . U F G R E
0001240 A T E R P T E S T . P O L Y N
0001260 O M P R I N T - U N B O X E D
0001300 - F L O A T - B E N C H M A R K
0001320 \r S E T U P - A R R A Y ) (
0001340 V A R S T E S T - U N B O X E
0001360 D - F L O A T C O M S U N B O
0001400 X E D - F L O A T O P S - T E S
0001420 T S T E S T - U N B O X E D -
0001440 F L O A T - O P S C O M S \r P
0001460 O L Y A R R A Y L S T ) p r e
0001500 v i o u s d a t e : " 8 -
0001520 D e c - 8 6 1 2 : 5 9 : 4 4 "
0001540 { Q V } < P E D E R S E N > L
0001560 I S P > T E S T - U N B O X E D
0001600 - F L O A T . ; 3 ) \r P R I N T
0001620 - U N B O X E D - F L O A T - B
0001640 E N C H M A R K D 1 \r ( P 0
0001660 T E S T F N I 1 A R G S
0001700 I 0 F F 1 V A L U E
0001720 ) 001 020 001 001 \0 002 g \0 \0 @ \n \0 \0 021
0001740 001 \0 i \t \0 \0 277 o \0 \0 \0 i \n \0 \0 277
0001760 k i \n \0 \0 277 @ i \n \0 \0 277 k i \n \0
0002000 \0 277 o \0 \0 \0 i \n \0 \0 277 i \t \0 \0 277
0002020 i \t \0 \0 i \t \0 \0 277 i \t \0 \0 277 o \0
0002040 \0 \0 i \n \0 \0 277 k i \n \0 \0 277 @ i \n
0002060 \0 \0 277 k i \n \0 \0 277 o \0 \0 \0 i \n \0
0002100 \0 277 i \t \0 \0 277 i \t \0 \0 o \0 \0 \0 \t
0002120 \0 \0 c 002 o \0 \0 \0 i \n \0 \0 277 k i \n
0002140 \0 \0 277 Q i \n \0 \0 277 i \t \0 \0 277 i \t
0002160 \0 \0 o \0 \0 \0 i \n \0 \0 277 i \t \0 \0 277
0002200 i \t \0 \0 \b \0 \0 i \t \0 \0 277 o \0 \0 \0
0002220 i \n \0 \0 277 i \t \0 \0 277 i \t \0 \0 o \0
0002240 \0 \0 \t \0 \0 c 002 o \0 \0 \0 i \n \0 \0 277
0002260 k i \n \0 \0 277 Q i \n \0 \0 277 i \t \0 \0
0002300 277 i \t \0 \0 \b \0 \0 i \t \0 \0 @ i \n \0
0002320 \0 k i \n \0 \0 o \0 \0 \0 i \n \0 \0 i \t
0002340 \0 \0 i \t \0 \0 020 \0 ( 4 1 5 Q T E
0002360 R P R I 4 1 1 Q T E R P R I
0002400 4 0 5 Q P R I N 1 3 7 5 Q
0002420 S P A C E S 3 7 0 Q P R I
0002440 N 1 3 6 3 Q T E R P R I 3
0002460 5 7 Q R E C L A I M 3 5 4 Q
0002500 T E R P R I 3 4 7 Q T E R
0002520 P R I 3 4 2 Q P R I N 1 3
0002540 3 4 Q S P A C E S 3 2 6 Q
0002560 P R I N 1 3 1 4 Q T I M E A
0002600 L L 3 0 5 Q T E R P R I 3
0002620 0 0 Q T E R P R I 2 7 3 Q
0002640 P R I N 1 2 6 2 Q T E R P R
0002660 I 2 5 6 Q \ R E L E A S E W
0002700 O R K I N G S E T 2 5 3 Q T
0002720 E R P R I 2 4 6 Q T E R P R
0002740 I 2 4 1 Q P R I N 1 2 3 1
0002760 Q T E R P R I 2 2 4 Q T E
0003000 R P R I 2 1 7 Q P R I N 1
0003020 2 1 1 Q S P A C E S 2 0 3 Q
0003040 P R I N 1 1 7 1 Q T I M E
0003060 A L L 1 6 2 Q T E R P R I
0003100 1 5 5 Q T E R P R I 1 5 0 Q
0003120 P R I N 1 1 3 7 Q S P A C
0003140 E S 1 3 1 Q P R I N 1 1 2
0003160 3 Q S P A C E S 1 1 5 Q P
0003200 R I N 1 1 0 4 Q T E R P R I
0003220 7 7 Q T E R P R I 7 3 Q
0003240 T E R P R I 6 6 Q T E R P R
0003260 I 6 1 Q P R I N 1 5 0 Q
0003300 S P A C E S 4 2 Q P R I N 1
0003320 3 4 Q S P A C E S 2 6 Q
0003340 P R I N 1 1 5 Q T E R P R I
0003360 6 P A C K * ) \r ( 2 T E S
0003400 T . ) \r ( 4 0 1 Q " F i n i
0003420 s h e d " 3 2 2 Q " V a l u
0003440 e i s " 3 1 1 Q ( A P P L
0003460 Y T E S T F N A R G S ) 2
0003500 6 7 Q " R e p e a t i n g t
0003520 h e T I M E A L L " 2 3 5 Q
0003540 " R e l e a s i n g w o r k
0003560 i n g s e t " 1 7 7 Q " V
0003600 a l u e i s " 1 6 6 Q ( A
0003620 P P L Y T E S T F N A R G S
0003640 ) 1 4 4 Q " t e s t " 1 1
0003660 1 Q " S t a r t i n g t h e
0003700 " 5 5 Q " B e n c h m a r k
0003720 * * * * * * * * * * * * * * *
0003740 * * * " 2 2 Q " * * * * * *
0003760 * * * * * * * * * " ) \r R U N -
0004000 U N B O X E D - F L O A T - B E
0004020 N C H M A R K S A 0 0 0 1 D 1
0004040 \r ( N A M E E R R O R S E T
0004060 P 2 B M P 1 V A L U E
0004100 P 0 D R I B B L E . F I L
0004120 E F 3 R E S E T V A R S L
0004140 S T F 4 M A K E S Y S N A
0004160 M E F 5 N O - D R I B B L
0004200 E ? F 6 R E S E T Y F
0004220 7 M A K E S Y S D A T E F
0004240 1 0 Q B E N C H M A R K S )
0004260 001 L 003 006 002 \0 g \0 \0 g \0 \0 g \0 \0 T
0004300 o \0 \0 \0 \b \0 \0 o \0 \0 \0 \f \0 \0 g \0
0004320 \0 g \0 \0 \r 006 \0 \0 021 021 001 o \0 \0 \0 h
0004340 h 032 032 S 032 c 006 277 g \0 \0 d \t \0 \0 032
0004360 g \0 \0 i \n \0 \0 277 S 032 c 006 277 U 263 -
0004400 g \0 \0 o \0 \0 \0 H \n \0 \0 h 032 032 h h
0004420 032 032 S 032 c 006 277 U 263 023 g \0 \0 H \t \0
0004440 \0 h 032 032 h 032 S 032 c 006 277 g \0 \0 g \0
0004460 \0 \n \0 \0 277 o \0 \0 \0 h h 032 032 S 032 c
0004500 006 277 g \0 \0 g \0 \0 \n \0 \0 277 i \t \0 \0
0004520 277 o \0 \0 \0 i \n \0 \0 277 \b \0 \0 i \n \0
0004540 \0 277 i \t \0 \0 277 i \t \0 \0 277 o \0 \0 \0
0004560 i \n \0 \0 277 T i \n \0 \0 277 i \t \0 \0 277
0004600 i \t \0 \0 277 o \0 \0 \0 i \n \0 \0 277 W 016
0004620 i \n \0 \0 277 i \t \0 \0 277 i \t \0 \0 277 o
0004640 \0 \0 \0 i \n \0 \0 277 \b \0 \0 i \n \0 \0 277
0004660 i \t \0 \0 277 i \t \0 \0 277 o \0 \0 \0 i \n
0004700 \0 \0 277 \b \0 \0 i \n \0 \0 277 i \t \0 \0 277
0004720 i \t \0 \0 277 W 020 216 d 001 021 001 002 J 001 J
0004740 002 001 \n \0 \0 023 002 003 265 360 o \0 \0 \0 i \n
0004760 \0 \0 277 i \t \0 \0 277 i \t \0 \0 022 c \f i
0005000 020 \0 ( 5 0 5 Q T E R P R I 5
0005020 0 0 Q T E R P R I 4 7 3 Q
0005040 P R I N 1 4 5 6 Q P R I N T
0005060 - U N B O X E D - F L O A T - B
0005100 E N C H M A R K 4 3 5 Q T E
0005120 R P R I 4 3 0 Q T E R P R I
0005140 4 2 3 Q P R I N 1 4 1 7 Q
0005160 U S E R N A M E 4 1 3 Q P
0005200 R I N 1 4 0 2 Q T E R P R I
0005220 3 7 5 Q T E R P R I 3 7 0
0005240 Q P R I N 1 3 6 4 Q D A T
0005260 E 3 6 0 Q P R I N 1 3 4 7
0005300 Q T E R P R I 3 4 2 Q T E
0005320 R P R I 3 3 5 Q P R I N 1
0005340 3 2 6 Q P R I N 1 3 1 5 Q
0005360 T E R P R I 3 1 0 Q T E R P
0005400 R I 3 0 3 Q P R I N 1 2 7
0005420 5 Q P R I N 1 2 6 4 Q T E
0005440 R P R I 2 5 7 Q T E R P R I
0005460 2 5 2 Q P R I N 1 2 4 6 Q
0005500 M A C H I N E T Y P E 2 4 2
0005520 Q P R I N 1 2 3 1 Q T E R
0005540 P R I 2 2 4 Q M O V D 1 7
0005560 5 Q M O V D 1 5 2 Q D R I
0005600 B B L E 1 2 4 Q C O N C A T
0005620 1 0 0 Q S E T T O P V A L
0005640 7 0 Q G E T T O P V A L 4 1
0005660 Q P A C K F I L E N A M E 2
0005700 7 Q P A C K * 2 0 Q M A C
0005720 H I N E T Y P E ) \r ( 2 2 1 Q
0005740 P A G E F U L L F N 2 1 6 Q
0005760 N I L L 1 7 2 Q P A G E F U
0006000 L L F N . S A V E 1 6 7 Q P
0006020 A G E F U L L F N 1 4 6 Q D
0006040 R I B B L E 1 1 4 Q P R I N
0006060 1 7 4 Q * P R I N T - A R R
0006100 A Y * 6 4 Q * P R I N T - A
0006120 R R A Y * 3 5 Q B E N C H M
0006140 A R K S 3 2 Q E X T E N S I
0006160 O N 1 0 Q N A M E 5 D S
0006200 K 2 H O S T ) \r ( 4 6 7 Q
0006220 " F i n i s h e d b e n c h
0006240 m a r k i n g " 4 0 7 Q " U
0006260 S E R N A M E = " 3 5 4 Q
0006300 " D A T E = " 3 2 2 Q
0006320 " M A K E S Y S D A T E = "
0006340 2 7 1 Q " M A K E S Y S N A
0006360 M E = " 2 3 6 Q " M A C
0006400 H I N E T Y P E = " 2 0 2
0006420 Q ( M O V D P A G E F U L L
0006440 F N . S A V E P A G E F U L L
0006460 F N ) 1 2 0 Q " T e s t R
0006500 e s u l t s i n " 5 0 Q
0006520 ( T E R P R I ) 2 4 Q " - U
0006540 N B O X E D F L O A T O P S "
0006560 1 5 Q " - " ) \r R U N - U N B
0006600 O X E D - F L O A T - B E N C H
0006620 M A R K S D 1 \r ( P 2 R E
0006640 S E T Z P 1 R E S E T Y
0006660 P 0 L I S P X H I S T I
0006700 1 N O - D R I B B L E ? I
0006720 0 B E N C H M A R K S F 3
0006740 P O L Y A R R A Y L S T F
0006760 4 L I S P X H I S T F 5
0007000 R E S E T V A R S L S T ) \0 5
0007020 003 003 \0 002 @ 245 ` \0 \0 b \0 277 g \0 \0 @
0007040 026 224 S \t \0 \0 277 T 021 ! 002 U o \0 \0 \0
0007060 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0
0007100 J 223 \b \0 \0 020 I 020 \0 ( 6 0 Q E R
0007120 R O R ! 5 3 Q R E S E T R E
0007140 S T O R E 4 1 Q R U N - U N
0007160 B O X E D - F L O A T - B E N C
0007200 H M A R K S A 0 0 0 1 2 1 Q
0007220 S E T U P - A R R A Y ) \r ( 4 7
0007240 Q E R R O R 3 6 Q I N T E
0007260 R N A L 1 2 Q P O L Y N O M
0007300 4 U N B O X E D - F L O A T
0007320 O P S - T E S T S ) \r ( 3 3 Q
0007340 ( R U N - U N B O X E D - F L
0007360 O A T - B E N C H M A R K S A 0
0007400 0 0 1 ) ) \r S E T U P - A R R A
0007420 Y D 1 \r ( I 0 L S T ) \0
0007440 027 \0 \0 \0 001 @ \t \0 \0 g \0 \0 g \0 \0 g
0007460 \0 \0 @ \r 005 \0 \0 027 \0 \0 020 \0 ( 2 1 Q
0007500 M A K E - A R R A Y 3 L E
0007520 N G T H ) \r ( 2 4 Q P O L Y A
0007540 R R A Y 1 4 Q : I N I T I A
0007560 L - C O N T E N T S 1 1 Q F
0007600 L O A T 6 : E L E M E N T -
0007620 T Y P E ) \r ( ) \r T E S T . P O
0007640 L Y N O M D 1 \r ( P 1 O R
0007660 D E R P 0 B A S E I 0
0007700 T E S T ) \0 # 002 \0 \0 001 ` \0 \0
0007720 \t \0 \0 ` \0 \0 \t \0 \0 k 331 021 002 001 n ?
0007740 200 j 321 H I 2 \0 d 355 \0 @ \n \0 \0 020 \0
0007760 ( 4 0 Q F E Q P 1 3 Q A R
0010000 R A Y - T O T A L - S I Z E 5
0010020 A R R A Y B A S E ) \r ( 1 0 Q
0010040 P O L Y A R R A Y 2 P O L
0010060 Y A R R A Y ) \r ( ) \r T E S T .
0010100 U F A B S D 1 \r ( I 1 T E
0010120 S T I 0 X ) \0 016 \0 \0 \0 002
0010140 @ 355 001 355 002 d 355 \0 A \n \0 \0 020 \0 ( 1
0010160 3 Q F E Q P ) \r N I L \r ( ) \r
0010200 T E S T . U F D I F F E R E N C
0010220 E D 1 \r ( I 2 T E S T I
0010240 1 Y I 0 X ) \0 021 \0 \0
0010260 \0 003 @ 355 001 A 355 001 354 001 d 355 \0 B \n \0
0010300 \0 020 \0 ( 1 6 Q F E Q P ) \r N I
0010320 L \r ( ) \r T E S T . U F G R E A
0010340 T E R P D 1 \r ( I 2 T E S
0010360 T I 1 Y I 0 X ) \0
0010400 \r \0 \0 \0 003 @ 355 001 A 355 001 354 005 d B 360
0010420 020 \0 N I L \r N I L \r ( ) \r T E S
0010440 T . U F I X D 1 \r ( I 1 T
0010460 E S T I 0 X ) \0 020 \0 \0 \0
0010500 002 @ 355 001 355 004 355 001 d 355 \0 A \n \0 \0 020
0010520 \0 ( 1 5 Q F E Q P ) \r N I L \r
0010540 ( ) \r T E S T . U F M A X D 1
0010560 \r ( I 3 T E S T I 2 Z
0010600 I 1 Y I 0 X ) \0 034
0010620 003 \0 \0 004 @ 355 001 A 355 001 B 355 001 021 003 002
0010640 H I 354 006 J 354 006 d 355 \0 C \n \0 \0 020 \0
0010660 ( 3 1 Q F E Q P ) \r N I L \r (
0010700 ) \r T E S T . U F M I N D 1 \r
0010720 ( I 3 T E S T I 2 Z
0010740 I 1 Y I 0 X ) \0 034 003
0010760 \0 \0 004 @ 355 001 A 355 001 B 355 001 021 003 002 H
0011000 I 354 \a J 354 \a d 355 \0 C \n \0 \0 020 \0 (
0011020 3 1 Q F E Q P ) \r N I L \r ( )
0011040 \r T E S T . U F M I N U S D 1
0011060 \r ( I 1 T E S T I 0 X
0011100 ) \0 016 \0 \0 \0 002 @ 355 001 355 003 d 355 \0
0011120 A \n \0 \0 020 \0 ( 1 3 Q F E Q P )
0011140 \r N I L \r ( ) \r T E S T . U F P
0011160 L U S D 1 \r ( I 3 T E S T
0011200 I 2 Z I 1 Y I 0
0011220 X ) \0 026 \0 \0 \0 004 @ 355 001 A 355 001
0011240 B 355 001 354 \0 354 \0 d 355 \0 C \n \0 \0 020 \0
0011260 ( 2 3 Q F E Q P ) \r N I L \r (
0011300 ) \r T E S T . U F Q U O T I E N
0011320 T D 1 \r ( I 2 T E S T I
0011340 1 Y I 0 X ) \0 021 \0 \0
0011360 \0 003 @ 355 001 A 355 001 354 004 d 355 \0 B \n \0
0011400 \0 020 \0 ( 1 6 Q F E Q P ) \r N I
0011420 L \r ( ) \r T E S T . U F T I M E
0011440 S D 1 \r ( I 3 T E S T I
0011460 2 Z I 1 Y I 0 X
0011500 ) \0 026 \0 \0 \0 004 @ 355 001 A 355 001 B 355
0011520 001 354 003 354 003 d 355 \0 C \n \0 \0 020 \0 ( 2
0011540 3 Q F E Q P ) \r N I L \r ( ) \r
0011560 ( P R E T T Y C O M P R I N T
0011600 T E S T - U N B O X E D - F L O
0011620 A T - O P S C O M S ) \r ( R P A
0011640 Q Q T E S T - U N B O X E D -
0011660 F L O A T - O P S C O M S ( (
0011700 F N S P R I N T - U N B O X E
0011720 D - F L O A T - B E N C H M A R
0011740 K R U N - U N B O X E D - F L
0011760 O A T - B E N C H M A R K S \r
0012000 S E T U P - A R R A Y T E S T
0012020 . P O L Y N O M T E S T . U F
0012040 A B S T E S T . U F D I F F E
0012060 R E N C E T E S T . U F G R E
0012100 A T E R P T E S T . U F I X
0012120 T E S T . U F M A X T E S T .
0012140 U F M I N \r T E S T . U F M I
0012160 N U S T E S T . U F P L U S
0012200 T E S T . U F Q U O T I E N T
0012220 T E S T . U F T I M E S ) ( V
0012240 A R S P O L Y A R R A Y L S T
0012260 U N B O X E D - F L O A T O P
0012300 S - T E S T S ) ( \r F I L E S
0012320 ( F R O M V A L U E O F D
0012340 I R E C T O R I E S ) C M L A
0012360 R R A Y ) ( F I L E S ( F R
0012400 O M V A L U E O F D I R E C
0012420 T O R I E S ) U N B O X E D O
0012440 P S ) ( F I L E S ( F R O M
0012460 \r { Q V } < P E D E R S E N >
0012500 L I S P > ) A R R A Y S U P P
0012520 O R T ) ) ) \r ( R P A Q Q P O
0012540 L Y A R R A Y L S T ( 1 . 0
0012560 2 . 0 3 . 0 4 . 0 5 . 0 )
0012600 ) \r ( R P A Q Q U N B O X E D
0012620 - F L O A T O P S - T E S T S
0012640 ( ( U F P L U S ( 1 . 0 1 .
0012660 0 1 . 0 3 . 0 ) ) ( U F D
0012700 I F F E R E N C E ( 1 . 0 1
0012720 . 0 0 . 0 ) ) ( U F T I M E
0012740 S ( 1 . 0 \r 2 . 0 3 . 0
0012760 6 . 0 ) ) ( U F Q U O T I E N
0013000 T ( 4 . 0 2 . 0 2 . 0 ) )
0013020 ( U F G R E A T E R P ( 2 .
0013040 0 3 . 0 N I L ) ) ( U F G
0013060 R E A T E R P ( 5 . 0 3 . 0
0013100 T ) ) ( \r U F G R E A T E R
0013120 P ( 3 . 0 3 . 0 N I L ) )
0013140 ( U F A B S ( - 2 . 0 2 .
0013160 0 ) ) ( U F M I N U S ( - 2
0013200 . 0 2 . 0 ) ) ( U F I X (
0013220 2 . 0 2 ) ) ( U F M A X (
0013240 1 . 0 2 . 0 3 . 0 \r 3 . 0
0013260 ) ) ( U F M I N ( 1 . 0 2
0013300 . 0 3 . 0 1 . 0 ) ) ( P O
0013320 L Y N O M ( 1 5 . 0 ) ) ) ) \r
0013340 ( F I L E S L O A D ( F R O M
0013360 V A L U E O F D I R E C T O
0013400 R I E S ) C M L A R R A Y ) \r
0013420 ( F I L E S L O A D ( F R O M
0013440 V A L U E O F D I R E C T O
0013460 R I E S ) U N B O X E D O P S
0013500 ) \r ( F I L E S L O A D ( F R
0013520 O M { Q V } < P E D E R S E N
0013540 > L I S P > ) A R R A Y S U P
0013560 P O R T ) \r ( P U T P R O P S
0013600 T E S T - U N B O X E D - F L O
0013620 A T - O P S C O P Y R I G H T
0013640 ( " X e r o x C o r p o r a
0013660 t i o n " 1 9 8 6 ) ) \r N I L
0013700 \r
0013701