Update of /project/cxml/cvsroot/cxml/runes In directory clnet:/tmp/cvs-serv8223/runes
Modified Files: encodings.lisp Log Message: UTF-8 fix, thanks to Francis Leboutte
--- /project/cxml/cvsroot/cxml/runes/encodings.lisp 2005/11/28 22:22:51 1.6 +++ /project/cxml/cvsroot/cxml/runes/encodings.lisp 2007/07/22 19:59:26 1.7 @@ -250,7 +250,7 @@ (setf rptr (%+ rptr 1)))
((%<= #|#b11000000|# byte0 #b11011111) - (cond ((< (%+ rptr 2) in-end) + (cond ((<= (%+ rptr 2) in-end) (put (dpb (ldb (byte 5 0) byte0) (byte 5 6) (dpb (ldb (byte 6 0) (aref in (%+ rptr 1))) (byte 6 0) @@ -260,7 +260,7 @@ (return))))
((%<= #|#b11100000|# byte0 #b11101111) - (cond ((< (%+ rptr 3) in-end) + (cond ((<= (%+ rptr 3) in-end) (put (dpb (ldb (byte 4 0) byte0) (byte 4 12) (dpb (ldb (byte 6 0) (aref in (%+ 1 rptr))) (byte 6 6) @@ -271,7 +271,7 @@ (return))))
((%<= #|#b11110000|# byte0 #b11110111) - (cond ((< (%+ rptr 4) in-end) + (cond ((<= (%+ rptr 4) in-end) (put (dpb (ldb (byte 3 0) byte0) (byte 3 18) (dpb (ldb (byte 6 0) (aref in (%+ 1 rptr))) (byte 6 12) @@ -283,7 +283,7 @@ (return))))
((%<= #|#b11111000|# byte0 #b11111011) - (cond ((< (%+ rptr 5) in-end) + (cond ((<= (%+ rptr 5) in-end) (put (dpb (ldb (byte 2 0) byte0) (byte 2 24) (dpb (ldb (byte 6 0) (aref in (%+ 1 rptr))) (byte 6 18) @@ -296,7 +296,7 @@ (return))))
((%<= #|#b11111100|# byte0 #b11111101) - (cond ((< (%+ rptr 6) in-end) + (cond ((<= (%+ rptr 6) in-end) (put (dpb (ldb (byte 1 0) byte0) (byte 1 30) (dpb (ldb (byte 6 0) (aref in (%+ 1 rptr))) (byte 6 24)