[project @ fix format-timestring calls]

dlowe-net · Jun 10, 2008 · a64683f · a64683f
1 parent 2535bfc
commit a64683f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/integration/cl-postgres.lisp b/src/integration/cl-postgres.lisp
@@ -43,4 +43,4 @@
             :timezone local-time:+utc-zone+)))))))
 
 (defmethod cl-postgres:to-sql-string ((arg local-time:timestamp))
-  (local-time:format-rfc3339-timestring arg))
+  (local-time:format-rfc3339-timestring nil arg :timezone +utc-zone+))
diff --git a/src/local-time.lisp b/src/local-time.lisp
@@ -1422,7 +1422,7 @@ You can see examples in +ISO-8601-FORMAT+, +ASCTIME-FORMAT+, and +RFC-1123-FORMA
                                              (:usec 6)))
                   (unless omit-timezone-part-p
                     (if use-zulu-p '(:gmt-offset-or-z) '(:gmt-offset))))))
-    (format-timestring destination timestamp rfc3339 :timezone timezone)))
+    (format-timestring destination timestamp :format rfc3339 :timezone timezone)))
 
 (defun %read-timestring (stream char)
   (declare (ignore char))