X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fobjects.lisp;fp=sql%2Fobjects.lisp;h=e6a9457a9dacf8fa2d00b814b37ba9fed7aedc96;hp=af5aaea1c476cbd5f1b8690e5f8b110a8d1b88ef;hb=b2ff4969e20cce173d403de7542d5bf0e46938d7;hpb=f34346600de66d6310cc5fa3f742c4f89e05760b

diff --git a/sql/objects.lisp b/sql/objects.lisp
index af5aaea..e6a9457 100644
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -808,6 +808,13 @@ superclass of the newly-defined View Class."
 		     :from (sql-expression :table jc-view-table)
 		     :where jq)))))))
 
+
+;;; Remote Joins
+
+(defvar *default-update-objects-max-len* nil
+  "The default maximum number of objects supplying data for a
+  query when updating remote joins.")
+
 (defun update-object-joins (objects &key (slots t) (force-p t)
 			    class-name (max-len *default-update-objects-max-len*))
   "Updates the remote join slots, that is those slots defined without