`(funcall (,slot stream) stream ,@args))))
(defmacro with-out-stream (stream (slot &rest args) &optional stream-dispatch)
- `(with-out-stream/no-synonym ,stream (,slot ,@args) ,stream-dispatch))
+ `(with-out-stream/no-synonym (out-synonym-of ,stream)
+ (,slot ,@args) ,stream-dispatch))
\f
;;;; These are hacks to make the reader win.
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.3.46"
+"0.9.3.47"