X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcopyprop.lisp;h=3bae5579822fadc1ac92da91faa6a7388190c6eb;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=a04f306eaaedf41c69f696f15708a8740c9c1917;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/copyprop.lisp b/src/compiler/copyprop.lisp
index a04f306..3bae557 100644
--- a/src/compiler/copyprop.lisp
+++ b/src/compiler/copyprop.lisp
@@ -13,9 +13,6 @@
 
 (in-package "SB!C")
 
-(file-comment
-  "$Header$")
-
 ;;; In copy propagation, we manipulate sets of TNs. We only consider TNs whose
 ;;; sole write is by a MOVE VOP. This allows us to use a degenerate version of
 ;;; reaching definitions: since each such TN has only one definition, the TN
@@ -218,8 +215,9 @@
 
   (values))
 
-;;; Do copy propagation on Component by initializing the flow analysis sets,
-;;; doing flow analysis, and then propagating copies using the results.
+;;; Do copy propagation on COMPONENT by initializing the flow analysis
+;;; sets, doing flow analysis, and then propagating copies using the
+;;; results.
 (defun copy-propagate (component)
   (setf (block-out (component-head component)) (make-sset))
   (do-blocks (block component)