X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpack.lisp;h=c963ee17192bc2cb4850f645c35c27e4e5b9a416;hb=9ef324a619b3ea13ba688d4be2ef22931e62a744;hp=77312a585f80f2e28cc9598426a8170bd89c939c;hpb=35fecfc13c93b85d30a23375ca2850cbbf4a923e;p=sbcl.git

diff --git a/src/compiler/pack.lisp b/src/compiler/pack.lisp
index 77312a5..c963ee1 100644
--- a/src/compiler/pack.lisp
+++ b/src/compiler/pack.lisp
@@ -31,7 +31,7 @@
 ;;;    any of the component's blocks (always-live /= 0), then there
 ;;;    is a conflict.
 ;;; -- If TN is global (Confs true), then iterate over the blocks TN
-;;;    is live in (using TN-Global-Conflicts). If the TN is live
+;;;    is live in (using TN-GLOBAL-CONFLICTS). If the TN is live
 ;;;    everywhere in the block (:LIVE), then there is a conflict
 ;;;    if the element at offset is used anywhere in the block
 ;;;    (Always-Live /= 0). Otherwise, we use the local TN number for
@@ -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))
@@ -805,7 +805,7 @@
 (defvar *repack-blocks*)
 (declaim (type (or hash-table null) *repack-blocks*))
 
-;;; Set the Live-TNs vectors in all :FINITE SBs to represent the TNs
+;;; Set the LIVE-TNS vectors in all :FINITE SBs to represent the TNs
 ;;; live at the end of BLOCK.
 (defun init-live-tns (block)
   (dolist (sb *backend-sb-list*)