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

Check for types in function parameters

Browse source
This commit is contained in:
Marcus Kammer 2024-06-02 13:12:27 +02:00
parent 008d5691d4
commit f1bedd6c7c
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/handlers/main.lisp
View file

@ -6,14 +6,14 @@
(uiop:getcwd)))) (uiop:getcwd))))
(defun split-uri (uri) (defun split-uri (uri)
(check-type uri string)
(remove-if #'string-empty-p (remove-if #'string-empty-p
(uiop:split-string uri :separator "/"))) (uiop:split-string uri :separator "/")))
(defun valid-survey-id-p (id) (defun valid-survey-id-p (id)
(member (if (stringp id) (check-type id integer)
(parse-integer id) (let ((ids (mapcar #'car (load-response (make-surveys-db-path)))))
id) (if (member id ids) t nil)))
(mapcar #'car (load-response (make-surveys-db-path)))))
(defun today () (defun today ()
"Return today's date formatted as ISO-8601." "Return today's date formatted as ISO-8601."
@ -34,6 +34,7 @@
(make-db-path (today) "-surveys-db.lisp")) (make-db-path (today) "-surveys-db.lisp"))
(defun load-response (db) (defun load-response (db)
(check-type db string)
(with-open-file (stream db (with-open-file (stream db
:direction :input :direction :input
:if-does-not-exist :create) :if-does-not-exist :create)
@ -42,6 +43,8 @@
(read stream)))) (read stream))))
(defun store-response (db responses) (defun store-response (db responses)
(check-type db string)
(check-type responses list)
(with-open-file (stream db (with-open-file (stream db
:direction :output :direction :output
:if-exists :supersede) :if-exists :supersede)