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

Modified Files: more-macros.lisp Log Message: Change the name "constant-block" to "run-time-context" so as to be consistent. "Run-time-context" is the name that's I've been using in newer documentation and code.

Date: Wed Jul 28 03:01:16 2004 Author: ffjeld

Index: movitz/losp/muerte/more-macros.lisp diff -u movitz/losp/muerte/more-macros.lisp:1.16 movitz/losp/muerte/more-macros.lisp:1.17 --- movitz/losp/muerte/more-macros.lisp:1.16 Tue Jul 20 16:51:15 2004 +++ movitz/losp/muerte/more-macros.lisp Wed Jul 28 03:01:16 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.16 2004/07/20 23:51:15 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.17 2004/07/28 10:01:16 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -328,7 +328,8 @@ (equal context '(current-run-time-context)))) form (let ((slot-name (movitz::eval-form slot-name env))) - (ecase (bt:binary-slot-type 'movitz::movitz-constant-block (intern (symbol-name slot-name) :movitz)) + (ecase (bt:binary-slot-type 'movitz::movitz-run-time-context + (intern (symbol-name slot-name) :movitz)) (movitz::word `(with-inline-assembly (:returns :eax) (:locally (:movl (:edi (:edi-offset ,slot-name)) :eax))))