From 5aa8cbf24a39e7347c360aa0d38066e26065c9f2 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 1 Dec 2024 19:56:41 +0100 Subject: [PATCH] Remove redundant code --- dev.metalisp.survey.asd | 2 +- src/questionnaire.lisp | 14 ++++++-------- 2 files changed, 7 insertions(+), 9 deletions(-) diff --git a/dev.metalisp.survey.asd b/dev.metalisp.survey.asd index 43b3609..be199f1 100644 --- a/dev.metalisp.survey.asd +++ b/dev.metalisp.survey.asd @@ -2,7 +2,7 @@ (defsystem "dev.metalisp.survey" :description "Create questionnaires and analyze the results." - :version "0.5.9" + :version "0.5.10" :author "Marcus Kammer " :source-control (:git "git@git.sr.ht:~marcuskammer/dev.metalisp.survey") :licence "MIT" diff --git a/src/questionnaire.lisp b/src/questionnaire.lisp index 6d7ac5e..230fde7 100644 --- a/src/questionnaire.lisp +++ b/src/questionnaire.lisp @@ -33,14 +33,12 @@ (declare (type questionnaire q)) "Load a Lisp file containing form definitions." (let ((form-path (form-path q))) - (if (probe-file form-path) - (handler-case - (progn (load form-path) nil) - (file-error (e) - (warn "File error occurred: ~A" e)) - (reader-error (e) - (warn "Syntax error occurred: ~A" e))) - (error "Form file ~A does not exist." form-path)))) + (handler-case + (progn (load form-path) nil) + (file-error (e) + (warn "File error occurred: ~A" e)) + (reader-error (e) + (warn "Syntax error occurred: ~A" e))))) (defmacro with-form (&body body) "Create a standardized HTML form wrapped in a
tag with a pre-defined