From 5ddc87022c9e42e719dc3880843001bbe1af1e5b Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Fri, 21 Feb 2025 08:18:04 +0100 Subject: [PATCH] Reformat code --- dev.metalisp.survey.asd | 2 +- src/models/questionnaire.lisp | 15 +++++++++------ 2 files changed, 10 insertions(+), 7 deletions(-) diff --git a/dev.metalisp.survey.asd b/dev.metalisp.survey.asd index 1f3e9d7..aa99760 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.32" + :version "0.5.33" :author "Marcus Kammer " :source-control (:git "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey.git") :licence "MIT" diff --git a/src/models/questionnaire.lisp b/src/models/questionnaire.lisp index 2f40f0c..0cc255d 100644 --- a/src/models/questionnaire.lisp +++ b/src/models/questionnaire.lisp @@ -30,12 +30,15 @@ (defmethod initialize-instance :after ((q questionnaire) &key) (with-slots (timestamp-created uid data-file survey-uid) q - (or timestamp-created (setf timestamp-created (ml-survey/app:today+now))) - (or uid (setf uid (ml-survey/app:generate-uuid))) - (or data-file (setf data-file (pathname (format nil "~a~a/~a.lisp" - (ml-survey/fileops:ensure-surveys-dir) - survey-uid - uid)))))) + (or timestamp-created + (setf timestamp-created (ml-survey/app:today+now))) + (or uid + (setf uid (ml-survey/app:generate-uuid))) + (or data-file + (setf data-file (pathname (format nil "~a~a/~a.lisp" + (ml-survey/fileops:ensure-surveys-dir) + survey-uid + uid)))))) (defmethod make-questionnaire (&rest initargs &key &allow-other-keys) "Create a new questionnaire instance.