X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran-lambda.lisp;h=ef8d4e0c21b450125c48a2c61b117cd1d3de00f6;hb=1b650be8b800cf96e2c268ae317fb26d0bf36827;hp=95fc019d370c721dca3be16aa5bed23c1430f191;hpb=28ce7a00cbce6d27b127fd6a2783325c8198a568;p=sbcl.git

diff --git a/src/compiler/ir1tran-lambda.lisp b/src/compiler/ir1tran-lambda.lisp
index 95fc019..ef8d4e0 100644
--- a/src/compiler/ir1tran-lambda.lisp
+++ b/src/compiler/ir1tran-lambda.lisp
@@ -298,12 +298,12 @@
 
     (setf (lambda-home lambda) lambda)
     (collect ((svars)
-             (new-venv nil cons))
+              (new-venv nil cons))
 
       (dolist (var vars)
 	;; As far as I can see, LAMBDA-VAR-HOME should never have
 	;; been set before. Let's make sure. -- WHN 2001-09-29
-	(aver (null (lambda-var-home var)))
+	(aver (not (lambda-var-home var)))
 	(setf (lambda-var-home var) lambda)
 	(let ((specvar (lambda-var-specvar var)))
 	  (cond (specvar
@@ -327,7 +327,6 @@
             (setf (lambda-tail-set lambda) tail-set)
             (setf (lambda-return lambda) return)
             (setf (continuation-dest result) return)
-            (flush-continuation-externally-checkable-type result)
             (setf (block-last block) return)
             (link-node-to-previous-continuation return result)
             (use-continuation return dummy))