r9442: * sql/objects.lisp: Add database type to default database-get-type...

[clsql.git] / sql / objects.lisp

diff --git a/sql/objects.lisp b/sql/objects.lisp
index fd246c936d0198aaed415d239f05ffa7444e4759..b90a6d1b80a8bcaeb91c930e2b266c23dd3050dd 100644 (file)
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -499,7 +499,7 @@ strings."
            (error "No view-table for class ~A"  classname))
          (sql-expression :table (view-table class))))
 
-(defmethod database-get-type-specifier (type args database)
+(defmethod database-get-type-specifier (type args (database database))
   (declare (ignore type args))
   (if (in (database-underlying-type database)
                          :postgresql :postgresql-socket)