X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fgenerics.lisp;fp=sql%2Fgenerics.lisp;h=3f3ee7c07262f20c338ce41adb3bfebbd711fb82;hp=b0a44725e766490248ab2373d41df8047e96af02;hb=7b4794147500df7188fef2fe4f5e16d05d552ffd;hpb=18738a9744b8741091444d11fc317ecee6ff3b14

diff --git a/sql/generics.lisp b/sql/generics.lisp
index b0a4472..3f3ee7c 100644
--- a/sql/generics.lisp
+++ b/sql/generics.lisp
@@ -18,6 +18,11 @@
 
 
 ;; FDML
+(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
+ or the *DEFAULT-DATABASE*."))
 
 (defgeneric execute-command (expression &key database)
   (:documentation
@@ -82,7 +87,7 @@ case, a record is created in the appropriate table of DATABASE
 using values from the slot values of OBJECT, and OBJECT becomes
 associated with DATABASE."))
 
-(defgeneric delete-instance-records (object)
+(defgeneric delete-instance-records (object &key database)
   (:documentation
    "Deletes the records represented by OBJECT in the appropriate
 table of the database associated with OBJECT. If OBJECT is not