|
@@ -140,8 +140,8 @@
|
|
|
(with-random-state
|
|
(with-random-state
|
|
|
(unwind-protect
|
|
(unwind-protect
|
|
|
(handler-case
|
|
(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)))
|
|
(error (e) (log:error "~A" e)))
|
|
|
(dex:clear-connection-pool))))
|
|
(dex:clear-connection-pool))))
|
|
|
(defun ,scheduler ()
|
|
(defun ,scheduler ()
|
