From 53f0926919e13c74bebe6fa271db5e2362224f05 Mon Sep 17 00:00:00 2001 From: Shinmera Date: Tue, 16 Apr 2024 18:25:22 +0200 Subject: [PATCH] Add zone to format-machine-date --- toolkit.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/toolkit.lisp b/toolkit.lisp index 8c34157..709768c 100644 --- 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)