marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Optimize code readability

Browse source
This commit is contained in:
Marcus Kammer 2024-06-23 15:16:25 +02:00
parent 2c7976aaf5
commit ae31001fcf
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/handlers/surveys.lisp
View file

@ -1,9 +1,9 @@
(in-package :ml-survey/handlers) (in-package :ml-survey/handlers)
(define-easy-handler (surveys :uri "/") nil (define-easy-handler (surveys :uri "/") nil
(ml-survey/views:surveys (mapcar (lambda (x) (let* ((survey-db (load-response (make-surveys-db-file)))
(make-instance 'ml-survey:survey (list-of-surveys (mapcar (lambda (x)
:id (format nil (make-instance 'ml-survey:survey
"~a" :id (format nil "~a" (first x))))
(first x)))) survey-db)))
(load-response (make-surveys-db-file))))) (ml-survey/views:surveys list-of-surveys)))