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