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