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

Remove redundant code

Browse source
This commit is contained in:
Marcus Kammer 2024-12-01 19:56:41 +01:00
parent a441f46aa2
commit 5aa8cbf24a
2 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
dev.metalisp.survey.asd
View file

@ -2,7 +2,7 @@
(defsystem "dev.metalisp.survey" (defsystem "dev.metalisp.survey"
:description "Create questionnaires and analyze the results." :description "Create questionnaires and analyze the results."
:version "0.5.9" :version "0.5.10"
:author "Marcus Kammer <marcus.kammer@metalisp.dev>" :author "Marcus Kammer <marcus.kammer@metalisp.dev>"
:source-control (:git "git@git.sr.ht:~marcuskammer/dev.metalisp.survey") :source-control (:git "git@git.sr.ht:~marcuskammer/dev.metalisp.survey")
:licence "MIT" :licence "MIT"

14
src/questionnaire.lisp
View file

@ -33,14 +33,12 @@
(declare (type questionnaire q)) (declare (type questionnaire q))
"Load a Lisp file containing form definitions." "Load a Lisp file containing form definitions."
(let ((form-path (form-path q))) (let ((form-path (form-path q)))
(if (probe-file form-path) (handler-case
(handler-case (progn (load form-path) nil)
(progn (load form-path) nil) (file-error (e)
(file-error (e) (warn "File error occurred: ~A" e))
(warn "File error occurred: ~A" e)) (reader-error (e)
(reader-error (e) (warn "Syntax error occurred: ~A" e)))))
(warn "Syntax error occurred: ~A" e)))
(error "Form file ~A does not exist." form-path))))
(defmacro with-form (&body body) (defmacro with-form (&body body)
"Create a standardized HTML form wrapped in a <main> tag with a pre-defined "Create a standardized HTML form wrapped in a <main> tag with a pre-defined