From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Thu, 6 May 2004 00:36:09 +0000 (+0000)
Subject: r9259: fix typo in var name
X-Git-Tag: v3.8.6~503
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=f246c3c7b48792a869cb1bae0637a2f00a0920bd;ds=sidebyside

r9259: fix typo in var name
---

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