Skip to content
Snippets Groups Projects
Commit 6213498a authored by rtoy's avatar rtoy
Browse files

PRINC-TO-STRING should bind *PRINT-READABLY* to NIL.

code/print.lisp:
o Add optional *PRINT-READABLY* argument to STRINGIFY-OBJECT.
o Update PRINC-TO-STRING with new docstring and call STRINGIFY-OBJECT
  with *PRINT-READABLY* bound to NIL.

general-info/release-20b.txt:
o Update
parent 800d83dd
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.128 2010/04/16 00:28:07 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.129 2010/04/16 12:54:53 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -216,8 +216,8 @@ ...@@ -216,8 +216,8 @@
(defun princ-to-string (object) (defun princ-to-string (object)
_N"Returns the printed representation of OBJECT as a string with _N"Returns the printed representation of OBJECT as a string with
slashification off." slashification off and readability off."
(stringify-object object nil)) (stringify-object object nil nil))
;;; STRINGIFY-OBJECT -- Internal. ;;; STRINGIFY-OBJECT -- Internal.
;;; ;;;
...@@ -226,7 +226,8 @@ ...@@ -226,7 +226,8 @@
;;; ;;;
(defvar *string-output-streams* ()) (defvar *string-output-streams* ())
;;; ;;;
(defun stringify-object (object &optional (*print-escape* *print-escape*)) (defun stringify-object (object &optional (*print-escape* *print-escape*)
(*print-readably* *print-readably*))
(let ((stream (if *string-output-streams* (let ((stream (if *string-output-streams*
(pop *string-output-streams*) (pop *string-output-streams*)
(make-string-output-stream)))) (make-string-output-stream))))
......
...@@ -50,6 +50,8 @@ New in this release: ...@@ -50,6 +50,8 @@ New in this release:
set.) set.)
- WITH-STANDARD-IO-SYNTAX uses the standard pprint dispatch table - WITH-STANDARD-IO-SYNTAX uses the standard pprint dispatch table
now instead of the current table. now instead of the current table.
- PRINC-TO-STRING binds *PRINT-READABLY* to NIL as required.
Previously, it used the current value of *PRINT-READABLY*.
* Bugfixes: * Bugfixes:
- On Unicode builds, printing of '|\|| and '|`| was incorrect - On Unicode builds, printing of '|\|| and '|`| was incorrect
......
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