X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-postgresql-socket3%2Fsql.lisp;h=55547b63f44daa1e06db7106a19f8e9310c41445;hb=refs%2Fheads%2F6.8.0;hp=12929c6e85d3cc9ba20c46e9a2960a87cddf38bf;hpb=3ab5ff5c8b7f6a8fc37f5870b9518a0862f2e611;p=clsql.git

diff --git a/db-postgresql-socket3/sql.lisp b/db-postgresql-socket3/sql.lisp
index 12929c6..55547b6 100644
--- a/db-postgresql-socket3/sql.lisp
+++ b/db-postgresql-socket3/sql.lisp
@@ -331,3 +331,12 @@
   (clsql-sys:initialize-database-type :database-type :postgresql-socket3))
 
 
+
+;; TODO: there is a good chance this could always return nil as cl-postgres probably
+;; handles this nonsense anyway
+(defmethod clsql-sys::database-escape-backslashes ((database postgresql-socket3-database))
+  (let* ((it (gethash "standard_conforming_strings"
+                      (cl-postgres:connection-parameters
+                       (slot-value database 'connection))))
+         (sit (and it (string it))))
+    (and it (not (string-equal sit "on")))))