From ae31001fcfdde983017fa8796a5143ab1dd4f41c Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 23 Jun 2024 15:16:25 +0200 Subject: [PATCH] Optimize code readability --- src/handlers/surveys.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/handlers/surveys.lisp b/src/handlers/surveys.lisp index 4052ded..132c45e 100644 --- a/src/handlers/surveys.lisp +++ b/src/handlers/surveys.lisp @@ -1,9 +1,9 @@ (in-package :ml-survey/handlers) (define-easy-handler (surveys :uri "/") nil - (ml-survey/views:surveys (mapcar (lambda (x) - (make-instance 'ml-survey:survey - :id (format nil - "~a" - (first x)))) - (load-response (make-surveys-db-file))))) + (let* ((survey-db (load-response (make-surveys-db-file))) + (list-of-surveys (mapcar (lambda (x) + (make-instance 'ml-survey:survey + :id (format nil "~a" (first x)))) + survey-db))) + (ml-survey/views:surveys list-of-surveys)))