CMUCL commit: src (code/print.lisp general-info/release-20b.txt)

[Raymond Toy]

    Date: Friday, April 16, 2010 @ 08:54:53
  Author: rtoy
    Path: /project/cmucl/cvsroot/src

Modified: code/print.lisp general-info/release-20b.txt

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


------------------------------+
 code/print.lisp              |    9 +++++----
 general-info/release-20b.txt |    2 ++
 2 files changed, 7 insertions(+), 4 deletions(-)


Index: src/code/print.lisp
diff -u src/code/print.lisp:1.128 src/code/print.lisp:1.129
--- src/code/print.lisp:1.128	Thu Apr 15 20:28:07 2010
+++ src/code/print.lisp	Fri Apr 16 08:54:53 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/print.lisp,v 1.128 2010-04-16 00:28:07 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/print.lisp,v 1.129 2010-04-16 12:54:53 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -216,8 +216,8 @@
 
 (defun princ-to-string (object)
   _N"Returns the printed representation of OBJECT as a string with
-  slashification off."
-  (stringify-object object nil))
+  slashification off and readability off."
+  (stringify-object object nil nil))
 
 ;;; STRINGIFY-OBJECT -- Internal.
 ;;;
@@ -226,7 +226,8 @@
 ;;;
 (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*
 		    (pop *string-output-streams*)
 		    (make-string-output-stream))))
Index: src/general-info/release-20b.txt
diff -u src/general-info/release-20b.txt:1.15 src/general-info/release-20b.txt:1.16
--- src/general-info/release-20b.txt:1.15	Thu Apr 15 20:28:07 2010
+++ src/general-info/release-20b.txt	Fri Apr 16 08:54:53 2010
@@ -50,6 +50,8 @@
       set.)
     - WITH-STANDARD-IO-SYNTAX uses the standard pprint dispatch 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:
     - On Unicode builds, printing of '|\|| and '|`| was incorrect