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

Reduce code duplication

Browse source
This commit is contained in:
Marcus Kammer 2025-02-21 21:47:01 +01:00
parent bd27502be9
commit 720f847aff
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 2 additions and 5 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.40" :version "0.5.41"
:author "Marcus Kammer <marcus.kammer@mailbox.org>" :author "Marcus Kammer <marcus.kammer@mailbox.org>"
:source-control (:git "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey.git") :source-control (:git "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey.git")
:licence "MIT" :licence "MIT"

5
src/models/survey.lisp
View file

@ -47,10 +47,7 @@
(:documentation "Get description property.")) (:documentation "Get description property."))
(defmethod survey-uid-p ((survey survey)) (defmethod survey-uid-p ((survey survey))
(find (survey-uid survey) (filter-surveys-by-uid (survey-uid survey)))
(ml-survey/fileops:surveys-db)
:key (lambda (s) (getf s :uid))
:test #'eql))
(defmethod survey-data-dir-files ((survey survey)) (defmethod survey-data-dir-files ((survey survey))
(uiop:directory-files (survey-data-dir survey))) (uiop:directory-files (survey-data-dir survey)))