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