Skip to content
Snippets Groups Projects
Commit fc3d88a6 authored by Raymond Toy's avatar Raymond Toy
Browse files

Clean up the CLEAR-OUTPUT test a bit.

parent 53bfdda4
No related branches found
No related tags found
No related merge requests found
......@@ -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*)))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment