X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fobjects.lisp;h=6b2fb4b0b892391a84bd15227ff298c98cd94b2e;hb=f246c3c7b48792a869cb1bae0637a2f00a0920bd;hp=18444be9068161dbb497c4692696a82806a3f43a;hpb=aced01441ccf8a826de544ed34bed4d8616a14ee;p=clsql.git

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 18444be..6b2fb4b 100644
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -783,7 +783,7 @@ superclass of the newly-defined View Class."
 		     :where jq)))))))
 
 (defun update-object-joins (objects &key (slots t) (force-p t)
-			    class-name (max-len *default-update-objects-max-len))
+			    class-name (max-len *default-update-objects-max-len*))
   "Updates the remote join slots, that is those slots defined without :retrieval :immediate."
   (when objects
     (unless class-name