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