X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=018cf57f29c9eae3f5de04761994faf2bcbed2e3;hb=3fe0010d2777b41e01ea9b4a0f894cfa40f7df1b;hp=4d7aa09b28f7adf9ec7699099d346e4c800d4862;hpb=3a2c2a2217f77e0d1a44a581c83e0311ebc2594a;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 4d7aa09..018cf57 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -230,16 +230,11 @@
 
 ;;; This produces the printed representation of an object as a string.
 ;;; The few ...-TO-STRING functions above call this.
-(defvar *string-output-streams* ())
 (defun stringify-object (object)
-  (let ((stream (if *string-output-streams*
-		    (pop *string-output-streams*)
-		    (make-string-output-stream))))
+  (let ((stream (make-string-output-stream)))
     (setup-printer-state)
     (output-object object stream)
-    (prog1
-	(get-output-stream-string stream)
-      (push stream *string-output-streams*))))
+    (get-output-stream-string stream)))
 
 ;;;; support for the PRINT-UNREADABLE-OBJECT macro