Skip to content
Snippets Groups Projects
Commit 7c3a82a7 authored by ram's avatar ram
Browse files

Fixed OUTPUT-VECTOR to not consider *PRINT-ARRAY* in string printing.

parent 9cd3f69b
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.31 1991/12/13 10:08:08 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.32 1992/01/02 23:44:17 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -942,16 +942,16 @@ ...@@ -942,16 +942,16 @@
(defun output-vector (vector stream) (defun output-vector (vector stream)
(declare (vector vector)) (declare (vector vector))
(if (or *print-array* *print-readably*) (cond ((stringp vector)
(typecase vector
(bit-vector
(write-string "#*" stream)
(dotimes (i (length vector))
(output-object (aref vector i) stream)))
(string
(if (or *print-escape* *print-readably*) (if (or *print-escape* *print-readably*)
(quote-string vector stream) (quote-string vector stream)
(write-string vector stream))) (write-string vector stream)))
((not (or *print-array* *print-readably*))
(output-terse-array vector stream))
((bit-vector-p vector)
(write-string "#*" stream)
(dotimes (i (length vector))
(output-object (aref vector i) stream)))
(t (t
(when (and *print-readably* (when (and *print-readably*
(not (eq (array-element-type vector) 't))) (not (eq (array-element-type vector) 't)))
...@@ -963,8 +963,7 @@ ...@@ -963,8 +963,7 @@
(write-char #\space stream)) (write-char #\space stream))
(punt-if-too-long i stream) (punt-if-too-long i stream)
(output-object (aref vector i) stream)) (output-object (aref vector i) stream))
(write-string ")" stream)))) (write-string ")" stream)))))
(output-terse-array vector stream)))
;;; QUOTE-STRING -- Internal. ;;; QUOTE-STRING -- Internal.
;;; ;;;
......
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