X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1opt.lisp;h=8604960432f67cddfc92d7959b0a2eef6d105244;hb=e840f481796d191997a47421d60cd039cd260613;hp=c22c25ceda55f4a508dc2415e3dcd0a60737f560;hpb=4af56c115ef7ec63e06be677f9dfbf8116882e4c;p=sbcl.git

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index c22c25c..8604960 100644
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -1289,6 +1289,7 @@
             (ref (lvar-use (combination-fun call))))
         (change-ref-leaf ref new-fun)
         (setf (combination-kind call) :full)
+        (maybe-propagate-dynamic-extent call new-fun)
         (locall-analyze-component *current-component*))))
   (values))