r9447: * sql/*.lisp: Add db-type parameter to generic functions READ-SQL...

[clsql.git] / sql / db-interface.lisp

diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp
index 7699841dfc45a201e2bddee31c23132f4a0ca256..3c2f7468326d3adc9ce2c9cd67699ca1864f544d 100644 (file)
--- a/sql/db-interface.lisp
+++ b/sql/db-interface.lisp
@@ -172,11 +172,11 @@ if unable to destory."))
   (:method ((database t))
           (signal-no-database-error database)))
 
-(defgeneric database-get-type-specifier (type args database)
+(defgeneric database-get-type-specifier (type args database db-underlying-type)
   (:documentation "Return the type SQL type specifier as a string, for
 the given lisp type and parameters.")
-  (:method (type args (database t))
-          (declare (ignore type args))
+  (:method (type args database db-underlying-type)
+          (declare (ignore type args db-type))
           (signal-no-database-error database)))
 
 (defgeneric database-list-tables (database &key owner)