X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fdb-interface.lisp;h=b46280a7d65c657f6b1eee7641ddb866a9aad949;hb=refs%2Fheads%2F6.8.0;hp=5cdb719f3ea00cdc4915701fff2abec177aaff49;hpb=80c2194145d2cd215dd94f2dc71afee14719c194;p=clsql.git

diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp
index 5cdb719..b46280a 100644
--- a/sql/db-interface.lisp
+++ b/sql/db-interface.lisp
@@ -380,8 +380,8 @@ of TYPE_NAME (keyword) PRECISION SCALE NULLABLE.")
 
 (defgeneric db-type-has-auto-increment? (db-type)
   (:method (db-type)
-    (declare (ignore db-type)
-	     nil))
+    (declare (ignore db-type))
+	     nil)
   (:documentation "NIL [default] if database-type supports auto-incrementing columns."))
 
 ;;; Large objects support (Marc Battyani)
@@ -498,3 +498,8 @@ for foreign libraries \(in addition to the default places).")
   "Adds the pathspec PATH \(which should denote a directory) to
 the list *FOREIGN-LIBRARY-SEARCH-PATHS*."
   (pushnew path *foreign-library-search-paths* :test #'equal))
+
+(defgeneric database-escape-backslashes (database)
+  (:documentation "Should backslases in a string be escaped? ")
+  (:method ( database )
+    nil))