From c756aeb543e61179945ec7982d1f5be036b2d253 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 23 Nov 2004 15:07:17 +0000
Subject: [PATCH] Discarded data is compiled with C2EXPR\*

---
 src/cmp/cmpmulti.lsp | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/src/cmp/cmpmulti.lsp b/src/cmp/cmpmulti.lsp
index 840aa3105..074438f61 100644
--- a/src/cmp/cmpmulti.lsp
+++ b/src/cmp/cmpmulti.lsp
@@ -81,7 +81,7 @@
    ;; When the values are not going to be used, then just
    ;; process each form separately.
    ((eq *destination* 'TRASH)
-    (mapc #'c2expr forms))
+    (mapc #'c2expr* forms))
    ;; For (VALUES) we can replace the output with either NIL (if the value
    ;; is actually used) and set only NVALUES when the value is the output
    ;; of a function.
@@ -311,13 +311,13 @@
 
 ;;; ----------------------------------------------------------------------
 
-(put-sysprop 'multiple-value-call 'c1special #'c1multiple-value-call)
-(put-sysprop 'multiple-value-call 'c2 #'c2multiple-value-call)
-(put-sysprop 'multiple-value-prog1 'c1special #'c1multiple-value-prog1)
-(put-sysprop 'multiple-value-prog1 'c2 #'c2multiple-value-prog1)
-(put-sysprop 'values 'c1 #'c1values)
-(put-sysprop 'values 'c2 #'c2values)
-(put-sysprop 'multiple-value-setq 'c1 #'c1multiple-value-setq)
-(put-sysprop 'multiple-value-setq 'c2 #'c2multiple-value-setq)
-(put-sysprop 'multiple-value-bind 'c1 #'c1multiple-value-bind)
-(put-sysprop 'multiple-value-bind 'c2 #'c2multiple-value-bind)
+(put-sysprop 'multiple-value-call 'c1special 'c1multiple-value-call)
+(put-sysprop 'multiple-value-call 'c2 'c2multiple-value-call)
+(put-sysprop 'multiple-value-prog1 'c1special 'c1multiple-value-prog1)
+(put-sysprop 'multiple-value-prog1 'c2 'c2multiple-value-prog1)
+(put-sysprop 'values 'c1 'c1values)
+(put-sysprop 'values 'c2 'c2values)
+(put-sysprop 'multiple-value-setq 'c1 'c1multiple-value-setq)
+(put-sysprop 'multiple-value-setq 'c2 'c2multiple-value-setq)
+(put-sysprop 'multiple-value-bind 'c1 'c1multiple-value-bind)
+(put-sysprop 'multiple-value-bind 'c2 'c2multiple-value-bind)