$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLMACROS.DCOM!24
0000000 ( F I L E C R E A T E D " 1 9
0000020 - J u n - 8 6 1 3 : 1 0 : 2 1
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 5 ) \r " 1 9 - J u
0000140 n - 8 6 1 2 : 4 6 : 1 9 " "
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 1 9
0000220 - J u n - 8 6 . . . " d a t
0000240 e d " 1 9 - J u n - 8 6 1 2
0000260 : 5 8 : 1 1 " ) \r ( F I L E C R
0000300 E A T E D " 6 - J u n - 8 6
0000320 1 3 : 5 5 : 0 6 " { 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 5
0000400 8 0 3 1 c h a n g e s t o
0000420 : ( F N S \r M A C R O - F U
0000440 N C T I O N ) p r e v i o u s
0000460 d a t e : " 2 9 - M a y - 8
0000500 6 2 3 : 2 3 : 0 3 " { 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 4 ) \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 F 0 N
0001540 O S P E L L F L G F 1 X )
0001560 \0 027 \0 002 002 \0 i c \0 277 Q d d h d
0001600 d g \0 \0 \r \a \0 \0 277 h h 032 020 \0 ( 2
0001620 0 Q D W I M I F Y 0 ? ) \r ( 1
0001640 4 Q V A R S B O U N D ) \r ( )
0001660 \r C L I S P E X P A N S I O N
0001700 D 1 \r ( P 1 M A C R O Y P
0001720 0 M A C R O X I 0 X
0001740 F 2 R E S E T V A R S L S T
0001760 F 3 C L I S P A R R A Y
0002000 F 4 N O S P E L L F L G )
0002020 \0 P 002 003 \0 001 @ 001 g \0 \0 033 264 H @ S
0002040 035 265 C g \0 \0 T 032 R 032 c 004 021 021 001 R
0002060 271 o \0 \0 \0 g \0 \0 \n \0 \0 H 001 002 c \b
0002100 277 I d R 360 225 277 H 002 c 004 215 R \n \0 \0
0002120 231 R k I \v \0 \0 H 002 031 277 243 \b \0 \0 277
0002140 023 @ S 035 020 \0 ( 1 1 0 Q E R R O
0002160 R ! 1 0 0 Q N L E F T 7 1
0002200 Q T A I L P 4 4 Q C L I S
0002220 P E X P A N S I O N A 0 0 0 1 )
0002240 \r ( 4 1 Q I N T E R N A L 1
0002260 7 Q N O S P E L L F L G 4
0002300 C L I S P W O R D ) \r ( 3 6 Q
0002320 ( C L I S P E X P A N S I O N
0002340 A 0 0 0 1 ) ) \r \ I N T E R L I
0002360 S P - N L A M B D A - M A C R O
0002400 D 1 \r ( I 1 E N V I 0
0002420 X ) \0 k 004 \0 \0 002 g \0 \0 g \0 \0
0002440 @ 001 h 032 032 @ 001 \t \0 \0 d k 360 262 1 277
0002460 021 @ 003 @ 260 " d 001 [ d 236 d i 360 252 3
0002500 020 265 \t g \0 \0 K h 032 032 270 I 265 \a H h
0002520 032 Z 201 H & 271 002 003 265 336 J 022 260 % l 003
0002540 360 262 035 @ 002 021 001 \0 H d 236 d i 360 252 3
0002560 020 265 \t g \0 \0 H h 032 032 022 h 032 202 \b \0
0002600 \0 032 032 020 \0 ( 1 4 6 Q S H O U L
0002620 D N T 1 7 Q A R G T Y P E )
0002640 \r ( 1 3 3 Q Q U O T E 5 3 Q
0002660 Q U O T E 5 F U N C T I O
0002700 N 2 F U N C A L L ) \r ( ) \r
0002720 M A C R O - F U N C T I O N D
0002740 1 \r ( P 2 2 Q E X P N - F N
0002760 P 2 1 Q K I N D P 2 0
0003000 Q A 0 0 9 0 P 1 7 Q P A
0003020 R S E D - D O C S T R I N G P
0003040 1 6 Q P A R S E D - D E C L
0003060 A R A T I O N S P 1 5 Q A
0003100 0 0 8 9 P 1 4 Q P A R S E
0003120 D - B O D Y P 1 3 Q A 0 0
0003140 8 8 P 1 2 Q D E F M A C R
0003160 O - B O D Y P 1 1 Q A 0 0
0003200 8 7 P 1 0 Q D E F M A C R
0003220 O - A R G S P 7 A 0 0 8 6
0003240 P 6 N A M E P 5 A 0
0003260 0 8 3 P 2 $ $ T Y P E - V
0003300 A L U E P 1 A 0 0 8 2 P
0003320 0 M D I 1 E N V I
0003340 0 X F 2 3 Q C O M P I L
0003360 E R M A C R O P R O P S ) 001 q
0003400 023 001 \0 002 021 P 004 A Y Z d 004 ` \0 \0 360
0003420 262 u 277 @ A \t \0 \0 026 X 265 \v @ A \t \0
0003440 \0 \n \0 \0 020 021 Q \n M 001 276 M 002 _ 016 001
0003460 _ 020 277 O 016 002 _ 022 _ 024 277 O 020 g \0 \0
0003500 O 024 N h g \0 \0 g \0 \0 \r \a \0 \0 \t \0
0003520 \0 021 A 017 O 026 001 _ 030 277 O 026 002 _ 032 001
0003540 _ 034 277 O 032 002 001 _ 036 277 g \0 \0 o \0 \0
0003560 \0 O 034 g \0 \0 N O 030 h 032 032 032 h 032 \n
0003600 \0 \0 032 032 020 004 ` \0 \0 360 262 ) A @ \n \0
0003620 \0 \t \0 \0 021 ! 022 O 001 _ " 277 O 002
0003640 001 _ $ 277 O " g \0 \0 360 222 O $ 020 @ \t
0003660 \0 \0 020 J o \0 \0 \0 034 264 003 202 261 \0 252 @
0003700 301 002 311 \0 g \0 \0 ' 265 003 202 261 \0 250 @ \t
0003720 \0 \0 221 h 020 @ \t \0 \0 d j 360 244 d l 002
0003740 360 222 277 i 201 277 h 263 W W & h 274 [ 003 265
0003760 " h 262 L g \0 \0 o \0 \0 \0 g \0 \0 g \0
0004000 \0 g \0 \0 H h 032 032 h 032 032 032 h 032 032 032
0004020 020 001 274 @ L 033 X 265 006 K 002 260 322 004 l 004
0004040 360 263 370 H 001 d g \0 \0 360 245 d g \0 \0 360
0004060 222 277 i 201 277 h 263 343 L 263 273 i 260 266 @ \t
0004100 \0 \0 252 @ d g \0 \0 033 224 g \0 \0 020 @ \t
0004120 \0 \0 d k 360 244 d l 003 360 222 277 i 201 277 h
0004140 264 023 g \0 \0 020 g \0 \0 I o \0 \0 \0 h \r
0004160 005 \0 \0 020 \0 ( 5 5 6 Q C H E C K
0004200 - T Y P E - F A I L 5 1 5 Q
0004220 A R G T Y P E 4 7 5 Q \ D E
0004240 F I N E D P 3 2 4 Q A R G T
0004260 Y P E 3 1 5 Q S P E C I A L
0004300 - F O R M - P 2 5 5 Q M A C
0004320 R O - F U N C T I O N 2 1 7 Q
0004340 \ M V L I S T 2 1 4 Q E N
0004360 V - F B O U N D P 1 7 5 Q \
0004400 A P P E N D 2 1 1 4 Q \ M V
0004420 L I S T 1 1 1 Q P A R S E -
0004440 D E F M A C R O 3 7 Q M A C
0004460 R O - F U N C T I O N 3 4 Q
0004500 E N V I R O N M E N T - P A R E
0004520 N T 2 3 Q E N V I R O N M E
0004540 N T - M A C R O S ) \r ( 5 4 4 Q
0004560 E N V 5 4 0 Q \ I N T E R
0004600 L I S P - N L A M B D A - M A C
0004620 R O 5 1 0 Q C L I S P E X P
0004640 A N S I O N 5 0 3 Q C L I S
0004660 P W O R D 4 5 2 Q A P P L Y
0004700 * 4 4 4 Q A P P L Y 3 7 7
0004720 Q Q U O T E 3 7 4 Q F O R
0004740 M 3 7 1 Q M A C R O E X P A
0004760 N S I O N 3 6 2 Q L A M B D
0005000 A 3 0 2 Q M A C R O - F N
0005020 2 4 4 Q : M A C R O 2 0 4 Q
0005040 004 003 E N V T Y P E # 1 6 1 Q
0005060 C L : B L O C K 1 5 0 Q L
0005100 A M B D A 1 0 5 Q $ $ M A C
0005120 R O - E N V I R O N M E N T 1
0005140 0 2 Q : E N V I R O N M E N T
0005160 7 3 Q $ $ M A C R O - F O R
0005200 M 1 2 Q 004 003 E N V I R O N M
0005220 E N T T Y P E # ) \r ( 5 5 1 Q
0005240 ( O R E N V I R O N M E N T
0005260 E N V N U L L ) 3 6 6 Q
0005300 ( F O R M E N V ) 2 6 3 Q
0005320 ( N I L ) 1 5 4 Q ( $ $ M A
0005340 C R O - F O R M $ $ M A C R O
0005360 - E N V I R O N M E N T ) ) \r M
0005400 A C R O E X P A N D D 1 \r ( L
0005420 ( 1 E N V 0 F O R M ) )
0005440 \0 3 002 \0 \0 002 021 001 @ A \n \0 \0 \t
0005460 \0 \0 X 001 b \0 277 H 002 001 245 @ h \n \0 \0
0005500 020 @ A \n \0 \0 \t \0 \0 Y 001 b \0 277 I 002
0005520 001 263 360 @ i \n \0 \0 020 \0 ( 6 0 Q V
0005540 A L U E S 4 1 Q \ M V L I S
0005560 T 3 6 Q M A C R O E X P A N
0005600 D - 1 3 0 Q V A L U E S 1
0005620 2 Q \ M V L I S T 7 M A C
0005640 R O E X P A N D - 1 ) \r N I L \r
0005660 ( ) \r M A C R O E X P A N D - 1
0005700 D 1 \r ( L ( 1 E N V 0
0005720 F O R M ) F 1 * M A C R O
0005740 E X P A N D - H O O K * ) \0 1
0005760 001 001 \0 002 @ d 003 264 ) d 001 004 l 004 360 264
0006000 ! 001 A \n \0 \0 021 001 \0 H 262 024 @ H @ A
0006020 l 003 Q 016 b \0 360 245 @ i \n \0 \0 020 @ h
0006040 \n \0 \0 020 \0 ( 5 6 Q V A L U E S
0006060 5 0 Q V A L U E S 2 1 Q
0006100 M A C R O - F U N C T I O N ) \r
0006120 N I L \r ( ) \r S E T F - M A C R
0006140 O - F U N C T I O N D 1 \r ( P
0006160 2 A 0 0 9 4 P 1 A 0 0
0006200 9 6 P 0 A 0 0 9 3 I 1
0006220 B O D Y I 0 X ) \0 F 003
0006240 \0 \0 002 @ 021 ! 002 g \0 \0 272 A 271 H J I
0006260 \v \0 \0 023 @ \t \0 \0 264 / @ \t \0 \0 d j
0006300 360 244 d l 002 360 222 277 i 201 277 h 264 033 i \t
0006320 \0 \0 o \0 \0 \0 i \n \0 \0 @ i \n \0 \0 o
0006340 \0 \0 \0 i \n \0 \0 020 \0 ( 1 0 3 Q P
0006360 R I N 1 7 3 Q P R I N 1 6
0006400 6 Q P R I N 1 5 6 Q T E R
0006420 P R I 3 2 Q A R G T Y P E
0006440 2 4 Q \ D E F I N E D P 1 7
0006460 Q P U T P R O P ) \r ( 6 M A
0006500 C R O - F N ) \r ( 7 7 Q "
0006520 b e c a u s e i t n o w i
0006540 s a m a c r o " 6 2 Q "
0006560 W a r n i n g : w i l l s o
0006600 o n d o P U T D o n " )
0006620 \r ( A P P E N D T O V A R C O
0006640 M P I L E R M A C R O P R O P S
0006660 S H O U L D - H A V E - M A C
0006700 R O - F U N C T I O N ) \r ( P U
0006720 T P R O P S * M A C R O (
0006740 ( X . Y ) ( Q U O T E X
0006760 ) ) ) \r ( R P A Q ? * M A C R
0007000 O E X P A N D - H O O K * ( Q
0007020 U O T E F U N C A L L ) ) \r e
0007040 x p a n d - M A C R O L E T D
0007060 1 \r ( L ( 1 $ $ M A C R O -
0007100 E N V I R O N M E N T 0 $ $
0007120 M A C R O - F O R M ) ) \0 % 004
0007140 \0 \0 002 @ 002 021 1 003 H 001 271 H 002 272 A 273
0007160 g \0 \0 J 032 g \0 \0 g \0 \0 I g \0 \0 K
0007200 \f \0 \0 \v \0 \0 020 \0 ( 4 2 Q W A L
0007220 K - F O R M 3 7 Q M A K E -
0007240 E N V I R O N M E N T ) \r ( 3 3
0007260 Q : P A R E N T 2 7 Q : M
0007300 A C R O S 2 4 Q : E N V I R
0007320 O N M E N T 1 7 Q P R O G N
0007340 ) \r ( ) \r ( S E T F - M A C R O
0007360 - F U N C T I O N ( Q U O T E
0007400 M A C R O L E T ) ( Q U O T
0007420 E e x p a n d - M A C R O L E
0007440 T ) ) \r ( R E M P R O P ( Q U
0007460 O T E M A C R O - F U N C T I
0007500 O N ) ( Q U O T E S E T F -
0007520 M E T H O D - E X P A N D E R )
0007540 ) \r ( P U T P R O P S M A C R
0007560 O - F U N C T I O N S E T F -
0007600 I N V E R S E S E T F - M A C
0007620 R O - F U N C T I O N ) \r ( P U
0007640 T P R O P S C M L M A C R O S
0007660 F I L E T Y P E C O M P I L
0007700 E - F I L E ) \r ( P U T P R O P
0007720 S C M L M A C R O S C O P Y
0007740 R I G H T ( " X e r o x C o
0007760 r p o r a t i o n " 1 9 8 6 )
0010000 ) \r S T O P \r
0010007