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

Modified Files: compiler.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:20 2004 Author: ffjeld

Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.85 movitz/compiler.lisp:1.86 --- movitz/compiler.lisp:1.85 Fri Jul 23 18:32:06 2004 +++ movitz/compiler.lisp Wed Jul 28 03:00:20 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.85 2004/07/24 01:32:06 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.86 2004/07/28 10:00:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -499,6 +499,8 @@ (setf (binding-store-type binding) (cond ((not (null (type-analysis-thunks analysis))) +;;; (when (not (rest (type-analysis-thunks analysis))) +;;; (warn "One thunk: ~S for ~S" binding (first (type-analysis-thunks analysis)))) (multiple-value-list (type-specifier-encode t))) (t (type-analysis-encoded-type analysis)))) #+ignore @@ -1520,7 +1522,7 @@ (when (instruction-is op :call) (let ((x (global-constant-operand (second op)))) (flet ((try (name) - (and (eql x (slot-offset 'movitz-constant-block name)) + (and (eql x (slot-offset 'movitz-run-time-context name)) name))) (cond ((not x) nil) @@ -3555,7 +3557,7 @@ ((atom tree) tree) ((eq :edi-offset (car tree)) - (check-type (cadr tree) symbol "a Movitz constant-block label") + (check-type (cadr tree) symbol "a Movitz run-time-context label") (+ (global-constant-offset (cadr tree)) (reduce #'+ (cddr tree)))) (t (cons (fix-edi-offset (car tree))