fixed bug where actor-system shutdown would not close scheduler thread.

sento.asd

@@ -1,5 +1,5 @@
 (defsystem "sento"
-  :version "3.1.0"
+  :version "3.1.1"
   :author "Manfred Bergmann"
   :license "Apache-2"
   :description "Actor framework featuring actors and agents for easy access to state and asynchronous operations."
@@ -178,10 +178,10 @@ OK - cons-queue as separate 'high-speed' system
 
 Sento 3.1 todos:
 
-- check COUNTER-MP-UNBOUNDED and BOUNDED tests for LW 8
-- create documentation MGL-PAX
-- tag version
-- upload
+OK - check COUNTER-MP-UNBOUNDED and BOUNDED tests for LW 8
+OK - create documentation MGL-PAX
+OK - tag version
+OK - upload
 
 |#
 

src/actor-system.lisp

@@ -234,7 +234,12 @@ Users should use `ac:find-actors`."
 
 (defmethod shutdown ((self actor-system) &key (wait nil))
   "See `ac:shutdown`"
-  (wt:shutdown-wheel-timer (timeout-timer self))
+  (with-slots (timeout-timer scheduler) self
+    (wt:shutdown-wheel-timer timeout-timer)
+    (setf timeout-timer nil)
+    (when scheduler
+      (wt:shutdown-wheel-timer scheduler)
+      (setf scheduler nil)))
   (ac:shutdown (user-actor-context self) :wait wait)
   (ac:shutdown (internal-actor-context self) :wait wait))
 

tests/actor-system-test.lisp

@@ -101,7 +101,9 @@ We use internal API here only for this test, do not use this otherwise."
 
     (ac:shutdown system)
     (is-true (await-cond 2.0
-               (= 0 (length (ac:all-actors system)))))))
+               (= 0 (length (ac:all-actors system)))))
+    (is-false (asys::timeout-timer system))
+    (is-false (asys::scheduler system))))
 
 (test shutdown-system--with-wait
   "Test shutting down the system by waiting for all actor to stop."