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

Modified Files: run-time-context.lisp Log Message: Use the (memref ... :code-vector) rather than the %word-offset hack.

Date: Wed Sep 22 19:55:34 2004 Author: ffjeld

Index: movitz/losp/muerte/run-time-context.lisp diff -u movitz/losp/muerte/run-time-context.lisp:1.11 movitz/losp/muerte/run-time-context.lisp:1.12 --- movitz/losp/muerte/run-time-context.lisp:1.11 Wed Jul 28 12:01:23 2004 +++ movitz/losp/muerte/run-time-context.lisp Wed Sep 22 19:55:34 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.11 2004/07/28 10:01:23 ffjeld Exp $ +;;;; $Id: run-time-context.lisp,v 1.12 2004/09/22 17:55:34 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -32,13 +32,12 @@ (error "No run-time-context slot named ~S in ~S." slot-name context))))

(defun %run-time-context-slot (slot-name &optional (context (current-run-time-context))) - (check-type context run-time-context) (let ((slot (find-run-time-context-slot context slot-name))) (ecase (second slot) (word (memref context -6 (third slot) :lisp)) (code-vector-word - (%word-offset (memref context -6 (third slot) :lisp) -2)) + (memref context -6 (third slot) :code-vector)) (lu32 (memref context -6 (third slot) :unsigned-byte32)))))