;;;; While most of SBCL is derived from the CMU CL system, the test
;;;; files (like this one) were written from scratch after the fork
;;;; from CMU CL.
;;;; While most of SBCL is derived from the CMU CL system, the test
;;;; files (like this one) were written from scratch after the fork
;;;; from CMU CL.
;;;; This software is in the public domain and is provided with
;;;; absolutely no warranty. See the COPYING and CREDITS files for
;;;; more information.
;;; Test character decode restarts.
(with-open-file (s "bivalent-stream-test.txt" :direction :output
;;;; This software is in the public domain and is provided with
;;;; absolutely no warranty. See the COPYING and CREDITS files for
;;;; more information.
;;; Test character decode restarts.
(with-open-file (s "bivalent-stream-test.txt" :direction :output
(assert (eql (read-char s nil s) #\A))
(assert (eql (read-byte s nil s) 66))
(assert (eql (read-byte s nil s) #xe0))
(assert (eql (read-char s nil s) #\A))
(assert (eql (read-byte s nil s) 66))
(assert (eql (read-byte s nil s) #xe0))