;;; on 2008-10-16 for more info.
(with-test (:name (:character-coding-error-stream-external-format))
(flet ((first-file-character ()
;;; on 2008-10-16 for more info.
(with-test (:name (:character-coding-error-stream-external-format))
(flet ((first-file-character ()