$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLMVS.DCOM!2
0000000 ( F I L E C R E A T E D " 1 0
0000020 - S e p - 8 6 2 1 : 1 0 : 4 2
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 V S
0000120 . ; 2 4 ) \r " 9 - S e p - 8
0000140 6 1 9 : 1 0 : 2 4 " " C O M
0000160 P I L E - F I L E d " i n "
0000200 X e r o x L i s p 9 - S e
0000220 p - 8 6 . . . " d a t e d
0000240 " 9 - S e p - 8 6 1 9 : 3 4
0000260 : 2 2 " ) \r ( F I L E C R E A T
0000300 E D " 1 0 - S e p - 8 6 2 1
0000320 : 1 0 : 2 2 " { E R I S } < L
0000340 I S P C O R E > L I B R A R Y >
0000360 C M L M V S . ; 2 4 5 9 1 7
0000400 c h a n g e s t o : ( F U N
0000420 C T I O N S \r M U L T I P L E
0000440 - V A L U E - S E T Q ) p r e
0000460 v i o u s d a t e : " 5 -
0000500 J u n - 8 6 0 0 : 1 0 : 3 6 "
0000520 { E R I S } < L I S P C O R E
0000540 > L I B R A R Y > C M L M V S .
0000560 ; 2 3 ) \r ( R P A Q Q C M L M
0000600 V S C O M S ( ( * \r " I n t
0000620 e r p r e t e r a n d c o m
0000640 p i l e r s u p p o r t f o
0000660 r m u l t i p l e v a l u e
0000700 s . S e e L L M V S f o
0000720 r r u n t i m e s u p p o r
0000740 t " ) ( F N S \r M U L T I P
0000760 L E - V A L U E - C A L L R E
0001000 T V A L U E S ) ( P R O P D
0001020 M A C R O M U L T I P L E - V
0001040 A L U E - C A L L ) ( F U N C
0001060 T I O N S M U L T I P L E - V
0001100 A L U E - B I N D \r M U L T I
0001120 P L E - V A L U E - L I S T M
0001140 U L T I P L E - V A L U E - P R
0001160 O G 1 M U L T I P L E - V A L
0001200 U E - S E T Q ) ( V A R S (
0001220 N E W - A D V I S E T E M P L A
0001240 T E ( Q U O T E ( \r A D V -
0001260 P R O G ( ! V A L U E ! O T
0001300 H E R - V A L U E S ) ( M U L
0001320 T I P L E - V A L U E - S E T Q
0001340 ( ! V A L U E . ! O T H E
0001360 R - V A L U E S ) ( A D V - P
0001400 R O G N I L ( \r A D V - R E
0001420 T U R N D E F ) ) ) ( A D V
0001440 - R E T U R N ( V A L U E S -
0001460 L I S T ( C O N S ! V A L U
0001500 E ! O T H E R - V A L U E S )
0001520 ) ) ) ) ) ) ( P R O P F I L
0001540 E T Y P E C M L M V S ) ( \r
0001560 D E C L A R E : D O N T E V A
0001600 L @ L O A D D O E V A L @ C O
0001620 M P I L E D O N T C O P Y C
0001640 O M P I L E R V A R S ( A D D
0001660 V A R S ( N L A M A M U L T
0001700 I P L E - V A L U E - C A L L )
0001720 ( \r N L A M L ) ( L A M A )
0001740 ) ) ) ) \r M U L T I P L E - V A
0001760 L U E - C A L L D 1 \r ( P 5
0002000 X P 1 C N T P 0 F
0002020 N I 0 F O R M S ) \0 M 006
0002040 \0 003 001 @ 001 , j 021 002 001 021 0 004 @ 260 027
0002060 d 001 021 001 005 M , \t \0 \0 022 Z 003 226 K 265
0002100 016 J \ [ 277 002 003 265 351 L 022 260 036 \t \0 \0
0002120 [ J 031 260 361 d 001 375 002 I k 330 Y n 002 \0
0002140 361 226 h l 4 \n \0 \0 277 265 354 I H 016 020 \0
0002160 ( 1 0 4 Q \ L I S P E R R O R
0002200 5 4 Q L A S T 2 6 Q \ M
0002220 V L I S T ) \r N I L \r ( ) \r R E
0002240 T V A L U E S D 1 \r ( P 0
0002260 P I 2 F L G I 1 V A
0002300 L U E S I 0 P O S ) \0 =
0002320 001 \0 \0 003 @ \t \0 \0 021 001 \0 k H 321 312 001
0002340 360 j 360 225 k H 321 310 001 204 k H 321 310 \t l
0002360 \n 331 X j 360 264 \n A l 003 \n \0 \0 277 h H
0002400 d \v \0 \0 B 224 @ \t \0 \0 277 A \t \0 \0 020
0002420 \0 ( 7 2 Q V A L U E S - L I S
0002440 T 6 5 Q R E L S T K 5 7 Q
0002460 \ S M A S H L I N K 5 0 Q
0002500 \ L I S P E R R O R 3 \ S T
0002520 A C K A R G P T R ) \r N I L \r (
0002540 ) \r ( P U T P R O P S M U L T
0002560 I P L E - V A L U E - C A L L
0002600 D M A C R O ( D E F M A C R O
0002620 ( F N & B O D Y B O D Y )
0002640 ( * " o p t m i z e r " f
0002660 o r s p e c i a l f o r m
0002700 \r M U L T I P L E - V A L U E -
0002720 C A L L - h a n d l e s p
0002740 e c i a l c a s e o f " l
0002760 i s t " a n d l e t t h e
0003000 r e s t t u r n i n t o
0003020 a n A P P L Y ) ( C O N D
0003040 ( ( A N D ( \r E Q U A L F N
0003060 ( Q U O T E ( F U N C T I O
0003100 N L I S T ) ) ) ( N U L L
0003120 ( C D R B O D Y ) ) ) ( C O
0003140 N S ( Q U O T E \ M V L I S
0003160 T ) B O D Y ) ) ( T ( B Q
0003200 U O T E ( C L : A P P L Y \r
0003220 ( \ , F N ) ( N C O N C (
0003240 \ , @ ( f o r F i n B O
0003260 D Y c o l l e c t ( B Q U O
0003300 T E ( M U L T I P L E - V A L
0003320 U E - L I S T ( \ , F ) ) )
0003340 ) ) ) ) ) ) ) ) ) \r e x p a n d
0003360 - M U L T I P L E - V A L U E -
0003400 B I N D D 1 \r ( L ( 1 $ $
0003420 M A C R O - E N V I R O N M E N
0003440 T 0 $ $ M A C R O - F O R M
0003460 ) ) \0 ! 005 \0 \0 002 @ 002 021 A 004 H 001
0003500 271 H 002 Z 001 273 J 002 274 g \0 \0 I g \0 \0
0003520 K h 032 032 L 032 032 032 020 \0 N I L \r ( 2
0003540 6 Q M U L T I P L E - V A L U
0003560 E - L I S T 2 2 Q D E S T R
0003600 U C T U R I N G - B I N D ) \r (
0003620 ) \r ( S E T F - M A C R O - F U
0003640 N C T I O N ( Q U O T E M U
0003660 L T I P L E - V A L U E - B I N
0003700 D ) ( Q U O T E e x p a n d
0003720 - M U L T I P L E - V A L U E -
0003740 B I N D ) ) \r e x p a n d - M U
0003760 L T I P L E - V A L U E - L I S
0004000 T D 1 \r ( L ( 1 $ $ M A C
0004020 R O - E N V I R O N M E N T 0
0004040 $ $ M A C R O - F O R M ) )
0004060 \0 024 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 o
0004100 \0 \0 \0 H h 032 032 032 020 \0 N I L \r ( 1
0004120 0 Q M U L T I P L E - V A L U
0004140 E - C A L L ) \r ( 1 4 Q ( F
0004160 U N C T I O N L I S T ) ) \r (
0004200 S E T F - M A C R O - F U N C T
0004220 I O N ( Q U O T E M U L T I
0004240 P L E - V A L U E - L I S T )
0004260 ( Q U O T E e x p a n d - M U
0004300 L T I P L E - V A L U E - L I S
0004320 T ) ) \r e x p a n d - M U L T I
0004340 P L E - V A L U E - P R O G 1
0004360 D 1 \r ( L ( 1 $ $ M A C R O
0004400 - E N V I R O N M E N T 0 $
0004420 $ M A C R O - F O R M ) ) \0
0004440 003 \0 \0 002 @ 002 021 ! 002 H 001 271 H 002 272 g
0004460 \0 \0 g \0 \0 g \0 \0 I h 032 032 J 032 032 h
0004500 032 032 020 \0 N I L \r ( 2 3 Q M U L
0004520 T I P L E - V A L U E - L I S T
0004540 2 0 Q P R O G 1 1 5 Q V
0004560 A L U E S - L I S T ) \r ( ) \r (
0004600 S E T F - M A C R O - F U N C T
0004620 I O N ( Q U O T E M U L T I
0004640 P L E - V A L U E - P R O G 1 )
0004660 ( Q U O T E e x p a n d - M
0004700 U L T I P L E - V A L U E - P R
0004720 O G 1 ) ) \r e x p a n d - M U L
0004740 T I P L E - V A L U E - S E T Q
0004760 D 1 \r ( L ( 1 $ $ M A C R
0005000 O - E N V I R O N M E N T 0
0005020 $ $ M A C R O - F O R M ) ) \0
0005040 C 004 \0 \0 002 @ 002 021 1 003 H 001 271 H 002 001
0005060 272 \b \0 \0 273 g \0 \0 K g \0 \0 J h 032 032
0005100 h 032 032 h 032 g \0 \0 g \0 \0 K h 032 032 g
0005120 \0 \0 I g \0 \0 J h 032 032 h 032 032 032 h 032
0005140 032 032 h 032 032 032 020 \0 ( 1 6 Q G E N
0005160 S Y M ) \r ( 6 0 Q M U L T I P
0005200 L E - V A L U E - L I S T 5 4
0005220 Q D E S T R U C T U R I N G -
0005240 S E T Q 4 5 Q C A R 4 2 Q
0005260 P R O G 1 2 6 Q M U L T I
0005300 P L E - V A L U E - L I S T 2
0005320 2 Q L E T ) \r ( ) \r ( S E T F
0005340 - M A C R O - F U N C T I O N
0005360 ( Q U O T E M U L T I P L E -
0005400 V A L U E - S E T Q ) ( Q U O
0005420 T E e x p a n d - M U L T I P
0005440 L E - V A L U E - S E T Q ) ) \r
0005460 ( R P A Q Q N E W - A D V I S
0005500 E T E M P L A T E ( A D V - P
0005520 R O G ( ! V A L U E ! O T H
0005540 E R - V A L U E S ) ( M U L T
0005560 I P L E - V A L U E - S E T Q
0005600 ( ! V A L U E . \r ! O T H E
0005620 R - V A L U E S ) ( A D V - P
0005640 R O G N I L ( A D V - R E T
0005660 U R N D E F ) ) ) ( A D V -
0005700 R E T U R N ( V A L U E S - L
0005720 I S T ( C O N S ! V A L U E
0005740 ! O T H E R - V A L U E S ) )
0005760 ) \r ) ) \r ( P U T P R O P S C
0006000 M L M V S F I L E T Y P E C
0006020 O M P I L E - F I L E ) \r ( P U
0006040 T P R O P S C M L M V S C O
0006060 P Y R I G H T ( " X e r o x
0006100 C o r p o r a t i o n " 1 9 8
0006120 5 1 9 8 6 ) ) \r S T O P \r
0006136