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