CMUCL commit: src/pcl/simple-streams/external-formats (utf-16.lisp)

[Raymond Toy]

    Date: Friday, January 22, 2010 @ 18:57:29
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats

Modified: utf-16.lisp

Fix handling of the byte-order mark.  The state was not getting set
properly.  (Broken in previous change for fast streams.)


-------------+
 utf-16.lisp |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)


Index: src/pcl/simple-streams/external-formats/utf-16.lisp
diff -u src/pcl/simple-streams/external-formats/utf-16.lisp:1.5 src/pcl/simple-streams/external-formats/utf-16.lisp:1.6
--- src/pcl/simple-streams/external-formats/utf-16.lisp:1.5	Sun Oct 18 10:21:24 2009
+++ src/pcl/simple-streams/external-formats/utf-16.lisp	Fri Jan 22 18:57:29 2010
@@ -1,7 +1,7 @@
 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: STREAM -*-
 ;;;
 ;;; **********************************************************************
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/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+)))