about summary refs log tree commit diff
path: root/src/gemma.lisp
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@gmail.com>2017-12-24T17·05+0100
committerVincent Ambo <tazjin@gmail.com>2017-12-24T17·05+0100
commitdb0e74fbd05d10675ae2dd64da9a285789595613 (patch)
treec83f8030fa8769f6c6173fb1b11333aa0342cbac /src/gemma.lisp
parent02a34a14a007cd3f03203173de8de1ab5507d6fb (diff)
fix(lisp): Don't intern symbols for unregistered tasks
Diffstat (limited to 'src/gemma.lisp')
-rw-r--r--src/gemma.lisp2
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))))))