darcs patch:

[clsql.git] / sql / generics.lisp

diff --git a/sql/generics.lisp b/sql/generics.lisp
index 0814d0f2674d1bdf556c6bd4f0e128107daa0baa..d0d69d3444a404494e94d3da9e067e236473f8ae 100644 (file)
--- a/sql/generics.lisp
+++ b/sql/generics.lisp
@@ -21,7 +21,7 @@
 
 ;; FDML
 
-(defgeneric choose-database-for-instance (object database)
+(defgeneric choose-database-for-instance (object &optional database)
   (:documentation "Used by the oodml functions to select which
  database object to use. Chooses the database associated with the
  object primarily, falls back to the database provided as an argument