X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcontrol.lisp;h=5df3e2f51fddcf7bbf64baf33d6e942c74d495b3;hb=237ecea4a44f33d40440ea40c67c54e9e23358b3;hp=9259a02a5a651afcf0d63b593739fe305fe3fb33;hpb=b05f52060838600d14b5d8ad4604a61351dd7017;p=sbcl.git

diff --git a/src/compiler/control.lisp b/src/compiler/control.lisp
index 9259a02..5df3e2f 100644
--- a/src/compiler/control.lisp
+++ b/src/compiler/control.lisp
@@ -163,7 +163,7 @@
 				   block-info-constructor)))))))
   (values))
 
-;;; Do control analysis on Component, finding the emit order. Our only
+;;; Do control analysis on COMPONENT, finding the emit order. Our only
 ;;; cleverness here is that we walk XEP's first to increase the
 ;;; probability that the tail call will be a drop-through.
 ;;;