Store walltimes as timestamptz by default in postgres

[clsql.git] / sql / generic-postgresql.lisp

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index 61d7e1529f30bc02eda9064336cbb22e8fd8aa71..2464746f11c9b4a2de764487a88cc68c5089858f 100644 (file)
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -25,8 +25,10 @@
   "Special database types for POSTGRESQL backends"
   (declare (ignore database db-type))
   (case type
-    (wall-time ;; TODO: why is this WITHOUT...
-     "TIMESTAMP WITHOUT TIME ZONE")
+    ;; his used to be without because we didnt track timezones well
+    ;; Now we do, so it should include them
+    (wall-time
+     "TIMESTAMP WITH TIME ZONE")
     (string
      ;; TODO: the default to CHAR here seems specious as the PG docs claim
      ;; that char is slower than varchar
@@ -263,7 +265,7 @@
       (when seq
         (setf const (remove :auto-increment const))
         (unless (member :default const)
-          (let* ((next (format nil "nextval('~a')" (escaped-database-identifier seq))))
+          (let* ((next (format nil " nextval('~a')" (escaped-database-identifier seq))))
             (setf const (append const (list :default next))))))
       (append cdef const))))