X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsysmacs.lisp;h=59b8b4510aa139a25b45c2962c2bdf6ed0859fbf;hb=b92e0bedf7e29a43fe4fd9141b5d658751e3bef0;hp=3ca4ff84d193554e466d29fd37819acca390d7ec;hpb=2aa6e79b681cf29b047ca66215c1544f0fac0067;p=sbcl.git

diff --git a/src/code/sysmacs.lisp b/src/code/sysmacs.lisp
index 3ca4ff8..59b8b45 100644
--- a/src/code/sysmacs.lisp
+++ b/src/code/sysmacs.lisp
@@ -51,7 +51,7 @@ system will be deadlocked. Since SBCL does not currently document its internal
 locks, application code can never be certain that this invariant is
 maintained."
   (with-unique-names (without-gcing-body)
-    `(flet ((,without-gcing-body ()
+    `(dx-flet ((,without-gcing-body ()
               ,@body))
        (if *gc-inhibit*
            (,without-gcing-body)