r8966: working

[clsql.git] / sql / new-objects.lisp

diff --git a/sql/new-objects.lisp b/sql/new-objects.lisp
index 55f5d1e0b0e8a31807af7020ebc8b0cc680e93a9..e7c49ce83f7616175c829f214e30151450dc69a0 100644 (file)
--- a/sql/new-objects.lisp
+++ b/sql/new-objects.lisp
@@ -434,6 +434,12 @@ associated with that database."))
  (setf (symbol-function (intern (symbol-name '#:store-instance)))
    (symbol-function 'update-records-from-instance))
 
+(defgeneric delete-instance-records (instance)
+  (:documentation
+   "Deletes the records represented by INSTANCE from the database
+associated with it. If instance has no associated database, an error
+is signalled."))
+
 (defmethod delete-instance-records ((object standard-db-object))
   (let ((vt (sql-expression :table (view-table (class-of object))))
         (qualifier (key-qualifier-for-instance object :database *default-database*)))