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