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

Test for state change was wrong.

parent f3db74d4
No related branches found
No related tags found
No related merge requests found
...@@ -829,6 +829,7 @@ ...@@ -829,6 +829,7 @@
(flet (flet
((convert-buffer () ((convert-buffer ()
(let ((old-state (fd-stream-oc-state stream))) (let ((old-state (fd-stream-oc-state stream)))
(format t "old-state = ~S~%" old-state)
(multiple-value-bind (s char-count octet-count new-state) (multiple-value-bind (s char-count octet-count new-state)
(stream::octets-to-string-counted (stream::octets-to-string-counted
ibuf ibuf
...@@ -847,7 +848,6 @@ ...@@ -847,7 +848,6 @@
(format t "char-count = ~A~%" char-count) (format t "char-count = ~A~%" char-count)
(format t "octet-count = ~A~%" octet-count) (format t "octet-count = ~A~%" octet-count)
(format t "in-index = ~A~%" (lisp-stream-in-index stream)) (format t "in-index = ~A~%" (lisp-stream-in-index stream))
(format t "old state = ~S~%" old-state)
(format t "new state = ~S~%" new-state)) (format t "new state = ~S~%" new-state))
;; FIXME: We need to know if a BOM ;; FIXME: We need to know if a BOM
;; character was read so that we can ;; character was read so that we can
...@@ -869,8 +869,9 @@ ...@@ -869,8 +869,9 @@
;; octet-count by 2 for the BOM because ;; octet-count by 2 for the BOM because
;; OCTETS-TO-STRING doesn't include that ;; OCTETS-TO-STRING doesn't include that
;; in its count. ;; in its count.
(when (not (eql (cadr old-state) (when (and (consp (cdr new-state))
(cadr new-state))) (not (eql (cadr old-state)
(cadr new-state))))
#+debug-frc-sr #+debug-frc-sr
(format t "state changed from ~S to ~S~%" old-state new-state) (format t "state changed from ~S to ~S~%" old-state new-state)
;; See utf-16.lisp and utf-32.lisp to ;; See utf-16.lisp and utf-32.lisp to
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment