Fixing typo in flush-output-port on textual port test case.

This commit is contained in:
Alex Shinn 2012-11-23 16:52:00 +09:00
parent 213e78037a
commit 3dc5ecf16f

View file

@ -1510,7 +1510,7 @@
(get-output-string out))) (get-output-string out)))
(test "" (test ""
(let ((out (open-output-bytevector))) (let ((out (open-output-string)))
(flush-output-port out) (flush-output-port out)
(get-output-string out))) (get-output-string out)))