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

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
(global-constant-offset 'unbound-function) was calculated incorrectly.

Date: Wed Jul 28 18:59:13 2004
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.55 movitz/image.lisp:1.56
--- movitz/image.lisp:1.55	Wed Jul 28 18:37:10 2004
+++ movitz/image.lisp	Wed Jul 28 18:59:13 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.55 2004/07/29 01:37:10 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.56 2004/07/29 01:59:13 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -519,7 +519,8 @@
     (if (not (eq slot-name 'unbound-function))
 	(slot-offset 'movitz-run-time-context slot-name)
       (+ (slot-offset 'movitz-run-time-context 'null-symbol)
-	 (slot-offset 'movitz-symbol 'function-value)))))
+	 (slot-offset 'movitz-symbol 'function-value)
+	 (tag :symbol)))))
 
 (defun make-movitz-run-time-context ()
   (make-instance 'movitz-run-time-context