X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpack.lisp;h=727db034203f5f3600fc370258814223dd320de3;hb=ef11b09c41b1e344212f6a363892a849af7ff94e;hp=e45542530d81d5ff17ff681f0e268386b590ac90;hpb=34dd23563d2f5cf05c72b971da0d0b065a09bf2a;p=sbcl.git

diff --git a/src/compiler/pack.lisp b/src/compiler/pack.lisp
index e455425..727db03 100644
--- a/src/compiler/pack.lisp
+++ b/src/compiler/pack.lisp
@@ -52,7 +52,7 @@
      (confs
       (let ((loc-confs (svref (finite-sb-conflicts sb) offset))
 	    (loc-live (svref (finite-sb-always-live sb) offset)))
-	(do ((conf confs (global-conflicts-tn-next conf)))
+	(do ((conf confs (global-conflicts-next-tnwise conf)))
 	    ((null conf)
 	     nil)
 	  (let* ((block (global-conflicts-block conf))
@@ -109,7 +109,7 @@
 	    (setf (sbit loc-live num) 1)
 	    (set-bit-vector (svref loc-confs num))))
 	 (confs
-	  (do ((conf confs (global-conflicts-tn-next conf)))
+	  (do ((conf confs (global-conflicts-next-tnwise conf)))
 	      ((null conf))
 	    (let* ((block (global-conflicts-block conf))
 		   (num (ir2-block-number block))
@@ -254,7 +254,7 @@
     (dolist (sb *backend-sb-list*)
       (unless (eq (sb-kind sb) :non-packed)
 	(let ((size (sb-size sb)))
-	  (fill nil (finite-sb-always-live sb))
+	  (fill (finite-sb-always-live sb) nil)
 	  (setf (finite-sb-always-live sb)
 		(make-array size
 			    :initial-element
@@ -265,11 +265,11 @@
 			    ;; until runtime.
 			    #+sb-xc (make-array 0 :element-type 'bit)))
 
-	  (fill nil (finite-sb-conflicts sb))
+	  (fill (finite-sb-conflicts sb) nil)
 	  (setf (finite-sb-conflicts sb)
 		(make-array size :initial-element '#()))
 
-	  (fill nil (finite-sb-live-tns sb))
+	  (fill (finite-sb-live-tns sb) nil)
 	  (setf (finite-sb-live-tns sb)
 		(make-array size :initial-element nil))))))
   (values))