[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-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 at 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)))