From fc3d88a64b6d6297d2b8639032b4f92d6d242149 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sat, 9 Aug 2014 22:15:31 -0700
Subject: [PATCH] Clean up the CLEAR-OUTPUT test a bit.

---
 tests/gray-streams.lisp | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/tests/gray-streams.lisp b/tests/gray-streams.lisp
index 6308882ac..7de3c1bf8 100644
--- a/tests/gray-streams.lisp
+++ b/tests/gray-streams.lisp
@@ -24,16 +24,16 @@
   ;; Create a Gray stream and make sure that clear-output works.
   (assert-eql
    0
-   (unwind-protect
-	(let ((s (open *test-file*
-		       :direction :output
-		       :if-exists :supersede
-		       :class 'lisp::character-output-stream)))
-	  (write-char #\a s)
-	  (clear-output s)
-	  (close s)
-	  (setf s (open *test-file*))
-	  (file-length s))
-     (delete-file *test-file*))))
-		      
-    
\ No newline at end of file
+   (let ((s (open *test-file*
+		  :direction :output
+		  :if-exists :supersede
+		  :class 'lisp::character-output-stream)))
+     (unwind-protect
+	  (progn
+	    (write-char #\a s)
+	    (clear-output s)
+	    (close s)
+	    (setf s (open *test-file*))
+	    (file-length s))
+       (close s)
+       (delete-file *test-file*)))))
-- 
GitLab