[movitz-cvs] CVS update: movitz/losp/muerte/run-time-context.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	run-time-context.lisp 
Log Message:
Write %run-time-context-slot in terms of %word-offset.

Date: Tue Mar 30 04:12:35 2004
Author: ffjeld

Index: movitz/losp/muerte/run-time-context.lisp
diff -u movitz/losp/muerte/run-time-context.lisp:1.2 movitz/losp/muerte/run-time-context.lisp:1.3
--- movitz/losp/muerte/run-time-context.lisp:1.2	Thu Mar 18 04:23:01 2004
+++ movitz/losp/muerte/run-time-context.lisp	Tue Mar 30 04:12:35 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Nov 12 18:33:02 2003
 ;;;;                
-;;;; $Id: run-time-context.lisp,v 1.2 2004/03/18 09:23:01 ffjeld Exp $
+;;;; $Id: run-time-context.lisp,v 1.3 2004/03/30 09:12:35 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -56,7 +56,7 @@
       (word
        (memref context -6 (third slot) :lisp))
       (code-vector-word
-       (memref context -6 (third slot) :lisp-code-vector))
+       (%word-offset (memref context -6 (third slot) :lisp) -2))
       (lu32
        (memref context -6 (third slot) :unsigned-byte32)))))