From 216a9cfe00614554d3dace23a8ccf75d492dba1f Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Fri, 22 Jan 2010 23:57:29 +0000 Subject: [PATCH] Fix handling of the byte-order mark. The state was not getting set properly. (Broken in previous change for fast streams.) --- pcl/simple-streams/external-formats/utf-16.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pcl/simple-streams/external-formats/utf-16.lisp b/pcl/simple-streams/external-formats/utf-16.lisp index d71c75b86..f15a9b4fd 100644 --- a/pcl/simple-streams/external-formats/utf-16.lisp +++ b/pcl/simple-streams/external-formats/utf-16.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: STREAM -*- ;;; ;;; ********************************************************************** -(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-16.lisp,v 1.5 2009/10/18 14:21:24 rtoy Exp $") +(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-16.lisp,v 1.6 2010/01/22 23:57:29 rtoy Exp $") (in-package "STREAM") @@ -78,9 +78,9 @@ ,wd 4) (setf ,code +replacement-character-code+)))) ((and (= ,code #xFFFE) (zerop ,st)) - (setf ,state 1) (go :again)) + (setf (car ,state) 1) (go :again)) ((and (= ,code #xFEFF) (zerop ,st)) - (setf ,state 2) (go :again)) + (setf (car ,state) 2) (go :again)) ((= ,code #xFFFE) ;; Replace with REPLACEMENT CHARACTER. (setf ,code +replacement-character-code+))) -- GitLab