- ;; All kinds of wrapped input streams have the same issue.
- (list (lambda (wrapped-stream-name)
- (make-synonym-stream wrapped-stream-name))
- (lambda (wrapped-stream-name)
- (make-two-way-stream (symbol-value wrapped-stream-name)
- *standard-output*))
- (lambda (wrapped-stream-name)
- (make-concatenated-stream (symbol-value wrapped-stream-name)
- (make-string-input-stream "")))))
+ ;; All kinds of wrapped input streams have the same issue.
+ (list (lambda (wrapped-stream-name)
+ (make-synonym-stream wrapped-stream-name))
+ (lambda (wrapped-stream-name)
+ (make-two-way-stream (symbol-value wrapped-stream-name)
+ *standard-output*))
+ (lambda (wrapped-stream-name)
+ (make-concatenated-stream (symbol-value wrapped-stream-name)
+ (make-string-input-stream "")))))