- (with-output-to-string (string)
- (let ((gray-output-stream (make-character-output-stream string)))
- (format gray-output-stream
- "~@<testing: ~@:_pretty Gray line breaks~:>~%")))))
+ (with-output-to-string (string)
+ (let ((gray-output-stream (make-character-output-stream string)))
+ (format gray-output-stream
+ "~@<testing: ~@:_pretty Gray line breaks~:>~%")))))