projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.13.7:
[sbcl.git]
/
src
/
code
/
pprint.lisp
diff --git
a/src/code/pprint.lisp
b/src/code/pprint.lisp
index
baf4088
..
af346a5
100644
(file)
--- a/
src/code/pprint.lisp
+++ b/
src/code/pprint.lisp
@@
-974,7
+974,8
@@
(stringp array)
(bit-vector-p array))
(output-ugly-object array stream))
(stringp array)
(bit-vector-p array))
(output-ugly-object array stream))
- ((and *print-readably* (not (eq (array-element-type array) t)))
+ ((and *print-readably*
+ (not (array-readably-printable-p array)))
(let ((*print-readably* nil))
(error 'print-not-readable :object array)))
((vectorp array)
(let ((*print-readably* nil))
(error 'print-not-readable :object array)))
((vectorp array)
@@
-1364,5
+1365,4
@@
(/show0 "leaving !PPRINT-COLD-INIT"))
(setf *print-pprint-dispatch* (copy-pprint-dispatch nil))
(/show0 "leaving !PPRINT-COLD-INIT"))
(setf *print-pprint-dispatch* (copy-pprint-dispatch nil))
- (setf *pretty-printer* #'output-pretty-object)
(setf *print-pretty* t))
(setf *print-pretty* t))