$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLMACROS.DCOM!26
0000000 ( F I L E C R E A T E D " 2 9
0000020 - J u l - 8 6 0 4 : 1 0 : 0 0
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 > L I B R A R Y > C M L M A C
0000120 R O S . ; 1 7 ) \r " 2 9 - J u
0000140 l - 8 6 0 1 : 1 3 : 3 4 " "
0000160 C O M P I L E - F I L E d " i
0000200 n " X e r o x L i s p 2 9
0000220 - J u l - 8 6 . . . " d a t
0000240 e d " 2 9 - J u l - 8 6 0 1
0000260 : 2 5 : 0 7 " ) \r ( F I L E C R
0000300 E A T E D " 2 9 - J u l - 8 6
0000320 0 4 : 0 9 : 5 2 " { E R I S
0000340 } < L I S P C O R E > L I B R A
0000360 R Y > C M L M A C R O S . ; 1 7
0000400 9 8 1 8 c h a n g e s t o
0000420 : ( F N S \r C L I S P E X P
0000440 A N S I O N ) p r e v i o u s
0000460 d a t e : " 1 8 - J u l - 8
0000500 6 1 7 : 4 7 : 3 4 " { E R I
0000520 S } < L I S P C O R E > L I B R
0000540 A R Y > C M L M A C R O S . ; 1
0000560 6 ) \r ( R P A Q Q C M L M A C
0000600 R O S C O M S ( ( F N S C L
0000620 I S P E X P A N S I O N \ I N
0000640 T E R L I S P - N L A M B D A -
0000660 M A C R O M A C R O - F U N C
0000700 T I O N M A C R O E X P A N D
0000720 \r M A C R O E X P A N D - 1
0000740 S E T F - M A C R O - F U N C T
0000760 I O N ) ( A P P E N D V A R S
0001000 ( C O M P I L E R M A C R O P
0001020 R O P S S H O U L D - H A V E
0001040 - M A C R O - F U N C T I O N )
0001060 ) ( P R O P \r M A C R O *
0001100 ) ( I N I T V A R S ( * M A
0001120 C R O E X P A N D - H O O K *
0001140 ( Q U O T E F U N C A L L ) )
0001160 ) ( F U N C T I O N S M A C
0001200 R O L E T ) ( S E T F S M A
0001220 C R O - F U N C T I O N ) ( \r
0001240 P R O P F I L E T Y P E C M
0001260 L M A C R O S ) ( D E C L A R
0001300 E : D O N T E V A L @ L O A D
0001320 D O E V A L @ C O M P I L E
0001340 D O N T C O P Y C O M P I L E
0001360 R V A R S ( A D D V A R S (
0001400 N L A M A ) \r ( N L A M L )
0001420 ( L A M A M A C R O E X P A N
0001440 D - 1 M A C R O E X P A N D )
0001460 ) ) ) ) \r C L I S P E X P A N S
0001500 I O N A 0 0 0 1 D 1 \r ( N A M
0001520 E E R R O R S E T P 2 V
0001540 A R S P 1 C O P P 0
0001560 N O S P E L L F L G F 3 X
0001600 ) \0 ' 003 001 002 \0 h 027 \0 \0 277 i S \t
0001620 \0 \0 021 022 002 I d d h d d g \0 \0 \r \a
0001640 \0 \0 277 I ` \0 \0 \n \0 \0 022 h 032 020 \0 (
0001660 4 1 Q G E T H A S H 3 1 Q
0001700 D W I M I F Y 0 ? 1 1 Q C O
0001720 P Y ) \r ( 3 6 Q C L I S P A R
0001740 R A Y 2 5 Q V A R S B O U N
0001760 D 3 C L I S P F L G ) \r ( )
0002000 \r C L I S P E X P A N S I O N
0002020 D 1 \r ( P 1 M A C R O Y P
0002040 0 M A C R O X I 1 E N
0002060 V I 0 X F 2 R E S E
0002100 T V A R S L S T ) \0 V 002 001 \0 002
0002120 @ 001 g \0 \0 \n \0 \0 262 F g \0 \0 ` \0 \0
0002140 032 R 032 c 004 021 021 001 R 271 o \0 \0 \0 g \0
0002160 \0 \n \0 \0 H 001 002 027 \0 \0 277 I d R 360 225
0002200 277 H 002 c 004 215 R \n \0 \0 231 R k I \v \0
0002220 \0 H 002 031 277 265 005 \b \0 \0 022 001 265 004 @ 020
0002240 i \n \0 \0 020 \0 ( 1 2 3 Q V A L U
0002260 E S 1 1 1 Q E R R O R ! 1
0002300 0 0 Q N L E F T 7 1 Q T A
0002320 I L P 4 3 Q C L I S P E X P
0002340 A N S I O N A 0 0 0 1 7 G E
0002360 T P R O P ) \r ( 5 1 Q C L I S
0002400 P F L G 4 0 Q I N T E R N A
0002420 L 1 7 Q C L I S P F L G 1
0002440 4 Q C L I S P F L G 4 C L
0002460 I S P W O R D ) \r ( 3 5 Q (
0002500 C L I S P E X P A N S I O N A 0
0002520 0 0 1 ) ) \r \ I N T E R L I S P
0002540 - N L A M B D A - M A C R O D
0002560 1 \r ( I 1 E N V I 0 X
0002600 ) \0 k 004 \0 \0 002 g \0 \0 g \0 \0 @ 001
0002620 h 032 032 @ 001 \t \0 \0 d k 360 262 1 277 021 @
0002640 003 @ 260 " d 001 [ d 236 d i 360 252 3 020 265
0002660 \t g \0 \0 K h 032 032 270 I 265 \a H h 032 Z
0002700 201 H & 271 002 003 265 336 J 022 260 % l 003 360 262
0002720 035 @ 002 021 001 \0 H d 236 d i 360 252 3 020 265
0002740 \t g \0 \0 H h 032 032 022 h 032 202 \b \0 \0 032
0002760 032 020 \0 ( 1 4 6 Q S H O U L D N
0003000 T 1 7 Q A R G T Y P E ) \r (
0003020 1 3 3 Q Q U O T E 5 3 Q Q
0003040 U O T E 5 F U N C T I O N
0003060 2 F U N C A L L ) \r ( ) \r M A
0003100 C R O - F U N C T I O N D 1 \r
0003120 ( P 2 2 Q P R O P P 2 0
0003140 Q E X P N - F N P 1 7 Q
0003160 K I N D P 1 6 Q A 0 3 4 3
0003200 P 1 5 Q P A R S E D - D O
0003220 C S T R I N G P 1 4 Q P A
0003240 R S E D - D E C L A R A T I O N
0003260 S P 1 3 Q A 0 3 4 2 P
0003300 1 2 Q P A R S E D - B O D Y
0003320 P 1 1 Q A 0 3 4 1 P 1 0
0003340 Q D E F M A C R O - B O D Y
0003360 P 7 A 0 3 4 0 P 6 D E
0003400 F M A C R O - A R G S P 5
0003420 A 0 3 3 9 P 4 N A M E P
0003440 3 A 0 3 3 6 P 2 $ $ T
0003460 Y P E - V A L U E P 1 E T
0003500 Y P E C A S E 0 3 3 5 P 0
0003520 M D I 1 E N V I 0 X
0003540 ) 001 x 023 \0 \0 002 021 0 002 A Y Z d 004
0003560 ` \0 \0 360 262 p 277 @ A \t \0 \0 026 X 265 \v
0003600 @ A \t \0 \0 \n \0 \0 020 021 Q \b K 001 274 K
0003620 002 ] 001 276 M 002 _ 016 _ 020 277 N g \0 \0 O
0003640 020 L h g \0 \0 g \0 \0 \r \a \0 \0 \t \0 \0
0003660 021 A \r O 022 001 _ 024 277 O 022 002 _ 026 001 _
0003700 030 277 O 026 002 001 _ 032 277 g \0 \0 o \0 \0 \0
0003720 O 030 g \0 \0 L O 024 h 032 032 032 h 032 \n \0
0003740 \0 032 032 020 004 ` \0 \0 360 262 ) A @ \n \0 \0
0003760 \t \0 \0 021 ! 020 O 034 001 _ 036 277 O 034 002 001
0004000 _ 277 O 036 g \0 \0 360 222 O 020 @ \t \0
0004020 \0 020 J o \0 \0 \0 034 264 003 202 261 \0 270 @ 301
0004040 002 311 \0 g \0 \0 ' 265 003 202 261 \0 264 @ \t \0
0004060 \0 221 h 020 @ \t \0 \0 d j 360 244 d l 002 360
0004100 222 277 i 201 277 h 263 d ` \0 \0 021 021 022 O "
0004120 003 265 # h 022 262 U g \0 \0 o \0 \0 \0 g \0
0004140 \0 g \0 \0 g \0 \0 H h 032 032 h 032 032 032 h
0004160 032 032 032 020 001 _ $ 277 @ O $ \n \0 \0 X 265
0004200 \t O " 002 _ " 260 312 004 l 004 360 263 365 H 001
0004220 d g \0 \0 360 245 d g \0 \0 360 222 277 i 201 277
0004240 h 263 340 O $ 265 257 i 260 254 @ \t \0 \0 253 @
0004260 g \0 \0 \n \0 \0 223 g \0 \0 020 @ \t \0 \0 d
0004300 k 360 244 d l 003 360 222 277 i 201 277 h 264 021 g
0004320 \0 \0 020 g \0 \0 I o \0 \0 \0 \f \0 \0 020 \0
0004340 ( 5 6 5 Q C H E C K - T Y P E
0004360 - F A I L 5 2 6 Q A R G T Y
0004400 P E 5 1 5 Q G E T P R O P
0004420 5 0 5 Q \ D E F I N E D P 4
0004440 2 5 Q G E T P R O P 3 1 7 Q
0004460 A R G T Y P E 3 1 0 Q S P
0004500 E C I A L - F O R M - P 2 5 0
0004520 Q M A C R O - F U N C T I O N
0004540 2 1 2 Q \ M V L I S T 2 0
0004560 7 Q E N V - F B O U N D P 1
0004600 7 0 Q \ A P P E N D 2 1 0 7
0004620 Q \ M V L I S T 1 0 4 Q P
0004640 A R S E - D E F M A C R O 3 7
0004660 Q M A C R O - F U N C T I O N
0004700 3 4 Q E N V I R O N M E N T
0004720 - P A R E N T 2 3 Q E N V I
0004740 R O N M E N T - M A C R O S ) \r
0004760 ( 5 5 5 Q E N V 5 5 1 Q \
0005000 I N T E R L I S P - N L A M B D
0005020 A - M A C R O 5 2 1 Q C L I
0005040 S P E X P A N S I O N 5 1 2 Q
0005060 C L I S P W O R D 4 6 1 Q
0005100 A P P L Y * 4 5 3 Q A P P L
0005120 Y 3 7 6 Q Q U O T E 3 7 3
0005140 Q F O R M 3 7 0 Q M A C R
0005160 O E X P A N S I O N 3 6 1 Q
0005200 L A M B D A 3 4 2 Q C O M P
0005220 I L E R M A C R O P R O P S 2
0005240 7 5 Q M A C R O - F N 2 3 7
0005260 Q : M A C R O 1 7 7 Q 004 003
0005300 E N V T Y P E # 1 5 4 Q C L
0005320 : B L O C K 1 4 3 Q L A M B
0005340 D A 1 0 0 Q $ $ M A C R O -
0005360 E N V I R O N M E N T 7 5 Q
0005400 : E N V I R O N M E N T 6 6 Q
0005420 $ $ M A C R O - F O R M 1 2
0005440 Q 004 003 E N V I R O N M E N T T
0005460 Y P E # ) \r ( 5 6 2 Q ( O R
0005500 E N V I R O N M E N T E N V
0005520 N U L L ) 3 6 5 Q ( F O R
0005540 M E N V ) 2 5 6 Q ( N I L
0005560 ) 1 4 7 Q ( $ $ M A C R O -
0005600 F O R M $ $ M A C R O - E N V
0005620 I R O N M E N T ) ) \r M A C R O
0005640 E X P A N D D 1 \r ( L ( 1
0005660 E N V 0 F O R M ) ) \0 3 002
0005700 \0 \0 002 021 001 @ A \n \0 \0 \t \0 \0 X 001
0005720 b \0 277 H 002 001 245 @ h \n \0 \0 020 @ A \n
0005740 \0 \0 \t \0 \0 Y 001 b \0 277 I 002 001 263 360 @
0005760 i \n \0 \0 020 \0 ( 6 0 Q V A L U E
0006000 S 4 1 Q \ M V L I S T 3 6
0006020 Q M A C R O E X P A N D - 1
0006040 3 0 Q V A L U E S 1 2 Q \
0006060 M V L I S T 7 M A C R O E X
0006100 P A N D - 1 ) \r N I L \r ( ) \r M
0006120 A C R O E X P A N D - 1 D 1 \r
0006140 ( L ( 1 E N V 0 F O R M
0006160 ) F 1 * M A C R O E X P A
0006200 N D - H O O K * ) \0 1 001 001 \0 002
0006220 @ d 003 264 ) d 001 004 l 004 360 264 ! 001 A \n
0006240 \0 \0 021 001 \0 H 262 024 @ H @ A l 003 Q 016
0006260 b \0 360 245 @ i \n \0 \0 020 @ h \n \0 \0 020
0006300 \0 ( 5 6 Q V A L U E S 5 0 Q
0006320 V A L U E S 2 1 Q M A C R
0006340 O - F U N C T I O N ) \r N I L \r
0006360 ( ) \r S E T F - M A C R O - F U
0006400 N C T I O N D 1 \r ( P 2 A
0006420 0 3 4 7 P 1 A 0 3 4 9 P
0006440 0 A 0 3 4 6 I 1 B O D
0006460 Y I 0 X ) \0 F 003 \0 \0 002 @
0006500 021 ! 002 g \0 \0 272 A 271 H J I \v \0 \0 023
0006520 @ \t \0 \0 264 / @ \t \0 \0 d j 360 244 d l
0006540 002 360 222 277 i 201 277 h 264 033 i \t \0 \0 o \0
0006560 \0 \0 i \n \0 \0 @ i \n \0 \0 o \0 \0 \0 i
0006600 \n \0 \0 020 \0 ( 1 0 3 Q P R I N 1
0006620 7 3 Q P R I N 1 6 6 Q P
0006640 R I N 1 5 6 Q T E R P R I
0006660 3 2 Q A R G T Y P E 2 4 Q
0006700 \ D E F I N E D P 1 7 Q P U
0006720 T P R O P ) \r ( 6 M A C R O -
0006740 F N ) \r ( 7 7 Q " b e c a
0006760 u s e i t n o w i s a
0007000 m a c r o " 6 2 Q " W a r n
0007020 i n g : w i l l s o o n d
0007040 o P U T D o n " ) \r ( A P
0007060 P E N D T O V A R C O M P I L
0007100 E R M A C R O P R O P S S H O
0007120 U L D - H A V E - M A C R O - F
0007140 U N C T I O N ) \r ( P U T P R O
0007160 P S * M A C R O ( ( X .
0007200 Y ) ( Q U O T E X ) ) ) \r
0007220 ( R P A Q ? * M A C R O E X P
0007240 A N D - H O O K * ( Q U O T E
0007260 F U N C A L L ) ) \r e x p a n
0007300 d - M A C R O L E T D 1 \r ( L
0007320 ( 1 $ $ M A C R O - E N V I
0007340 R O N M E N T 0 $ $ M A C R
0007360 O - F O R M ) ) \0 % 004 \0 \0 002 @
0007400 002 021 1 003 H 001 271 H 002 272 A 273 g \0 \0 J
0007420 032 g \0 \0 g \0 \0 I g \0 \0 K \f \0 \0 \v
0007440 \0 \0 020 \0 ( 4 2 Q W A L K - F O
0007460 R M 3 7 Q M A K E - E N V I
0007500 R O N M E N T ) \r ( 3 3 Q : P
0007520 A R E N T 2 7 Q : M A C R O
0007540 S 2 4 Q : E N V I R O N M E
0007560 N T 1 7 Q P R O G N ) \r ( )
0007600 \r ( S E T F - M A C R O - F U N
0007620 C T I O N ( Q U O T E M A C
0007640 R O L E T ) ( Q U O T E e x
0007660 p a n d - M A C R O L E T ) ) \r
0007700 ( R E M P R O P ( Q U O T E
0007720 M A C R O - F U N C T I O N )
0007740 ( Q U O T E S E T F - M E T H
0007760 O D - E X P A N D E R ) ) \r ( P
0010000 U T P R O P S M A C R O - F U
0010020 N C T I O N S E T F - I N V E
0010040 R S E S E T F - M A C R O - F
0010060 U N C T I O N ) \r ( P U T P R O
0010100 P S C M L M A C R O S F I L
0010120 E T Y P E C O M P I L E - F I
0010140 L E ) \r ( R P A Q Q C M L M A
0010160 C R O S C O M S ( ( F N S C
0010200 L I S P E X P A N S I O N \ I
0010220 N T E R L I S P - N L A M B D A
0010240 - M A C R O M A C R O - F U N
0010260 C T I O N M A C R O E X P A N
0010300 D \r M A C R O E X P A N D - 1
0010320 S E T F - M A C R O - F U N C
0010340 T I O N ) ( A P P E N D V A R
0010360 S ( C O M P I L E R M A C R O
0010400 P R O P S S H O U L D - H A V
0010420 E - M A C R O - F U N C T I O N
0010440 ) ) ( P R O P \r M A C R O
0010460 * ) ( I N I T V A R S ( * M
0010500 A C R O E X P A N D - H O O K *
0010520 ( Q U O T E F U N C A L L )
0010540 ) ) ( F U N C T I O N S M A
0010560 C R O L E T ) ( S E T F S M
0010600 A C R O - F U N C T I O N ) (
0010620 \r P R O P F I L E T Y P E C
0010640 M L M A C R O S ) ( D E C L A
0010660 R E : D O N T E V A L @ L O A
0010700 D D O E V A L @ C O M P I L E
0010720 D O N T C O P Y C O M P I L
0010740 E R V A R S ( A D D V A R S
0010760 ( N L A M A ) \r ( N L A M L )
0011000 ( L A M A ) ) ) ) ) \r ( P U T
0011020 P R O P S C M L M A C R O S
0011040 C O P Y R I G H T ( " X e r o
0011060 x C o r p o r a t i o n " 1
0011100 9 8 6 ) ) \r S T O P \r
0011113