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

Modified Files: compiler.lisp Log Message: Teach make-compiled-stack-restore about :untagged-fixnum-ecx.

Date: Wed Feb 2 08:49:00 2005 Author: ffjeld

Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.133 movitz/compiler.lisp:1.134 --- movitz/compiler.lisp:1.133 Mon Jan 31 15:11:14 2005 +++ movitz/compiler.lisp Wed Feb 2 08:48:58 2005 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.133 2005/01/31 14:11:14 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.134 2005/02/02 07:48:58 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -5369,7 +5369,7 @@ ((:single-value :eax :ebx) (values `((:addl ,(* 4 stack-displacement) :esp)) :multiple-values)))) ; assume this addl will set CF=0 - ((:single-value :eax :ebx :ecx :edx :push :lexical-binding + ((:single-value :eax :ebx :ecx :edx :push :lexical-binding :untagged-fixnum-ecx :boolean :boolean-branch-on-false :boolean-branch-on-true) (ecase returns (#.+boolean-modes+