r9421: Docstrings for table.lisp

[clsql.git] / sql / objects.lisp

diff --git a/sql/objects.lisp b/sql/objects.lisp
index af5aaea1c476cbd5f1b8690e5f8b110a8d1b88ef..e6a9457a9dacf8fa2d00b814b37ba9fed7aedc96 100644 (file)
--- 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