X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsignal.lisp;h=9092524fa2d6973d137021bd2ea8136f8fc23657;hb=f3491f128307938cc56367f739b8fbf9e5d503b6;hp=8d2174313cbde521b7e29d0bbafc139489e10a27;hpb=ae09f8fd7765f6cab6ad317a13e27ff22ab0c11e;p=sbcl.git

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index 8d21743..9092524 100644
--- a/src/code/signal.lisp
+++ b/src/code/signal.lisp
@@ -102,7 +102,7 @@ WITHOUT-INTERRUPTS in:
     (lambda () (with-local-interrupts ...)))
 "
   (with-unique-names (outer-allow-with-interrupts without-interrupts-body)
-    `(flet ((,without-interrupts-body ()
+    `(dx-flet ((,without-interrupts-body ()
               (declare (disable-package-locks allow-with-interrupts
                                               with-local-interrupts))
               (macrolet