X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpack.lisp;h=b0a94674d3cf39a556dac91d16cb0fa47d1e4d59;hb=5ec8d0c1c8b7939818b75118b472fac1af554f9a;hp=50e4400774839dcac681a81839d9d51218230226;hpb=c614e496a22086f6aa1a747e4bef883c74b8a597;p=sbcl.git

diff --git a/src/compiler/pack.lisp b/src/compiler/pack.lisp
index 50e4400..b0a9467 100644
--- a/src/compiler/pack.lisp
+++ b/src/compiler/pack.lisp
@@ -742,7 +742,7 @@
 	
 ;;; Like EMIT-SAVES, only different. We avoid redundant saving within
 ;;; the block, and don't restore values that aren't used before the
-;;; next call. This function is just the top-level loop over the
+;;; next call. This function is just the top level loop over the
 ;;; blocks in the component, which locates blocks that need saving
 ;;; done.
 (defun optimized-emit-saves (component)