Add zone to format-machine-date

Shirakumo · Apr 16, 2024 · 53f0926 · 53f0926
1 parent 8d826c7
commit 53f0926
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/toolkit.lisp b/toolkit.lisp
@@ -69,7 +69,7 @@
 (defun format-machine-date (stamp &optional stream)
   (when (integerp stamp) (setf stamp (local-time:universal-to-timestamp stamp)))
   (local-time:format-timestring
-   stream stamp :format '((:year 4) "-" (:month 2) "-" (:day 2) "T" (:hour 2) ":" (:min 2) ":" (:sec 2))
+   stream stamp :format '((:year 4) "-" (:month 2) "-" (:day 2) "T" (:hour 2) ":" (:min 2) ":" (:sec 2) "Z")
                 :timezone local-time:+utc-zone+))
 
 (defun format-human-date (stamp &optional stream)