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

Add generic methods

Browse source
This commit is contained in:
Marcus Kammer 2024-06-23 19:29:39 +02:00
parent ae31001fcf
commit b734a3078a
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/survey.lisp
View file

@ -25,6 +25,12 @@
(defgeneric survey-data-dir-p (survey) (defgeneric survey-data-dir-p (survey)
(:documentation "Check if the survey's data directory exists.")) (:documentation "Check if the survey's data directory exists."))
(defgeneric survey-properties-title (survey)
(:documentation "Get title property."))
(defgeneric survey-properties-description (survey)
(:documentation "Get description property."))
(defmethod survey-id-p ((survey survey)) (defmethod survey-id-p ((survey survey))
(let ((ids (mapcar #'car (load-response (make-surveys-db-file))))) (let ((ids (mapcar #'car (load-response (make-surveys-db-file)))))
(if (member (parse-integer (survey-id survey)) ids) t nil))) (if (member (parse-integer (survey-id survey)) ids) t nil)))