fixes to wheel-timer function signature.

mdbergmann · Jan 15, 2024 · 27209dd · 27209dd
1 parent a4e1e8c
commit 27209dd
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/docs/index.html b/docs/index.html
@@ -2208,7 +2208,7 @@ <h6>[in package SENTO.WHEEL-TIMER with nicknames WT]</h6>
 <p><a id="x-28SENTO-2EWHEEL-TIMER-3ASCHEDULE-ONCE-20FUNCTION-29"></a>
 <a id="SENTO.WHEEL-TIMER:SCHEDULE-ONCE%20FUNCTION"></a></p>
 <ul>
-<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#SENTO.WHEEL-TIMER:SCHEDULE-ONCE%20FUNCTION" >SCHEDULE-ONCE</a></span></span> <span class="locative-args">WHEEL-TIMER DELAY TIMER-FUN &amp;OPTIONAL (SIG <code>NIL</code>) &amp;KEY (REUSE-SIG <code>NIL</code>)</span></span></p>
+<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#SENTO.WHEEL-TIMER:SCHEDULE-ONCE%20FUNCTION" >SCHEDULE-ONCE</a></span></span> <span class="locative-args">WHEEL-TIMER DELAY TIMER-FUN &amp;KEY (SIG <code>NIL</code>) (REUSE-SIG <code>NIL</code>)</span></span></p>
 
 <p>Schedule a function execution once:</p>
 

diff --git a/src/wheel-timer.lisp b/src/wheel-timer.lisp
@@ -42,7 +42,7 @@ But you can also create your own instance."
     (tw:initialize-timer-wheel (wheel instance))
     instance))
 
-(defun schedule-once (wheel-timer delay timer-fun &optional (sig nil) &key (reuse-sig nil))
+(defun schedule-once (wheel-timer delay timer-fun &key (sig nil) (reuse-sig nil))
   "Schedule a function execution once:
 
 `wheel-timer` is the `wt:wheel-timer` instance.  
@@ -86,8 +86,8 @@ The signature can be used to cancel the timer via `cancel-recurring`."
             ;; the timer could have been cancelled.
             (when (gethash signature timer-hash)
               (funcall timer-fun)
-              (schedule-once wheel-timer delay recurring-timer-fun signature :reuse-sig t))))
-    (schedule-once wheel-timer initial-delay recurring-timer-fun signature :reuse-sig t)
+              (schedule-once wheel-timer delay recurring-timer-fun :sig signature :reuse-sig t))))
+    (schedule-once wheel-timer initial-delay recurring-timer-fun :sig signature :reuse-sig t)
     signature))
 
 (defun cancel (wheel-timer sig)