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