Hello,
Unibyte decoders/encoders return (- START END) rather than (- END START).
Patch follows.
Ariel
diff -rN -u old-babel/src/encodings.lisp new-babel/src/encodings.lisp
--- old-babel/src/encodings.lisp 2009-11-29 03:01:45.000000000 +0200
+++ new-babel/src/encodings.lisp 2009-11-29 03:01:45.000000000 +0200
@@ -375,7 +375,7 @@
(declare (type code-point ,',code))
(block ,',encoding ,@',body)))
,',dest ,',di)
- finally (return (the fixnum (- ,',d-start ,',di))))))))
+ finally (return (the fixnum (- ,',di ,',d-start))))))))
;;; The decoder version of the above macro.
(defmacro define-unibyte-decoder (encoding (octet) &body body)
@@ -400,7 +400,7 @@
(declare (type ub8 ,',octet))
(block ,',encoding ,@',body)))
,',dest ,',di)
- finally (return (the fixnum (- ,',d-start ,',di))))))))
+ finally (return (the fixnum (- ,',di ,',d-start))))))))
;;;; Error Conditions
;;;
