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

Modified Files: run-time-context.lisp Log Message: Removed references to the old movitz-vector class.

Date: Thu Jul 8 11:53:57 2004 Author: ffjeld

Index: movitz/losp/muerte/run-time-context.lisp diff -u movitz/losp/muerte/run-time-context.lisp:1.6 movitz/losp/muerte/run-time-context.lisp:1.7 --- movitz/losp/muerte/run-time-context.lisp:1.6 Mon Apr 19 08:05:01 2004 +++ movitz/losp/muerte/run-time-context.lisp Thu Jul 8 11:53:57 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.6 2004/04/19 15:05:01 ffjeld Exp $ +;;;; $Id: run-time-context.lisp,v 1.7 2004/07/08 18:53:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -78,7 +78,7 @@ (movitz:code-vector-word `(with-inline-assembly (:returns :eax) (:compile-form (:result-mode :eax) ,value) - (:leal (:eax ,(bt:slot-offset 'movitz:movitz-vector 'movitz::data)) :ecx) + (:leal (:eax ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data)) :ecx) (:locally (:movl :ecx (:edi (:edi-offset ,slot-name))))))))))

(defun (setf %run-time-context-slot) (value slot-name &optional (context (current-run-time-context)))