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

Fix code indentation

Browse source
This commit is contained in:
Marcus Kammer 2024-05-24 13:45:59 +02:00
parent edbda2b15a
commit 539ac92aae
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
main.lisp
View file

@ -12,11 +12,15 @@
(defun today () (defun today ()
"Return today's date formatted as ISO-8601." "Return today's date formatted as ISO-8601."
(local-time:format-timestring nil (local-time:now) :format '(:year "-" (:month 2) "-" (:day 2)))) (local-time:format-timestring nil
(local-time:now)
:format '(:year "-" (:month 2) "-" (:day 2))))
(defun now () (defun now ()
"Return current time formatted as ISO-8601." "Return current time formatted as ISO-8601."
(local-time:format-timestring nil (local-time:now) :format '((:hour 2) ":" (:min 2) ":" (:sec 2)))) (local-time:format-timestring nil
(local-time:now)
:format '((:hour 2) ":" (:min 2) ":" (:sec 2))))
(defvar *db* (pathname (concatenate 'string (today) "_survey-db.cl"))) (defvar *db* (pathname (concatenate 'string (today) "_survey-db.cl")))