X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran-lambda.lisp;h=6971a7206cb41bfacbd7a4a536647873dfafe7e7;hb=6053e7f804b430144bb09e2d107ad4ab3fb97db4;hp=00b772025b3e95a3c49fbba2743270a80d2e3e96;hpb=57e21c4b62e8c1a1ee7ef59ed2abb0c864fb06bc;p=sbcl.git

diff --git a/src/compiler/ir1tran-lambda.lisp b/src/compiler/ir1tran-lambda.lisp
index 00b7720..6971a72 100644
--- a/src/compiler/ir1tran-lambda.lisp
+++ b/src/compiler/ir1tran-lambda.lisp
@@ -207,7 +207,7 @@
            (list body aux-vars aux-vals))
   (if (null aux-vars)
       (ir1-convert-progn-body start next result body)
-      (let ((fun-ctran (make-ctran))
+      (let ((ctran (make-ctran))
             (fun-lvar (make-lvar))
 	    (fun (ir1-convert-lambda-body body
  					  (list (first aux-vars))
@@ -216,8 +216,8 @@
  					  :debug-name (debug-namify
  						       "&AUX bindings ~S"
  						       aux-vars))))
-	(reference-leaf start fun-ctran fun-lvar fun)
-	(ir1-convert-combination-args fun-ctran fun-lvar next result
+	(reference-leaf start ctran fun-lvar fun)
+	(ir1-convert-combination-args fun-lvar ctran next result
 				      (list (first aux-vals)))))
   (values))
 
@@ -227,11 +227,11 @@
 ;;; the body, otherwise we do one special binding and recurse on the
 ;;; rest.
 ;;;
-;;; We make a cleanup and introduce it into the lexical environment.
-;;; If there are multiple special bindings, the cleanup for the blocks
-;;; will end up being the innermost one. We force CONT to start a
-;;; block outside of this cleanup, causing cleanup code to be emitted
-;;; when the scope is exited.
+;;; We make a cleanup and introduce it into the lexical
+;;; environment. If there are multiple special bindings, the cleanup
+;;; for the blocks will end up being the innermost one. We force NEXT
+;;; to start a block outside of this cleanup, causing cleanup code to
+;;; be emitted when the scope is exited.
 (defun ir1-convert-special-bindings
     (start next result body aux-vars aux-vals svars)
   (declare (type ctran start next) (type (or lvar null) result)