[movitz-cvs] CVS update: movitz/procfs-image.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	procfs-image.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:00:40 2004
Author: ffjeld

Index: movitz/procfs-image.lisp
diff -u movitz/procfs-image.lisp:1.11 movitz/procfs-image.lisp:1.12
--- movitz/procfs-image.lisp:1.11	Fri Jul 23 08:32:55 2004
+++ movitz/procfs-image.lisp	Wed Jul 28 03:00:40 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Aug 24 11:39:37 2001
 ;;;;                
-;;;; $Id: procfs-image.lisp,v 1.11 2004/07/23 15:32:55 ffjeld Exp $
+;;;; $Id: procfs-image.lisp,v 1.12 2004/07/28 10:00:40 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -109,7 +109,7 @@
     (cons (mapcar #'movitz-print expr))
     ((not movitz-object)
      expr)
-    ((or movitz-nil movitz-constant-block) nil)
+    ((or movitz-nil movitz-run-time-context) nil)
     (movitz-std-instance expr)
     (movitz-symbol
      (intern (movitz-print (movitz-symbol-name expr))))
@@ -242,7 +242,7 @@
 
 
 (defun current-dynamic-context ()
-  (slot-value (image-constant-block *image*) 'dynamic-env))
+  (slot-value (image-run-time-context *image*) 'dynamic-env))
 
 (defun stack-ref-p (pointer)
   (let ((top #xa0000)
@@ -265,7 +265,7 @@
   (stack-ref dynamic-context 4 0 :lisp))
 
 (defun load-global-constant (slot-name)
-  (slot-value (image-constant-block *image*) slot-name))
+  (slot-value (image-run-time-context *image*) slot-name))
 
 (defun image-eq (x y)
   (eql (movitz-intern x) (movitz-intern y)))