[movitz-cvs] CVS update: movitz/special-operators.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv2317

Modified Files:
	special-operators.lisp 
Log Message:
Fixed stupid bug in previous fix to values compiler.

Date: Wed Apr 27 01:45:48 2005
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.50 movitz/special-operators.lisp:1.51
--- movitz/special-operators.lisp:1.50	Mon Apr 25 00:08:39 2005
+++ movitz/special-operators.lisp	Wed Apr 27 01:45:48 2005
@@ -8,7 +8,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 24 16:22:59 2000
 ;;;;                
-;;;; $Id: special-operators.lisp,v 1.50 2005/04/24 22:08:39 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.51 2005/04/26 23:45:48 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1132,12 +1132,9 @@
 				     `(:locally (:popl (:edi (:edi-offset values ,(* i 4))))))
 			       (make-immediate-move (* +movitz-fixnum-factor+ (- (length sub-forms) 2))
 						    :ecx)
-			       `((:locally (:movl :ecx (:edi (:edi-offset num-values))))
-				 (:stc))
-			       #+ignore
-			       (make-compiled-funcall-by-symbol 'muerte.cl::values
-								(length sub-forms)
-								(all :funobj))
+			       `((:locally (:movl :ecx (:edi (:edi-offset num-values)))))
+			       (make-immediate-move (length sub-forms) :ecx)
+			       `((:stc))
 			       stack-restore-code)))))))))
 
 (define-special-operator muerte::compiler-typecase (&all all &form form)