From 11ea452104397cdda3c6a63d867bea52583806f3 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sat, 22 Jun 2024 17:40:10 +0200 Subject: [PATCH] Fix thead loop --- src/views/survey.lisp | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/src/views/survey.lisp b/src/views/survey.lisp index 41bd985..233f465 100644 --- a/src/views/survey.lisp +++ b/src/views/survey.lisp @@ -17,12 +17,11 @@ (:caption "Questionnaire results table") (:thead (:tr - (loop for i from 1 to count-answers do - (if (= i count-answers) - (:th :scope "col" "SUS Score") - (:th :scope "col" (format nil "Q ~a" i))))) - (:tbody - (loop for result in results do - (:tr - (loop for answer in result do - (:td answer)))))))))))) + (loop for i from 1 below count-answers do + (:th :scope "col" (format nil "Q ~a" i))) + (:th :scope "col" "SUS Score"))) + (:tbody + (loop for result in results do + (:tr + (loop for answer in result do + (:td answer)))))))))))