r9259: fix typo in var name

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 18444be9068161dbb497c4692696a82806a3f43a..6b2fb4b0b892391a84bd15227ff298c98cd94b2e 100644 (file)
--- 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)
                     :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
   "Updates the remote join slots, that is those slots defined without :retrieval :immediate."
   (when objects
     (unless class-name