[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

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