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