X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fgeneric-postgresql.lisp;h=9971e4ac066824b836a140b79ef3b2801f815780;hb=refs%2Fheads%2F6.8.0;hp=61d7e1529f30bc02eda9064336cbb22e8fd8aa71;hpb=151c009059521769a44ec35dfdceb86d5373af99;p=clsql.git

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index 61d7e15..9971e4a 100644
--- 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))))
 
@@ -427,3 +429,6 @@
 
 (defmethod db-type-has-auto-increment? ((db-type (eql :postgresql)))
   t)
+
+(defmethod clsql-sys::database-escape-backslashes ((database generic-postgresql-database))
+  t)