0.7.4.31:

[sbcl.git] / src / compiler / meta-vmdef.lisp

diff --git a/src/compiler/meta-vmdef.lisp b/src/compiler/meta-vmdef.lisp
index 41bf2e0..03ab8e6 100644 (file)
--- a/src/compiler/meta-vmdef.lisp
+++ b/src/compiler/meta-vmdef.lisp
@@ -83,9 +83,9 @@
        (/show0 "finished with DEFINE-STORAGE-BASE expansion")
        ',name)))
 
-;;; Define a storage class Name that uses the named Storage-Base. Number is a 
-;;; small, non-negative integer that is used as an alias. The following
-;;; keywords are defined:
+;;; Define a storage class NAME that uses the named Storage-Base.
+;;; NUMBER is a small, non-negative integer that is used as an alias.
+;;; The following keywords are defined:
 ;;;
 ;;; :ELEMENT-SIZE Size
 ;;;   The size of objects in this SC in whatever units the SB uses.
@@ -1911,7 +1911,7 @@
           (let ((,ltns (ir2-block-local-tns ,n-block)))
             ;; Do TNs always-live in this block and live :MORE TNs.
             (do ((,n-conf (ir2-block-global-tns ,n-block)
-                          (global-conflicts-next ,n-conf)))
+                          (global-conflicts-next-blockwise ,n-conf)))
                 ((null ,n-conf))
               (when (or (eq (global-conflicts-kind ,n-conf) :live)
                         (let ((,i (global-conflicts-number ,n-conf)))