$ od -c -N 50000 [eris]<Lisp>KOTO>Library>NEW>CMLMVS.DCOM!2
0000000 ( F I L E C R E A T E D " 2 4
0000020 - J a n - 8 6 1 5 : 5 0 : 4 7
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 . ; 4 ) \r " 2 2 - J a n - 8 6
0000140 1 8 : 5 9 : 5 5 " r e c o m
0000160 p i l e d c h a n g e s : n
0000200 o t h i n g i n " X e r o x
0000220 L i s p 2 2 - J a n - 8 6
0000240 . . . " d a t e d \r " 2 2 -
0000260 J a n - 8 6 1 9 : 1 4 : 1 5 "
0000300 ) \r ( F I L E C R E A T E D "
0000320 2 4 - J a n - 8 6 1 5 : 5 0 :
0000340 1 4 " { E R I S } < L I S P C
0000360 O R E > L I B R A R Y > C M L M
0000400 V S . ; 4 3 2 4 6 c h a n g
0000420 e s t o : ( M A C R O S \r
0000440 M U L T I P L E - V A L U E - S
0000460 E T Q ) p r e v i o u s d a
0000500 t e : " 2 3 - J a n - 8 6 2
0000520 2 : 5 6 : 4 1 " { E R I S } <
0000540 L I S P C O R E > L I B R A R Y
0000560 > C M L M V S . ; 3 ) \r M U L T
0000600 I P L E - V A L U E - C A L L
0000620 D 1 \r ( P 6 C N T P 5
0000640 F N P 4 R E S U L T S P
0000660 3 C L M V : : R E S U L T
0000700 P 2 C L M V : : M V - A C C
0000720 E P T O R P 1 F O R M S
0000740 P 0 F U N C T I O N I 0
0000760 A ) \0 d \a \0 003 001 @ 001 \t \0 \0 021
0001000 021 001 @ 002 271 i 021 021 003 I 001 \t \0 \0 273 J
0001020 003 265 005 K h 032 022 021 001 004 I d 002 263 % 277
0001040 H j 021 002 006 L 260 025 d 001 375 002 N k 330 ^
0001060 l P 361 226 h l 4 \n \0 \0 277 003 265 354 N M
0001100 016 020 002 271 L i 021 021 003 I 001 \t \0 \0 273 J
0001120 003 265 005 K h 032 022 \n \0 \0 274 260 277 \0 ( 1
0001140 3 7 Q \ A P P E N D 2 1 2 3
0001160 Q E V A L 7 7 Q \ L I S P
0001200 E R R O R 2 3 Q E V A L 4
0001220 E V A L ) \r N I L \r ( ) \r M U
0001240 L T I P L E - V A L U E - P R O
0001260 G 1 D 1 \r ( P 3 F O R M S
0001300 P 2 R E S U L T S P 1
0001320 C L M V : : R E S U L T P
0001340 0 C L M V : : M V - A C C E P
0001360 T O R I 0 A ) \0 , 004 \0 003
0001400 001 i 021 021 001 @ 001 \t \0 \0 271 H 003 265 005 I
0001420 h 032 022 @ 002 021 002 003 K d 002 245 277 J \t \0
0001440 \0 020 001 \t \0 \0 277 K 002 [ 260 357 \0 ( 4 4
0001460 Q E V A L 3 7 Q V A L U E
0001500 S - L I S T 1 0 Q E V A L )
0001520 \r N I L \r ( ) \r V A L U E S D
0001540 1 \r ( L ( 0 \ C L : L A M B
0001560 D A . A R G C N T ) F 6 C
0001600 L M V : : M V - A C C E P T O R
0001620 ) \0 6 006 001 002 \0 e 021 001 \0 H k 021 2
0001640 005 J d I 363 236 277 K 022 021 001 001 V i 360 262
0001660 033 I c \f 020 a 275 L 265 \r M h 032 \ 273 J
0001700 k 324 Z 260 337 M & 274 260 367 I 001 020 \0 N I
0001720 L \r N I L \r ( ) \r V A L U E S -
0001740 L I S T D 1 \r ( L ( 0 V A
0001760 L U E S ) F 0 C L M V : :
0002000 M V - A C C E P T O R ) \0 \f \0
0002020 001 \0 001 P i 360 223 @ c \0 020 @ 001 020 \0 N
0002040 I L \r N I L \r ( ) \r ( P R E T T
0002060 Y C O M P R I N T C M L M V S
0002100 C O M S ) \r ( R P A Q Q C M L
0002120 M V S C O M S ( ( M A C R O S
0002140 M U L T I P L E - V A L U E -
0002160 B I N D M U L T I P L E - V A
0002200 L U E - L I S T M U L T I P L
0002220 E - V A L U E - S E T Q ) ( V
0002240 A R S \r C L M V : : M V - A C
0002260 C E P T O R M U L T I P L E -
0002300 V A L U E S - L I M I T ) ( F
0002320 N S M U L T I P L E - V A L U
0002340 E - C A L L M U L T I P L E -
0002360 V A L U E - P R O G 1 V A L U
0002400 E S \r V A L U E S - L I S T )
0002420 ( D E C L A R E : D O N T E
0002440 V A L @ L O A D D O E V A L @
0002460 C O M P I L E D O N T C O P Y
0002500 C O M P I L E R V A R S ( A
0002520 D D V A R S ( N L A M A \r M
0002540 U L T I P L E - V A L U E - P R
0002560 O G 1 M U L T I P L E - V A L
0002600 U E - C A L L ) ( N L A M L )
0002620 ( L A M A V A L U E S ) ) )
0002640 ) ) \r ( D E F M A C R O M U L
0002660 T I P L E - V A L U E - B I N D
0002700 ( V A R S V A L U E S - F O
0002720 R M & R E S T F O R M S )
0002740 ( B Q U O T E ( A P P L Y (
0002760 F U N C T I O N ( L A M B D A
0003000 ( \ , V A R S \r ) ( \ . ,
0003020 F O R M S ) ) ) ( M U L T I
0003040 P L E - V A L U E - L I S T (
0003060 \ , V A L U E S - F O R M ) )
0003100 ) ) ) \r ( D E F M A C R O M U
0003120 L T I P L E - V A L U E - L I S
0003140 T ( F O R M ) ( B Q U O T E
0003160 ( L E T ( ( C L M V : : M V
0003200 - A C C E P T O R T ) C L M
0003220 V : : R E S U L T ) ( D E C L
0003240 A R E ( \r S P E C V A R S C
0003260 L M V : : M V - A C C E P T O R
0003300 ) ) ( S E T Q C L M V : : R
0003320 E S U L T ( \ , F O R M ) )
0003340 ( C L : I F ( C O N S P C
0003360 L M V : : M V - A C C E P T O R
0003400 ) \r C L M V : : M V - A C C E
0003420 P T O R ( C O N S C L M V :
0003440 : R E S U L T N I L ) ) ) ) )
0003460 \r ( D E F M A C R O M U L T I
0003500 P L E - V A L U E - S E T Q (
0003520 V A R I A B L E S F O R M )
0003540 ( L E T ( ( V A L U E S - V A
0003560 R ( G E N S Y M ) ) ) ( B Q
0003600 U O T E ( L E T ( ( , \r V
0003620 A L U E S - V A R ( M U L T I
0003640 P L E - V A L U E - L I S T ,
0003660 F O R M ) ) ) , @ ( F O R
0003700 X I N V A R I A B L E S
0003720 A S I F R O M 1 C O L L
0003740 E C T ( B Q U O T E ( S E T
0003760 Q , X \r ( C A R ( N T H
0004000 , V A L U E S - V A R ,
0004020 I ) ) ) ) ) ) ) ) ) \r ( R P A Q
0004040 Q C L M V : : M V - A C C E P
0004060 T O R N I L ) \r ( R P A Q Q
0004100 M U L T I P L E - V A L U E S -
0004120 L I M I T 6 5 5 3 5 ) \r ( P U
0004140 T P R O P S C M L M V S C O
0004160 P Y R I G H T ( " X e r o x
0004200 C o r p o r a t i o n " 1 9 8
0004220 5 1 9 8 6 ) ) \r N I L \r
0004235