bind *print-length* to nil when printing lists/arrays to the database.

[clsql.git] / sql / oodml.lisp

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 78c1a4f23fde5a04cda28523353fac1a4094648b..44c3e9ec6bc97c487107657255d593e7192437d0 100644 (file)
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -586,6 +586,7 @@
            ((list vector array)
             (let* ((*print-circle* t)
                    (*print-array* t)
+                   (*print-length* nil)
                    (value (prin1-to-string val)))
               value))
            (otherwise (call-next-method)))))))