X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=fd90bd2044b04b1e7358ac52c0f32c3561023a0a;hb=30a7667ec095ac9b78a826c445b9af78c9c183ba;hp=0e989cadb48000383c192a7060a6cbb3b4838cc0;hpb=a7f04616aa9d77ba780a2a6cf6c78b250b1d4a07;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 0e989ca..fd90bd2 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -196,7 +196,7 @@
     (once-only ((object object))
       `(let ,(nreverse bind)
          ,@(when ignore `((declare (ignore ,@ignore))))
-         (output-object ,object stream)
+         (output-object ,object (out-synonym-of stream))
          ,object))))
 
 (defun prin1 (object &optional stream)
@@ -277,9 +277,10 @@
           (push variable ignore))
         (push (list variable value) bind)))
     (if bind
-        `(let ,(nreverse bind)
-           ,@(when ignore `((declare (ignore ,@ignore))))
-           (stringify-object ,object))
+        (once-only ((object object))
+          `(let ,(nreverse bind)
+             ,@(when ignore `((declare (ignore ,@ignore))))
+             (stringify-object ,object)))
         `(stringify-object ,object))))
 
 (defun prin1-to-string (object)