projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
((list vector array)
(let* ((*print-circle* t)
(*print-array* t)
+ (*print-length* nil)
(value (prin1-to-string val)))
value))
(otherwise (call-next-method)))))))
(value (prin1-to-string val)))
value))
(otherwise (call-next-method)))))))