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