diff options
| author | Vincent Ambo <tazjin@gmail.com> | 2017-12-24T17·05+0100 |
|---|---|---|
| committer | Vincent Ambo <tazjin@gmail.com> | 2017-12-24T17·05+0100 |
| commit | db0e74fbd05d10675ae2dd64da9a285789595613 (patch) | |
| tree | c83f8030fa8769f6c6173fb1b11333aa0342cbac | |
| parent | 02a34a14a007cd3f03203173de8de1ab5507d6fb (diff) | |
fix(lisp): Don't intern symbols for unregistered tasks
| -rw-r--r-- | src/gemma.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gemma.lisp b/src/gemma.lisp index 008e2841b82f..ad096ec57080 100644 --- a/src/gemma.lisp +++ b/src/gemma.lisp @@ -129,7 +129,7 @@ maximum interval." (hunchentoot:define-easy-handler (complete-task-handler :uri "/complete") (task) (setf (hunchentoot:content-type*) "application/json") - (let* ((key (intern (camel-case-to-lisp task) "GEMMA"))) + (let* ((key (find-symbol (camel-case-to-lisp task) "GEMMA"))) (format t "Marking task ~A as completed" key) (complete-task key) (encode-json-to-string (response-for (get-task key)))))) |