X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Fdb-interface.lisp;h=3c2f7468326d3adc9ce2c9cd67699ca1864f544d;hb=7308bdf188da6424e615ca14096ef53cfb845a90;hp=7699841dfc45a201e2bddee31c23132f4a0ca256;hpb=606f6b3eb642523512d12927ff83120b688e8bf9;p=clsql.git

diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp
index 7699841..3c2f746 100644
--- 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)