X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsignal.lisp;h=23cdd63ae0603684eaf487acc16a267d4552a00b;hb=acce826c593a188b231b7b7918c752bda21d0201;hp=4205bf171438f047a592dfcd28d827288df27f67;hpb=08307967c71c580058a503d46aa087cfefcf8c69;p=sbcl.git

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index 4205bf1..23cdd63 100644
--- 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