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

Fix type checking

Browse source
This commit is contained in:
Marcus Kammer 2024-06-02 13:31:06 +02:00
parent 799d351917
commit 1f94736771
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/handlers/main.lisp
View file

@ -34,7 +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) (check-type db (or string pathname))
(with-open-file (stream db (with-open-file (stream db
:direction :input :direction :input
:if-does-not-exist :create) :if-does-not-exist :create)
@ -43,7 +43,7 @@
(read stream)))) (read stream))))
(defun store-response (db responses) (defun store-response (db responses)
(check-type db string) (check-type db (or string pathname))
(check-type responses list) (check-type responses list)
(with-open-file (stream db (with-open-file (stream db
:direction :output :direction :output