From 1a6e8dd86a30562d0852ff660fbfada59b172d6a Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Tue, 4 Jun 2024 20:21:58 +0200 Subject: [PATCH] Fix function naming --- src/handlers/questionnaire.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/handlers/questionnaire.lisp b/src/handlers/questionnaire.lisp index 70c9b8f..40c11b1 100644 --- a/src/handlers/questionnaire.lisp +++ b/src/handlers/questionnaire.lisp @@ -12,7 +12,7 @@ (defun questionnaire-uri (request) (questionnaire-uri-p (request-uri request))) -(defun return-sus-form (lang) +(defun choose-sus-form (lang) "Based on LANG decide which sus form to show." (check-type lang string) (cond ((string= lang "en") #'ml-survey/views:sus-form-en) @@ -22,4 +22,4 @@ (define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang) (let ((survey (make-survey (request-uri*)))) (setf *html-lang* lang) - (funcall (return-sus-form lang) (funcall survey 'id)))) + (funcall (choose-sus-form lang) (funcall survey 'id))))