Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv9076
Modified Files: run-time-context.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:23 2004 Author: ffjeld
Index: movitz/losp/muerte/run-time-context.lisp diff -u movitz/losp/muerte/run-time-context.lisp:1.10 movitz/losp/muerte/run-time-context.lisp:1.11 --- movitz/losp/muerte/run-time-context.lisp:1.10 Tue Jul 20 01:54:48 2004 +++ movitz/losp/muerte/run-time-context.lisp Wed Jul 28 03:01:23 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.10 2004/07/20 08:54:48 ffjeld Exp $ +;;;; $Id: run-time-context.lisp,v 1.11 2004/07/28 10:01:23 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -48,7 +48,7 @@ (equal context '(current-run-time-context)))) form (let ((slot-name (movitz:movitz-eval 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) (:compile-form (:result-mode :eax) ,value) @@ -114,8 +114,8 @@ (defun clone-run-time-context (&key (parent (current-run-time-context)) (name :anonymous)) (check-type parent run-time-context) - (let ((context (malloc-pointer-words #.(cl:truncate (bt:sizeof 'movitz::movitz-constant-block) 4)))) - (memcopy context parent -6 0 0 #.(bt:sizeof 'movitz::movitz-constant-block) + (let ((context (malloc-pointer-words #.(cl:truncate (bt:sizeof 'movitz::movitz-run-time-context) 4)))) + (memcopy context parent -6 0 0 #.(bt:sizeof 'movitz::movitz-run-time-context) :unsigned-byte8) (setf (%run-time-context-slot 'name context) name (%run-time-context-slot 'self context) context)