X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Foodml.lisp;fp=sql%2Foodml.lisp;h=44c3e9ec6bc97c487107657255d593e7192437d0;hp=78c1a4f23fde5a04cda28523353fac1a4094648b;hb=6bc26b4b6f6af8b7210a04453cb83fba59642ed2;hpb=937a3d6ab1f7d730c741b213f60ed5f5f4cf2021

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 78c1a4f..44c3e9e 100644
--- 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)))))))