fixed style warnings.

mdbergmann · Mar 16, 2024 · 6646c53 · 6646c53
1 parent c583a0a
commit 6646c53
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/src/actor.lisp b/src/actor.lisp
@@ -11,10 +11,11 @@
                       ev:publish
                       ac:find-actors
                       ac:all-actors
-                      ac:actor-of))
-  ;; add symbol-functions for ! and ?
-  (setf (symbol-function '!) #'act:tell)
-  (setf (symbol-function '?) #'act:ask))
+                      ac:actor-of)))
+
+;; add symbol-functions for ! and ?
+(setf (symbol-function '!) #'act:tell)
+(setf (symbol-function '?) #'act:ask)
 
 ;; we want to use symbols in this package rather than 'cell'.
 (define-symbol-macro *self* act-cell:*self*)

diff --git a/src/timeutils.lisp b/src/timeutils.lisp
@@ -38,12 +38,13 @@ This blocks the calling thread."
   (with-gensyms (c)
     `(handler-case
          (bt:with-timeout (,wait-time)
-                     ,@body)
+           ,@body)
        (bt:timeout (,c)
          (error ,c))
        ;; the below is not needed anymore with SBCL 2.1. Will keep it anyway for compatibility.
        #+sbcl
        (sb-ext:timeout (,c)
+         (declare (ignore ,c))
          (log:warn "sb-ext:timeout, wrapping to 'expired'.")
          (error 'bt:timeout :length ,wait-time)))))