X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fgenerics.lisp;h=d0d69d3444a404494e94d3da9e067e236473f8ae;hb=92718807dc442b36c4ec549e63166248d6c56c39;hp=0814d0f2674d1bdf556c6bd4f0e128107daa0baa;hpb=f10fc333da09ea7e24477e6199ffbc541adff2f1;p=clsql.git

diff --git a/sql/generics.lisp b/sql/generics.lisp
index 0814d0f..d0d69d3 100644
--- 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