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@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)