projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Changes regarding standard_conforming_strings in postgres
[clsql.git]
/
sql
/
generic-postgresql.lisp
diff --git
a/sql/generic-postgresql.lisp
b/sql/generic-postgresql.lisp
index 61d7e1529f30bc02eda9064336cbb22e8fd8aa71..9971e4ac066824b836a140b79ef3b2801f815780 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
"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
(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)
(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))))
(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 db-type-has-auto-increment? ((db-type (eql :postgresql)))
t)
+
+(defmethod clsql-sys::database-escape-backslashes ((database generic-postgresql-database))
+ t)