X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=8c0f4868c5ddc85e41824db3548330a1fd114d44;hb=0cff6b0b7e6f1d148586f81f620b9c86ed217caa;hp=95710d9dd8df61e43deecefb69f1d5d1e1259c7b;hpb=ae6e0d2d4d80dbbbd0c483051f0c8cd8fa3654fb;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index 95710d9..8c0f486 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -92,7 +92,7 @@
   (declare (type (or function fixnum (member :default :ignore)) handler))
   (/show0 "enable-interrupt")
   (flet ((run-handler (&rest args)
-           (declare (dynamic-extent args))
+           (declare (truly-dynamic-extent args))
            (in-interruption ()
              (apply handler args))))
     (without-gcing