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