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