"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
(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))))
(defmethod db-type-has-auto-increment? ((db-type (eql :postgresql)))
t)
+
+(defmethod clsql-sys::database-escape-backslashes ((database generic-postgresql-database))
+ t)