From: Russ Tyndall <russ@acceleration.net>
Date: Mon, 24 Feb 2014 18:59:16 +0000 (-0500)
Subject: bind *print-length* to nil when printing lists/arrays to the database.
X-Git-Tag: v6.5.0~2
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=6bc26b4b6f6af8b7210a04453cb83fba59642ed2

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

diff --git a/ChangeLog b/ChangeLog
index d875bec..fc14631 100644
--- 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 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)))))))