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