From db0e74fbd05d10675ae2dd64da9a285789595613 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <tazjin@gmail.com>
Date: Sun, 24 Dec 2017 18:05:49 +0100
Subject: fix(lisp): Don't intern symbols for unregistered tasks

---
 src/gemma.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/gemma.lisp')

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))))))
-- 
cgit 1.4.1