$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLLIST.DCOM!13
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 9 : 1 5 " ( " 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 l i s t . \ ; 1 3 )
0000220 \r " 1 4 - O c t - 8 6 2 1 :
0000240 0 6 : 0 5 " " C O M P I L E -
0000260 F I L E d " | i n | " X e r
0000300 o x L i s p 1 4 - O c t - 8
0000320 6 . . . " | d a t e d | "
0000340 1 4 - O c t - 8 6 2 2 : 2 4 :
0000360 4 7 " ) \r ( f i l e c r e a t e
0000400 d " 1 6 - O c t - 8 6 1 2 :
0000420 1 7 : 3 9 " { e r i s } < l i
0000440 s p c o r e > s o u r c e s > c
0000460 m l l i s t . \ ; 1 3 5 6 6 1
0000500 6 | c h a n g e s | | t o :
0000520 | ( v a r s \r c m l l i s t
0000540 c o m s ) | p r e v i o u s |
0000560 | d a t e : | " 8 - O c t
0000600 - 8 6 1 9 : 2 1 : 1 5 " { e
0000620 r i s } < l i s p c o r e > s o
0000640 u r c e s > c m l l i s t . \ ;
0000660 1 2 ) \r ( r p a q q c m l l i
0000700 s t c o m s ( ( * | ; ; ; |
0000720 \r " C M L L I S T . C o m
0000740 m o n L i s p L i s t s C
0000760 o v e r s a l l o f c h a
0001000 p t e r 1 5 - - B y K e
0001020 l l y R o a c h , L a r r y
0001040 M a s i n t e r , R o n F
0001060 i s c h e r , a n d F r a n
0001100 k S h i h . " \r ) ( c o m s
0001120 ( * | ; ; | " S e c t i o
0001140 n 1 5 . 1 C o n s e s . " )
0001160 ( * | ; ; | \r " C A R ,
0001200 C D R , . . . , C D D D D R
0001220 ( a l l f u n c t i o n s
0001240 o n p a g e s 2 6 2 - 2 6 3
0001260 ) a r e O K . " ) ( * |
0001300 ; ; | " C O N S i s O K .
0001320 " ) ( f n s \r c l : t r e e
0001340 - e q u a l % t r e e - e q u
0001360 a l - t e s t % t r e e - e q
0001400 u a l - t e s t - n o t ) ) (
0001420 c o m s ( * | ; ; | " S e
0001440 c t i o n 1 5 . 2 L i s t s
0001460 . " ) ( f n s c l : e n d p
0001500 \r c l : l i s t - l e n g t h
0001520 ) ( c o m s ( f n s c l :
0001540 n t h % s e t n t h ) ( p r
0001560 o p s e t f n c l : n t h )
0001600 ) ( c o m s ( f n s c l :
0001620 f i r s t c l : s e c o n d
0001640 c l : t h i r d \r c l : f o u
0001660 r t h c l : f i f t h c l :
0001700 s i x t h c l : s e v e n t h
0001720 c l : e i g h t h c l : n i
0001740 n t h c l : t e n t h c l :
0001760 r e s t ) ( * | ; ; | \r "
0002000 M a c r o s t o m a k e S
0002020 E T F w o r k a n d c o d
0002040 e o p t i m i z e " ) ( o p
0002060 t i m i z e r s c l : f i r s
0002100 t c l : s e c o n d c l : t
0002120 h i r d c l : f o u r t h c
0002140 l : f i f t h \r c l : s i x t
0002160 h c l : s e v e n t h c l :
0002200 e i g h t h c l : n i n t h
0002220 c l : t e n t h c l : r e s t
0002240 ) ) ( f n s c l : n t h c d
0002260 r ) ( * | ; ; | \r " L A S
0002300 T L I S T L I S T * a r e
0002320 O K . " ) ( f n s c l : m
0002340 a k e - l i s t ) ( * | ; ;
0002360 | \r " C o m m o n L i s p
0002400 A P P E N D i s d i f f e r
0002420 e n t f r o m I n t e r l i
0002440 s p A P P E N D b e c a u s
0002460 e I n t e r l i s p A P P E
0002500 N D c o p i e s i t s l a
0002520 s t a r g w h i l e C o m
0002540 m o n L i s p A P P E N D
0002560 d o e s n o t . S e e p
0002600 a g e 2 6 8 o f t h e s
0002620 i l v e r b o o k . " \r ) (
0002640 f n s c l : a p p e n d % a
0002660 p p e n d ) ( f n s c l : c
0002700 o p y - l i s t c l : c o p y
0002720 - a l i s t c l : c o p y - t
0002740 r e e c l : r e v a p p e n d
0002760 ) ( * | ; ; | \r " N C O N
0003000 C i s O K . " ) ( f n s
0003020 c l : n r e c o n c ) ( * |
0003040 ; ; | \r " C L : P U S H a n
0003060 d C L : P U S H N E W a r e
0003100 m a c r o s d e f i n e d
0003120 s o m e w h e r e e l s e .
0003140 D o n ' t k n o w w h e r
0003160 e t h a t i s . P O P
0003200 i s O K . " ) ( \r f n s c
0003220 l : b u t l a s t c l : n b u
0003240 t l a s t c l : l d i f f ) )
0003260 ( c o m s ( * | ; ; | "
0003300 S e c t i o n 1 5 . 3 A l t
0003320 e r a t i o n o f L i s t
0003340 S t r u c t u r e . " ) ( *
0003360 \r | ; ; | " R P L A C A R P
0003400 L A C D a r e O K . " ) )
0003420 ( c o m s ( * | ; ; | " S
0003440 e c t i o n 1 5 . 4 S u b s
0003460 t i t u t i o n o f E x p r
0003500 e s s i o n s . " ) ( d e c l
0003520 a r e \ : \r d o n t c o p y
0003540 d o e v a l @ c o m p i l e (
0003560 f u n c t i o n s s p l i c e
0003600 t e s t - k e y s - s u p p l
0003620 i e d ) ) ( f n s % t e s t
0003640 ) ( f n s x x t e s t 1 x
0003660 x t e s t 0 ) ( f n s \r c l
0003700 : s u b s t % s u b s t c l
0003720 : s u b s t - i f % s u b s t
0003740 - i f c l : s u b s t - i f -
0003760 n o t % s u b s t - i f - n o
0004000 t c l : n s u b s t % n s u
0004020 b s t c l : n s u b s t - i f
0004040 \r % n s u b s t - i f c l :
0004060 n s u b s t - i f - n o t % n
0004100 s u b s t - i f - n o t ) ( f
0004120 n s c l : s u b l i s % s u
0004140 b l i s c l : n s u b l i s
0004160 % n s u b l i s ) ) ( c o m s
0004200 ( * | ; ; | \r " S e c t i
0004220 o n 1 5 . 5 U s n g L i s
0004240 t s a s S e t s . " ) ( f
0004260 n s c l : m e m b e r % m e
0004300 m b e r c l : m e m b e r - i
0004320 f c l : m e m b e r - i f - n
0004340 o t ) ( o p t i m i z e r s \r
0004360 c l : m e m b e r ) ( * |
0004400 ; ; | " T A I L P i s O K
0004420 . " ) ( f n s c l : a d j o
0004440 i n ) ( f n s c l : u n i o
0004460 n c l : n u n i o n ) ( f n
0004500 s c l : i n t e r s e c t i o
0004520 n \r c l : n i n t e r s e c t
0004540 i o n ) ( f n s c l : s e t
0004560 - d i f f e r e n c e c l : n
0004600 s e t - d i f f e r e n c e )
0004620 ( f n s c l : s e t - e x c l
0004640 u s i v e - o r \r c l : n s e
0004660 t - e x c l u s i v e - o r )
0004700 ( f n s c l : s u b s e t p )
0004720 ) ( c o m s ( * | ; ; |
0004740 " S e c t i o n 1 5 . 6 A s
0004760 s o c i a t i o n L i s t s .
0005000 " ) ( f n s c l : a c o n s
0005020 \r c l : p a i r l i s ) ( f
0005040 n s c l : a s s o c % a s s
0005060 o c c l : a s s o c - i f c
0005100 l : a s s o c - i f - n o t c
0005120 l : r a s s o c c l : r a s s
0005140 o c - i f c l : r a s s o c -
0005160 i f - n o t ) \r ) ( c o m s
0005200 ( * | ; ; | " S e c t i o n
0005220 7 . 8 . 4 M a p p i n g " )
0005240 ( f n s c l : m a p c a r
0005260 c l : m a p l i s t c l : m a
0005300 p c c l : m a p l c l : m a
0005320 p c a n c l : m a p c o n \r
0005340 % m a p ) ) ( c o m s ( *
0005360 | ; ; | " S t u f f I ' m
0005400 n o t s u r e w h e r e t
0005420 o p l a c e y e t . " ) (
0005440 * | ; ; | \r " I t s e e m
0005460 s t h a t D E L Q A S S Q
0005500 M E M Q a r e n ' t p a r
0005520 t o f C o m m o n L i s p
0005540 b u t p a r t o f S p i
0005560 c e L i s p . W h a t f
0005600 u n c t i o n s i n t h e
0005620 s y s t e m a r e c u r r e
0005640 n t l y d e p e n d i n g o
0005660 n t h e s e f u n c t i o n
0005700 s ? " \r ) ( f n s d e l q )
0005720 ( p r o p d m a c r o c l
0005740 : l i s t - e v e r y ) ( p
0005760 ( m o v d ( q u o t e a s s
0006000 o c ) ( q u o t e a s s q )
0006020 ) ( m o v d ( q u o t e f
0006040 m e m b ) ( \r q u o t e m e
0006060 m q ) ) ) ) ( * | ; ; | "
0006100 A r r a n g e t o u s e t
0006120 h e c o r r e c t c o m p i
0006140 l e r . " ) ( p r o p f i l
0006160 e t y p e c m l l i s t ) (
0006200 d e c l a r e \ : \r d o n t e
0006220 v a l @ l o a d d o e v a l @
0006240 c o m p i l e d o n t c o p y
0006260 c o m p i l e r v a r s ( a
0006300 d d v a r s ( n l a m a ) (
0006320 n l a m l ) ( l a m a d e l
0006340 q % m a p c l : m a p c o n
0006360 \r c l : m a p c a n c l : m
0006400 a p l c l : m a p c c l : m
0006420 a p l i s t c l : m a p c a r
0006440 c l : r a s s o c - i f - n o
0006460 t c l : r a s s o c - i f c
0006500 l : r a s s o c c l : a s s o
0006520 c - i f - n o t \r c l : a s s
0006540 o c - i f % a s s o c c l :
0006560 a s s o c c l : p a i r l i s
0006600 c l : a c o n s c l : s u b
0006620 s e t p c l : n s e t - e x c
0006640 l u s i v e - o r c l : s e t
0006660 - e x c l u s i v e - o r \r c
0006700 l : n s e t - d i f f e r e n c
0006720 e c l : s e t - d i f f e r e
0006740 n c e c l : n i n t e r s e c
0006760 t i o n c l : i n t e r s e c
0007000 t i o n c l : n u n i o n c
0007020 l : u n i o n c l : a d j o i
0007040 n \r c l : m e m b e r - i f -
0007060 n o t c l : m e m b e r - i f
0007100 % m e m b e r c l : m e m b
0007120 e r % n s u b l i s c l : n
0007140 s u b l i s % s u b l i s c
0007160 l : s u b l i s % n s u b s t
0007200 - i f - n o t \r c l : n s u b
0007220 s t - i f - n o t % n s u b s
0007240 t - i f c l : n s u b s t - i
0007260 f % n s u b s t c l : n s u
0007300 b s t % s u b s t - i f - n o
0007320 t c l : s u b s t - i f - n o
0007340 t % s u b s t - i f \r c l :
0007360 s u b s t - i f % s u b s t
0007400 c l : s u b s t x x t e s t 0
0007420 x x t e s t 1 % t e s t c
0007440 l : l d i f f c l : n b u t l
0007460 a s t c l : b u t l a s t c
0007500 l : n r e c o n c \r c l : r e
0007520 v a p p e n d c l : c o p y -
0007540 t r e e c l : c o p y - a l i
0007560 s t c l : a p p e n d c l :
0007600 m a k e - l i s t c l : n t h
0007620 c d r c l : r e s t c l : t
0007640 e n t h c l : n i n t h \r c
0007660 l : e i g h t h c l : s e v e
0007700 n t h c l : s i x t h c l :
0007720 f i f t h c l : f o u r t h
0007740 c l : t h i r d c l : s e c o
0007760 n d c l : f i r s t % s e t
0010000 n t h c l : n t h \r c l : l
0010020 i s t - l e n g t h % t r e e
0010040 - e q u a l - t e s t - n o t
0010060 % t r e e - e q u a l - t e s t
0010100 c l : t r e e - e q u a l ) )
0010120 ) ) ) \r c l : t r e e - e q u a
0010140 l d 1 \r ( l ( 0 | - a r g
0010160 s - | ) ) \0 202 \n \0 002 \0 e 021 001 \0
0010200 k a 021 201 \t l 002 a 272 i 273 H l 003 275 274
0010220 M d L 363 262 . 277 h 273 g \0 \0 276 H l 003
0010240 _ 020 277 _ 016 277 O 020 d O 016 363 262 ) 277 h
0010260 _ 022 277 K 262 7 O 022 262 > o \0 \0 \0 \t \0
0010300 \0 020 a g \0 \0 360 225 M k 330 a 260 320 M l
0010320 002 324 ] 260 276 a g \0 \0 360 226 O 020 k 330 a
0010340 260 320 O 020 l 002 324 _ 020 260 277 O 022 227 I J
0010360 O 022 \v \0 \0 020 I J N \v \0 \0 020 \0 ( 1
0010400 2 7 % t r e e - e q u a l - t
0010420 e s t 1 2 0 % t r e e - e q
0010440 u a l - t e s t - n o t 6 8
0010460 c l : e r r o r ) \r ( 9 2 : t
0010500 e s t - n o t 7 3 : t e s t
0010520 3 1 e q l ) \r ( 6 5 " B
0010540 o t h T E S T a n d T E S
0010560 T - N O T s u p p l i e d . "
0010600 ) \r % t r e e - e q u a l - t e
0010620 s t d 1 \r ( l ( 2 t e s t
0010640 1 y 0 x ) ) \0 + \0 \0 \0
0010660 003 @ 003 262 034 A 003 264 027 @ 001 A 001 B \v \0
0010700 \0 264 \r @ 002 A 002 b 002 277 b \0 260 346 020 A
0010720 003 221 h 020 @ A l 002 B 016 020 \0 ( 1 5
0010740 % t r e e - e q u a l - t e s t
0010760 ) \r n i l \r ( ) \r % t r e e - e
0011000 q u a l - t e s t - n o t d 1
0011020 \r ( l ( 2 t e s t - n o t
0011040 1 y 0 x ) ) \0 - \0 \0 \0 003
0011060 @ 003 262 033 A 003 264 % @ 001 A 001 B \v \0 \0
0011100 264 033 @ 002 A 002 b 002 277 b \0 260 346 A 003 221
0011120 h 020 @ A l 002 B 016 263 370 i 020 \0 ( 1 5
0011140 % t r e e - e q u a l - t e s
0011160 t - n o t ) \r n i l \r ( ) \r c l
0011200 : e n d p d 1 \r ( i 0 o b
0011220 j e c t ) \0 023 \0 \0 \0 001 @ 265 004 i
0011240 020 003 221 h 020 o \0 \0 \0 @ \n \0 \0 020 \0 (
0011260 1 6 e r r o r ) \r n i l \r (
0011300 1 2 " A r g n o t l i s t
0011320 " ) \r c l : l i s t - l e n g t
0011340 h d 1 \r ( l ( 0 l i s t )
0011360 ) \0 1 003 \0 \0 001 j @ d 021 003 002 I d
0011400 \t \0 \0 221 H 020 002 \t \0 \0 223 H k 324 020 I
0011420 J 360 226 H d j 363 222 h 020 H l 002 324 I 002
0011440 002 J 002 272 271 270 260 330 \0 ( 1 7 c l :
0011460 e n d p 1 0 c l : e n d p )
0011500 \r n i l \r ( ) \r c l : n t h d
0011520 1 \r ( l ( 1 l i s t 0 n
0011540 ) ) \0 \b \0 \0 \0 002 @ A \n \0 \0 001 020
0011560 \0 ( 4 c l : n t h c d r ) \r n
0011600 i l \r ( ) \r % s e t n t h d 1
0011620 \r ( l ( 2 n e w v a l 1
0011640 l i s t 0 n ) ) \0 B 001 \0 \0
0011660 003 j @ 363 230 o \0 \0 \0 @ \n \0 \0 020 @ 021
0011700 001 \0 H j 360 263 036 H 005 003 265 024 A d 002 \t
0011720 \0 \0 262 026 277 o \0 \0 \0 @ \n \0 \0 214 \t \0
0011740 \0 262 353 A B 030 B 020 002 b 002 277 H k 325 X
0011760 260 323 \0 ( 4 7 \ \ f z e r o p
0012000 4 3 c l : e r r o r 3 2 c
0012020 l : e n d p 1 1 c l : e r r
0012040 o r ) \r n i l \r ( 3 9 " ~ S
0012060 i s t o o l a r g e a n
0012100 i n d e x f o r S E T F
0012120 o f N T H . " 7 " ~ S i
0012140 s a n i l l e g a l N f
0012160 o r S E T F o f N T H . "
0012200 ) \r ( p u t p r o p s c l : n
0012220 t h s e t f n % s e t n t h
0012240 ) \r c l : f i r s t d 1 \r ( l
0012260 ( 0 l i s t ) ) \0 004 \0 \0 \0
0012300 001 @ 001 020 \0 n i l \r n i l \r ( ) \r
0012320 c l : s e c o n d d 1 \r ( l
0012340 ( 0 l i s t ) ) \0 005 \0 \0 \0 001
0012360 @ 002 001 020 \0 n i l \r n i l \r ( ) \r
0012400 c l : t h i r d d 1 \r ( l (
0012420 0 l i s t ) ) \0 006 \0 \0 \0 001 @
0012440 002 002 001 020 \0 n i l \r n i l \r ( ) \r
0012460 c l : f o u r t h d 1 \r ( l
0012500 ( 0 l i s t ) ) \0 \a \0 \0 \0 001
0012520 @ 002 002 002 001 020 \0 n i l \r n i l \r (
0012540 ) \r c l : f i f t h d 1 \r ( l
0012560 ( 0 l i s t ) ) \0 \b \0 \0 \0
0012600 001 @ 002 002 002 002 001 020 \0 n i l \r n i l
0012620 \r ( ) \r c l : s i x t h d 1 \r
0012640 ( l ( 0 l i s t ) ) \0 \t \0
0012660 \0 \0 001 @ 002 002 002 002 002 001 020 \0 n i l \r
0012700 n i l \r ( ) \r c l : s e v e n t
0012720 h d 1 \r ( l ( 0 l i s t )
0012740 ) \0 \n \0 \0 \0 001 @ 002 002 002 002 002 002 001
0012760 020 \0 n i l \r n i l \r ( ) \r c l :
0013000 e i g h t h d 1 \r ( l ( 0
0013020 l i s t ) ) \0 \v \0 \0 \0 001 @ 002 002
0013040 002 002 002 002 002 001 020 \0 n i l \r n i l \r
0013060 ( ) \r c l : n i n t h d 1 \r (
0013100 l ( 0 l i s t ) ) \0 \f \0 \0
0013120 \0 001 @ 002 002 002 002 002 002 002 002 001 020 \0 n i
0013140 l \r n i l \r ( ) \r c l : t e n t
0013160 h d 1 \r ( l ( 0 l i s t )
0013200 ) \0 \r \0 \0 \0 001 @ 002 002 002 002 002 002 002
0013220 002 002 001 020 \0 n i l \r n i l \r ( ) \r
0013240 c l : r e s t d 1 \r ( l ( 0
0013260 l i s t ) ) \0 004 \0 \0 \0 001 @ 002
0013300 020 \0 n i l \r n i l \r ( ) \r c l :
0013320 : | o p t i m i z e - F I R S T
0013340 | d 1 \r ( l ( 2 $ $ c t x
0013360 1 $ $ e n v 0 $ $ w h o
0013400 l e ) ) \0 \f 001 \0 \0 003 @ 002 021 001 \0
0013420 g \0 \0 H 032 020 \0 n i l \r ( 7 c a
0013440 r ) \r ( ) \r ( p u t p r o p (
0013460 q u o t e c l : f i r s t )
0013500 ( q u o t e c o m p i l e r :
0013520 o p t i m i z e r - l i s t )
0013540 ( u n i o n ( g e t p r o p
0013560 ( q u o t e c l : f i r s t )
0013600 ( q u o t e \r c o m p i l e
0013620 r : o p t i m i z e r - l i s t
0013640 ) ) ( l i s t ( q u o t e
0013660 c l : : | o p t i m i z e - F I
0013700 R S T | ) ) ) ) \r c l : : | o p
0013720 t i m i z e - S E C O N D | d
0013740 1 \r ( l ( 2 $ $ c t x 1
0013760 $ $ e n v 0 $ $ w h o l e )
0014000 ) \0 \f 001 \0 \0 003 @ 002 021 001 \0 g \0 \0
0014020 H 032 020 \0 n i l \r ( 7 c a d r )
0014040 \r ( ) \r ( p u t p r o p ( q u
0014060 o t e c l : s e c o n d ) (
0014100 q u o t e c o m p i l e r : o
0014120 p t i m i z e r - l i s t ) (
0014140 u n i o n ( g e t p r o p (
0014160 q u o t e c l : s e c o n d )
0014200 ( q u o t e \r c o m p i l e
0014220 r : o p t i m i z e r - l i s t
0014240 ) ) ( l i s t ( q u o t e
0014260 c l : : | o p t i m i z e - S E
0014300 C O N D | ) ) ) ) \r c l : : | o
0014320 p t i m i z e - T H I R D | d
0014340 1 \r ( l ( 2 $ $ c t x 1
0014360 $ $ e n v 0 $ $ w h o l e )
0014400 ) \0 017 001 \0 \0 003 @ 002 001 021 001 \0 g \0
0014420 \0 H h 032 032 020 \0 n i l \r ( 8 c a
0014440 d d r ) \r ( ) \r ( p u t p r o p
0014460 ( q u o t e c l : t h i r d
0014500 ) ( q u o t e c o m p i l e
0014520 r : o p t i m i z e r - l i s t
0014540 ) ( u n i o n ( g e t p r o
0014560 p ( q u o t e c l : t h i r
0014600 d ) ( q u o t e \r c o m p i
0014620 l e r : o p t i m i z e r - l i
0014640 s t ) ) ( l i s t ( q u o t
0014660 e c l : : | o p t i m i z e -
0014700 T H I R D | ) ) ) ) \r c l : : |
0014720 o p t i m i z e - F O U R T H |
0014740 d 1 \r ( l ( 2 $ $ c t x
0014760 1 $ $ e n v 0 $ $ w h o l
0015000 e ) ) \0 017 001 \0 \0 003 @ 002 001 021 001 \0
0015020 g \0 \0 H h 032 032 020 \0 n i l \r ( 8
0015040 c a d d d r ) \r ( ) \r ( p u t p
0015060 r o p ( q u o t e c l : f o
0015100 u r t h ) ( q u o t e c o m
0015120 p i l e r : o p t i m i z e r -
0015140 l i s t ) ( u n i o n ( g e
0015160 t p r o p ( q u o t e c l :
0015200 f o u r t h ) ( q u o t e \r
0015220 c o m p i l e r : o p t i m i z
0015240 e r - l i s t ) ) ( l i s t
0015260 ( q u o t e c l : : | o p t i
0015300 m i z e - F O U R T H | ) ) ) )
0015320 \r c l : : | o p t i m i z e - F
0015340 I F T H | d 1 \r ( l ( 2 $
0015360 $ c t x 1 $ $ e n v 0 $
0015400 $ w h o l e ) ) \0 025 001 \0 \0 003 @
0015420 002 001 021 001 \0 g \0 \0 g \0 \0 H h 032 032 h
0015440 032 032 020 \0 n i l \r ( 1 1 c d d d
0015460 d r 8 c a r ) \r ( ) \r ( p u
0015500 t p r o p ( q u o t e c l :
0015520 f i f t h ) ( q u o t e c o
0015540 m p i l e r : o p t i m i z e r
0015560 - l i s t ) ( u n i o n ( g
0015600 e t p r o p ( q u o t e c l
0015620 : f i f t h ) ( q u o t e \r
0015640 c o m p i l e r : o p t i m i z
0015660 e r - l i s t ) ) ( l i s t
0015700 ( q u o t e c l : : | o p t i
0015720 m i z e - F I F T H | ) ) ) ) \r
0015740 c l : : | o p t i m i z e - S I
0015760 X T H | d 1 \r ( l ( 2 $ $
0016000 c t x 1 $ $ e n v 0 $ $
0016020 w h o l e ) ) \0 025 001 \0 \0 003 @ 002
0016040 001 021 001 \0 g \0 \0 g \0 \0 H h 032 032 h 032
0016060 032 020 \0 n i l \r ( 1 1 c d d d d
0016100 r 8 c a d r ) \r ( ) \r ( p u
0016120 t p r o p ( q u o t e c l :
0016140 s i x t h ) ( q u o t e c o
0016160 m p i l e r : o p t i m i z e r
0016200 - l i s t ) ( u n i o n ( g
0016220 e t p r o p ( q u o t e c l
0016240 : s i x t h ) ( q u o t e \r
0016260 c o m p i l e r : o p t i m i z
0016300 e r - l i s t ) ) ( l i s t
0016320 ( q u o t e c l : : | o p t i
0016340 m i z e - S I X T H | ) ) ) ) \r
0016360 c l : : | o p t i m i z e - S E
0016400 V E N T H | d 1 \r ( l ( 2
0016420 $ $ c t x 1 $ $ e n v 0
0016440 $ $ w h o l e ) ) \0 025 001 \0 \0 003
0016460 @ 002 001 021 001 \0 g \0 \0 g \0 \0 H h 032 032
0016500 h 032 032 020 \0 n i l \r ( 1 1 c d d
0016520 d d r 8 c a d d r ) \r ( ) \r
0016540 ( p u t p r o p ( q u o t e
0016560 c l : s e v e n t h ) ( q u o
0016600 t e c o m p i l e r : o p t i
0016620 m i z e r - l i s t ) ( u n i
0016640 o n ( g e t p r o p ( q u o
0016660 t e c l : s e v e n t h ) (
0016700 q u o t e \r c o m p i l e r :
0016720 o p t i m i z e r - l i s t ) )
0016740 ( l i s t ( q u o t e c l
0016760 : : | o p t i m i z e - S E V E
0017000 N T H | ) ) ) ) \r c l : : | o p
0017020 t i m i z e - E I G H T H | d
0017040 1 \r ( l ( 2 $ $ c t x 1
0017060 $ $ e n v 0 $ $ w h o l e )
0017100 ) \0 025 001 \0 \0 003 @ 002 001 021 001 \0 g \0
0017120 \0 g \0 \0 H h 032 032 h 032 032 020 \0 n i l
0017140 \r ( 1 1 c d d d d r 8 c a
0017160 d d d r ) \r ( ) \r ( p u t p r o
0017200 p ( q u o t e c l : e i g h
0017220 t h ) ( q u o t e c o m p i
0017240 l e r : o p t i m i z e r - l i
0017260 s t ) ( u n i o n ( g e t p
0017300 r o p ( q u o t e c l : e i
0017320 g h t h ) ( q u o t e \r c o
0017340 m p i l e r : o p t i m i z e r
0017360 - l i s t ) ) ( l i s t ( q
0017400 u o t e c l : : | o p t i m i
0017420 z e - E I G H T H | ) ) ) ) \r c
0017440 l : : | o p t i m i z e - N I N
0017460 T H | d 1 \r ( l ( 2 $ $ c
0017500 t x 1 $ $ e n v 0 $ $ w
0017520 h o l e ) ) \0 031 001 \0 \0 003 @ 002 001
0017540 021 001 \0 g \0 \0 g \0 \0 d H h 032 032 h 032
0017560 032 h 032 032 020 \0 n i l \r ( 1 1 c d
0017600 d d d r 8 c a r ) \r ( ) \r (
0017620 p u t p r o p ( q u o t e c
0017640 l : n i n t h ) ( q u o t e
0017660 c o m p i l e r : o p t i m i z
0017700 e r - l i s t ) ( u n i o n
0017720 ( g e t p r o p ( q u o t e
0017740 c l : n i n t h ) ( q u o t e
0017760 \r c o m p i l e r : o p t i m
0020000 i z e r - l i s t ) ) ( l i s
0020020 t ( q u o t e c l : : | o p
0020040 t i m i z e - N I N T H | ) ) )
0020060 ) \r c l : : | o p t i m i z e -
0020100 T E N T H | d 1 \r ( l ( 2
0020120 $ $ c t x 1 $ $ e n v 0
0020140 $ $ w h o l e ) ) \0 031 001 \0 \0 003
0020160 @ 002 001 021 001 \0 g \0 \0 g \0 \0 d H h 032
0020200 032 h 032 032 h 032 032 020 \0 n i l \r ( 1 1
0020220 c d d d d r 8 c a d r ) \r
0020240 ( ) \r ( p u t p r o p ( q u o
0020260 t e c l : t e n t h ) ( q u
0020300 o t e c o m p i l e r : o p t
0020320 i m i z e r - l i s t ) ( u n
0020340 i o n ( g e t p r o p ( q u
0020360 o t e c l : t e n t h ) ( q
0020400 u o t e \r c o m p i l e r : o
0020420 p t i m i z e r - l i s t ) )
0020440 ( l i s t ( q u o t e c l :
0020460 : | o p t i m i z e - T E N T H
0020500 | ) ) ) ) \r c l : : | o p t i m
0020520 i z e - R E S T | d 1 \r ( l
0020540 ( 2 $ $ c t x 1 $ $ e n v
0020560 0 $ $ w h o l e ) ) \0 017 001
0020600 \0 \0 003 @ 002 001 021 001 \0 g \0 \0 H h 032 032
0020620 020 \0 n i l \r ( 8 c d r ) \r ( )
0020640 \r ( p u t p r o p ( q u o t e
0020660 c l : r e s t ) ( q u o t e
0020700 c o m p i l e r : o p t i m i
0020720 z e r - l i s t ) ( u n i o n
0020740 ( g e t p r o p ( q u o t e
0020760 c l : r e s t ) ( q u o t e
0021000 \r c o m p i l e r : o p t i m
0021020 i z e r - l i s t ) ) ( l i s
0021040 t ( q u o t e c l : : | o p
0021060 t i m i z e - R E S T | ) ) ) )
0021100 \r c l : n t h c d r d 1 \r ( l
0021120 ( 1 l i s t 0 n ) ) \0
0021140 5 \0 \0 \0 002 @ 3 231 j @ 363 221 h 200 i
0021160 221 h 200 i 230 o \0 \0 \0 @ \n \0 \0 020 @ j
0021200 \n \0 \0 221 A 020 A d \t \0 \0 221 h 020 002 b
0021220 002 277 @ k 325 b \0 260 350 \0 ( 3 7 c l
0021240 : e n d p 2 9 % = 2 3 c
0021260 l : e r r o r ) \r n i l \r ( 1
0021300 9 " N = ~ S i s i l l
0021320 e g a l f o r N T H C D R .
0021340 " ) \r c l : m a k e - l i s t
0021360 d 1 \r ( l ( 0 | - a r g s -
0021400 | ) ) \0 S \a \0 002 \0 e 021 001 \0 k a
0021420 021 Q 006 H l 002 273 272 K d J 363 262 023 277 h
0021440 274 j I 363 262 036 o \0 \0 \0 I \n \0 \0 020 a
0021460 g \0 \0 360 225 K k 330 a 260 347 K l 002 324 [
0021500 260 331 I h 276 ] j 360 251 M d 005 003 226 d \t
0021520 \0 \0 221 N 020 k 325 L N 032 260 352 \0 ( 7 1
0021540 \ \ f z e r o p 3 5 c l :
0021560 e r r o r ) \r ( 4 0 : i n i t
0021600 i a l - e l e m e n t ) \r ( 3
0021620 1 " ~ S i s a n i l l e
0021640 g a l s i z e f o r M A K
0021660 E - L I S T . " ) \r c l : a p p
0021700 e n d d 1 \r ( p 4 n p
0021720 2 n p 1 v a l p 0
0021740 l ) \0 3 005 \0 002 \0 e 021 001 \0 021 002
0021760 H d j 360 221 h 020 k 360 222 k a 020 H a Y
0022000 k H k 331 021 002 004 K L 363 255 L a I \n \0
0022020 \0 271 L m 377 324 274 260 360 I 020 \0 ( 3 9
0022040 % a p p e n d ) \r n i l \r ( ) \r
0022060 % a p p e n d d 1 \r ( p 1
0022100 t a i l p 0 a n s w e r
0022120 i 1 l 2 i 0 l 1 ) \0
0022140 8 006 \0 \0 002 021 ` 005 @ \t \0 \0 221 A 020 @
0022160 001 @ 002 b \0 277 h 032 X 271 @ \t \0 \0 230 I
0022200 273 A 272 K J 031 H 020 I 275 @ 001 @ 002 b \0
0022220 277 h 032 274 M L 031 277 I 002 260 337 \0 ( 2 4
0022240 c l : e n d p 6 c l : e n
0022260 d p ) \r n i l \r ( ) \r c l : c o
0022300 p y - l i s t d 1 \r ( l ( 0
0022320 l ) ) \0 037 002 \0 \0 001 @ d 003 262 026
0022340 001 h 032 021 021 001 H Y @ 002 b \0 d 003 245 222
0022360 I @ 031 H 020 001 & 260 360 \0 n i l \r n i
0022400 l \r ( ) \r c l : c o p y - a l i
0022420 s t d 1 \r ( l ( 0 a l i s
0022440 t ) ) \0 I 003 \0 \0 001 @ d 003 252 264 .
0022460 o \0 \0 \0 @ \n \0 \0 020 001 003 242 @ 001 206 @
0022500 001 001 @ 001 002 032 h 032 021 ! 002 @ 002 H 272 Y
0022520 d 003 251 241 h 200 i 222 J I 031 H 020 002 J d
0022540 I d 001 003 241 001 205 001 001 I 001 002 032 & 277 002
0022560 260 336 \0 ( 1 3 c l : e r r o r )
0022600 \r n i l \r ( 9 " ~ S i s
0022620 n o t a l i s t . " ) \r c l
0022640 : c o p y - t r e e d 1 \r ( l
0022660 ( 0 o b j e c t ) ) \0 026 \0
0022700 \0 \0 001 @ 003 221 h 200 i 221 @ 020 @ 001 \t \0
0022720 \0 @ 002 \t \0 \0 032 020 \0 ( 1 8 c l :
0022740 c o p y - t r e e 1 3 c l :
0022760 c o p y - t r e e ) \r n i l \r (
0023000 ) \r c l : r e v a p p e n d d
0023020 1 \r ( l ( 1 y 0 x ) )
0023040 \0 027 002 \0 \0 002 @ A 021 002 001 H d \t \0 \0
0023060 221 I 020 002 H 001 I 032 271 X 260 362 \0 ( 9
0023100 c l : e n d p ) \r n i l \r ( ) \r
0023120 c l : n r e c o n c d 1 \r ( l
0023140 ( 1 y 0 x ) ) \0 \n \0 \0
0023160 \0 002 @ \t \0 \0 A \n \0 \0 020 \0 ( 7 \
0023200 \ n c o n c 2 3 c l : n r e
0023220 v e r s e ) \r n i l \r ( ) \r c l
0023240 : b u t l a s t d 1 \r ( l (
0023260 0 | - a r g s - | ) ) \0 L \b
0023300 \0 002 \0 e 021 001 \0 k a 021 a \a l 002 H 361
0023320 221 k 202 l 002 a 272 j J 363 221 j 272 I \t \0
0023340 \0 k 325 273 J K 363 221 h 020 I 002 274 I 001 h
0023360 032 ] 276 K _ 016 J \n \0 \0 221 M 020 N d L
0023400 001 & 277 002 276 L 002 274 O 016 k 325 260 350 \0 (
0023420 5 4 % = 2 9 l e n g t h )
0023440 \r n i l \r ( ) \r c l : n b u t l
0023460 a s t d 1 \r ( l ( 0 | - a
0023500 r g s - | ) ) \0 E \a \0 002 \0 e 021
0023520 001 \0 k a 021 ! 003 l 002 H 361 221 k 202 l 002
0023540 a 272 j J 363 221 j 272 I \t \0 \0 k 325 273 J
0023560 K 363 221 h 020 I 002 I K 021 003 006 N J \n \0
0023600 \0 224 M h 031 I 020 L 002 L N k 325 276 275 274
0023620 260 354 \0 ( 5 0 % = 2 9 l e n
0023640 g t h ) \r n i l \r ( ) \r c l : l
0023660 d i f f d 1 \r ( l ( 1 s u
0023700 b l i s t 0 l i s t ) ) \0
0023720 003 \0 \0 002 @ 021 ! 002 h h 032 Y 272 H 223
0023740 H A 360 222 I 002 020 J d H 001 & 277 002 272 H
0023760 002 X 260 355 \0 n i l \r n i l \r ( ) \r
0024000 % t e s t d 1 \r ( l ( 4 k
0024020 e y 3 t e s t - n o t 2
0024040 t e s t 1 k e y i t e m 0
0024060 i t e m ) ) \0 ! \0 \0 \0 005 B 231
0024100 @ A k D 016 l 002 B 016 020 C 235 @ A k D
0024120 016 l 002 C 016 221 h 020 i 020 \b \0 \0 020 \0 (
0024140 3 0 s h o u l d n t ) \r n i l
0024160 \r ( ) \r x x t e s t 1 d 1 \r (
0024200 l ( 3 k e y 2 t e s t
0024220 1 k e y i t e m 0 i t e m
0024240 ) ) \0 \v \0 \0 \0 004 @ A k C 016 l 002
0024260 B 016 020 \0 n i l \r n i l \r ( ) \r x
0024300 x t e s t 0 d 1 \r ( l ( 3
0024320 k e y 2 t e s t - n o t 1
0024340 k e y i t e m 0 i t e m )
0024360 ) \0 017 \0 \0 \0 004 @ A k C 016 l 002 B
0024400 016 221 h 020 i 020 \0 n i l \r n i l \r (
0024420 ) \r c l : s u b s t d 1 \r ( l
0024440 ( 0 | - a r g s - | ) ) \0
0024460 273 \r \0 002 \0 e 021 001 \0 k a 021 261 \f l 002
0024500 a 272 l 003 a 273 H l 004 275 274 M d L 363 262
0024520 A 277 h 276 H l 004 _ 020 277 _ 016 277 O 020 d
0024540 O 016 363 262 @ 277 h _ 022 277 H l 004 _ 026 277
0024560 _ 024 277 O 026 d O 024 363 262 @ 277 h _ 030 277
0024600 N 262 P O 022 262 J o \0 \0 \0 \t \0 \0 260 J
0024620 a g \0 \0 360 225 M k 330 a 260 271 M l 002 324
0024640 ] 260 253 a g \0 \0 360 226 O 020 k 330 a 260 271
0024660 O 020 l 002 324 _ 020 260 250 a g \0 \0 360 226 O
0024700 026 k 330 a 260 271 O 026 l 002 324 _ 026 260 250 N
0024720 247 O 022 244 g \0 \0 ^ 277 O 030 245 g \0 \0 _
0024740 030 277 I J K N O 022 O 030 \r 006 \0 \0 020 \0
0024760 ( 1 8 4 % s u b s t 8 8 c
0025000 l : e r r o r ) \r ( 1 6 9 c l
0025020 : i d e n t i t y 1 6 1 e q
0025040 l 1 3 5 : k e y 1 1 3 :
0025060 t e s t - n o t 9 4 : t e s
0025100 t ) \r ( 8 5 " B o t h T E
0025120 S T a n d T E S T - N O T
0025140 s u p p l i e d . " ) \r % s u b
0025160 s t d 1 \r ( l ( 5 k e y
0025200 4 t e s t - n o t 3 t e s
0025220 t 2 t r e e 1 o l d 0
0025240 n e w ) ) \0 = 002 \0 \0 006 A B C
0025260 D E \r 005 \0 \0 221 @ 020 B 003 241 B 020 @ A
0025300 B 001 C D E \r 006 \0 \0 @ A B 002 C D E
0025320 \r 006 \0 \0 021 002 001 H d B 001 360 230 277 I B
0025340 002 360 221 B 020 H I 032 020 \0 ( 3 8 % s
0025360 u b s t 2 7 % s u b s t 8
0025400 % t e s t ) \r n i l \r ( ) \r c
0025420 l : s u b s t - i f d 1 \r ( l
0025440 ( 0 | - a r g s - | ) ) \0
0025460 < \a \0 002 \0 e 021 001 \0 k a 021 Q 006 l 002
0025500 a 272 l 003 a 273 H l 004 275 274 M d L 363 234
0025520 277 g \0 \0 276 I J K N \f \0 \0 020 a g \0
0025540 \0 360 225 M k 330 a 260 355 M l 002 324 ] 260 336
0025560 \0 ( 3 8 % s u b s t - i f ) \r
0025600 ( 4 3 : k e y 3 0 c l : i
0025620 d e n t i t y ) \r ( ) \r % s u b
0025640 s t - i f d 1 \r ( l ( 3 k
0025660 e y 2 t r e e 1 t e s t
0025700 0 n e w ) ) \0 5 002 \0 \0 004 B
0025720 d k C 016 k A 016 221 @ 020 003 241 B 020 @ A
0025740 B 001 C \f \0 \0 @ A B 002 C \f \0 \0 021 002
0025760 001 H d B 001 360 230 277 I B 002 360 221 B 020 H
0026000 I 032 020 \0 ( 3 0 % s u b s t - i
0026020 f 2 2 % s u b s t - i f ) \r
0026040 n i l \r ( ) \r c l : s u b s t -
0026060 i f - n o t d 1 \r ( l ( 0
0026100 | - a r g s - | ) ) \0 < \a \0 002
0026120 \0 e 021 001 \0 k a 021 Q 006 l 002 a 272 l 003
0026140 a 273 H l 004 275 274 M d L 363 234 277 g \0 \0
0026160 276 I J K N \f \0 \0 020 a g \0 \0 360 225 M
0026200 k 330 a 260 355 M l 002 324 ] 260 336 \0 ( 3 8
0026220 % s u b s t - i f - n o t ) \r
0026240 ( 4 3 : k e y 3 0 c l : i
0026260 d e n t i t y ) \r ( ) \r % s u b
0026300 s t - i f - n o t d 1 \r ( l
0026320 ( 3 k e y 2 t r e e 1
0026340 t e s t 0 n e w ) ) \0 9 002
0026360 \0 \0 004 B k C 016 k A 016 221 h 200 i 221 @
0026400 020 B 003 241 B 020 @ A B 001 C \f \0 \0 @ A
0026420 B 002 C \f \0 \0 021 002 001 H d B 001 360 230 277
0026440 I B 002 360 221 B 020 H I 032 020 \0 ( 3 4
0026460 % s u b s t - i f - n o t 2 6
0026500 % s u b s t - i f - n o t ) \r
0026520 n i l \r ( ) \r c l : n s u b s t
0026540 d 1 \r ( l ( 0 | - a r g s
0026560 - | ) ) \0 273 \r \0 002 \0 e 021 001 \0 k
0026600 a 021 261 \f l 002 a 272 l 003 a 273 H l 004 275
0026620 274 M d L 363 262 A 277 h 276 H l 004 _ 020 277
0026640 _ 016 277 O 020 d O 016 363 262 @ 277 h _ 022 277
0026660 H l 004 _ 026 277 _ 024 277 O 026 d O 024 363 262
0026700 @ 277 h _ 030 277 N 262 P O 022 262 J o \0 \0
0026720 \0 \t \0 \0 260 J a g \0 \0 360 225 M k 330 a
0026740 260 271 M l 002 324 ] 260 253 a g \0 \0 360 226 O
0026760 020 k 330 a 260 271 O 020 l 002 324 _ 020 260 250 a
0027000 g \0 \0 360 226 O 026 k 330 a 260 271 O 026 l 002
0027020 324 _ 026 260 250 N 247 O 022 244 g \0 \0 ^ 277 O
0027040 030 245 g \0 \0 _ 030 277 I J K N O 022 O 030
0027060 \r 006 \0 \0 020 \0 ( 1 8 4 % n s u b
0027100 s t 8 8 c l : e r r o r ) \r
0027120 ( 1 6 9 c l : i d e n t i t y
0027140 1 6 1 e q l 1 3 5 : k e
0027160 y 1 1 3 : t e s t - n o t
0027200 9 4 : t e s t ) \r ( 8 5 "
0027220 B o t h T E S T a n d T E
0027240 S T - N O T s u p p l i e d .
0027260 " ) \r % n s u b s t d 1 \r ( l
0027300 ( 5 k e y 4 t e s t - n
0027320 o t 3 t e s t 2 t r e e
0027340 1 o l d 0 n e w ) ) \0
0027360 M 005 \0 \0 006 021 P 004 A B C D E \r 005 \0
0027400 \0 221 @ 020 B X 003 241 B 020 A H 001 C D E
0027420 \r 005 \0 \0 227 H 272 @ 271 J I 030 212 @ A H
0027440 001 C D E \r 006 \0 \0 277 A H 002 C D E \r
0027460 005 \0 \0 230 H 274 @ 273 L K 031 B 020 H 002 260
0027500 306 \0 ( 6 1 % t e s t 5 0 %
0027520 n s u b s t 3 0 % t e s t
0027540 1 1 % t e s t ) \r n i l \r ( )
0027560 \r c l : n s u b s t - i f d 1
0027600 \r ( l ( 0 | - a r g s - | )
0027620 ) \0 < \a \0 002 \0 e 021 001 \0 k a 021 Q
0027640 006 l 002 a 272 l 003 a 273 H l 004 275 274 M d
0027660 L 363 234 277 g \0 \0 276 I J K N \f \0 \0 020
0027700 a g \0 \0 360 225 M k 330 a 260 355 M l 002 324
0027720 ] 260 336 \0 ( 3 8 % n s u b s t -
0027740 i f ) \r ( 4 3 : k e y 3 0
0027760 c l : i d e n t i t y ) \r ( ) \r
0030000 % n s u b s t - i f d 1 \r ( l
0030020 ( 3 k e y 2 t r e e 1
0030040 t e s t 0 n e w ) ) \0 Q
0030060 \b \0 \0 004 B d k C 016 k A 016 221 @ 020 003
0030100 241 B 020 021 200 \a B ] d 003 263 023 k C 016 k
0030120 A 016 262 031 H 272 @ 271 J I 031 277 215 k C 016
0030140 k A 016 230 H 274 @ 273 L K 031 B 020 M _ 016
0030160 277 @ A M 001 C \f \0 \0 276 O 016 N 030 277 M
0030200 X 002 260 305 \0 ( 6 8 % n s u b s t
0030220 - i f ) \r n i l \r ( ) \r c l : n
0030240 s u b s t - i f - n o t d 1 \r
0030260 ( l ( 0 | - a r g s - | ) )
0030300 \0 < \a \0 002 \0 e 021 001 \0 k a 021 Q 006
0030320 l 002 a 272 l 003 a 273 H l 004 275 274 M d L
0030340 363 234 277 g \0 \0 276 I J K N \f \0 \0 020 a
0030360 g \0 \0 360 225 M k 330 a 260 355 M l 002 324 ]
0030400 260 336 \0 ( 3 8 % n s u b s t - i
0030420 f - n o t ) \r ( 4 3 : k e y
0030440 3 0 c l : i d e n t i t y ) \r
0030460 ( ) \r % n s u b s t - i f - n o
0030500 t d 1 \r ( l ( 3 k e y 2
0030520 t r e e 1 t e s t 0 n
0030540 e w ) ) \0 ^ \b \0 \0 004 B k C 016 k
0030560 A 016 221 h 200 i 221 @ 020 B 003 241 B 020 021 200
0030600 \a B ] d 003 263 030 k C 016 k A 016 221 h 200
0030620 i 262 036 H 272 @ 271 J I 031 277 260 024 k C 016
0030640 k A 016 221 h 200 i 230 H 274 @ 273 L K 031 B
0030660 020 M _ 016 277 @ A M 001 C \f \0 \0 276 O 016
0030700 N 030 277 M X 002 260 274 \0 ( 8 1 % n s
0030720 u b s t - i f - n o t ) \r n i l
0030740 \r ( ) \r c l : s u b l i s d 1
0030760 \r ( l ( 0 | - a r g s - | )
0031000 ) \0 263 \f \0 002 \0 e 021 001 \0 k a 021 241
0031020 \v l 002 a 272 H l 003 274 273 L d K 363 262 >
0031040 277 h 275 H l 003 _ 016 277 276 O 016 d N 363 262
0031060 @ 277 h _ 020 277 H l 003 _ 024 277 _ 022 277 O
0031100 024 d O 022 363 262 @ 277 h _ 026 277 M 262 P O
0031120 020 262 J o \0 \0 \0 \t \0 \0 260 J a g \0 \0
0031140 360 225 L k 330 a 260 274 L l 002 324 \ 260 256 a
0031160 g \0 \0 360 226 O 016 k 330 a 260 271 O 016 l 002
0031200 324 _ 016 260 251 a g \0 \0 360 226 O 024 k 330 a
0031220 260 271 O 024 l 002 324 _ 024 260 250 M 247 O 020 244
0031240 g \0 \0 ] 277 O 026 245 g \0 \0 _ 026 277 I J
0031260 M O 020 O 026 \r 005 \0 \0 020 \0 ( 1 7 6
0031300 % s u b l i s 8 1 c l : e r
0031320 r o r ) \r ( 1 6 2 c l : i d e
0031340 n t i t y 1 5 4 e q l 1 2
0031360 8 : k e y 1 0 6 : t e s t
0031400 - n o t 8 7 : t e s t ) \r (
0031420 7 8 " B o t h T E S T a
0031440 n d T E S T - N O T s u p p
0031460 l i e d . " ) \r % s u b l i s
0031500 d 1 \r ( l ( 4 k e y 3 t
0031520 e s t - n o t 2 t e s t 1
0031540 t r e e 0 a l i s t ) )
0031560 \0 D 002 \0 \0 005 A k D 016 @ B C g \0 \0
0031600 \t \0 \0 \r 005 \0 \0 265 \a A 003 243 A 020 002 020
0031620 @ A 001 B C D \r 005 \0 \0 @ A 002 B C D
0031640 \r 005 \0 \0 021 002 001 H d A 001 360 230 277 I A
0031660 002 360 221 A 020 H I 032 020 \0 ( 4 5 % s
0031700 u b l i s 3 5 % s u b l i s
0031720 1 6 % a s s o c 1 2 c l
0031740 : s y m b o l - f u n c t i o n
0031760 ) \r ( 9 c l : i d e n t i t y
0032000 ) \r ( ) \r c l : n s u b l i s
0032020 d 1 \r ( l ( 0 | - a r g s -
0032040 | ) ) \0 263 \f \0 002 \0 e 021 001 \0 k a
0032060 021 241 \v l 002 a 272 H l 003 274 273 L d K 363
0032100 262 ? 277 h 275 H l 003 _ 016 277 276 O 016 d N
0032120 363 262 A 277 h _ 020 277 H l 003 _ 024 277 _ 022
0032140 277 O 024 d O 022 363 262 A 277 h _ 026 277 O 020
0032160 262 Q O 026 262 J o \0 \0 \0 \t \0 \0 260 L a
0032200 g \0 \0 360 225 L k 330 a 260 273 L l 002 324 \
0032220 260 255 a g \0 \0 360 226 O 016 k 330 a 260 270 O
0032240 016 l 002 324 _ 016 260 250 a g \0 \0 360 226 O 024
0032260 k 330 a 260 270 O 024 l 002 324 _ 024 260 247 O 020
0032300 250 O 026 245 g \0 \0 _ 020 277 M 243 g \0 \0 275
0032320 I J O 020 O 026 M \r 005 \0 \0 020 \0 ( 1 7
0032340 6 % n s u b l i s 8 2 c l
0032360 : e r r o r ) \r ( 1 6 4 c l :
0032400 i d e n t i t y 1 5 6 e q l
0032420 1 2 9 : t e s t - n o t 1
0032440 0 7 : t e s t 8 8 : k e y
0032460 ) \r ( 7 9 " B o t h T E S
0032500 T a n d T E S T - N O T s
0032520 u p p l i e d . " ) \r % n s u b
0032540 l i s d 1 \r ( l ( 4 k e y
0032560 3 t e s t - n o t 2 t e
0032600 s t 1 t r e e 0 a l i s
0032620 t ) ) \0 | \t \0 \0 005 021 220 \b A k D
0032640 016 @ B C g \0 \0 \t \0 \0 \r 005 \0 \0 265 \a
0032660 A 003 243 A 020 002 020 h 276 A ] d 003 263 k
0032700 D 016 @ B C g \0 \0 \t \0 \0 \r 005 \0 \0 X
0032720 262 ' N 272 H 002 271 J I 031 277 260 034 k D 016
0032740 @ B C g \0 \0 \t \0 \0 \r 005 \0 \0 X 231 N
0032760 274 H 002 273 L K 031 A 020 M _ 020 277 @ M 001
0033000 B C D \r 005 \0 \0 _ 016 277 O 020 O 016 030 277
0033020 M ^ 002 260 247 \0 ( 1 0 8 % n s u b
0033040 l i s 8 2 % a s s o c 7 8
0033060 c l : s y m b o l - f u n c t
0033100 i o n 5 2 % a s s o c 4 8
0033120 c l : s y m b o l - f u n c t
0033140 i o n 1 9 % a s s o c 1 5
0033160 c l : s y m b o l - f u n c t
0033200 i o n ) \r ( 7 5 c l : i d e n
0033220 t i t y 4 5 c l : i d e n t
0033240 i t y 1 2 c l : i d e n t i
0033260 t y ) \r ( ) \r c l : m e m b e r
0033300 d 1 \r ( l ( 0 | - a r g s
0033320 - | ) ) \0 351 016 \0 002 \0 e 021 001 \0 k
0033340 a 021 301 \r l 002 a 272 H l 003 274 273 L d K
0033360 363 262 > 277 h 275 H l 003 _ 016 277 276 O 016 d
0033400 N 363 262 @ 277 h _ 020 277 H l 003 _ 024 277 _
0033420 022 277 O 024 d O 022 363 262 @ 277 h _ 026 277 M
0033440 262 P O 020 262 J o \0 \0 \0 \t \0 \0 260 J a
0033460 g \0 \0 360 225 L k 330 a 260 274 L l 002 324 \
0033500 260 256 a g \0 \0 360 226 O 016 k 330 a 260 271 O
0033520 016 l 002 324 _ 016 260 251 a g \0 \0 360 226 O 024
0033540 k 330 a 260 271 O 024 l 002 324 _ 024 260 250 M 247
0033560 O 020 244 g \0 \0 ] 277 O 026 245 g \0 \0 _ 026
0033600 277 M 262 037 J _ 030 003 264 023 I O 030 001 M O
0033620 026 \f \0 \0 221 h 200 i 242 O 030 020 O 030 002 260
0033640 346 O 020 264 032 J _ 032 003 264 024 I O 032 001 O
0033660 020 O 026 \f \0 \0 221 h 200 i 242 O 032 020 O 032
0033700 002 260 345 \0 ( 2 1 8 x x t e s t 0
0033720 1 8 4 x x t e s t 1 8 1
0033740 c l : e r r o r ) \r ( 1 6 2 c
0033760 l : i d e n t i t y 1 5 4 e
0034000 q l 1 2 8 : k e y 1 0 6
0034020 : t e s t - n o t 8 7 : t e
0034040 s t ) \r ( 7 8 " B o t h T
0034060 E S T a n d T E S T - N O T
0034100 s u p p l i e d . " ) \r % m e
0034120 m b e r d 1 \r ( l ( 4 k e
0034140 y 3 t e s t - n o t 2 t
0034160 e s t 1 l i s t 0 i t e
0034200 m ) ) \0 037 002 \0 \0 005 A 021 021 001 H Y
0034220 003 264 022 @ I 001 B C D \r 005 \0 \0 221 h 200
0034240 i 241 I 020 I 002 260 351 \0 ( 1 8 % t e
0034260 s t ) \r n i l \r ( ) \r c l : m e
0034300 m b e r - i f d 1 \r ( l ( 0
0034320 | - a r g s - | ) ) \0 \ \a \0
0034340 002 \0 e 021 001 \0 k a 021 Q 006 l 002 a 272 H
0034360 l 003 274 273 L d K 363 236 277 g \0 \0 275 J d
0034400 262 ' 003 262 030 h 260 026 a g \0 \0 360 225 L k
0034420 330 a 260 353 L l 002 324 \ 260 334 i 230 o \0 \0
0034440 \0 J \n \0 \0 277 J ^ d \t \0 \0 221 h 020 001
0034460 k M 016 k I 016 221 N 020 N 002 260 354 \0 ( 7
0034500 3 c l : e n d p 6 6 c l :
0034520 e r r o r ) \r ( 4 1 : k e y
0034540 2 6 c l : i d e n t i t y ) \r
0034560 ( 6 2 " ~ S i s n o t
0034600 a l i s t . " ) \r c l : m e m
0034620 b e r - i f - n o t d 1 \r ( l
0034640 ( 0 | - a r g s - | ) ) \0
0034660 ` \a \0 002 \0 e 021 001 \0 k a 021 Q 006 l 002
0034700 a 272 H l 003 274 273 L d K 363 236 277 g \0 \0
0034720 275 J d 262 ' 003 262 030 h 260 026 a g \0 \0 360
0034740 225 L k 330 a 260 353 L l 002 324 \ 260 334 i 230
0034760 o \0 \0 \0 J \n \0 \0 277 J ^ d \t \0 \0 221
0035000 h 020 001 k M 016 k I 016 221 h 200 i 221 N 020
0035020 N 002 260 350 \0 ( 7 3 c l : e n d p
0035040 6 6 c l : e r r o r ) \r ( 4
0035060 1 : k e y 2 6 c l : i d e
0035100 n t i t y ) \r ( 6 2 " ~ S
0035120 i s n o t a l i s t . " )
0035140 \r c l : : | o p t i m i z e - M
0035160 E M B E R | d 1 \r ( l ( 2
0035200 $ $ c t x 1 $ $ e n v 0
0035220 $ $ w h o l e ) ) 001 K 022 \0 \0 003
0035240 @ 002 021 321 \r H 001 271 H 002 Z 001 273 J 002 274
0035260 g \0 \0 L \n \0 \0 265 031 o \0 \0 \0 276 g \0
0035300 \0 L \n \0 \0 ] d 220 001 _ 016 277 M 244 h 203
0035320 001 260 354 i _ 020 277 g \0 \0 L \n \0 \0 ] 265
0035340 > o \0 \0 \0 _ 022 277 L o \0 \0 \0 \n \0 \0
0035360 N \t \0 \0 O 022 \t \0 \0 O 016 \t \0 \0 K \t
0035400 \0 \0 021 004 021 O " 262 B O 036 262 > O 034 d
0035420 001 g \0 \0 360 262 6 277 O " 001 260 037 001 260 307
0035440 d 001 _ 026 277 O 036 001 _ 024 277 O 026 k O 024
0035460 017 016 3 020 221 h 200 i 225 002 003 265 345 i 201 277
0035500 h 226 o \0 \0 \0 _ 034 201 O 034 242 261 \0 232 O
0035520 036 242 261 \0 224 O 242 261 \0 216 O 034 001 g \0
0035540 \0 360 262 034 O 036 001 g \0 \0 360 262 023 O 020 221
0035560 h 200 i 231 g \0 \0 I K h 032 032 032 020 o \0
0035600 \0 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 _ 032 277 _
0035620 030 277 g \0 \0 O 032 I h 032 032 h 032 g \0 \0
0035640 O 030 g \0 \0 K O 020 223 g \0 \0 202 g \0 \0
0035660 O 020 222 O 201 O 034 001 O 036 001 g \0 \0 O
0035700 030 h 032 032 h 032 032 O 032 h 032 032 032 g \0 \0
0035720 g \0 \0 O 030 h 032 032 h 032 032 032 032 032 032 032
0035740 032 h 032 032 032 020 g \0 \0 020 \0 ( 2 3 5
0035760 g e n s y m 2 2 8 g e n s y
0036000 m 9 7 c o n s t a n t e x p
0036020 r e s s i o n p 9 3 c o n s
0036040 t a n t e x p r e s s i o n p
0036060 8 8 c o n s t a n t e x p r e
0036100 s s i o n p 8 3 c o n s t a
0036120 n t e x p r e s s i o n p 7 9
0036140 k e y w o r d - t e s t 6 1
0036160 f i n d - k e y w o r d 3 6
0036200 f i n d - k e y w o r d 2 2
0036220 f i n d - k e y w o r d ) \r (
0036240 3 2 8 i g n o r e m a c r o
0036260 3 0 6 r e t u r n 3 0 3 |
0036300 d o | 2 8 6 c a r 2 7 1
0036320 | w h e n | 2 6 7 | u n l e
0036340 s s | 2 6 0 | o n | 2 5 5
0036360 | f o r | 2 4 4 l e t 2
0036400 1 4 f m e m b 2 0 1 c l :
0036420 i d e n t i t y 1 9 2 e q
0036440 1 1 5 e q l 5 7 : k e y
0036460 3 2 : t e s t - n o t 1 8
0036500 : t e s t ) \r ( 2 3 2 " M E
0036520 M B E R - I T E M " 2 2 5 "
0036540 M E M B E R " 1 6 5 ( e q )
0036560 7 6 ( : k e y : t e s t -
0036600 n o t : t e s t ) 6 8 ( f
0036620 u n c t i o n c l : i d e n t
0036640 i t y ) 2 8 ( f u n c t i o
0036660 n e q l ) ) \r ( p u t p r o p
0036700 ( q u o t e c l : m e m b e
0036720 r ) ( q u o t e c o m p i l
0036740 e r : o p t i m i z e r - l i s
0036760 t ) ( u n i o n ( g e t p r
0037000 o p ( q u o t e c l : m e m
0037020 b e r ) ( q u o t e \r c o m
0037040 p i l e r : o p t i m i z e r -
0037060 l i s t ) ) ( l i s t ( q u
0037100 o t e c l : : | o p t i m i z
0037120 e - M E M B E R | ) ) ) ) \r c l
0037140 : a d j o i n d 1 \r ( l ( 0
0037160 | - a r g s - | ) ) \0 275 \f \0
0037200 002 \0 e 021 001 \0 k a 021 241 \v l 002 a 272 H
0037220 l 003 274 273 L d K 363 262 > 277 h 275 H l 003
0037240 _ 016 277 276 O 016 d N 363 262 @ 277 h _ 020 277
0037260 H l 003 _ 024 277 _ 022 277 O 024 d O 022 363 262
0037300 @ 277 h _ 026 277 M 262 P O 020 262 J o \0 \0
0037320 \0 \t \0 \0 260 J a g \0 \0 360 225 L k 330 a
0037340 260 274 L l 002 324 \ 260 256 a g \0 \0 360 226 O
0037360 016 k 330 a 260 271 O 016 l 002 324 _ 016 260 251 a
0037400 g \0 \0 360 226 O 024 k 330 a 260 271 O 024 l 002
0037420 324 _ 024 260 250 M 247 O 020 244 g \0 \0 ] 277 O
0037440 026 245 g \0 \0 _ 026 277 I d k O 026 016 J M
0037460 O 020 O 026 \r 005 \0 \0 221 J 020 J 032 020 \0 (
0037500 1 8 1 % m e m b e r 8 1 c
0037520 l : e r r o r ) \r ( 1 6 2 c l
0037540 : i d e n t i t y 1 5 4 e q
0037560 l 1 2 8 : k e y 1 0 6 :
0037600 t e s t - n o t 8 7 : t e s
0037620 t ) \r ( 7 8 " B o t h T E
0037640 S T a n d T E S T - N O T
0037660 s u p p l i e d . " ) \r c l : u
0037700 n i o n d 1 \r ( l ( 0 | -
0037720 a r g s - | ) ) \0 326 017 \0 002 \0 e
0037740 021 001 \0 k a 021 321 016 l 002 a 272 H l 003 274
0037760 273 L d K 363 262 > 277 h 275 H l 003 _ 016 277
0040000 276 O 016 d N 363 262 @ 277 h _ 020 277 H l 003
0040020 _ 024 277 _ 022 277 O 024 d O 022 363 262 @ 277 h
0040040 _ 026 277 M 262 P O 020 262 J o \0 \0 \0 \t \0
0040060 \0 260 J a g \0 \0 360 225 L k 330 a 260 274 L
0040100 l 002 324 \ 260 256 a g \0 \0 360 226 O 016 k 330
0040120 a 260 271 O 016 l 002 324 _ 016 260 251 a g \0 \0
0040140 360 226 O 024 k 330 a 260 271 O 024 l 002 324 _ 024
0040160 260 250 M 247 O 020 244 g \0 \0 ] 277 O 026 245 g
0040200 \0 \0 _ 026 277 I _ 030 277 J _ 032 265 005 O 030
0040220 020 001 _ 034 k O 026 016 I M O 020 O 026 \r 005
0040240 \0 \0 221 h 200 i 227 O 034 O 030 032 _ 030 277 O
0040260 032 002 260 330 \0 ( 1 9 4 % m e m b e
0040300 r 8 1 c l : e r r o r ) \r (
0040320 1 6 2 c l : i d e n t i t y
0040340 1 5 4 e q l 1 2 8 : k e y
0040360 1 0 6 : t e s t - n o t 8
0040400 7 : t e s t ) \r ( 7 8 " B
0040420 o t h T E S T a n d T E S
0040440 T - N O T s u p p l i e d . "
0040460 ) \r c l : n u n i o n d 1 \r (
0040500 l ( 0 | - a r g s - | ) )
0040520 \0 347 020 \0 002 \0 e 021 001 \0 k a 021 341 017 l
0040540 002 a 272 H l 003 274 273 L d K 363 262 > 277 h
0040560 275 H l 003 _ 016 277 276 O 016 d N 363 262 @ 277
0040600 h _ 020 277 H l 003 _ 024 277 _ 022 277 O 024 d
0040620 O 022 363 262 @ 277 h _ 026 277 M 262 P O 020 262
0040640 J o \0 \0 \0 \t \0 \0 260 J a g \0 \0 360 225
0040660 L k 330 a 260 274 L l 002 324 \ 260 256 a g \0
0040700 \0 360 226 O 016 k 330 a 260 271 O 016 l 002 324 _
0040720 016 260 251 a g \0 \0 360 226 O 024 k 330 a 260 271
0040740 O 024 l 002 324 _ 024 260 250 M 247 O 020 244 g \0
0040760 \0 ] 277 O 026 245 g \0 \0 _ 026 277 I _ 030 277
0041000 J d \t \0 \0 222 O 030 020 001 k O 026 016 I M
0041020 O 020 O 026 \r 005 \0 \0 221 h 200 i 262 033 J _
0041040 036 002 272 O 036 _ 034 277 O 030 _ 032 277 O 034 O
0041060 032 031 277 O 036 260 310 J 002 Z 260 307 \0 ( 1 9
0041100 3 % m e m b e r 1 7 4 c l
0041120 : e n d p 8 1 c l : e r r o
0041140 r ) \r ( 1 6 2 c l : i d e n t
0041160 i t y 1 5 4 e q l 1 2 8
0041200 : k e y 1 0 6 : t e s t - n
0041220 o t 8 7 : t e s t ) \r ( 7
0041240 8 " B o t h T E S T a n d
0041260 T E S T - N O T s u p p l i
0041300 e d . " ) \r c l : i n t e r s e
0041320 c t i o n d 1 \r ( l ( 0 |
0041340 - a r g s - | ) ) \0 322 017 \0 002 \0
0041360 e 021 001 \0 k a 021 321 016 l 002 a 272 H l 003
0041400 274 273 L d K 363 262 > 277 h 275 H l 003 _ 016
0041420 277 276 O 016 d N 363 262 @ 277 h _ 020 277 H l
0041440 003 _ 024 277 _ 022 277 O 024 d O 022 363 262 @ 277
0041460 h _ 026 277 M 262 P O 020 262 J o \0 \0 \0 \t
0041500 \0 \0 260 J a g \0 \0 360 225 L k 330 a 260 274
0041520 L l 002 324 \ 260 256 a g \0 \0 360 226 O 016 k
0041540 330 a 260 271 O 016 l 002 324 _ 016 260 251 a g \0
0041560 \0 360 226 O 024 k 330 a 260 271 O 024 l 002 324 _
0041600 024 260 250 M 247 O 020 244 g \0 \0 ] 277 O 026 245
0041620 g \0 \0 _ 026 277 h _ 030 277 I _ 032 265 005 O
0041640 030 020 001 _ 034 k O 026 016 J M O 020 O 026 \r
0041660 005 \0 \0 227 O 034 O 030 032 _ 030 277 O 032 002 260
0041700 334 \0 ( 1 9 4 % m e m b e r 8
0041720 1 c l : e r r o r ) \r ( 1 6 2
0041740 c l : i d e n t i t y 1 5 4
0041760 e q l 1 2 8 : k e y 1 0
0042000 6 : t e s t - n o t 8 7 :
0042020 t e s t ) \r ( 7 8 " B o t h
0042040 T E S T a n d T E S T - N
0042060 O T s u p p l i e d . " ) \r c
0042100 l : n i n t e r s e c t i o n
0042120 d 1 \r ( l ( 0 | - a r g s -
0042140 | ) ) \0 343 020 \0 002 \0 e 021 001 \0 k a
0042160 021 341 017 l 002 a 272 H l 003 274 273 L d K 363
0042200 262 > 277 h 275 H l 003 _ 016 277 276 O 016 d N
0042220 363 262 @ 277 h _ 020 277 H l 003 _ 024 277 _ 022
0042240 277 O 024 d O 022 363 262 @ 277 h _ 026 277 M 262
0042260 P O 020 262 J o \0 \0 \0 \t \0 \0 260 J a g
0042300 \0 \0 360 225 L k 330 a 260 274 L l 002 324 \ 260
0042320 256 a g \0 \0 360 226 O 016 k 330 a 260 271 O 016
0042340 l 002 324 _ 016 260 251 a g \0 \0 360 226 O 024 k
0042360 330 a 260 271 O 024 l 002 324 _ 024 260 250 M 247 O
0042400 020 244 g \0 \0 ] 277 O 026 245 g \0 \0 _ 026 277
0042420 h _ 030 277 I d \t \0 \0 222 O 030 020 001 k O
0042440 026 016 J M O 020 O 026 \r 005 \0 \0 262 033 I _
0042460 036 002 271 O 036 _ 034 277 O 030 _ 032 277 O 034 O
0042500 032 031 277 O 036 260 314 I 002 Y 260 313 \0 ( 1 9
0042520 3 % m e m b e r 1 7 4 c l
0042540 : e n d p 8 1 c l : e r r o
0042560 r ) \r ( 1 6 2 c l : i d e n t
0042600 i t y 1 5 4 e q l 1 2 8
0042620 : k e y 1 0 6 : t e s t - n
0042640 o t 8 7 : t e s t ) \r ( 7
0042660 8 " B o t h T E S T a n d
0042700 T E S T - N O T s u p p l i
0042720 e d . " ) \r c l : s e t - d i f
0042740 f e r e n c e d 1 \r ( l ( 0
0042760 | - a r g s - | ) ) \0 326 017 \0
0043000 002 \0 e 021 001 \0 k a 021 321 016 l 002 a 272 H
0043020 l 003 274 273 L d K 363 262 > 277 h 275 H l 003
0043040 _ 016 277 276 O 016 d N 363 262 @ 277 h _ 020 277
0043060 H l 003 _ 024 277 _ 022 277 O 024 d O 022 363 262
0043100 @ 277 h _ 026 277 M 262 P O 020 262 J o \0 \0
0043120 \0 \t \0 \0 260 J a g \0 \0 360 225 L k 330 a
0043140 260 274 L l 002 324 \ 260 256 a g \0 \0 360 226 O
0043160 016 k 330 a 260 271 O 016 l 002 324 _ 016 260 251 a
0043200 g \0 \0 360 226 O 024 k 330 a 260 271 O 024 l 002
0043220 324 _ 024 260 250 M 247 O 020 244 g \0 \0 ] 277 O
0043240 026 245 g \0 \0 _ 026 277 h _ 030 277 I _ 032 265
0043260 005 O 030 020 001 _ 034 k O 026 016 J M O 020 O
0043300 026 \r 005 \0 \0 221 h 200 i 227 O 034 O 030 032 _
0043320 030 277 O 032 002 260 330 \0 ( 1 9 4 % m e
0043340 m b e r 8 1 c l : e r r o r
0043360 ) \r ( 1 6 2 c l : i d e n t i
0043400 t y 1 5 4 e q l 1 2 8 :
0043420 k e y 1 0 6 : t e s t - n o
0043440 t 8 7 : t e s t ) \r ( 7 8
0043460 " B o t h T E S T a n d
0043500 T E S T - N O T s u p p l i e
0043520 d . " ) \r c l : n s e t - d i f
0043540 f e r e n c e d 1 \r ( l ( 0
0043560 | - a r g s - | ) ) \0 347 020 \0
0043600 002 \0 e 021 001 \0 k a 021 341 017 l 002 a 272 H
0043620 l 003 274 273 L d K 363 262 > 277 h 275 H l 003
0043640 _ 016 277 276 O 016 d N 363 262 @ 277 h _ 020 277
0043660 H l 003 _ 024 277 _ 022 277 O 024 d O 022 363 262
0043700 @ 277 h _ 026 277 M 262 P O 020 262 J o \0 \0
0043720 \0 \t \0 \0 260 J a g \0 \0 360 225 L k 330 a
0043740 260 274 L l 002 324 \ 260 256 a g \0 \0 360 226 O
0043760 016 k 330 a 260 271 O 016 l 002 324 _ 016 260 251 a
0044000 g \0 \0 360 226 O 024 k 330 a 260 271 O 024 l 002
0044020 324 _ 024 260 250 M 247 O 020 244 g \0 \0 ] 277 O
0044040 026 245 g \0 \0 _ 026 277 h _ 030 277 I d \t \0
0044060 \0 222 O 030 020 001 k O 026 016 J M O 020 O 026
0044100 \r 005 \0 \0 221 h 200 i 262 033 I _ 036 002 271 O
0044120 036 _ 034 277 O 030 _ 032 277 O 034 O 032 031 277 O
0044140 036 260 310 I 002 Y 260 307 \0 ( 1 9 3 % m
0044160 e m b e r 1 7 4 c l : e n d
0044200 p 8 1 c l : e r r o r ) \r (
0044220 1 6 2 c l : i d e n t i t y
0044240 1 5 4 e q l 1 2 8 : k e y
0044260 1 0 6 : t e s t - n o t 8
0044300 7 : t e s t ) \r ( 7 8 " B
0044320 o t h T E S T a n d T E S
0044340 T - N O T s u p p l i e d . "
0044360 ) \r c l : s e t - e x c l u s i
0044400 v e - o r d 1 \r ( l ( 0 |
0044420 - a r g s - | ) ) \0 376 021 \0 002 \0
0044440 e 021 001 \0 k a 021 361 020 l 002 a 272 H l 003
0044460 274 273 L d K 363 262 > 277 h 275 H l 003 _ 016
0044500 277 276 O 016 d N 363 262 @ 277 h _ 020 277 H l
0044520 003 _ 024 277 _ 022 277 O 024 d O 022 363 262 @ 277
0044540 h _ 026 277 M 262 P O 020 262 J o \0 \0 \0 \t
0044560 \0 \0 260 J a g \0 \0 360 225 L k 330 a 260 274
0044600 L l 002 324 \ 260 256 a g \0 \0 360 226 O 016 k
0044620 330 a 260 271 O 016 l 002 324 _ 016 260 251 a g \0
0044640 \0 360 226 O 024 k 330 a 260 271 O 024 l 002 324 _
0044660 024 260 250 M 247 O 020 244 g \0 \0 ] 277 O 026 245
0044700 g \0 \0 _ 026 277 h _ 030 277 I _ 032 265 \n J
0044720 _ 036 265 ( O 030 020 001 _ 034 k O 026 016 J M
0044740 O 020 O 026 \r 005 \0 \0 221 h 200 i 227 O 034 O
0044760 030 032 _ 030 277 O 032 002 260 323 001 _ k O 026
0045000 016 I M O 020 O 026 \r 005 \0 \0 221 h 200 i 227
0045020 O O 030 032 _ 030 277 O 036 002 260 265 \0 ( 2
0045040 3 4 % m e m b e r 1 9 9 %
0045060 m e m b e r 8 1 c l : e r r
0045100 o r ) \r ( 1 6 2 c l : i d e n
0045120 t i t y 1 5 4 e q l 1 2 8
0045140 : k e y 1 0 6 : t e s t -
0045160 n o t 8 7 : t e s t ) \r (
0045200 7 8 " B o t h T E S T a n
0045220 d T E S T - N O T s u p p l
0045240 i e d . " ) \r c l : n s e t - e
0045260 x c l u s i v e - o r d 1 \r (
0045300 l ( 0 | - a r g s - | ) )
0045320 001 p 023 \0 002 \0 e 021 001 \0 k a 021 301 \r l
0045340 002 a 272 H l 003 274 273 L d K 363 262 > 277 h
0045360 275 H l 003 _ 016 277 276 O 016 d N 363 262 @ 277
0045400 h _ 020 277 H l 003 _ 024 277 _ 022 277 O 024 d
0045420 O 022 363 262 @ 277 h _ 026 277 M 262 P O 020 262
0045440 J o \0 \0 \0 \t \0 \0 260 J a g \0 \0 360 225
0045460 L k 330 a 260 274 L l 002 324 \ 260 256 a g \0
0045500 \0 360 226 O 016 k 330 a 260 271 O 016 l 002 324 _
0045520 016 260 251 a g \0 \0 360 226 O 024 k 330 a 260 271
0045540 O 024 l 002 324 _ 024 260 250 M 247 O 020 244 g \0
0045560 \0 ] 277 O 026 245 g \0 \0 _ 026 277 021 P 022 I
0045600 _ 032 003 242 261 \0 267 h _ 034 277 O 032 001 k O
0045620 026 016 _ 036 277 h _ $ 277 J _ 030 003 265 \f O
0045640 034 242 261 \0 214 h 261 \0 211 001 k O 026 016 _
0045660 277 O 020 235 O 036 O l 002 O 020 016 221 h 211
0045700 i 207 O 036 O l 002 M 016 262 \ i _ 034 277
0045720 O 032 O 036 O 032 002 g \0 \0 M g \0 \0 O 020
0045740 g \0 \0 O 026 \r \b \0 \0 031 277 O 030 O 036 O
0045760 030 002 g \0 \0 M g \0 \0 O 020 g \0 \0 O 026
0046000 \r \b \0 \0 031 277 O " 265 \a O 032 002 Y 203 O
0046020 032 002 031 277 O $ 265 \b O 030 002 272 260 203 O 030
0046040 002 031 277 261 377 | O 030 _ $ 002 261 377 o i 224
0046060 O 032 _ " 201 O 032 002 261 377 H O " 265 004 J
0046100 020 J 031 I 020 \0 ( 3 0 1 c l : d e
0046120 l e t e 2 7 4 c l : d e l e
0046140 t e 8 1 c l : e r r o r ) \r
0046160 ( 2 9 5 : k e y 2 9 0 : t
0046200 e s t - n o t 2 8 6 : t e s
0046220 t 2 6 8 : k e y 2 6 3 :
0046240 t e s t - n o t 2 5 9 : t e
0046260 s t 1 6 2 c l : i d e n t i
0046300 t y 1 5 4 e q l 1 2 8 :
0046320 k e y 1 0 6 : t e s t - n o
0046340 t 8 7 : t e s t ) \r ( 7 8
0046360 " B o t h T E S T a n d
0046400 T E S T - N O T s u p p l i e
0046420 d . " ) \r c l : s u b s e t p
0046440 d 1 \r ( l ( 0 | - a r g s -
0046460 | ) ) \0 306 \r \0 002 \0 e 021 001 \0 k a
0046500 021 261 \f l 002 a 272 H l 003 274 273 L d K 363
0046520 262 > 277 h 275 H l 003 _ 016 277 276 O 016 d N
0046540 363 262 @ 277 h _ 020 277 H l 003 _ 024 277 _ 022
0046560 277 O 024 d O 022 363 262 @ 277 h _ 026 277 M 262
0046600 P O 020 262 J o \0 \0 \0 \t \0 \0 260 J a g
0046620 \0 \0 360 225 L k 330 a 260 274 L l 002 324 \ 260
0046640 256 a g \0 \0 360 226 O 016 k 330 a 260 271 O 016
0046660 l 002 324 _ 016 260 251 a g \0 \0 360 226 O 024 k
0046700 330 a 260 271 O 024 l 002 324 _ 024 260 250 M 247 O
0046720 020 244 g \0 \0 ] 277 O 026 245 g \0 \0 _ 026 277
0046740 I _ 030 003 265 004 i 020 001 k O 026 016 J M O
0046760 020 O 026 \r 005 \0 \0 241 h 020 O 030 002 260 344 \0
0047000 ( 1 8 8 % m e m b e r 8 1
0047020 c l : e r r o r ) \r ( 1 6 2 c
0047040 l : i d e n t i t y 1 5 4 e
0047060 q l 1 2 8 : k e y 1 0 6
0047100 : t e s t - n o t 8 7 : t e
0047120 s t ) \r ( 7 8 " B o t h T
0047140 E S T a n d T E S T - N O T
0047160 s u p p l i e d . " ) \r c l :
0047200 a c o n s d 1 \r ( l ( 2 a
0047220 l i s t 1 d a t u m 0 k
0047240 e y ) ) \0 \a \0 \0 \0 003 @ A 032 B 032
0047260 020 \0 n i l \r n i l \r ( ) \r c l :
0047300 p a i r l i s d 1 \r ( l ( 2
0047320 a l i s t 1 d a t a 0
0047340 k e y s ) ) \0 p \b \0 \0 003 021 200 \a
0047360 @ 270 A 271 H d \t \0 \0 230 277 I \t \0 \0 221
0047400 B 020 H \t \0 \0 263 M I \t \0 \0 263 G H 001
0047420 I 001 032 h 032 [ 272 H 002 270 I 002 271 H d \t
0047440 \0 \0 237 277 I \t \0 \0 230 J 275 B 274 M L 031
0047460 K 020 H \t \0 \0 263 035 I \t \0 \0 263 027 J _
0047500 016 277 H 001 I 001 032 h 032 276 O 016 N 031 277 J
0047520 002 260 305 o \0 \0 \0 \t \0 \0 h 020 \0 ( 1 0
0047540 8 c l : e r r o r 7 8 c l
0047560 : e n d p 7 2 c l : e n d p
0047600 5 8 c l : e n d p 5 2 c
0047620 l : e n d p 3 0 c l : e n d
0047640 p 2 4 c l : e n d p 1 7
0047660 c l : e n d p 1 1 c l : e n
0047700 d p ) \r n i l \r ( 1 0 5 " P
0047720 A I R L I S k e y s a n d
0047740 d a t a h a v e d i f f e r
0047760 e n t l e n g t h . " ) \r c l
0050000 : a s s o c d 1 \r ( l ( 0
0050020 | - a r g s - | ) ) \0 263 \f \0 002
0050040 \0 e 021 001 \0 k a 021 241 \v l 002 a 272 H l
0050060 003 274 273 L d K 363 262 > 277 h 275 H l 003 _
0050100 016 277 276 O 016 d N 363 262 @ 277 h _ 020 277 H
0050120 l 003 _ 024 277 _ 022 277 O 024 d O 022 363 262 @
0050140 277 h _ 026 277 M 262 P O 020 262 J o \0 \0 \0
0050160 \t \0 \0 260 J a g \0 \0 360 225 L k 330 a 260
0050200 274 L l 002 324 \ 260 256 a g \0 \0 360 226 O 016
0050220 k 330 a 260 271 O 016 l 002 324 _ 016 260 251 a g
0050240 \0 \0 360 226 O 024 k 330 a 260 271 O 024 l 002 324
0050260 _ 024 260 250 M 247 O 020 244 g \0 \0 ] 277 O 026
0050300 245 g \0 \0 _ 026 277 I J M O 020 O 026 \r 005
0050320 \0 \0 020 \0 ( 1 7 6 % a s s o c
0050340 8 1 c l : e r r o r ) \r ( 1 6
0050360 2 c l : i d e n t i t y 1 5
0050400 4 e q l 1 2 8 : k e y 1
0050420 0 6 : t e s t - n o t 8 7
0050440 : t e s t ) \r ( 7 8 " B o t
0050460 h T E S T a n d T E S T -
0050500 N O T s u p p l i e d . " ) \r
0050520 % a s s o c d 1 \r ( l ( 4
0050540 k e y 3 t e s t - n o t 2
0050560 t e s t 1 a l i s t 0
0050600 i t e m ) ) \0 # 001 \0 \0 005 A 021 001
0050620 \0 H d \t \0 \0 221 h 020 001 236 @ H 001 001 B
0050640 C D \r 005 \0 \0 222 H 001 020 H 002 X 260 345 \0
0050660 ( 2 4 % t e s t 8 c l : e
0050700 n d p ) \r n i l \r ( ) \r c l : a
0050720 s s o c - i f d 1 \r ( l ( 1
0050740 a l i s t 0 p r e d i c a
0050760 t e ) ) \0 001 \0 \0 002 A 021 001 \0 H
0051000 d \t \0 \0 221 h 020 001 233 H d 001 001 k @ 016
0051020 224 277 H 001 020 H 002 X 260 350 \0 ( 8 c l
0051040 : e n d p ) \r n i l \r ( ) \r c l
0051060 : a s s o c - i f - n o t d 1
0051100 \r ( l ( 1 a l i s t 0 p
0051120 r e d i c a t e ) ) \0 " 001 \0 \0
0051140 002 A 021 001 \0 H d \t \0 \0 221 h 020 001 235 H
0051160 001 001 k @ 016 221 h 200 i 222 H 001 020 H 002 X
0051200 260 346 \0 ( 8 c l : e n d p ) \r n
0051220 i l \r ( ) \r c l : r a s s o c
0051240 d 1 \r ( l ( 0 | - a r g s -
0051260 | ) ) \0 314 \r \0 002 \0 e 021 001 \0 k a
0051300 021 261 \f l 002 a 272 H l 003 274 273 L d K 363
0051320 262 > 277 h 275 H l 003 _ 016 277 276 O 016 d N
0051340 363 262 @ 277 h _ 020 277 H l 003 _ 024 277 _ 022
0051360 277 O 024 d O 022 363 262 @ 277 h _ 026 277 M 262
0051400 P O 020 262 J o \0 \0 \0 \t \0 \0 260 J a g
0051420 \0 \0 360 225 L k 330 a 260 274 L l 002 324 \ 260
0051440 256 a g \0 \0 360 226 O 016 k 330 a 260 271 O 016
0051460 l 002 324 _ 016 260 251 a g \0 \0 360 226 O 024 k
0051500 330 a 260 271 O 024 l 002 324 _ 024 260 250 M 247 O
0051520 020 244 g \0 \0 ] 277 O 026 245 g \0 \0 _ 026 277
0051540 J _ 030 d \t \0 \0 221 h 020 001 262 025 I O 030
0051560 001 002 M O 020 O 026 \r 005 \0 \0 223 O 030 001 020
0051600 O 030 002 260 336 \0 ( 1 9 2 % t e s t
0051620 1 7 2 c l : e n d p 8 1
0051640 c l : e r r o r ) \r ( 1 6 2 c
0051660 l : i d e n t i t y 1 5 4 e
0051700 q l 1 2 8 : k e y 1 0 6
0051720 : t e s t - n o t 8 7 : t e
0051740 s t ) \r ( 7 8 " B o t h T
0051760 E S T a n d T E S T - N O T
0052000 s u p p l i e d . " ) \r c l :
0052020 r a s s o c - i f d 1 \r ( l
0052040 ( 1 a l i s t 0 p r e d i
0052060 c a t e ) ) \0 001 \0 \0 002 A 021 001
0052100 \0 H d \t \0 \0 221 h 020 001 233 H d 001 002 k
0052120 @ 016 224 277 H 001 020 H 002 X 260 350 \0 ( 8
0052140 c l : e n d p ) \r n i l \r ( ) \r
0052160 c l : r a s s o c - i f - n o t
0052200 d 1 \r ( l ( 1 a l i s t
0052220 0 p r e d i c a t e ) ) \0 "
0052240 001 \0 \0 002 A 021 001 \0 H d \t \0 \0 221 h 020
0052260 001 235 H 001 002 k @ 016 221 h 200 i 222 H 001 020
0052300 H 002 X 260 346 \0 ( 8 c l : e n d p
0052320 ) \r n i l \r ( ) \r c l : m a p c
0052340 a r d 1 \r ( l ( 0 | - a r
0052360 g s - | ) ) \0 F \t \0 002 \0 e 021 001
0052400 \0 k a 021 ! 003 l 002 a 272 H l 003 021 2 \b
0052420 M d L 363 237 277 N 022 273 I J K 032 g \0 \0
0052440 i \f \0 \0 020 a _ 020 277 O 016 265 017 O 020 h
0052460 032 _ 016 276 M k 324 ] 260 331 O 020 & _ 016 277
0052500 260 364 \0 ( 3 8 % m a p ) \r ( 3 4
0052520 : l i s t ) \r ( ) \r c l : m a
0052540 p l i s t d 1 \r ( l ( 0 |
0052560 - a r g s - | ) ) \0 F \t \0 002 \0
0052600 e 021 001 \0 k a 021 ! 003 l 002 a 272 H l 003
0052620 021 2 \b M d L 363 237 277 N 022 273 I J K 032
0052640 g \0 \0 h \f \0 \0 020 a _ 020 277 O 016 265 017
0052660 O 020 h 032 _ 016 276 M k 324 ] 260 331 O 020 &
0052700 _ 016 277 260 364 \0 ( 3 8 % m a p ) \r
0052720 ( 3 4 : l i s t ) \r ( ) \r c l
0052740 : m a p c d 1 \r ( l ( 0 |
0052760 - a r g s - | ) ) \0 D \t \0 002 \0
0053000 e 021 001 \0 k a 021 ! 003 l 002 a 272 H l 003
0053020 021 2 \b M d L 363 235 277 N 022 273 I J K 032
0053040 h i \f \0 \0 020 a _ 020 277 O 016 265 017 O 020
0053060 h 032 _ 016 276 M k 324 ] 260 333 O 020 & _ 016
0053100 277 260 364 \0 ( 3 6 % m a p ) \r n i
0053120 l \r ( ) \r c l : m a p l d 1 \r
0053140 ( l ( 0 | - a r g s - | ) )
0053160 \0 D \t \0 002 \0 e 021 001 \0 k a 021 ! 003
0053200 l 002 a 272 H l 003 021 2 \b M d L 363 235 277
0053220 N 022 273 I J K 032 h d \f \0 \0 020 a _ 020
0053240 277 O 016 265 017 O 020 h 032 _ 016 276 M k 324 ]
0053260 260 333 O 020 & _ 016 277 260 364 \0 ( 3 6 %
0053300 m a p ) \r n i l \r ( ) \r c l : m
0053320 a p c a n d 1 \r ( l ( 0 |
0053340 - a r g s - | ) ) \0 F \t \0 002 \0
0053360 e 021 001 \0 k a 021 ! 003 l 002 a 272 H l 003
0053400 021 2 \b M d L 363 237 277 N 022 273 I J K 032
0053420 g \0 \0 i \f \0 \0 020 a _ 020 277 O 016 265 017
0053440 O 020 h 032 _ 016 276 M k 324 ] 260 331 O 020 &
0053460 _ 016 277 260 364 \0 ( 3 8 % m a p ) \r
0053500 ( 3 4 : n c o n c ) \r ( ) \r c
0053520 l : m a p c o n d 1 \r ( l (
0053540 0 | - a r g s - | ) ) \0 F \t
0053560 \0 002 \0 e 021 001 \0 k a 021 ! 003 l 002 a 272
0053600 H l 003 021 2 \b M d L 363 237 277 N 022 273 I
0053620 J K 032 g \0 \0 h \f \0 \0 020 a _ 020 277 O
0053640 016 265 017 O 020 h 032 _ 016 276 M k 324 ] 260 331
0053660 O 020 & _ 016 277 260 364 \0 ( 3 8 % m a
0053700 p ) \r ( 3 4 : n c o n c ) \r (
0053720 ) \r % m a p d 1 \r ( l ( 3
0053740 t a k e - c a r 2 a c c u m
0053760 u l a t e 1 o r i g i n a l
0054000 - a r g l i s t s 0 f u n c
0054020 t i o n ) ) \0 l \b \0 \0 004 A \t \0
0054040 \0 021 q \a h h 032 Y 272 H d 224 d 001 247 277
0054060 i 232 B 225 I 002 020 002 260 362 A 001 020 H _ 016
0054100 262 035 C 223 O 016 001 201 O 016 001 L 032 274 O 016
0054120 ^ 001 002 275 N M 030 277 O 016 002 260 343 @ L \t
0054140 \0 \0 \n \0 \0 273 B d g \0 \0 360 231 277 J K
0054160 \n \0 \0 \t \0 \0 213 g \0 \0 360 264 \n J K &
0054200 277 J 002 272 h 274 260 243 \0 ( 8 8 l a s
0054220 t 8 5 \ \ n c o n c 2 7 1
0054240 a p p l y 6 8 c l : n r e
0054260 v e r s e 3 c l : c o p y -
0054300 l i s t ) \r ( 9 2 : l i s t
0054320 7 7 : n c o n c ) \r ( ) \r d e
0054340 l q d 1 \r ( l ( 0 | - a r
0054360 g s - | ) ) \0 S \a \0 002 \0 e 021 001
0054400 \0 k a 021 Q 006 l 002 a 272 l 003 H 361 221 j
0054420 204 i 273 l 003 a 274 J h 276 ] \t \0 \0 263 $
0054440 K 231 L j 360 263 035 L 005 003 265 023 I M 001 360
0054460 262 030 L k 325 274 N 265 \r M 002 Z 214 \t \0 \0
0054500 262 354 J 020 M 002 031 201 M ^ 277 M 002 260 315 \0
0054520 ( 6 6 \ \ f z e r o p 3 2
0054540 c l : e n d p ) \r n i l \r ( ) \r
0054560 ( p u t p r o p s c l : l i s
0054600 t - e v e r y d m a c r o (
0054620 d e f m a c r o ( f u n c t i
0054640 o n & r e s t l i s t s )
0054660 ( l e t ( ( g e n s y m ( g
0054700 e n s y m ) ) ( t a i l - v a
0054720 r s ( \r | f o r | x | i n
0054740 | l i s t s | c o l l e c t
0054760 | ( g e n s y m ) ) ) ) ( b
0055000 q u o t e ( l e t ( ( ( \ \
0055020 \ , g e n s y m ) t ) ) (
0055040 c l : d o ( ( \ \ \ , @ ( |
0055060 f o r | x | i n | \r l i s
0055100 t s | a s | t a i l - v a r
0055120 | i n | t a i l - v a r s
0055140 | c o l l e c t | ( l i s t
0055160 t a i l - v a r x ( b q u o
0055200 t e ( c d r ( \ \ \ , t a
0055220 i l - v a r ) ) ) ) ) ) ) ( (
0055240 \r n o t ( a n d ( \ \ \ , @
0055260 t a i l - v a r s ) ) ) ( \
0055300 \ \ , g e n s y m ) ) ( o r
0055320 ( s e t q ( \ \ \ , g e n
0055340 s y m ) ( a n d ( \ \ \ ,
0055360 g e n s y m ) ( c l : f u n c
0055400 a l l ( \r \ \ \ , f u n c t
0055420 i o n ) ( \ \ \ , @ ( | f o
0055440 r | x | i n | t a i l - v
0055460 a r s | c o l l e c t | ( b
0055500 q u o t e ( c a r ( \ \ \ ,
0055520 x ) ) ) ) ) ) ) ) ( r e t u
0055540 r n n i l ) ) ) ) ) ) \r ) ) \r
0055560 ( m o v d ( q u o t e a s s
0055600 o c ) ( q u o t e a s s q )
0055620 ) \r ( m o v d ( q u o t e f
0055640 m e m b ) ( q u o t e m e m
0055660 q ) ) \r ( p u t p r o p s c m
0055700 l l i s t f i l e t y p e c
0055720 l : c o m p i l e - f i l e ) \r
0055740 ( p u t p r o p s c m l l i s
0055760 t c o p y r i g h t ( " X e
0056000 r o x C o r p o r a t i o n "
0056020 1 9 8 5 1 9 8 6 ) ) \r n i l
0056040 \r
0056041