$ od -c -N 50000 [eris]<LispCore>CML>MORGUE>MValues-lmm.tedit!1 0000000 S k e t c h o f d e s i g n 0000020 f o r " c h e a p " m u l 0000040 t i p l e v a l u e s [ M a 0000060 s i n t e r , 3 0 J u l 8 0000100 5 ] \r \r O K , h e r e ' s a 0000120 m i m i m a l - m i c r o c o 0000140 d e / c o m p i l e r m u l t 0000160 i p l e - v a l u e - h a c k . 0000200 N e w o p c o d e : \r \r [ r 0000220 e s t - m v - l i s t ] R e t 0000240 u r n s t h e " r e s t " 0000260 o f t h e m u l t i p l e 0000300 v a l u e s f r o m t h e 0000320 p r e v i o u s e x p r e s s 0000340 i o n , a s . T h e m i 0000360 c r o c o d e f o r [ R e s 0000400 t M V L i s t ] r e t u r n s 0000420 N I L , i . e . , i t s 0000440 e q u i v a l e n t t o ' N 0000460 I L . ( Y o u c a n m a k 0000500 e i t 0 - a r g U F N t 0000520 h a t r e t u r n s N I L ) 0000540 . T h i s s t i l l n e e 0000560 d s s o m e d e b u g g i n 0000600 g , b u t m a y b e y o u 0000620 g e t t h e i d e a ? \r \r 0000640 \r ( D E F U N \ M V - L I S T 0000660 ( V A L U E ) ( L I S T V 0000700 A L U E ) ) \r \r ( D E F U N \ 0000720 R E S T - M V - L I S T ( ) 0000740 N I L ) \r \r ( P U T P R O P S 0000760 M U L T I P L E - V A L U E S 0001000 - L I S T D M A C R O C O M 0001020 P . M V - L I S T ) \r \r ( D E F 0001040 U N C O M P . M V - L I S T 0001060 ( F O R M S ) \r ( S 0001100 E L E C T Q ( C O M P . E X P 0001120 R ( C A R F O R M S ) ' M 0001140 V - L I S T ) \r 0001160 ( M V - L I S T E D ) \r 0001200 ( C O M P . S T 0001220 F N ' \ M V - L I S T 1 ) ) 0001240 \r \r ( D E F U N C O M P . M V 0001260 - S P R E A D ( F O R M N ) 0001300 ( * c o m p i l e s f o r 0001320 m , s p r e a d N m u l t 0001340 i p l e v a l u e s o n s 0001360 t a c k ) \r ( L E T ( ( V 0001400 ( C O M P . E X P R F O R M 0001420 ( C O N S M V - S P R E A D 0001440 1 ) ) ) ) \r ( i 0001460 f ( N E Q V ' M V - S P R 0001500 E A D ) t h e n \r 0001520 ( * n o l o c a 0001540 l m u l t i p l e v a l u e 0001560 s e n c o u n t e r e d ) \r 0001600 ( i f ( E Q 0001620 N 0 ) t h e n ( C O M P . 0001640 S T P O P ) \r \t \t e l s e i 0001660 f ( E Q N 1 ) t h e n 0001700 ( * w a n t o n l y o n e 0001720 v a l u e ) N I L \r 0001740 e l s e ( C O M P 0001760 . S T F N ' \ R E S T - M V - 0002000 L I S T 0 ) \r \t \t \t ( w h i l 0002020 e ( G R E A T E R P N 2 ) 0002040 d o ( C O M P . S T F N ' 0002060 ( O P C O D E S C O P Y C D 0002100 R S W A P C A R ) 0 ) \r \t 0002120 \t \t ( C O M P . S T F N ' C A 0002140 R 1 ) ) ) ) ) \r \r ( P U T P R 0002160 O P S V A L U E S D M A C R 0002200 O C O M P . V A L U E S ) \r \r 0002220 ( D E F U N C O M P . V A L U 0002240 E S ( F O R M S ) ( * c o 0002260 m p i l e s a V A L U E S 0002300 e x p r e s s i o n ) \r 0002320 ( S E L E C T Q C O M P I L E 0002340 . C O N T E X T \r 0002360 ( R E T U R N ( * i n r e 0002400 t u r n c o n t e x t t u r 0002420 n s i n t o M V - R E T U R 0002440 N ) \r \t \t ( C O M P . E X P R 0002460 ` ( \ M V - R E T U R N , @ 0002500 F O R M S ) ) ) \r 0002520 ( M V - S P R E A D ( M A P C 0002540 F O R M S ( F U N C T I O N 0002560 C O M P . E X P R ) ) \r 0002600 \t ( S E 0002620 T Q A C T ) ( * t e l l 0002640 c o m p i l e r n o t t o 0002660 b a r f a t e x t r a s 0002700 t u f f o n s t a c k ) \r 0002720 \t ( 0002740 R E T F R O M ' C O M P . E X 0002760 P R ( C O N S ' M V - S P R 0003000 E A D ( L E N G T H F O R M 0003020 S ) ) ) \r ( M V - 0003040 L I S T ( C O M P . E X P R 0003060 ( C O N S ' L I S T F O R M 0003100 S ) ) ( R E T F R O M ' C O 0003120 M P . E X P R ' M V - L I S T 0003140 E D ) ) \r ( P R O 0003160 G N ( * i n m o s t o t 0003200 h e r c o n t e x t s , t u 0003220 r n s i n t o a P R O G 1 0003240 ) \r \t \t ( C O M P . P R O G 1 0003260 F O R M S ) ] \r \r ( D E F M A C 0003300 R O \ F R A M E N E X T B Y T 0003320 E ( F R A M E ) \r \t ( \ G E T 0003340 B A S E B Y T E ( f e t c h 0003360 ( F X F N H E A D E R ) o f 0003400 F R A M E ) ( f e t c h ( 0003420 F X P C ) o f F R A M E ) 0003440 ) ) \r \r ( D E F I N E Q ( \ M V 0003460 - R E T U R N N ( * t 0003500 h i s i s p u r e I n t e 0003520 r l i s p - D ) \r ( U N I N T 0003540 E R R U P T A B L Y ( * 0003560 b e c a u s e i t s m o d i 0003600 f y i n g t h e s t a c k ) 0003620 \r ( P R O G ( ( F R A M E 0003640 ( \ M Y A L I N K ) ) ) \r R E T 0003660 R Y ( S E L E C T C ( \ F R 0003700 A M E N E X T B Y T E F R A M 0003720 E ) \r ( ( O P # 0003740 R E T U R N ) ( * t a i l 0003760 r e c u r s i v e c a l l - 0004000 b a c k u p a f r a m e 0004020 a n d t r y a g a i n ) \r \t 0004040 \t \t ( S E T Q F R A M E ( F 0004060 E T C H ( F X C L I N K ) 0004100 O F F R A M E ) ) \r \t \t \t ( \ 0004120 S M A S H L I N K N I L F R 0004140 A M E F R A M E ) \r \t \t \t ( G 0004160 O R E T R Y ) ) \r 0004200 ( ( ( O P # F N 0 ) ( O P 0004220 # F N 1 ) ) ( * F N 0 f 0004240 o r \ R E S T - M V - L I S T 0004260 a n d F N 1 f o r \ M V 0004300 - L I S T ) \r 0004320 ( S E L E C T Q ( \ F R A M E 0004340 N E X T F N F R A M E ) \r \t \t 0004360 ( \ M V - L I S T \r \t \t \t ( A D 0004400 D ( F E T C H ( F X P C ) 0004420 o f F R A M E ) 3 ) ( * 0004440 s k i p o v e r c a l l ) 0004460 \r \t \t \t ( R E T U R N ( f o r 0004500 I f r o m 1 t o N c 0004520 o l l e c t ( A R G N I ) 0004540 ) ) ) \r \t ( \ R E 0004560 S T - M V - L I S T \r \t \t \t ( A 0004600 D D ( F E T C H ( F X P C 0004620 ) o f F R A M E ) 3 ) ( 0004640 * s k i p o v e r t h e 0004660 c a l l ) \r \t \t \t ( S E L E C T 0004700 C ( \ F R A M E N E X T B Y T 0004720 E F R A M E ) \r \t \t \t 0004740 ( C O N S ( a d d ( f e t 0004760 c h ( F X P C ) o f F R 0005000 A M E ) 1 ) ( * s k i p 0005020 o v e r t h e C O N S t o 0005040 o ) \r \t \t \t \t ( R E T U R N 0005060 ( f o r I f r o m 1 t o 0005100 N c o l l e c t ( A R G 0005120 N I ) ) ) ) \r 0005140 ( F N 0 0005160 ( i f ( E Q ( \ F R A M E 0005200 N E X T F N F R A M E ) \r \t 0005220 \t \t ( P R O G N . . . s e e 0005240 b e l o w . . . ) ) \r \t \t N I 0005260 L ) \r N I L ) \r \r 0005300 R E T N O R M A L \r 0005320 ( R E T U R N ( i f ( E Q 0005340 N 0 ) t h e n N I L e 0005360 l s e ( A R G N 1 ] \r \r ( 0005400 D E F U N \ F R A M E N E X T 0005420 F N ( F R A M E ) \r ( 0005440 L E T ( ( B A S E ( F E T C H 0005460 ( F X F N H E A D E R ) O 0005500 F F R A M E ) ) ( P C ( F 0005520 E T C H ( F X P C ) O F 0005540 F R A M E ) ) ) \r \t ( \ V A G 2 0005560 0 ( L O G O R ( L S H ( 0005600 \ G E T B A S E B Y T E B A S 0005620 E ( + P C 1 ) ) 8 ) ( 0005640 \ G E T B A S E B Y T E B A S 0005660 E ( + P C 2 ) ) ) ) ) ) \r 0005700 \r ( D E F M A C R O M U L T I 0005720 P L E - V A L U E - C A L L ( 0005740 F U N C T I O N & R E S T F 0005760 O R M S ) \r ` ( A P P L Y 0006000 , F U N C T I O N \r 0006020 , ( M V - C O L L E C T F O R 0006040 M S ) ) ) \r \r ( D E F M A C R O 0006060 M U L T I P L E - V A L U E - 0006100 B I N D ( V A R S V A L U E 0006120 S - F O R M & R E S T T A I 0006140 L ) \r ( D E S T R U C T 0006160 U R I N G - B I N D ( , V A R 0006200 S ( M U L T I P L E - V A L U 0006220 E - L I S T , @ V A L U E S - 0006240 F O R M ) ) , @ T A I L ) \r \r 0006260 ( * n o t v e r y s a t i 0006300 s f a c t o r y , t r y : ) \r 0006320 ` ( L E T , ( M V B 0006340 V A R S V A L U E S - F O R M 0006360 ) , @ T A I L ) ) \r \r ( D E F 0006400 U N M V B ( V A R S V A L 0006420 U E S ) \r ( C O N S 0006440 ( L I S T ( O R ( C A R V 0006460 A R S ) ' D U M M Y ) V A L 0006500 U E S ) ( M V B - 1 ( C D R 0006520 V A R S ) ) ) ) \r \r ( D E F U 0006540 N M V B - 1 ( V A R S ) \r 0006560 ( A N D V A R S ( I F 0006600 ( C D R V A R S ) T H E N 0006620 ` ( ( , ( C A R V A R S ) ( 0006640 \ S P R E A D ( \ M V - R E S T 0006660 - L I S T ) ) ) , @ ( M V B - 0006700 2 ( C D R V A R S ) ) ) \r 0006720 E 0006740 L S E ` ( ( , ( C A R V A R 0006760 S ) ( C A R ( \ M V - R E S 0007000 T - L I S T ) ) ) ) ) ) ) \r \r ( 0007020 D E F U N M V B - 2 ( V A R 0007040 S ) \r ( I F ( C D R V 0007060 A R S ) T H E N ` ( ( , ( C 0007100 A R V A R S ) ( \ S P R E A 0007120 D , D O N O T H I N G ) ) , 0007140 @ ( M V B - 2 ( C D R V A R 0007160 S ) ) ) \r E L S E ` ( 0007200 ( , ( C A R V A R S ) ( C A 0007220 R , D O N O T H I N G ) ) ) ) 0007240 ) ) \r \r ( * t h i s i s a 0007260 n a w f u l h a c k t o 0007300 g e t a s i m p l e d e s 0007320 t r u c t u r i n g b i n d ) 0007340 \r \r ( D E F U N M V - C O L L 0007360 E C T ( F O R M S ) \r 0007400 ( A N D F O R M S ` ( C O N 0007420 S , ( C A R F O R M S ) ( 0007440 N C O N C ( R E S T - M V - L 0007460 I S T ) , ( M V - C O L L E C 0007500 T ( C D R F O R M S ) ) ) ) 0007520 ) ) \r \r ( D E F M A C R O M U 0007540 L T I P L E - V A L U E - P R O 0007560 G 1 ( F O R M & R E S T F 0007600 O R M S ) ( * n o t w o r 0007620 t h t u n i n g ) \r ` 0007640 ( V A L U E S - L I S T ( P R 0007660 O G 1 ( M U L T I P L E - V A 0007700 L U E S - L I S T , F O R M ) 0007720 , @ F O R M S ) ) ) ) \r \r ( D 0007740 E F C O N S T A N T M U L T I 0007760 P L E - V A L U E S - L I M I T 0010000 1 0 0 0 ) \r \r \r \r H a r d c 0010020 a s e s : \r I n C O M P . 0010040 V A L U E S w h e n C O M P 0010060 I L E . C O N T E X T i s M 0010100 V - L I S T , n e e d s t o 0010120 c o m p i l e c o d e t o 0010140 l i s t t h e v a l u e s 0010160 a n d r e t u r n M V - L 0010200 I S T E D ; i f t h e c o 0010220 n t e x t i s M V - S P R E 0010240 A D , n e e d t o r e t u 0010260 r n t h a t t o o . \r \r \0 \0 0010300 \0 \0 \0 004 \0 004 \0 026 \0 \b T E R M I N 0010320 A L \0 \f \0 \0 \0 \0 \0 \0 \0 \0 \0 026 \0 \b 0010340 T E R M I N A L \0 \n \0 \0 \0 \0 \0 \0 0010360 \0 \0 \0 030 \0 \n T I M E S R O M A N 0010400 \0 \f \0 \0 \0 \0 \0 \0 \0 \0 \0 030 \0 \n T I 0010420 M E S R O M A N \0 \n \0 \0 \0 \0 \0 \0 0010440 \0 \0 \0 \0 001 237 \0 \0 \0 \0 004 \0 \0 \0 002 \0 0010460 \0 \0 \0 003 \0 \0 016 f \0 \0 \0 \0 002 \0 \0 \0 0010500 001 \0 \0 \0 \0 001 \0 \0 \0 002 \0 \0 \0 \0 003 \0 0010520 \0 \0 264 \0 \0 \0 \0 004 \0 \0 020 276 \0 006 z 272 0010540