$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>SOURCES>MACROS.DCOM!1
0000000 ( F I L E C R E A T E D " 6
0000020 - J a n - 8 5 0 4 : 3 5 : 1 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 > S O U R C E S > M A C R O S
0000120 . ; 1 1 ) \r " 6 - J a n - 8
0000140 5 0 3 : 4 5 : 1 5 " b c o m
0000160 p l ' d i n N I L d a t e
0000200 d N I L ) \r ( F I L E C R E A
0000220 T E D " 3 0 - D e c - 8 4 0
0000240 1 : 3 4 : 3 1 " { E R I S } <
0000260 L I S P C O R E > S O U R C E S
0000300 > M A C R O S . ; 1 1 1 9 2 9
0000320 9 c h a n g e s t o : ( M
0000340 A C R O S S I G N E D ) \r p
0000360 r e v i o u s d a t e : " 3
0000400 0 - D e c - 8 4 0 0 : 4 4 : 3
0000420 1 " { E R I S } < L I S P C O
0000440 R E > S O U R C E S > M A C R O
0000460 S . ; 1 0 ) \r G E T M A C R O P
0000500 R O P D 1 \r ( L ( 1 P R O
0000520 P S 0 F N ) ) \0 027 002 \0 \0 002
0000540 A 021 021 001 H 003 265 004 h 020 001 271 @ I 033 265
0000560 372 H 002 X 260 361 \0 N I L \r N I L \r (
0000600 ) \r M A C R O E X P A N S I O N
0000620 D 1 \r ( L ( 2 C O M P F L
0000640 G 1 M A C R O D E F ) P
0000660 5 P R E D F P 4 P C F
0000700 P 3 N C F P 2 V C F
0000720 P 1 E F F P 0 E X P
0000740 I 3 C O M P I L E . C O N T
0000760 E X T I 0 E X P R F 6
0001000 L A M B D A S P L S T ) \0 277
0001020 006 001 \0 004 A 003 265 004 @ 020 001 265 022 A d 002
0001040 002 227 277 g \0 \0 A 002 032 020 002 001 020 d g \0
0001060 \0 360 245 d g \0 \0 360 225 277 A @ 002 032 020 d
0001100 g \0 \0 360 225 A 002 @ 002 032 020 d g \0 \0 360
0001120 227 277 A @ 002 \n \0 \0 020 d g \0 \0 360 263 272
0001140 d g \0 \0 360 263 263 277 A d 001 003 262 030 001 @
0001160 002 A d 002 002 227 277 g \0 \0 A 002 032 201 002 001
0001200 \v \0 \0 020 001 004 l 004 360 262 217 A d 001 V 034
0001220 263 253 277 B 251 A \t \0 \0 222 261 377 ~ B 233 g
0001240 \0 \0 A 032 @ 002 \n \0 \0 260 035 @ C g \0 \0
0001260 360 C g \0 \0 360 h 360 021 3 005 g \0 \0 A 032
0001300 @ 002 \n \0 \0 022 b 002 g \0 \0 360 222 261 377 K
0001320 A 020 \0 ( 2 6 0 Q A P P L Y 2
0001340 2 4 Q A P P L Y 2 0 4 Q M
0001360 U S T C O M P I L E M A C R O P
0001400 1 5 6 Q S U B P A I R 1 0
0001420 3 Q E X P A N D O P E N L A M
0001440 B D A ) \r ( 2 6 6 Q I G N O R
0001460 E M A C R O 2 5 1 Q N L A M
0001500 B D A 2 4 0 Q E F F E C T
0001520 2 3 3 Q E F F E C T 2 1 5 Q
0001540 N L A M B D A 1 4 5 Q P R
0001560 O G N 1 1 7 Q A P P L Y *
0001600 1 1 0 Q A P P L Y 7 2 Q O
0001620 P E N L A M B D A 5 6 Q =
0001640 4 2 Q N L A M B D A 3 4 Q
0001660 L A M B D A 2 1 Q P R O G N
0001700 ) \r ( ) \r E X P A N D M A C R O
0001720 A 0 0 0 1 D 1 \r ( N A M E E
0001740 R R O R S E T F 0 E X P
0001760 F 1 M A C R O Y ) \0 020 \0 002
0002000 002 \0 P h i \v \0 \0 277 i \t \0 \0 c 002 i
0002020 020 \0 ( 1 2 Q T E R P R I 5
0002040 P R I N T D E F ) \r N I L \r ( )
0002060 \r E X P A N D M A C R O D 1 \r
0002100 ( L ( 2 O P T I O N S 1
0002120 Q U I E T F L G ) P 1 0 Q
0002140 R E S E T S T A T E P 7 M
0002160 A C R O Y P 5 O L D V A L
0002200 U E P 4 P C F P 3 N
0002220 C F P 1 E F F P 0 V
0002240 C F I 3 C O M P I L E . C
0002260 O N T E X T I 0 E X P F
0002300 1 1 Q R E S E T V A R S L S
0002320 T F 1 2 Q C O M P I L E R
0002340 M A C R O P R O P S ) \0 177 \t 002
0002360 \0 004 C g \0 \0 360 h 360 C g \0 \0 360 021 2
0002400 004 @ 003 262 ) h g \0 \0 360 236 @ d ` \0 \0
0002420 035 230 ` \0 \0 035 b \0 260 352 @ 001 W 024 \n \0
0002440 \0 272 @ d J \n \0 \0 b \0 277 277 A 221 @ 020
0002460 i \t \0 \0 021 1 \b g \0 \0 M h 032 032 h 032
0002500 W 022 032 c 022 276 o \0 \0 \0 g \0 \0 \n \0 \0
0002520 245 g \0 \0 _ 020 277 N 002 c 022 277 g \0 \0 N
0002540 001 001 002 \n \0 \0 277 O 020 264 006 \b \0 \0 h 020
0002560 \0 ( 1 7 3 Q E R R O R ! 1 6
0002600 3 Q A P P L Y 1 3 5 Q E X
0002620 P A N D M A C R O A 0 0 0 1 1
0002640 0 1 Q O U T P U T 6 5 Q M
0002660 A C R O E X P A N S I O N 5 6
0002700 Q G E T M A C R O P R O P ) \r
0002720 ( 1 5 4 Q O U T P U T 1 4 1
0002740 Q E R R O R 1 3 2 Q I N T
0002760 E R N A L 1 0 7 Q O U T P U
0003000 T 4 2 Q C L I S P A R R A Y
0003020 3 5 Q C L I S P A R R A Y
0003040 2 6 Q C L I S P 1 2 Q E F
0003060 F E C T 3 E F F E C T ) \r (
0003100 1 2 7 Q ( E X P A N D M A C
0003120 R O A 0 0 0 1 ) ) \r M U S T C O
0003140 M P I L E M A C R O P D 1 \r (
0003160 L ( 1 S A F E F L G 0 X
0003200 ) F 0 U N S A F E M A C R
0003220 O A T O M S F 1 S H O U L
0003240 D C O M P I L E M A C R O A T O
0003260 M S ) \0 6 \0 002 \0 002 @ 003 262 ' @ d
0003300 001 g \0 \0 360 262 031 277 A 264 % @ 002 001 i b
0003320 002 277 b \0 260 347 d 001 A \n \0 \0 244 002 003 265
0003340 367 h 020 @ P 034 265 \b A 264 005 @ Q 034 020 \0
0003360 ( 4 1 Q M U S T C O M P I L E
0003400 M A C R O P ) \r ( 1 1 Q Q U O
0003420 T E ) \r ( ) \r E X P A N D O P E
0003440 N L A M B D A D 1 \r ( L ( 1
0003460 A C T U A L S 0 O P E N L
0003500 A M ) ) \0 364 \v \0 \0 002 @ 002 001 021 q
0003520 \a H 003 265 004 260 025 001 271 A 003 265 Z H 207 d
0003540 001 h 032 L 032 274 002 003 265 367 K 231 K 001 004 l
0003560 004 361 242 261 \0 203 @ 002 002 b \0 277 L 232 J 265
0003600 0 L @ \n \0 \0 b \0 277 J 242 261 \0 252 g \0
0003620 \0 J \t \0 \0 Z g \0 \0 g \0 \0 J 032 h 032
0003640 032 @ 032 032 032 K \t \0 \0 A \n \0 \0 032 020 021
0003660 0 \n J 260 q 001 ] \t \0 \0 ^ 262 ( I N 001
0003700 _ 016 d 262 033 d i 360 263 026 d 005 001 245 d 005
0003720 002 241 005 003 265 \n g \0 \0 O 016 h 032 032 032 L
0003740 032 274 207 I J 032 272 M K 032 273 H 002 270 A 002
0003760 b 002 277 261 377 ^ J 001 J 002 272 K 001 K 002 273
0004000 032 L 032 274 261 377 f d 001 \b \0 \0 \n \0 \0 _
0004020 020 277 O 022 265 \t O 020 h 032 _ 024 202 O 020 &
0004040 _ 022 277 002 003 265 342 O 024 022 Z @ \v \0 \0 b
0004060 \0 277 261 377 O A @ \n \0 \0 \t \0 \0 020 \0 (
0004100 3 6 1 Q M K P R O G N 3 5 6
0004120 Q \ N C O N C 2 3 4 3 Q S
0004140 U B P A I R 3 0 3 Q P A C K
0004160 * 3 0 0 Q G E N S Y M 1 5
0004200 6 Q C O N S T A N T E X P R E
0004220 S S I O N P 1 4 1 Q \ A P P
0004240 E N D 2 1 3 5 Q R E V E R S
0004260 E 1 1 1 Q R E V E R S E 7
0004300 2 Q S U B L I S ) \r ( 2 1 5 Q
0004320 Q U O T E 1 2 0 Q L O C A
0004340 L V A R S 1 1 5 Q D E C L A
0004360 R E 1 0 5 Q L A M B D A ) \r
0004400 ( ) \r \ L E T t r a n D 1 \r (
0004420 L ( 1 S E Q U E N T I A L P
0004440 0 L E T T A I L ) ) \0 372 \t
0004460 \0 \0 002 021 @ 003 @ 001 260 9 d 001 [ d 003 221
0004500 001 [ 234 K d i 360 250 d 004 l 004 360 263 027 277
0004520 K 004 l 004 360 222 l # 201 l 016 K h 032 032 \t
0004540 \0 \0 277 K 270 I 265 \a H h 032 Z 201 H & 271
0004560 002 003 265 310 J 022 021 @ 003 @ 001 260 $ d 001 [
0004600 003 264 021 K d 002 002 227 277 g \0 \0 K 002 032 201
0004620 002 001 270 I 265 \a H h 032 Z 201 H & 271 002 003
0004640 265 335 J 022 @ 002 021 # 004 A 251 g \0 \0 H J
0004660 032 032 I 032 020 J \t \0 \0 Z 001 J 002 272 273 J
0004700 001 J 002 272 \ A g \0 \0 360 231 g \0 \0 h J
0004720 032 032 h 032 272 I 002 \t \0 \0 H 002 \t \0 \0 021
0004740 " \b N 003 265 003 207 001 _ 016 277 M 003 265 ! 023
0004760 g \0 \0 H 001 h 032 K \t \0 \0 L \t \0 \0 J
0005000 \n \0 \0 \n \0 \0 032 032 I 001 h 032 032 020 001 _
0005020 020 277 g \0 \0 O 016 h 032 J 032 032 O 020 h 032
0005040 032 h 032 272 N 002 276 M 002 275 260 270 \0 ( 3 2
0005060 2 Q \ N C O N C 2 3 1 7 Q
0005100 \ N C O N C 2 3 1 3 Q D R E
0005120 V E R S E 3 0 7 Q D R E V E
0005140 R S E 2 5 3 Q D R E V E R S
0005160 E 2 4 6 Q D R E V E R S E
0005200 2 0 5 Q \ D E C L . C O M N T
0005220 . P R O C E S S 5 6 Q E R R
0005240 O R X ) \r ( 3 4 1 Q L A M B D
0005260 A 2 7 7 Q L A M B D A 2 3
0005300 2 Q P R O G 2 2 5 Q P R O
0005320 G * 1 7 2 Q L A M B D A 1
0005340 3 0 Q P R O G 1 ) \r ( ) \r C S
0005360 E L E C T D 1 \r ( L ( 0 L
0005400 ) ) \0 262 \v \0 \0 001 021 0 002 @ d 002 241
0005420 001 020 001 005 001 252 @ 001 004 l 004 360 243 g \0 \0
0005440 270 g \0 \0 021 P \a @ 002 \ 003 265 " K 022 032
0005460 Y H 242 261 \0 205 g \0 \0 o \0 \0 \0 o \0 \0
0005500 \0 I h 032 032 032 032 @ 001 h 032 032 020 002 246 i
0005520 L 001 h 032 260 M 021 0 \n L 001 001 003 265 . L
0005540 001 001 h 032 260 ' d 001 272 g \0 \0 J H 265 004
0005560 @ 001 h 032 032 032 _ 020 277 O 022 265 \t O 020 h
0005600 032 _ 024 202 O 020 & _ 022 277 002 003 265 332 O 024
0005620 022 ] d 002 226 277 g \0 \0 M 032 200 001 ] L 001
0005640 002 032 276 O 016 265 \f N h 032 _ 016 273 L 261 377
0005660 z N & _ 016 277 260 367 I 020 \0 N I L \r (
0005700 2 1 7 Q O R 1 4 2 Q E Q
0005720 5 7 Q L A M B D A 3 2 Q C
0005740 O N D 2 6 Q . S E L E C . )
0005760 \r ( 6 7 Q ( D E C L A R E
0006000 ( L O C A L V A R S . S E L E
0006020 C . ) ) 6 3 Q ( . S E L E C
0006040 . ) ) \r ( P R E T T Y C O M P R
0006060 I N T M A C R O S C O M S ) \r
0006100 ( R P A Q Q M A C R O S C O M
0006120 S ( ( P R O P M A C R O N
0006140 E Q N L I S T P Z E R O P
0006160 A D D 1 S U B 1 S E T Q Q
0006200 E R S E T Q N L S E T Q R P
0006220 T Q N C O N C 1 X N L S E T
0006240 Q \r U N D O N L S E T Q R E
0006260 S E T V A R R E S E T F O R M
0006300 R E S E T L S T R E S E T S
0006320 A V E R E S E T T O P V A L S
0006340 R E S E T B U F S S E L E C
0006360 T S E L E C T C I G E Q I
0006400 L E Q G E Q \r L E Q F L E
0006420 S S P I M I N I M A X P R
0006440 O G 2 E V E N P O D D P I
0006460 M O D S I G N E D U N S I G
0006500 N E D B Q U O T E L I S T *
0006520 L E T L E T * P R O G * )
0006540 ( A L I S T S ( \r P R E T T
0006560 Y E Q U I V L S T L E T L E
0006600 T * P R O G * ) ) ( C O M S
0006620 ( * M A C R O t r a n s l
0006640 a t i o n s ) ( F N S E X P
0006660 A N D M A C R O M A C R O E X
0006700 P A N S I O N \r G E T M A C R
0006720 O P R O P M U S T C O M P I L
0006740 E M A C R O P E X P A N D O P
0006760 E N L A M B D A \ L E T t r a
0007000 n ) ( B L O C K S ( N I L
0007020 G E T M A C R O P R O P M A C
0007040 R O E X P A N S I O N \r E X P
0007060 A N D M A C R O M U S T C O M
0007100 P I L E M A C R O P E X P A N
0007120 D O P E N L A M B D A \ L E T
0007140 t r a n ( L O C A L V A R S
0007160 . T ) ( S P E C V A R S F
0007200 A U L T X F A U L T A P P L Y
0007220 F L G \r E X P V C F P C F
0007240 N C F F A U L T F N E X P
0007260 R D W I M I F Y F L G ) ( G
0007300 L O B A L V A R S N O F I X F
0007320 N S L S T B Y T E C O M P F L
0007340 G C L I S P A R R A Y B Y T
0007360 E M A C R O P R O P \r ) ( L I
0007400 N K F N S . T ) ) ) ) ( P
0007420 R O P M A C R O C O N S T A
0007440 N T L O A D T I M E C O N S T
0007460 A N T D E F E R R E D C O N S
0007500 T A N T ) ( F N S C S E L E
0007520 C T ) ) ) \r ( P U T P R O P S
0007540 N E Q M A C R O ( ( X Y )
0007560 ( N U L L ( E Q X Y ) )
0007600 ) ) \r ( P U T P R O P S N L I
0007620 S T P M A C R O ( ( X ) (
0007640 N U L L ( L I S T P X ) ) )
0007660 ) \r ( P U T P R O P S Z E R O
0007700 P M A C R O ( O P E N L A M
0007720 B D A ( X ) ( C O N D ( (
0007740 E Q X 0 ) ) ( ( F L O A T
0007760 P X ) ( F E Q P X 0 . 0
0010000 ) ) ) ) ) \r ( P U T P R O P S
0010020 A D D 1 M A C R O ( ( X )
0010040 ( I P L U S X 1 ) ) ) \r ( P
0010060 U T P R O P S S U B 1 M A C
0010100 R O ( ( X ) ( I D I F F E R
0010120 E N C E X 1 ) ) ) \r ( P U T
0010140 P R O P S S E T Q Q M A C R
0010160 O ( ( X V ) ( S E T Q X
0010200 ( Q U O T E V ) ) ) ) \r ( P
0010220 U T P R O P S E R S E T Q M
0010240 A C R O ( ( X ) ( . E R R S
0010260 E T Q . X T ) ) ) \r ( P U T
0010300 P R O P S N L S E T Q M A C
0010320 R O ( ( X . Y ) ( . E R
0010340 R S E T Q . ( P R O G N X
0010360 . Y ) N I L ) ) ) \r ( P U T
0010400 P R O P S R P T Q M A C R O
0010420 ( ( N . F O R M S ) ( P
0010440 R O G ( ( R P T N N ) R P
0010460 T V ) ( D E C L A R E ( L O
0010500 C A L V A R S R P T N R P T
0010520 V ) ) R P T Q L A B ( C O N
0010540 D \r ( ( I G R E A T E R P R
0010560 P T N 0 ) ( S E T Q R P T
0010600 V ( P R O G N . F O R M S
0010620 ) ) ( S E T Q R P T N ( S
0010640 U B 1 R P T N ) ) ( G O R
0010660 P T Q L A B ) ) ) ( R E T U R
0010700 N R P T V ) ) ) \r ) \r ( P U T
0010720 P R O P S N C O N C 1 M A C
0010740 R O ( ( L S T X ) ( N C O
0010760 N C L S T ( C O N S X ) )
0011000 ) ) \r ( P U T P R O P S X N L
0011020 S E T Q M A C R O ( ( X F
0011040 L G F N ) ( . E R R S E T Q
0011060 . X F L G F N ) ) ) \r ( P
0011100 U T P R O P S U N D O N L S E
0011120 T Q M A C R O ( ( U N D O F
0011140 O R M U N D O F N ) ( P R O
0011160 G ( ( L I S P X H I S T L I
0011200 S P X H I S T ) U N D O S I D
0011220 E 0 U N D O S I D E U N D O
0011240 T E M ) \r ( D E C L A R E (
0011260 S P E C V A R S L I S P X H I
0011300 S T ) ) ( C O N D ( ( L I S
0011320 T P ( S E T Q U N D O S I D
0011340 E ( L I S T G E T 1 L I S P
0011360 X H I S T ( Q U O T E S I D
0011400 E ) ) ) ) ( S E T Q \r U N D
0011420 O S I D E 0 ( C D R U N D O
0011440 S I D E ) ) ) ( T ( S E T Q
0011460 U N D O S I D E 0 U N D O S
0011500 I D E ) ( S E T Q U N D O S
0011520 I D E ( L I S T 0 ) ) ( C
0011540 O N D ( L I S P X H I S T (
0011560 \r L I S T P U T 1 L I S P X H
0011600 I S T ( Q U O T E S I D E )
0011620 U N D O S I D E ) ) ( T (
0011640 S E T Q L I S P X H I S T (
0011660 L I S T ( Q U O T E S I D E
0011700 ) U N D O S I D E ) ) ) ) ) )
0011720 ( \r R E S E T V A R S ( # U
0011740 N D O S A V E S ) ( S E T Q
0011760 U N D O T E M ( X N L S E T Q
0012000 U N D O F O R M N I L U N
0012020 D O F N ) ) ) ( C O N D ( (
0012040 E Q U N D O S I D E 0 ( Q U
0012060 O T E \r N O S A V E ) ) ( L
0012100 I S T P U T 1 L I S P X H I S
0012120 T ( Q U O T E S I D E ) (
0012140 Q U O T E N O S A V E ) ) )
0012160 ( T ( U N D O S A V E ) ) )
0012200 ( C O N D ( U N D O T E M (
0012220 R E T U R N \r U N D O T E M )
0012240 ) ) ( U N D O N L S E T Q 1
0012260 ( C D R U N D O S I D E ) (
0012300 L I S T P U N D O S I D E 0 )
0012320 ) ( R E T U R N ) ) ) ) \r ( P
0012340 U T P R O P S R E S E T V A R
0012360 M A C R O ( ( V A R V A L
0012400 F O R M ) ( P R O G ( M A
0012420 C R O X M A C R O Y ) ( S E
0012440 T Q M A C R O X ( S E T Q
0012460 R E S E T V A R S L S T ( C O
0012500 N S ( \r C O N S ( Q U O T E
0012520 V A R ) ( C O N S ( S T K
0012540 S C A N ( Q U O T E V A R )
0012560 ) ( G E T A T O M V A L ( Q
0012600 U O T E V A R ) ) ) ) R E S
0012620 E T V A R S L S T ) ) ) ( S E
0012640 T Q M A C R O Y ( \r X N L S
0012660 E T Q ( P R O G N ( S E T A
0012700 T O M V A L ( Q U O T E V A
0012720 R ) V A L ) F O R M ) ( Q
0012740 U O T E I N T E R N A L ) ) )
0012760 ( S E T A T O M V A L ( Q U
0013000 O T E V A R ) ( C D D A R
0013020 \r M A C R O X ) ) ( S E T Q
0013040 R E S E T V A R S L S T ( C D
0013060 R M A C R O X ) ) ( C O N D
0013100 ( M A C R O Y ( R E T U R N
0013120 ( C A R M A C R O Y ) ) ) )
0013140 ( E R R O R ! ) ) ) ) \r ( P U
0013160 T P R O P S R E S E T F O R M
0013200 M A C R O ( O P E N X ( S
0013220 U B P A I R ( Q U O T E ( F
0013240 N F O R M . E X P R E S S
0013260 I O N S ) ) ( C O N S ( C A
0013300 A R O P E N X ) O P E N X )
0013320 ( \r Q U O T E ( P R O G (
0013340 ( O L D V A L U E F O R M )
0013360 M A C R O X M A C R O Y R E
0013400 S E T S T A T E ) ( D E C L A
0013420 R E ( L O C A L V A R S M A
0013440 C R O X M A C R O Y ) ) ( S
0013460 E T Q \r M A C R O X ( S E T
0013500 Q R E S E T V A R S L S T (
0013520 C O N S ( L I S T ( L I S T
0013540 ( Q U O T E F N ) O L D V
0013560 A L U E ) ) R E S E T V A R S
0013600 L S T ) ) ) ( C O N D ( ( N
0013620 O T ( X N L S E T Q \r ( S E
0013640 T Q M A C R O Y ( P R O G N
0013660 . E X P R E S S I O N S ) )
0013700 I N T E R N A L ) ) ( S E T
0013720 Q R E S E T S T A T E ( Q U
0013740 O T E E R R O R ) ) ) ) ( S
0013760 E T Q R E S E T V A R S L S T
0014000 ( \r C D R M A C R O X ) )
0014020 ( A P P L Y ( Q U O T E F N
0014040 ) ( C D A A R M A C R O X )
0014060 ) ( R E T U R N ( C O N D
0014100 ( R E S E T S T A T E ( E R R
0014120 O R ! ) ) ( T M A C R O Y )
0014140 ) ) ) ) ) ) ) \r ( P U T P R O P
0014160 S R E S E T L S T M A C R O
0014200 ( ( X . Y ) ( P R O G
0014220 ( R E S E T Y R E S E T Z (
0014240 L I S P X H I S T L I S P X H
0014260 I S T ) ) ( R E S E T R E S T
0014300 O R E \r R E S E T V A R S L S
0014320 T ( S E T Q R E S E T Z (
0014340 C O N D ( ( X N L S E T Q (
0014360 S E T Q R E S E T Y ( P R O
0014400 G N X . Y ) ) I N T E R
0014420 N A L ) N I L ) ( T ( Q U
0014440 O T E E R R O R ) ) \r ) ) )
0014460 ( R E T U R N ( C O N D ( R
0014500 E S E T Z ( E R R O R ! ) )
0014520 ( T R E S E T Y ) ) ) ) ) ) \r
0014540 ( P U T P R O P S R E S E T S
0014560 A V E M A C R O ( X ( L I
0014600 S T ( Q U O T E S E T Q )
0014620 ( Q U O T E R E S E T V A R S
0014640 L S T ) ( L I S T ( Q U O T
0014660 E C O N S ) ( C O N D ( (
0014700 A N D ( \r A T O M ( C A R
0014720 X ) ) ( C A R X ) ) ( S U
0014740 B P A I R ( Q U O T E ( V A
0014760 R V A L ) ) X ( Q U O T E
0015000 ( P R O G 1 ( C O N S ( Q
0015020 U O T E V A R ) ( C O N S
0015040 ( S T K S C A N ( \r Q U O T E
0015060 V A R ) ) ( G E T A T O M V
0015100 A L ( Q U O T E V A R ) ) )
0015120 ) ( S E T A T O M V A L ( Q
0015140 U O T E V A R ) V A L ) ) )
0015160 ) ) ( ( C D R X ) ( L I S
0015200 T ( Q U O T E L I S T ) (
0015220 \r C A D R X ) ( C A R X )
0015240 ) ) ( T ( L I S T ( Q U O
0015260 T E L I S T ) ( L I S T (
0015300 Q U O T E L I S T ) ( L I S
0015320 T ( Q U O T E Q U O T E )
0015340 ( C O N D ( ( E Q ( C A A R
0015360 X ) ( \r Q U O T E S E T Q
0015400 ) ) ( C A R ( C A D D A R
0015420 X ) ) ) ( T ( C A A R X )
0015440 ) ) ) ( C A R X ) ) ) ) )
0015460 ( Q U O T E R E S E T V A R S
0015500 L S T ) ) ) ) ) \r ( P U T P R O
0015520 P S R E S E T T O P V A L S
0015540 M A C R O ( A R G S ( C O N
0015560 S ( Q U O T E R E S E T L S
0015600 T ) ( N C O N C ( M A P C A
0015620 R ( C A R A R G S ) ( F U
0015640 N C T I O N ( L A M B D A \r
0015660 ( V ) ( C O N S ( Q U O T E
0015700 R E S E T S A V E ) V ) ) )
0015720 ) ( C D R A R G S ) ) ) ) )
0015740 \r ( P U T P R O P S R E S E T
0015760 B U F S M A C R O ( ( A .
0016000 B ) ( ( L A M B D A ( $ $
0016020 B U F S ) ( D E C L A R E (
0016040 L O C A L V A R S $ $ B U F S
0016060 ) ) ( P R O G 1 ( P R O G N
0016100 A . B ) \r ( A N D $ $
0016120 B U F S ( B K B U F S $ $ B
0016140 U F S ) ) ) ) ( P R O G N (
0016160 L I N B U F ) ( S Y S B U F )
0016200 ( C L B U F S N I L T R
0016220 E A D B U F ) ) ) ) ) \r ( P U T
0016240 P R O P S S E L E C T M A C
0016260 R O ( X ( C S E L E C T X
0016300 ) ) ) \r ( P U T P R O P S S E
0016320 L E C T C M A C R O ( F (
0016340 C O N S ( Q U O T E S E L E
0016360 C T Q ) ( C O N S ( C A R
0016400 F ) ( M A P L I S T ( C D R
0016420 F ) ( F U N C T I O N ( L
0016440 A M B D A ( I ) \r ( C O N D
0016460 ( ( C D R I ) ( C O N S
0016500 ( C O N S T A N T ( E V A L
0016520 ( C A A R I ) ) ) ( C D A R
0016540 I ) ) ) ( T ( C A R I )
0016560 ) ) ) ) ) ) ) ) ) \r ( P U T P R
0016600 O P S I G E Q M A C R O (
0016620 ( X Y ) ( N O T ( I L E S
0016640 S P X Y ) ) ) ) \r ( P U T P
0016660 R O P S I L E Q M A C R O
0016700 ( ( X Y ) ( N O T ( I G R
0016720 E A T E R P X Y ) ) ) ) \r (
0016740 P U T P R O P S G E Q M A C
0016760 R O ( ( X Y ) ( N O T (
0017000 L E S S P X Y ) ) ) ) \r ( P
0017020 U T P R O P S L E Q M A C R
0017040 O ( ( X Y ) ( N O T ( G
0017060 R E A T E R P X Y ) ) ) ) \r
0017100 ( P U T P R O P S F L E S S P
0017120 M A C R O ( L A M B D A (
0017140 X Y ) ( F G R E A T E R P
0017160 Y X ) ) ) \r ( P U T P R O P S
0017200 I M I N M A C R O ( A R G
0017220 S ( C O N D ( ( N O T A R
0017240 G S ) M A X . I N T E G E R )
0017260 ( ( C D D R A R G S ) ( C
0017300 O N S ( Q U O T E I M I N )
0017320 ( C O N S ( L I S T \r ( Q
0017340 U O T E I M I N 2 ) ( C A R
0017360 A R G S ) ( C A D R A R G
0017400 S ) ) ( C D D R A R G S ) )
0017420 ) ) ( ( C D R A R G S ) (
0017440 L I S T ( Q U O T E I M I N
0017460 2 ) ( C A R A R G S ) ( C
0017500 A D R \r A R G S ) ) ) ( T
0017520 ( L I S T ( Q U O T E F I X
0017540 ) ( C A R A R G S ) ) ) ) )
0017560 ) \r ( P U T P R O P S I M A X
0017600 M A C R O ( A R G S ( C O
0017620 N D ( ( N O T A R G S ) M
0017640 I N . I N T E G E R ) ( ( C D
0017660 D R A R G S ) ( C O N S (
0017700 Q U O T E I M A X ) ( C O N
0017720 S ( L I S T \r ( Q U O T E
0017740 I M A X 2 ) ( C A R A R G S
0017760 ) ( C A D R A R G S ) ) (
0020000 C D D R A R G S ) ) ) ) ( (
0020020 C D R A R G S ) ( L I S T
0020040 ( Q U O T E I M A X 2 ) ( C
0020060 A R A R G S ) ( C A D R \r
0020100 A R G S ) ) ) ( T ( L I S T
0020120 ( Q U O T E F I X ) ( C A
0020140 R A R G S ) ) ) ) ) ) \r ( P U
0020160 T P R O P S P R O G 2 M A C
0020200 R O ( ( X . Y ) ( P R O
0020220 G N X ( P R O G 1 . Y )
0020240 ) ) ) \r ( P U T P R O P S E V
0020260 E N P M A C R O ( L ( L I
0020300 S T ( Q U O T E E Q ) 0
0020320 ( L I S T ( Q U O T E I M O
0020340 D ) ( C A R L ) ( i f (
0020360 C D R L ) t h e n ( C A D
0020400 R L ) e l s e \r 2 ) ) ) )
0020420 ) \r ( P U T P R O P S O D D P
0020440 M A C R O ( ( X . T A I
0020460 L ) ( N O T ( E V E N P X
0020500 . T A I L ) ) ) ) \r ( P U T
0020520 P R O P S I M O D M A C R O
0020540 ( L ( P R O G ( ( N ( C
0020560 O N S T A N T E X P R E S S I O
0020600 N P ( C A D R L ) ) ) ) (
0020620 i f ( N U L L N ) t h e n
0020640 ( R E T U R N ( Q U O T E
0020660 \r I G N O R E M A C R O ) ) )
0020700 ( S E T Q N ( i f ( E Q
0020720 T ( C O N S T A N T E X P R E
0020740 S S I O N P 3 ) ) t h e n
0020760 ( * D o n ' t t o u c h t
0021000 h i s c o d e u n t i l a
0021020 l l o l d \r I n t e r l i s
0021040 p - 1 0 s y s o u t s g o
0021060 a w a y - - t h e r e w a
0021100 s a b a c k w a r d s - i n
0021120 c o m p a t i b l e c h a n g
0021140 e t o C O N S T A N T E X P
0021160 R E S S I O N P a b o u t \r
0021200 D e c 1 1 9 8 2 ) ( E V A
0021220 L ( C A D R L ) ) e l s e
0021240 ( C A R N ) ) ) ( R E T U
0021260 R N ( i f ( N O T ( F I X
0021300 P N ) ) t h e n ( H E L P
0021320 \r " N o n - n u m e r i c m
0021340 o d u l u s - I M O D " (
0021360 C A D R L ) ) e l s e i f
0021400 ( N O T ( P O W E R O F T W O
0021420 P N ) ) t h e n ( Q U O T
0021440 E I G N O R E M A C R O ) e
0021460 l s e ( \r L I S T ( Q U O T
0021500 E L O G A N D ) ( C A R L
0021520 ) ( S U B 1 N ) ) ) ) ) ) )
0021540 \r ( P U T P R O P S S I G N E
0021560 D M A C R O ( A R G S ( C
0021600 O N D ( ( E Q C O M P I L E
0021620 . C O N T E X T ( Q U O T E
0021640 E F F E C T ) ) ( C A R A R
0021660 G S ) ) ( T ( C O N S ( Q
0021700 U O T E ( \r O P E N L A M B D
0021720 A ( N W I D T H ) ( C O N
0021740 D ( ( I G R E A T E R P N
0021760 ( S U B 1 ( L L S H 1 ( S
0022000 U B 1 W I D T H ) ) ) ) ( *
0022020 d o n e t h i s w a y j
0022040 u s t s o t h a t ( \r S I
0022060 G N E D X 2 ^ 1 6 ) d o e
0022100 s n ' t b o x ) ( S U B 1
0022120 ( I D I F F E R E N C E N (
0022140 S U B 1 ( L L S H 1 W I D
0022160 T H ) ) ) ) ) ( T N ) ) ) )
0022200 A R G S ) ) ) ) ) \r ( P U T P
0022220 R O P S U N S I G N E D M A
0022240 C R O ( ( X W I D T H ) (
0022260 L O G A N D X ( S U B 1 (
0022300 L L S H 1 W I D T H ) ) ) )
0022320 ) \r ( P U T P R O P S B Q U O
0022340 T E M A C R O ( F O R M (
0022360 E X P A N D B Q U O T E ( C A
0022400 R F O R M ) ) ) ) \r ( P U T P
0022420 R O P S L I S T * M A C R O
0022440 ( X ( C O N D ( ( N U L L
0022460 X ) N I L ) ( ( N U L L
0022500 ( C D R X ) ) ( C A R X )
0022520 ) ( ( N U L L ( C D D R X
0022540 ) ) ( C O N S ( Q U O T E
0022560 \r C O N S ) X ) ) ( T ( L
0022600 I S T ( Q U O T E C O N S )
0022620 ( C A R X ) ( C O N S (
0022640 Q U O T E L I S T * ) ( C D
0022660 R X ) ) ) ) ) ) ) \r ( P U T P
0022700 R O P S L E T M A C R O (
0022720 X ( \ L E T t r a n X ) ) )
0022740 \r ( P U T P R O P S L E T *
0022760 M A C R O ( X ( \ L E T t r
0023000 a n X T ) ) ) \r ( P U T P R
0023020 O P S P R O G * M A C R O
0023040 ( X ( \ L E T t r a n X (
0023060 Q U O T E P R O G * ) ) ) ) \r
0023100 ( A D D T O V A R P R E T T Y
0023120 E Q U I V L S T ( L E T .
0023140 L A M B D A ) ( L E T * .
0023160 L A M B D A ) ( P R O G * .
0023200 P R O G ) ) \r ( P U T P R O P
0023220 S C O N S T A N T M A C R O
0023240 ( M A C R O X ( P R O G (
0023260 ( V A L ( A P P L Y ( Q U O
0023300 T E P R O G 1 ) M A C R O X
0023320 ) ) ) ( R E T U R N ( C O N
0023340 D ( ( C O N S T A N T O K \r
0023360 V A L ) ( K W O T E V A L )
0023400 ) ( T ( C O N S ( Q U O T
0023420 E L O A D T I M E C O N S T A
0023440 N T ) M A C R O X ) ) ) ) ) )
0023460 ) \r ( P U T P R O P S L O A D
0023500 T I M E C O N S T A N T M A C
0023520 R O ( ( X ) ( D E F E R R E
0023540 D C O N S T A N T X ) ) ) \r (
0023560 P U T P R O P S D E F E R R E
0023600 D C O N S T A N T M A C R O
0023620 ( X ( L I S T ( S U B S T
0023640 ( C A R X ) ( Q U O T E F
0023660 O R M ) ( Q U O T E ( L A M
0023700 B D A ( M A C R O X ) ( D E
0023720 C L A R E \r ( L O C A L V A R
0023740 S M A C R O X ) ) ( O R (
0023760 C D R M A C R O X ) ( F R P
0024000 L A C D ( F R P L A C A M A
0024020 C R O X ( E V Q F O R M ) )
0024040 T ) ) ( C A R M A C R O X
0024060 ) ) ) ) ( K W O T E \r ( C O
0024100 N S ) ) ) ) ) \r ( P U T P R O P
0024120 S M A C R O S C O P Y R I G
0024140 H T ( " X e r o x C o r p o
0024160 r a t i o n " 1 9 8 4 ) ) \r N
0024200 I L \r
0024203