0.7.11.10:

[sbcl.git] / src / code / signal.lisp

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index 4205bf1..23cdd63 100644 (file)
--- a/src/code/signal.lisp
+++ b/src/code/signal.lisp
@@ -43,7 +43,7 @@
 (sb!xc:defmacro without-interrupts (&body body)
   #!+sb-doc
   "Execute BODY in a context impervious to interrupts."
-  (let ((name (gensym)))
+  (let ((name (gensym "WITHOUT-INTERRUPTS-BODY-")))
     `(flet ((,name () ,@body))
        (if *interrupts-enabled*
           (unwind-protect