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

diff --git a/ChangeLog b/ChangeLog
index d875bec1463a01e02b035874bad05f797cb8695f..fc146317369149311b37e41a10f8e9b2b487770f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2014-02-24 Russ Tyndall <russ@acceleration.net>
+       * oodml.lisp bind *print-length* to nil before printing
+       lists/arrays to the database.
+
 2014-01-30 Russ Tyndall <russ@acceleration.net>
        * sqlite3-sql.lisp specify :utf-8 as the default encoding if there
        is not one (allows :clsql-cffi to be closer to working for this

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)))))))