$ od -c -N 50000 [eris]<LispCore>SOURCES>MACROAUX.DCOM!10
0000000 ( F I L E C R E A T E D " 4
0000020 - O c t - 8 6 1 7 : 4 8 : 1 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 > M A C R O A
0000120 U X . ; 8 ) \r " 1 - O c t -
0000140 8 6 2 0 : 2 3 : 1 5 " r e c
0000160 o m p i l e d e x p r s : n
0000200 o t h i n g i n " X e r o x
0000220 L i s p 1 - O c t - 8 6
0000240 . . . " d a t e d \r " 1 -
0000260 O c t - 8 6 2 1 : 2 4 : 4 4 "
0000300 ) \r ( F I L E C R E A T E D "
0000320 4 - O c t - 8 6 1 7 : 4 7 :
0000340 4 3 " { E R I S } < L I S P C
0000360 O R E > S O U R C E S > M A C R
0000400 O A U X . ; 8 2 2 5 5 0 c h
0000420 a n g e s t o : ( O P T I M
0000440 I Z E R S \r \ M A C R O . M X
0000460 ) ( V A R S M A C R O A U X
0000500 C O M S ) p r e v i o u s d
0000520 a t e : " 2 6 - A u g - 8 6
0000540 1 2 : 3 3 : 4 9 " { E R I S }
0000560 < L I S P C O R E > S O U R C E
0000600 S > M A C R O A U X . ; 7 \r ) \r
0000620 L I S P F O R M . S I M P L I F
0000640 Y D 1 \r ( P 1 Y P 0
0000660 F N I 1 E V A L F L G I
0000700 0 X F 3 C O M P I L E
0000720 R M A C R O P R O P S ) \0 202 003
0000740 001 \0 002 @ 003 265 \a A 262 r @ 020 001 021 ! 002
0000760 H 004 l 004 360 262 M A 225 H \t \0 \0 263 E H
0001000 S \n \0 \0 Y 237 @ d I \n \0 \0 b \0 360 263
0001020 3 @ \t \0 \0 020 @ ` \0 \0 \n \0 \0 Y 265 032
0001040 @ d d h i o \0 \0 \0 \r 006 \0 \0 250 @ `
0001060 \0 \0 \n \0 \0 Y 224 I \t \0 \0 020 @ \t \0 \0
0001100 265 004 @ 020 001 Z d 262 032 d i 360 263 025 3 020
0001120 265 021 g \0 \0 J h 032 032 020 @ \t \0 \0 265 004
0001140 @ 020 001 020 \0 ( 1 7 2 Q C O N S T
0001160 A N T E X P R E S S I O N P 1
0001200 3 4 Q C O N S T A N T E X P R
0001220 E S S I O N P 1 2 7 Q L I S
0001240 P F O R M . S I M P L I F Y 1
0001260 2 1 Q G E T H A S H 1 1 1 Q
0001300 D W I M I F Y 0 ? 7 1 Q G
0001320 E T H A S H 6 1 Q L I S P F
0001340 O R M . S I M P L I F Y 5 0 Q
0001360 M A C R O E X P A N S I O N
0001400 4 0 Q G E T M A C R O P R O P
0001420 3 1 Q \ D E F I N E D P ) \r
0001440 ( 1 6 1 Q Q U O T E 1 1 6 Q
0001460 C L I S P A R R A Y 6 6 Q
0001500 C L I S P A R R A Y ) \r ( 1 0
0001520 5 Q " L I S P F O R M . S I M
0001540 P L I F Y " ) \r N O . S I D E E
0001560 F F E C T S . F N P D 1 \r ( I
0001600 0 X F 0 N O S I D E F
0001620 N S ) \0 030 \0 001 \0 001 @ d 262 024 004 l
0001640 004 360 264 016 @ g \0 \0 \n \0 \0 265 005 @ P 034
0001660 020 \0 ( 2 0 Q G E T P R O P ) \r
0001700 ( 1 5 Q C R O P S ) \r ( ) \r C
0001720 O D E . S U B S T D 1 \r ( I
0001740 2 F O R M I 1 Y I 0
0001760 X ) \0 \b \0 \0 \0 003 @ A B \v \0 \0
0002000 020 \0 ( 5 S U B S T ) \r N I L \r
0002020 ( ) \r C O D E . S U B P A I R
0002040 D 1 \r ( I 2 F O R M I 1
0002060 L 2 I 0 L 1 ) \0 \b \0 \0
0002100 \0 003 @ A B \v \0 \0 020 \0 ( 5 S U B
0002120 P A I R ) \r N I L \r ( ) \r A R G
0002140 S . C O M M U T A B L E P D 1
0002160 \r ( P 0 F N I 1 Y I
0002200 0 X ) \0 230 001 \0 \0 002 021 020 \0 A
0002220 003 254 @ 003 241 i 020 A @ b 002 277 b \0 200 @
0002240 003 231 @ 001 o \0 \0 \0 \n \0 \0 210 @ d 223 004
0002260 l 004 360 h 360 263 340 A i \n \0 \0 b 002 d 001
0002300 X d 003 262 023 001 g \0 \0 360 264 X A @ i \n
0002320 \0 \0 \n \0 \0 020 o \0 \0 \0 \n \0 \0 263 270 H
0002340 d g \0 \0 360 262 030 277 @ A 002 001 \n \0 \0 264
0002360 3 A 002 002 @ i \n \0 \0 \n \0 \0 020 o \0 \0
0002400 \0 \n \0 \0 234 g \0 \0 A @ i \n \0 \0 \v \0
0002420 \0 020 H \t \0 \0 264 \f A 002 @ i \n \0 \0 \n
0002440 \0 \0 020 \0 ( 2 2 5 Q A R G S . C
0002460 O M M U T A B L E P . L I S T
0002500 2 2 2 Q L I S P F O R M . S I
0002520 M P L I F Y 2 1 1 Q N O . S
0002540 I D E E F F E C T S . F N P 2
0002560 0 4 Q \ W A L K O V E R . S P
0002600 E C I A L F O R M S 2 0 1 Q
0002620 L I S P F O R M . S I M P L I F
0002640 Y 1 6 7 Q M E M B 1 5 7 Q
0002660 A R G S . C O M M U T A B L E
0002700 P . L I S T 1 5 4 Q L I S P
0002720 F O R M . S I M P L I F Y 1 4
0002740 2 Q \ V A R N O T U S E D 1
0002760 2 0 Q M E M B 1 1 0 Q A R
0003000 G S . C O M M U T A B L E P . L
0003020 I S T 1 0 5 Q L I S P F O R
0003040 M . S I M P L I F Y 5 7 Q L
0003060 I S P F O R M . S I M P L I F Y
0003100 3 6 Q M E M B ) \r ( 1 7 3 Q
0003120 A R G S . C O M M U T A B L E
0003140 P 1 2 7 Q S E T Q 7 4 Q
0003160 L A M B D A ) \r ( 1 6 4 Q (
0003200 C O N D S E L E C T Q S E L
0003220 E C T C A N D O R S E T Q
0003240 F R P T Q A P P L Y A P P
0003260 L Y * M A P M A P L I S T
0003300 M A P C M A P C A R M A P C
0003320 O N M A P C O N C M A P H A
0003340 S H M A P A T O M S E V E R
0003360 Y S O M E N O T E V E R Y
0003400 N O T A N Y ) \r 1 1 5 Q ( Q
0003420 U O T E F U N C T I O N D E
0003440 C L A R E C O N S T A N T D
0003460 E F E R R E D C O N S T A N T )
0003500 3 3 Q ( Q U O T E F U N C
0003520 T I O N D E C L A R E C O N
0003540 S T A N T D E F E R R E D C O
0003560 N S T A N T ) ) \r A R G S . C O
0003600 M M U T A B L E P . L I S T D
0003620 1 \r ( P 0 X I 1 Y I
0003640 0 L ) \0 026 001 \0 \0 002 @ 215 d 001
0003660 021 001 \0 H A \n \0 \0 022 264 \a 002 003 265 361 i
0003700 020 \0 ( 1 3 Q A R G S . C O M M
0003720 U T A B L E P ) \r N I L \r ( ) \r
0003740 V A R . N O T . U S E D D 1 \r
0003760 ( I 2 S E T Q O N L Y ? I
0004000 1 V A R I 0 F O R M )
0004020 \0 3 \0 \0 \0 003 A 004 l 004 360 255 l 016 A
0004040 \n \0 \0 277 \b \0 \0 b 002 260 357 A o \0 \0 \0
0004060 \n \0 \0 235 l 033 A \n \0 \0 277 \b \0 \0 b 002
0004100 260 330 @ A B \v \0 \0 020 \0 ( 6 0 Q \
0004120 V A R N O T U S E D 4 6 Q E
0004140 R R O R X 4 2 Q S E T E R R
0004160 O R N 3 3 Q M E M B 1 7 Q
0004200 E R R O R X 1 3 Q S E T E
0004220 R R O R N ) \r N I L \r ( 3 0 Q
0004240 ( N I L T ) ) \r \ V A R N O
0004260 T U S E D D 1 \r ( I 2 S E
0004300 T Q O N L Y ? I 1 V A R
0004320 I 0 F O R M ) \0 x \0 \0 \0 003
0004340 @ 003 265 \r B h 360 264 o A @ 360 h 360 020 001
0004360 003 263 = @ d 001 g \0 \0 360 262 023 277 A @ 002
0004400 001 \n \0 \0 265 R @ 002 002 b \0 260 326 001 o \0
0004420 \0 \0 \n \0 \0 221 i 020 @ d 001 o \0 \0 \0 \n
0004440 \0 \0 262 023 277 A @ 002 001 360 h 360 264 * @ A
0004460 B \v \0 \0 020 001 o \0 \0 \0 \n \0 \0 231 g \0
0004500 \0 @ A B \f \0 \0 020 @ 001 \t \0 \0 264 \t @
0004520 002 A B \v \0 \0 020 \0 ( 1 6 5 Q \ V
0004540 A R N O T U S E D . L I S T 1
0004560 5 4 Q N O . S I D E E F F E C
0004600 T S . F N P 1 4 6 Q \ W A L
0004620 K O V E R . S P E C I A L F O R
0004640 M S 1 3 4 Q M E M B 1 2 3
0004660 Q \ V A R N O T U S E D . L I
0004700 S T 1 0 1 Q M E M B 6 4 Q
0004720 M E M B 4 3 Q M E M B ) \r
0004740 ( 1 4 0 Q \ V A R N O T U S E
0004760 D 3 0 Q L A M B D A ) \r (
0005000 1 3 1 Q ( C O N D S E L E C
0005020 T Q S E L E C T C A N D O
0005040 R S E T Q F R P T Q A P P
0005060 L Y A P P L Y * M A P M A
0005100 P L I S T M A P C M A P C A
0005120 R M A P C O N M A P C O N C
0005140 M A P H A S H M A P A T O M
0005160 S E V E R Y S O M E N O T
0005200 E V E R Y N O T A N Y ) \r 7
0005220 6 Q ( S E T Q ) 6 1 Q ( Q
0005240 U O T E F U N C T I O N D E
0005260 C L A R E C O N S T A N T D
0005300 E F E R R E D C O N S T A N T )
0005320 ) \r \ V A R N O T U S E D . L I
0005340 S T D 1 \r ( P 0 F O R M
0005360 I 2 S E T Q O N L Y ? I
0005400 1 X I 0 L ) \0 027 001 \0 \0
0005420 003 @ 216 d 001 021 001 \0 H A B \v \0 \0 022 264
0005440 \a 002 003 265 360 i 020 \0 ( 1 4 Q \ V A
0005460 R N O T U S E D ) \r N I L \r ( )
0005500 \r E V A L U A B L E . C O N S T
0005520 A N T P D 1 \r ( P 5 V A L
0005540 S P 4 Z I 0 X ) 001
0005560 P \a \0 \0 001 @ d 003 262 033 277 @ d 001 g \0
0005600 \0 360 257 d 001 g \0 \0 360 250 d 001 ` \0 \0 034
0005620 225 277 @ \t \0 \0 020 003 227 @ i \n \0 \0 b \0
0005640 200 @ 003 262 357 @ 001 d 223 004 l 004 360 242 261 \0
0005660 256 @ d 001 o \0 \0 \0 \n \0 \0 262 027 277 g \0
0005700 \0 @ \n \0 \0 264 003 202 261 \0 330 @ \t \0 \0 h
0005720 032 020 001 d g \0 \0 360 263 > d g \0 \0 360 263
0005740 7 d g \0 \0 360 263 0 d g \0 \0 360 263 ) d
0005760 g \0 \0 360 263 " d g \0 \0 360 263 033 d g \0
0006000 \0 360 263 024 d g \0 \0 360 253 d g \0 \0 360 245
0006020 d g \0 \0 360 222 277 i 201 277 h 263 ? @ 001 \t
0006040 \0 \0 264 9 @ 002 021 A 004 H 003 265 023 I 022 021
0006060 001 005 M 264 m @ 001 M \n \0 \0 h 032 020 001 \
0006100 \t \0 \0 d 262 352 001 273 J 265 \f K h 032 Z 271
0006120 H 002 X 260 327 K & 272 260 370 h 020 @ 001 003 264
0006140 A @ 001 001 g \0 \0 360 264 8 @ d 001 002 001 003
0006160 263 025 277 g \0 \0 @ 002 @ 001 002 002 \n \0 \0 032
0006200 b \0 261 376 364 002 021 1 006 K 003 265 026 @ 001 002
0006220 001 M g \0 \0 @ 001 002 002 032 \v \0 \0 \t \0 \0
0006240 020 001 \ \t \0 \0 d 262 371 001 ^ d 236 d i 360
0006260 252 3 020 265 \t g \0 \0 N h 032 032 M 032 275 K
0006300 002 [ 260 310 \0 ( 4 6 0 Q E V A L U
0006320 A B L E . C O N S T A N T P 4
0006340 5 2 Q E V A L U A B L E . C O
0006360 N S T A N T P 4 4 7 Q C O D
0006400 E . S U B P A I R 4 1 1 Q \
0006420 A P P E N D 2 3 1 5 Q E V A
0006440 L U A B L E . C O N S T A N T P
0006460 3 0 5 Q A P P L Y 2 5 4 Q
0006500 N O . S I D E E F F E C T S .
0006520 F N P 1 3 1 Q E V A L 1 1
0006540 7 Q \ W A L K O V E R . S P E
0006560 C I A L F O R M S 1 0 5 Q M
0006600 E M B 5 0 Q L I S P F O R M
0006620 . S I M P L I F Y 4 0 Q C O
0006640 N S T A N T E X P R E S S I O N
0006660 P ) \r ( 5 0 2 Q Q U O T E 4
0006700 3 7 Q P R O G N 4 0 0 Q P
0006720 R O G N 3 6 1 Q L A M B D A
0006740 2 3 6 Q G E T D 2 3 0 Q
0006760 M A C H I N E T Y P E 2 2 2 Q
0007000 S Y S T E M T Y P E 2 1 3 Q
0007020 A L L O C S T R I N G 2 0 4
0007040 Q M K A T O M 1 7 5 Q M K
0007060 S T R I N G 1 6 6 Q A R R A
0007100 Y 1 5 7 Q \ A L L O C K B L
0007120 O C K 1 5 0 Q L I S T 1 4
0007140 1 Q C O N S 1 1 3 Q E V A
0007160 L U A B L E . C O N S T A N T P
0007200 3 1 Q C O N S T A N T F O L
0007220 D F N S 2 2 Q C O N S T A N
0007240 T 1 3 Q Q U O T E ) \r ( 1
0007260 0 2 Q ( C O N D S E L E C T
0007300 Q S E L E C T C A N D O R
0007320 S E T Q F R P T Q A P P L
0007340 Y A P P L Y * M A P M A P
0007360 L I S T M A P C M A P C A R
0007400 M A P C O N M A P C O N C
0007420 M A P H A S H M A P A T O M S
0007440 E V E R Y S O M E N O T E
0007460 V E R Y N O T A N Y ) ) \r E V
0007500 A L U A B L E . C O N S T A N T
0007520 . F I X P D 1 \r ( I 0 X )
0007540 \0 \t \0 \0 \0 001 @ \t \0 \0 001 3 020 \0
0007560 ( 3 E V A L U A B L E . C O N
0007600 S T A N T P ) \r N I L \r ( ) \r \
0007620 D E C L . C O M N T . P R O C E
0007640 S S D 1 \r ( L ( 0 F O R M
0007660 S ) F 5 C O M M E N T F L
0007700 G ) \0 ; 005 001 \0 001 @ 021 A 004 H Y 003
0007720 265 \b J K I 032 032 020 001 \ 003 262 367 U L 001
0007740 \ 360 246 L g \0 \0 360 262 352 U L 360 225 I 001
0007760 K 032 273 212 L g \0 \0 360 224 I 001 J 032 272 I
0010000 002 260 315 \0 N I L \r ( 5 6 Q D E C
0010020 L A R E 3 5 Q D E C L A R E
0010040 ) \r ( ) \r \ W A L K O V E R . S
0010060 P E C I A L F O R M S D 1 \r (
0010100 P 3 L P 2 L L P 0
0010120 C L Z I 4 R E S T 3 I
0010140 3 R E S T 2 I 2 R E S
0010160 T 1 I 1 F O R M I 0
0010200 P R E D ) 001 316 004 \0 \0 005 A 003 001 d
0010220 g \0 \0 360 262 ' 277 A 260 035 d 001 021 001 \0 H
0010240 003 h 360 265 \v @ H B C D \r 005 \0 \0 022 264
0010260 003 202 261 001 242 002 003 265 343 i 020 d g \0 \0 360
0010300 246 d g \0 \0 360 262 O 277 A 002 001 B C D l
0010320 004 @ 017 016 264 003 202 261 001 } A \t \0 \0 001 B
0010340 C D l 004 @ 017 016 264 003 202 261 001 j A 002 002
0010360 021 021 002 I Z 003 242 261 001 \ J 002 242 261 001 V
0010400 @ J 001 002 B C D \r 005 \0 \0 264 003 202 261 001
0010420 F J 002 260 341 d g \0 \0 360 263 024 d g \0 \0
0010440 360 253 d g \0 \0 360 245 d g \0 \0 360 233 277 @
0010460 A 002 B C D \r 005 \0 \0 020 d g \0 \0 360 246
0010500 d g \0 \0 360 262 277 @ A 002 001 B C D \r
0010520 005 \0 \0 264 003 202 261 \0 376 @ A 002 002 B C D
0010540 \r 005 \0 \0 020 d g \0 \0 360 263 F d g \0 \0
0010560 360 263 ? d g \0 \0 360 263 8 d g \0 \0 360 263
0010600 1 d g \0 \0 360 263 * d g \0 \0 360 263 # d
0010620 g \0 \0 360 263 034 d g \0 \0 360 263 025 d g \0
0010640 \0 360 254 d g \0 \0 360 246 d g \0 \0 360 262 ?
0010660 277 A 002 001 B C D l 004 @ 017 016 264 003 202 261
0010700 \0 225 A 002 002 b 002 001 264 003 202 261 \0 211 @ A
0010720 001 B C D \r 005 \0 \0 264 | A 002 003 h 360 265
0010740 u @ A 002 001 B C D \r 005 \0 \0 020 d g \0
0010760 \0 360 234 277 @ A 002 001 B C D \r 005 \0 \0 020
0011000 g \0 \0 360 262 Q A 002 001 260 " d 001 021 001 003
0011020 K 003 h 360 265 024 K 002 003 h 360 265 \r K 002 001
0011040 B C D l 004 @ 017 016 022 225 002 003 265 337 i 201
0011060 277 h 264 " A 002 260 031 d 001 021 001 003 K 003 h
0011100 360 265 \v K B C D l 004 @ 017 016 022 264 \a 002
0011120 003 265 347 i 020 \b \0 \0 020 \0 ( 7 1 3 Q
0011140 S H O U L D N T 5 6 2 Q \ W
0011160 A L K O V E R . F U N C T I O N
0011200 5 3 7 Q \ W A L K O V E R .
0011220 F U N C T I O N 5 1 3 Q \ W
0011240 A L K O V E R . F U N C T I O N
0011260 3 2 7 Q \ W A L K O V E R .
0011300 S F . L I S T 3 0 6 Q \ W A
0011320 L K O V E R . F U N C T I O N
0011340 2 5 4 Q \ W A L K O V E R . S
0011360 F . L I S T 1 7 6 Q \ W A L
0011400 K O V E R . S F . L I S T 1 2
0011420 1 Q L A S T 4 1 Q \ W A L
0011440 K O V E R . S F . L I S T ) \r (
0011460 5 6 6 Q P R O G 5 4 4 Q M
0011500 A P A T O M S 4 4 0 Q N O T
0011520 A N Y 4 3 2 Q N O T E V E R
0011540 Y 4 2 4 Q S O M E 4 1 5 Q
0011560 E V E R Y 4 0 6 Q M A P H
0011600 A S H 3 7 7 Q M A P C O N C
0011620 3 7 0 Q M A P C O N 3 6 1
0011640 Q M A P C A R 3 5 2 Q M A
0011660 P C 3 4 3 Q M A P L I S T
0011700 3 3 4 Q M A P 2 6 7 Q A P
0011720 P L Y * 2 6 1 Q A P P L Y
0011740 2 3 7 Q S E T Q 2 3 1 Q F
0011760 R P T Q 2 2 3 Q O R 2 1 4
0012000 Q A N D 7 0 Q S E L E C T
0012020 C 6 2 Q S E L E C T Q 6
0012040 C O N D ) \r ( ) \r \ W A L K O V
0012060 E R . S F . L I S T D 1 \r ( P
0012100 0 X I 4 R E S T 3 I
0012120 3 R E S T 2 I 2 R E S
0012140 T 1 I 1 L I 0 P R E
0012160 D ) \0 033 001 \0 \0 005 A 260 024 d 001 021 001
0012200 \0 H B C D l 004 @ 017 016 022 264 \a 002 003 265
0012220 355 i 020 \0 N I L \r N I L \r ( ) \r \
0012240 W A L K O V E R . F U N C T I O
0012260 N D 1 \r ( I 4 R E S T 3
0012300 I 3 R E S T 2 I 2 R E
0012320 S T 1 I 1 F N I 0 P
0012340 R E D ) \0 9 \0 \0 \0 005 A d 003 232 d
0012360 001 o \0 \0 \0 \n \0 \0 263 031 B C D l 004 @
0012400 017 016 264 o \0 \0 \0 B C D l 004 @ 017 016
0012420 020 002 001 b 002 d 003 241 h 032 B C D l 004 @
0012440 017 016 020 \0 ( 1 4 Q M E M B ) \r N
0012460 I L \r ( 3 4 Q ( \ T y p i c
0012500 a l U n k n o w n F u n c t i o
0012520 n ) 1 1 Q ( Q U O T E F U
0012540 N C T I O N ) ) \r ( P R E T T Y
0012560 C O M P R I N T M A C R O A U
0012600 X C O M S ) \r ( R P A Q Q M A
0012620 C R O A U X C O M S ( ( E X P
0012640 O R T ( D E C L A R E : D O
0012660 N T C O P Y ( M A C R O S N
0012700 N L I T A T O M \ N U L L . O
0012720 R . F I X P \ C H E C K T Y P
0012740 E \r C A N O N I C A L . T I M
0012760 E R U N I T S ) ) ( P R O P
0013000 D M A C R O \ M A C R O . E V
0013020 A L ) ( O P T I M I Z E R S
0013040 \ M A C R O . M X ) ) ( C O M
0013060 S ( * ; \r " f u n c t i o
0013100 n s w h i c h h e l p m a
0013120 c r o a n d c o m p i l e r
0013140 w r i t e r s . " ) ( F N S
0013160 L I S P F O R M . S I M P L I
0013200 F Y N O . S I D E E F F E C T
0013220 S . F N P \r C O D E . S U B S
0013240 T C O D E . S U B P A I R )
0013260 ( G L O B A L R E S O U R C E S
0013300 \ N S E . S T R P T R ) ) (
0013320 C O M S ( F N S A R G S . C
0013340 O M M U T A B L E P \r A R G S
0013360 . C O M M U T A B L E P . L I S
0013400 T V A R . N O T . U S E D \
0013420 V A R N O T U S E D \ V A R N
0013440 O T U S E D . L I S T E V A L
0013460 U A B L E . C O N S T A N T P
0013500 \r E V A L U A B L E . C O N S T
0013520 A N T . F I X P ) ( M A C R O
0013540 S E V A L U A B L E . C O N S
0013560 T A N T . F I X P C A R C D R
0013600 . F N P ) ) ( F N S \ D E C
0013620 L . C O M N T . P R O C E S S )
0013640 ( C O M S \r ( F N S \ W A
0013660 L K O V E R . S P E C I A L F O
0013700 R M S \ W A L K O V E R . S F
0013720 . L I S T \ W A L K O V E R .
0013740 F U N C T I O N ) ( D E C L A
0013760 R E : D O N T C O P Y ( C O
0014000 N S T A N T S \r \ Q U O T I F
0014020 Y I N G . N L S \ W A L K A B
0014040 L E . S P E C I A L F O R M S )
0014060 ( M A C R O S \ W A L K A B
0014100 L E . S P E C I A L F O R M P )
0014120 ) ( A D D V A R S ( C O N S
0014140 T A N T F O L D F N S \r I M I
0014160 N I M A X I A B S L O G O
0014200 R L O G X O R L O G A N D )
0014220 ) ( V A R S N O S I D E F N
0014240 S ) ( G L O B A L V A R S C
0014260 L I S P A R R A Y C O N S T A
0014300 N T F O L D F N S ) ) ) ) \r ( P
0014320 U T P R O P S \ M A C R O . E
0014340 V A L D M A C R O ( Z ( P
0014360 R O G ( ( X ( E X P A N D M
0014400 A C R O ( C A R Z ) T ) )
0014420 ) ( i f ( E Q X ( C A R
0014440 Z ) ) t h e n ( E R R O R
0014460 \r " N o m a c r o p r o p
0014500 e r t y - - \ M A C R O . E
0014520 V A L " X ) e l s e ( R E
0014540 T U R N ( E V A L X ) ) ) )
0014560 ) ) \r ( D E F O P T I M I Z E R
0014600 \ M A C R O . M X ( F O R M
0014620 ) F O R M ) \r ( / S E T T O P
0014640 V A L ( Q U O T E \ \ N S E
0014660 . S T R P T R . G L O B A L R E
0014700 S O U R C E ) ) \r ( P U T P R O
0014720 P S E V A L U A B L E . C O N
0014740 S T A N T . F I X P M A C R O
0014760 ( ( X ) ( F I X P ( C A R
0015000 ( E V A L U A B L E . C O N S
0015020 T A N T P X ) ) ) ) ) \r ( P U
0015040 T P R O P S C A R C D R . F N
0015060 P M A C R O ( ( X ) ( G E
0015100 T P R O P X ( Q U O T E C
0015120 R O P S ) ) ) ) \r ( A D D T O V
0015140 A R C O N S T A N T F O L D F
0015160 N S I M I N I M A X I A B
0015200 S L O G O R L O G X O R L
0015220 O G A N D ) \r ( R P A Q Q N O
0015240 S I D E F N S ( f e t c h C
0015260 O N S N L I S T P P R O G N
0015300 A P P E N D L I S T N E Q
0015320 M E M B M E M B E R F M E
0015340 M B A S S O C T A I L P C
0015360 O P Y c r e a t e \r E L T
0015400 E L T D A N D O R A D D 1
0015420 S U B 1 I P L U S I D I F
0015440 F E R E N C E E Q E Q U A L
0015460 N O T N U L L ) ) \r ( P U T
0015500 P R O P S M A C R O A U X C
0015520 O P Y R I G H T ( " X e r o x
0015540 C o r p o r a t i o n " 1 9
0015560 8 3 1 9 8 4 1 9 8 5 1 9 8
0015600 6 ) ) \r N I L \r
0015610