diff --git a/tests/gray-streams.lisp b/tests/gray-streams.lisp index 6308882acea9d772294a55a082b201b69adf8174..7de3c1bf8be5d0741f12f6451973debe3a5f6525 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*)))))