X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fgenerics.lisp;h=6ca064a79afc6c44ddea8c5a01d754054103dd5e;hp=c406a2b31de79224b941b89fd463f380f6fd7898;hb=c5114f6d1dd70197d14c94ac8b83c19016e76880;hpb=775a7dfa8c524a06c8f9021a8390d58ecbcacf9c

diff --git a/sql/generics.lisp b/sql/generics.lisp
index c406a2b..6ca064a 100644
--- a/sql/generics.lisp
+++ b/sql/generics.lisp
@@ -204,3 +204,9 @@ have different names in different database engines."))
    "Gives fine grained control over sql to be executed and mapped to slots
     called with a dummy instance (so that class precedence can be used)")
   )
+
+(defgeneric view-classes-and-storable-slots (view-class &key to-database-p)
+  (:documentation "A method that collects all the classes and storable slots
+   that need to be read from or written to the database.
+   to-database-p should be T if we are writing this object to the database
+   and nil when we are reading this object from the database"))