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