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@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)))))