mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(lisp): Don't intern symbols for unregistered tasks

Browse source
This commit is contained in:
Vincent Ambo 2017-12-24 18:05:49 +01:00
parent 02a34a14a0
commit db0e74fbd0
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/gemma.lisp
View file

@ -129,7 +129,7 @@ maximum interval."
(hunchentoot:define-easy-handler (hunchentoot:define-easy-handler
(complete-task-handler :uri "/complete") (task) (complete-task-handler :uri "/complete") (task)
(setf (hunchentoot:content-type*) "application/json") (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) (format t "Marking task ~A as completed" key)
(complete-task key) (complete-task key)
(encode-json-to-string (response-for (get-task key)))))) (encode-json-to-string (response-for (get-task key))))))