X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fphysenvanal.lisp;h=cf4386560ea52425d6ff35cb4ab66445a773638f;hb=ec066d84dd46611428943d152749b3891a3f4b7c;hp=86e41ed3f015f423093ad13d51e86e4ccccef12a;hpb=57e21c4b62e8c1a1ee7ef59ed2abb0c864fb06bc;p=sbcl.git

diff --git a/src/compiler/physenvanal.lisp b/src/compiler/physenvanal.lisp
index 86e41ed..cf43865 100644
--- a/src/compiler/physenvanal.lisp
+++ b/src/compiler/physenvanal.lisp
@@ -364,7 +364,9 @@
 	       (code `(%funcall ,fun))))
 	    ((:block :tagbody)
 	     (dolist (nlx (cleanup-nlx-info cleanup))
-	       (code `(%lexical-exit-breakup ',nlx)))))))
+	       (code `(%lexical-exit-breakup ',nlx))))
+	    (:dynamic-extent
+	     (code `(%dynamic-extent-end))))))
 
       (when (code)
 	(aver (not (node-tail-p (block-last block1))))