$ od -c -N 50000 [eris]<Lisp>Harmony>SOURCES>MACROS.DCOM!1
0000000 ( F I L E C R E A T E D " 8
0000020 - A u g - 8 4 1 2 : 3 8 : 3 8
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 > F L O A T I N G > M A C R O
0000120 S . ; 1 ) \r " 8 - A u g - 8
0000140 4 1 2 : 0 7 : 4 2 " b c o m
0000160 p l ' d i n " I N T E R L I
0000200 S P - D 7 - A u g - 8 4 .
0000220 . . " d a t e d " 7 - A u
0000240 g - 8 4 1 5 : 1 2 : 2 4 " ) \r
0000260 ( F I L E C R E A T E D " 8
0000300 - A u g - 8 4 1 2 : 0 3 : 5 6
0000320 " { E R I S } < L I S P C O R
0000340 E > F L O A T I N G > M A C R O
0000360 S . ; 1 1 4 9 3 6 c h a n g
0000400 e s t o : ( V A R S \r M A
0000420 C R O S C O M S ) ( M A C R O
0000440 S S I G N E D U N S I G N E
0000460 D ) p r e v i o u s d a t e
0000500 : " 2 6 - J u l - 8 4 0 4 :
0000520 2 5 : 0 5 " \r { E R I S } < L
0000540 I S P C O R E > S O U R C E S >
0000560 M A C R O S . ; 3 ) \r G E T M A
0000600 C R O P R O P D 1 \r ( L ( 1
0000620 P R O P S 0 F N ) ) \0 027
0000640 002 \0 \0 002 A 021 021 001 H 003 265 004 h 020 001 271
0000660 @ I 033 265 372 H 002 X 260 361 \0 N I L \r N
0000700 I L \r ( ) \r M A C R O E X P A N
0000720 S I O N D 1 \r ( L ( 2 C O
0000740 M P F L G 1 M A C R O D E F
0000760 ) P 5 P R E D F P 4
0001000 P C F P 3 N C F P 2
0001020 V C F P 1 E F F P 0
0001040 E X P I 3 C O M P I L E .
0001060 C O N T E X T I 0 E X P R
0001100 F 6 L A M B D A S P L S T
0001120 ) \0 277 006 001 \0 004 A 003 265 004 @ 020 001 265
0001140 022 A d 002 002 227 277 g \0 \0 A 002 032 020 002 001
0001160 020 d g \0 \0 360 245 d g \0 \0 360 225 277 A @
0001200 002 032 020 d g \0 \0 360 225 A 002 @ 002 032 020 d
0001220 g \0 \0 360 227 277 A @ 002 \n \0 \0 020 d g \0
0001240 \0 360 263 272 d g \0 \0 360 263 263 277 A d 001 003
0001260 262 030 001 @ 002 A d 002 002 227 277 g \0 \0 A 002
0001300 032 201 002 001 \v \0 \0 020 001 004 l 004 360 262 217 A
0001320 d 001 V 034 263 253 277 B 251 A \t \0 \0 222 261 377
0001340 ~ B 233 g \0 \0 A 032 @ 002 \n \0 \0 260 035 @
0001360 C g \0 \0 360 C g \0 \0 360 h 360 021 3 005 g
0001400 \0 \0 A 032 @ 002 \n \0 \0 022 b 002 g \0 \0 360
0001420 222 261 377 K A 020 \0 ( 2 6 0 Q A P P
0001440 L Y 2 2 4 Q A P P L Y 2 0
0001460 4 Q M U S T C O M P I L E M A
0001500 C R O P 1 5 6 Q S U B P A I
0001520 R 1 0 3 Q E X P A N D O P E
0001540 N L A M B D A ) \r ( 2 6 6 Q I
0001560 G N O R E M A C R O 2 5 1 Q
0001600 N L A M B D A 2 4 0 Q E F F
0001620 E C T 2 3 3 Q E F F E C T
0001640 2 1 5 Q N L A M B D A 1 4 5
0001660 Q P R O G N 1 1 7 Q A P P
0001700 L Y * 1 1 0 Q A P P L Y 7
0001720 2 Q O P E N L A M B D A 5 6
0001740 Q = 4 2 Q N L A M B D A
0001760 3 4 Q L A M B D A 2 1 Q P
0002000 R O G N ) \r ( ) \r E X P A N D M
0002020 A C R O A 0 0 0 1 D 1 \r ( N A
0002040 M E E R R O R S E T L ( 2
0002060 E R R O R S E T . W 1 E R
0002100 R O R S E T . V 0 E R R O R
0002120 S E T . U ) F 0 E X P F
0002140 1 M A C R O Y ) \0 020 \0 002 \0
0002160 003 P h i \v \0 \0 277 i \t \0 \0 c 002 i 020
0002200 \0 ( 1 2 Q T E R P R I 5 P
0002220 R I N T D E F ) \r N I L \r ( ) \r
0002240 E X P A N D M A C R O D 1 \r (
0002260 L ( 2 O P T I O N S 1 Q
0002300 U I E T F L G ) P 1 0 Q R
0002320 E S E T S T A T E P 7 M A
0002340 C R O Y P 5 O L D V A L U
0002360 E P 4 P C F P 3 N C
0002400 F P 1 E F F P 0 V C
0002420 F I 3 C O M P I L E . C O
0002440 N T E X T I 0 E X P F
0002460 1 1 Q R E S E T V A R S L S T
0002500 ) \0 200 \t 001 \0 004 C g \0 \0 360 h 360 C
0002520 g \0 \0 360 021 2 004 @ 003 262 * h g \0 \0 360
0002540 236 @ d ` \0 \0 035 230 ` \0 \0 035 b \0 260 352
0002560 @ 001 ` \0 \0 \n \0 \0 272 @ d J \n \0 \0 b
0002600 \0 277 277 A 221 @ 020 i \t \0 \0 021 1 \b g \0
0002620 \0 M h 032 032 h 032 W 022 032 c 022 276 o \0 \0
0002640 \0 g \0 \0 \n \0 \0 245 g \0 \0 _ 020 277 N 002
0002660 c 022 277 g \0 \0 N 001 001 002 \n \0 \0 277 O 020
0002700 264 006 \b \0 \0 h 020 \0 ( 1 7 4 Q E R
0002720 R O R ! 1 6 4 Q A P P L Y
0002740 1 3 6 Q E X P A N D M A C R O
0002760 A 0 0 0 1 1 0 2 Q O U T P U
0003000 T 6 6 Q M A C R O E X P A N
0003020 S I O N 5 7 Q G E T M A C R
0003040 O P R O P ) \r ( 1 5 5 Q O U T
0003060 P U T 1 4 2 Q E R R O R 1
0003100 3 3 Q I N T E R N A L 1 1 0
0003120 Q O U T P U T 5 4 Q C O M
0003140 P I L E R M A C R O P R O P S
0003160 4 2 Q C L I S P A R R A Y 3
0003200 5 Q C L I S P A R R A Y 2 6
0003220 Q C L I S P 1 2 Q E F F E
0003240 C T 3 E F F E C T ) \r ( 1
0003260 3 0 Q ( D U M M Y . F O R . E
0003300 R R O R S E T ) ) \r M U S T C O
0003320 M P I L E M A C R O P D 1 \r (
0003340 L ( 1 S A F E F L G 0 X
0003360 ) F 0 U N S A F E M A C R
0003400 O A T O M S F 1 S H O U L
0003420 D C O M P I L E M A C R O A T O
0003440 M S ) \0 6 \0 002 \0 002 @ 003 262 ' @ d
0003460 001 g \0 \0 360 262 031 277 A 264 % @ 002 001 i b
0003500 002 277 b \0 260 347 d 001 A \n \0 \0 244 002 003 265
0003520 367 h 020 @ P 034 265 \b A 264 005 @ Q 034 020 \0
0003540 ( 4 1 Q M U S T C O M P I L E
0003560 M A C R O P ) \r ( 1 1 Q Q U O
0003600 T E ) \r ( ) \r E X P A N D O P E
0003620 N L A M B D A D 1 \r ( L ( 1
0003640 A C T U A L S 0 O P E N L
0003660 A M ) ) \0 364 \v \0 \0 002 @ 002 001 021 q
0003700 \a H 003 265 004 260 025 001 271 A 003 265 Z H 207 d
0003720 001 h 032 L 032 274 002 003 265 367 K 231 K 001 004 l
0003740 004 361 242 261 \0 203 @ 002 002 b \0 277 L 232 J 265
0003760 0 L @ \n \0 \0 b \0 277 J 242 261 \0 252 g \0
0004000 \0 J \t \0 \0 Z g \0 \0 g \0 \0 J 032 h 032
0004020 032 @ 032 032 032 K \t \0 \0 A \n \0 \0 032 020 021
0004040 0 \n J 260 q 001 ] \t \0 \0 ^ 262 ( I N 001
0004060 _ 016 d 262 033 d i 360 263 026 d 005 001 245 d 005
0004100 002 241 005 003 265 \n g \0 \0 O 016 h 032 032 032 L
0004120 032 274 207 I J 032 272 M K 032 273 H 002 270 A 002
0004140 b 002 277 261 377 ^ J 001 J 002 272 K 001 K 002 273
0004160 032 L 032 274 261 377 f d 001 \b \0 \0 \n \0 \0 _
0004200 020 277 O 022 265 \t O 020 h 032 _ 024 202 O 020 &
0004220 _ 022 277 002 003 265 342 O 024 022 Z @ \v \0 \0 b
0004240 \0 277 261 377 O A @ \n \0 \0 \t \0 \0 020 \0 (
0004260 3 6 1 Q M K P R O G N 3 5 6
0004300 Q \ N C O N C 2 3 4 3 Q S
0004320 U B P A I R 3 0 3 Q P A C K
0004340 * 3 0 0 Q G E N S Y M 1 5
0004360 6 Q C O N S T A N T E X P R E
0004400 S S I O N P 1 4 1 Q \ N C O
0004420 N C 2 1 3 5 Q R E V E R S E
0004440 1 1 1 Q R E V E R S E 7 2
0004460 Q S U B L I S ) \r ( 2 1 5 Q
0004500 Q U O T E 1 2 0 Q L O C A L
0004520 V A R S 1 1 5 Q D E C L A R
0004540 E 1 0 5 Q L A M B D A ) \r (
0004560 ) \r C S E L E C T D 1 \r ( L
0004600 ( 0 L ) ) \0 262 \v \0 \0 001 021 0 002
0004620 @ d 002 241 001 020 001 005 001 252 @ 001 004 l 004 360
0004640 243 g \0 \0 270 g \0 \0 021 P \a @ 002 \ 003 265
0004660 " K 022 032 Y H 242 261 \0 205 g \0 \0 o \0 \0
0004700 \0 o \0 \0 \0 I h 032 032 032 032 @ 001 h 032 032
0004720 020 002 246 i L 001 h 032 260 M 021 0 \n L 001 001
0004740 003 265 . L 001 001 h 032 260 ' d 001 272 g \0 \0
0004760 J H 265 004 @ 001 h 032 032 032 _ 020 277 O 022 265
0005000 \t O 020 h 032 _ 024 202 O 020 & _ 022 277 002 003
0005020 265 332 O 024 022 ] d 002 226 277 g \0 \0 M 032 200
0005040 001 ] L 001 002 032 276 O 016 265 \f N h 032 _ 016
0005060 273 L 261 377 z N & _ 016 277 260 367 I 020 \0 N
0005100 I L \r ( 2 1 7 Q O R 1 4 2 Q
0005120 E Q 5 7 Q L A M B D A 3
0005140 2 Q C O N D 2 6 Q . S E L
0005160 E C . ) \r ( 6 7 Q ( D E C L
0005200 A R E ( L O C A L V A R S .
0005220 S E L E C . ) ) 6 3 Q ( . S
0005240 E L E C . ) ) \r ( P R E T T Y C
0005260 O M P R I N T M A C R O S C O
0005300 M S ) \r ( R P A Q Q M A C R O
0005320 S C O M S ( ( P R O P M A C
0005340 R O N E Q N L I S T P Z E
0005360 R O P A D D 1 S U B 1 S E
0005400 T Q Q E R S E T Q N L S E T
0005420 Q R P T Q N C O N C 1 X N
0005440 L S E T Q \r U N D O N L S E T
0005460 Q R E S E T V A R R E S E T
0005500 F O R M R E S E T L S T R E
0005520 S E T S A V E R E S E T T O P
0005540 V A L S R E S E T B U F S S
0005560 E L E C T S E L E C T C I G
0005600 E Q I L E Q G E Q \r L E Q
0005620 F L E S S P I M I N I M A
0005640 X P R O G 2 E V E N P O D
0005660 D P I M O D S I G N E D U
0005700 N S I G N E D ) ( C O M S (
0005720 * M A C R O t r a n s l a t
0005740 i o n s ) ( F N S \r E X P A
0005760 N D M A C R O M A C R O E X P
0006000 A N S I O N G E T M A C R O P
0006020 R O P M U S T C O M P I L E M
0006040 A C R O P E X P A N D O P E N
0006060 L A M B D A ) ( B L O C K S
0006100 ( N I L G E T M A C R O P R O
0006120 P \r M A C R O E X P A N S I O
0006140 N E X P A N D M A C R O M U
0006160 S T C O M P I L E M A C R O P
0006200 E X P A N D O P E N L A M B D A
0006220 ( L O C A L V A R S . T )
0006240 ( S P E C V A R S F A U L T
0006260 X \r F A U L T A P P L Y F L G
0006300 E X P V C F P C F N C F
0006320 F A U L T F N E X P R D W
0006340 I M I F Y F L G ) ( G L O B A
0006360 L V A R S N O F I X F N S L S
0006400 T B Y T E C O M P F L G C L
0006420 I S P A R R A Y \r B Y T E M A
0006440 C R O P R O P ) ( L I N K F N
0006460 S . T ) ) ) ) ( P R O P
0006500 M A C R O C O N S T A N T L
0006520 O A D T I M E C O N S T A N T
0006540 D E F E R R E D C O N S T A N T
0006560 ) ( F N S C S E L E C T ) )
0006600 \r ) \r ( P U T P R O P S N E Q
0006620 M A C R O ( ( X Y ) ( N
0006640 U L L ( E Q X Y ) ) ) ) \r
0006660 ( P U T P R O P S N L I S T P
0006700 M A C R O ( ( X ) ( N U L
0006720 L ( L I S T P X ) ) ) ) \r (
0006740 P U T P R O P S Z E R O P M
0006760 A C R O ( ( X ) ( E Q X
0007000 0 ) ) ) \r (