X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpack.lisp;h=c963ee17192bc2cb4850f645c35c27e4e5b9a416;hb=e049902f5e7c30501d2dbb7a41d058a0c717fc1f;hp=01cafe4fa07cf36cb0ff626e30775b222aa02da9;hpb=581e3d62de8cb37e13ad9db63e5537c0f962be28;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*)