From 6bc26b4b6f6af8b7210a04453cb83fba59642ed2 Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Mon, 24 Feb 2014 13:59:16 -0500 Subject: [PATCH] bind *print-length* to nil when printing lists/arrays to the database. --- ChangeLog | 4 ++++ sql/oodml.lisp | 1 + 2 files changed, 5 insertions(+) diff --git a/ChangeLog b/ChangeLog index d875bec..fc14631 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2014-02-24 Russ Tyndall + * oodml.lisp bind *print-length* to nil before printing + lists/arrays to the database. + 2014-01-30 Russ Tyndall * 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))))))) -- 2.34.1