X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran.lisp;h=0002cb214aad8fd92288ded92c10fb972d399ad2;hb=96b310113978665980a8d65ad5dd83deab05c28b;hp=456e025849b186067bce16cc579463626c7b8947;hpb=dea9bd5c1afe23d9e061c60db654b88187ba9a5e;p=sbcl.git

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index 456e025..0002cb2 100644
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -758,6 +758,7 @@
     (setf (continuation-dest fun-cont) node)
     (assert-continuation-type fun-cont
 			      (specifier-type '(or function symbol)))
+    (setf (continuation-%externally-checkable-type fun-cont) nil)
     (collect ((arg-conts))
       (let ((this-start fun-cont))
 	(dolist (arg args)
@@ -1494,6 +1495,7 @@
 	      (setf (lambda-tail-set lambda) tail-set)
 	      (setf (lambda-return lambda) return)
 	      (setf (continuation-dest result) return)
+              (setf (continuation-%externally-checkable-type result) nil)
 	      (setf (block-last block) return)
 	      (link-node-to-previous-continuation return result)
 	      (use-continuation return dummy))