From 8558add19eefe21ccddbadfbe927d91245d30128 Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 22 Jul 2007 19:59:26 +0000 Subject: [PATCH] UTF-8 fix, thanks to Francis Leboutte --- encodings.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/encodings.lisp b/encodings.lisp index 6e26ed7..5788adb 100644 --- a/encodings.lisp +++ b/encodings.lisp @@ -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)