Skip to content
Snippets Groups Projects
Commit 426a87d5 authored by pmai's avatar pmai
Browse files

Fixed a bug in the pretty-printer for vectors, where the handling of

*print-length* would cause the ellipsis to be printed directly adjacent
to the previous item, rather than separated via a space, which could cause
the reader not to detect the abbreviation.
parent 50506917
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.29 2001/03/13 16:52:14 pw Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.30 2001/06/11 14:22:09 pmai Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1128,10 +1128,10 @@
(defun pprint-vector (stream vector)
(pprint-logical-block (stream nil :prefix "#(" :suffix ")")
(dotimes (i (length vector))
(pprint-pop)
(unless (zerop i)
(write-char #\space stream)
(pprint-newline :fill stream))
(pprint-pop)
(output-object (aref vector i) stream))))
(defun pprint-array-contents (stream array)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment