- (if string
- (setf (sm out-buffer stream) string
- (sm max-out-pos stream) (length string))
- (let ((buflen (max (device-buffer-length stream) 16)))
- (setf (sm out-buffer stream) (make-string buflen)
- (sm max-out-pos stream) buflen)))))
+ (if string
+ (setf (sm out-buffer stream) string
+ (sm max-out-pos stream) (length string))
+ (let ((buflen (max (device-buffer-length stream) 16)))
+ (setf (sm out-buffer stream) (make-string buflen)
+ (sm max-out-pos stream) buflen)))))