X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpack.lisp;h=c963ee17192bc2cb4850f645c35c27e4e5b9a416;hb=237ecea4a44f33d40440ea40c67c54e9e23358b3;hp=01cafe4fa07cf36cb0ff626e30775b222aa02da9;hpb=c7dc5b2a1f56ed0583a0b3ea61b6ceb540c6f89e;p=sbcl.git

diff --git a/src/compiler/pack.lisp b/src/compiler/pack.lisp
index 01cafe4..c963ee1 100644
--- a/src/compiler/pack.lisp
+++ b/src/compiler/pack.lisp
@@ -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*)