fix sbcl feature

macros.lisp

@@ -140,8 +140,8 @@
          (with-random-state
            (unwind-protect
                 (handler-case
-		    +sbcl (sb-sys:with-interrupts ,@body)
-		    -sbcl (progn ,@body)
+		    #+sbcl (sb-sys:with-interrupts ,@body)
+		    #-sbcl (progn ,@body)
                   (error (e) (log:error "~A" e)))
              (dex:clear-connection-pool))))
        (defun ,scheduler ()