X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsignal.lisp;h=55eb7ca7398ffdc84e6c186d687ab774df8b5f36;hb=54e97796e29cb89892dd30c8cb8c5e9d0a870f94;hp=b3dd8ebf3a0e347ff58f660a2d4ca78bb06aa213;hpb=7cca1cabd213d38218a40e973b06ca11c8546396;p=sbcl.git

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index b3dd8eb..55eb7ca 100644
--- 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))))))