diff options
| -rw-r--r-- | src/gemma.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/gemma.lisp b/src/gemma.lisp index e103ed92c266..e0e52854bed8 100644 --- a/src/gemma.lisp +++ b/src/gemma.lisp @@ -94,7 +94,8 @@ maximum interval." "Mark the task with NAME as completed, either now or AT specified time." (cl-prevalence:tx-change-object-slots *p-tasks* 'task (id (get-task name)) - `((done-at ,(or at (local-time:now)))))) + `((done-at ,(or at (local-time:now))))) + (cl-prevalence:snapshot *p-tasks*)) ;; ;; Define web API |