Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv6951
Modified Files: compiler.lisp Log Message: Fixed bug in make-load-lexical: Loading a constant into :untagged-fixnum-ecx would load the boxed fixnum rather than the unboxed value.
Date: Wed Sep 7 00:00:18 2005 Author: ffjeld
Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.163 movitz/compiler.lisp:1.164 --- movitz/compiler.lisp:1.163 Fri Sep 2 00:52:58 2005 +++ movitz/compiler.lisp Wed Sep 7 00:00:17 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.163 2005/09/01 22:52:58 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.164 2005/09/06 22:00:17 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -3546,7 +3546,7 @@ (type-specifier-singleton decoded-type)) #+ignore (warn "Immloadlex: ~S" (type-specifier-singleton decoded-type)) - (make-immediate-move (movitz-immediate-value + (make-immediate-move (movitz-fixnum-value (car (type-specifier-singleton decoded-type))) :ecx)) ((and binding-type