X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fgenerics.lisp;h=6ca064a79afc6c44ddea8c5a01d754054103dd5e;hb=83b09c87d38cdaf7ce3da8d5a20aa8c5ee4505bc;hp=7f276fc196e397a68444c479135949e7ebe929a2;hpb=4332610851d855ebc858f231f06cff81c675e5f2;p=clsql.git

diff --git a/sql/generics.lisp b/sql/generics.lisp
index 7f276fc..6ca064a 100644
--- a/sql/generics.lisp
+++ b/sql/generics.lisp
@@ -198,3 +198,15 @@ the arguments EXPR and DATABASE."))
   (:documentation "Given a column constraint returns its
 database-specific name. For example, auto-increment constraints can
 have different names in different database engines."))
+
+(defgeneric filter-select-list ( view-class clsql-sys::select-list database)
+  (:documentation
+   "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"))