X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=4a8ab1902a197c5f81804b146a699e744b2c11f4;hb=6053e7f804b430144bb09e2d107ad4ab3fb97db4;hp=bf6507b29d60c3f3806fc739bf00ea127b4fe6e5;hpb=d4b738d6c0b354de817fa490b50814e40872b3d0;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index bf6507b..4a8ab19 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -948,11 +948,10 @@
   (values))
 
 ;;; Actually do LET conversion. We call subfunctions to do most of the
-;;; work. We change the CALL's CONT to be the continuation heading the
-;;; BIND block, and also do REOPTIMIZE-LVAR on the args and
-;;; CONT so that LET-specific IR1 optimizations get a chance. We blow
-;;; away any entry for the function in *FREE-FUNS* so that nobody
-;;; will create new references to it.
+;;; work. We do REOPTIMIZE-LVAR on the args and CALL's lvar so that
+;;; LET-specific IR1 optimizations get a chance. We blow away any
+;;; entry for the function in *FREE-FUNS* so that nobody will create
+;;; new references to it.
 (defun let-convert (fun call)
   (declare (type clambda fun) (type basic-combination call))
   (let ((next-block (if (node-tail-p call)