fixes and consolidation of how to pass configs.

Author: mdbergmann

src/actor-system.lisp

@@ -100,11 +100,14 @@ See `config:config-from`."
 
 (defun %register-eventstream (system ev-config actor-context)
   (with-slots (eventstream) system
-    (setf eventstream (ev:make-eventstream actor-context ev-config))))
+    (setf eventstream (apply #'ev:make-eventstream
+                             actor-context
+                             ev-config))))
 
 (defun %register-timeout-timer (system timer-config)
   (with-slots (timeout-timer) system
-    (setf timeout-timer (wt:make-wheel-timer timer-config))))
+    (setf timeout-timer (apply #'wt:make-wheel-timer
+                               timer-config))))
 
 (defun %register-dispatchers (system dispatcher-config actor-context)
   "Creates a plist of dispatchers for the `:dispatchers` configuration section."

src/wheel-timer.lisp

@@ -21,7 +21,7 @@
               (tw:wheel-resolution wheel)
               (length (tw::slots wheel))))))
 
-(defun make-wheel-timer (config)
+(defun make-wheel-timer (&rest config)
   "Creates a new `wheel-timer`.
 
 `config` is a parameter for a list of key parameters including:

tests/wheel-timer-test.lisp

@@ -13,15 +13,15 @@
 
 (test make-wheel-timer
   "Tests making a wheel timer with config"
-  (let ((cut (make-wheel-timer '(:resolution 100 :max-size 100))))
+  (let ((cut (make-wheel-timer :resolution 100 :max-size 100)))
     (unwind-protect
          (progn
            (is (not (null cut))))
       (shutdown-wheel-timer cut))))
 
 (test schedule
   "Tests executing a scheduled timer function."
-  (let ((cut (make-wheel-timer '(:resolution 100 :max-size 100)))
+  (let ((cut (make-wheel-timer :resolution 100 :max-size 100))
         (callback))
     (unwind-protect
          (progn