projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.42.9: fix defmethod declarations for aliases of builtin classes as specializers
[sbcl.git]
/
src
/
code
/
print.lisp
diff --git
a/src/code/print.lisp
b/src/code/print.lisp
index
0e989ca
..
fd90bd2
100644
(file)
--- 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))))
(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)
,object))))
(defun prin1 (object &optional stream)
@@
-277,9
+277,10
@@
(push variable ignore))
(push (list variable value) bind)))
(if bind
(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)
`(stringify-object ,object))))
(defun prin1-to-string (object)