Commit 43a0193b498381bba9708d152df9b5ee4e76ceae
2017-06-20T22:50:37
untabify
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
diff --git a/fd-flexi.lisp b/fd-flexi.lisp
index 6936e12..08608d1 100644
--- a/fd-flexi.lisp
+++ b/fd-flexi.lisp
@@ -20,36 +20,36 @@
(defun input-stream (fd &optional (external-format :utf-8))
(make-flexi-stream (fd-gray:input-stream fd)
- :external-format external-format))
+ :external-format external-format))
(defmacro with-input-stream ((var fd &optional (external-format :utf-8))
- &body body)
+ &body body)
(let ((stream (gensym "STREAM-")))
`(let ((,stream (input-stream ,fd ,external-format)))
(unwind-protect (let ((,var ,stream))
- ,@body)
- (close ,stream)))))
+ ,@body)
+ (close ,stream)))))
(defun output-stream (fd &optional (external-format :utf-8))
(make-flexi-stream (fd-gray:output-stream fd)
- :external-format external-format))
+ :external-format external-format))
(defmacro with-output-stream ((var fd &optional (external-format :utf-8))
- &body body)
+ &body body)
(let ((stream (gensym "STREAM-")))
`(let ((,stream (output-stream ,fd ,external-format)))
(unwind-protect (let ((,var ,stream))
- ,@body)
- (close ,stream)))))
+ ,@body)
+ (close ,stream)))))
(defun io-stream (fd &optional (external-format :utf-8))
(make-flexi-stream (fd-gray:io-stream fd)
- :external-format external-format))
+ :external-format external-format))
(defmacro with-io-stream ((var fd &optional (external-format :utf-8))
- &body body)
+ &body body)
(let ((stream (gensym "STREAM-")))
`(let ((,stream (io-stream ,fd ,external-format)))
(unwind-protect (let ((,var ,stream))
- ,@body)
- (close ,stream)))))
+ ,@body)
+ (close ,stream)))))