0.9.2.43:

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

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index b3dd8eb..55eb7ca 100644 (file)
--- a/src/code/signal.lisp
+++ b/src/code/signal.lisp
@@ -70,8 +70,8 @@
   (let ((name (gensym)))
     `(flet ((,name () ,@body))
        (if *interrupts-enabled*
-          (,name)
-          (let ((*interrupts-enabled* t))
-            (when *interrupt-pending*
-              (receive-pending-interrupt))
-            (,name))))))
+           (,name)
+           (let ((*interrupts-enabled* t))
+             (when *interrupt-pending*
+               (receive-pending-interrupt))
+             (,name))))))