Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv16448
Modified Files: run-time-context.lisp Log Message: Fixed bug in (setf %run-time-context-slot) for slots of type code-vector-word.
Date: Thu Jul 15 04:17:02 2004 Author: ffjeld
Index: movitz/losp/muerte/run-time-context.lisp diff -u movitz/losp/muerte/run-time-context.lisp:1.7 movitz/losp/muerte/run-time-context.lisp:1.8 --- movitz/losp/muerte/run-time-context.lisp:1.7 Thu Jul 8 11:53:57 2004 +++ movitz/losp/muerte/run-time-context.lisp Thu Jul 15 04:17:02 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.7 2004/07/08 18:53:57 ffjeld Exp $ +;;;; $Id: run-time-context.lisp,v 1.8 2004/07/15 11:17:02 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -90,7 +90,7 @@ (lu32 (setf (memref context -6 (third slot) :unsigned-byte32) value)) (code-vector-word - (setf (memref context -6 (third slot) :unsigned-byte32) value))))) + (setf (memref context -6 (third slot) :code-vector) value)))))
(defun %run-time-context-segment-base (slot-name &optional (context (current-run-time-context)))