$ 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