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

[Frode Vatvedt Fjeld]

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

Modified Files:
	stream-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:59 2004
Author: ffjeld

Index: movitz/stream-image.lisp
diff -u movitz/stream-image.lisp:1.9 movitz/stream-image.lisp:1.10
--- movitz/stream-image.lisp:1.9	Fri Jul 23 08:34:36 2004
+++ movitz/stream-image.lisp	Wed Jul 28 03:00:59 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Mon Aug 27 14:46:50 2001
 ;;;;                
-;;;; $Id: stream-image.lisp,v 1.9 2004/07/23 15:34:36 ffjeld Exp $
+;;;; $Id: stream-image.lisp,v 1.10 2004/07/28 10:00:59 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -51,7 +51,7 @@
       (value)
     "Unable to set memory-stream's file-position to #x~X." value))
 
-(defmethod image-constant-block ((image stream-image))
+(defmethod image-run-time-context ((image stream-image))
   (movitz-word (image-register32 image :edi)))
 
 (defmethod movitz-word-by-image ((image stream-image) word)
@@ -65,11 +65,11 @@
 		   (make-instance 'movitz-character :char (code-char (ldb (byte 8 8) word))))
 		  (:null
 		   #+ignore
-		   (assert (= (- word (tag :null)) (image-constant-block-address image)) (word)
+		   (assert (= (- word (tag :null)) (image-run-time-context-address image)) (word)
 		     "The word #x~8,'0X has NIL tag but isn't NIL." word)
 		   (setf (image-stream-position image) 0 #+ignore (- word (tag :null)))
-		   (let ((object (read-binary 'movitz-constant-block (image-stream image))))
-		     (setf (movitz-heap-object-word (movitz-constant-block-null-symbol object))
+		   (let ((object (read-binary 'movitz-run-time-context (image-stream image))))
+		     (setf (movitz-heap-object-word (movitz-run-time-context-null-symbol object))
 		       word)
 		     object))
 		  (:symbol