0.9.9.31:

	Add a declaration to GET-LATIN-BYTES to silence some efficiency
	  notes.  Makes the code smaller, too.

diff --git a/src/code/octets.lisp b/src/code/octets.lisp
index f743a4b..e768fb3 100644 (file)
--- a/src/code/octets.lisp
+++ b/src/code/octets.lisp
@@ -221,6 +221,7 @@ one-past-the-end"
 (defun get-latin-bytes (mapper external-format string pos end)
   (declare (ignore end))
   (let ((code (funcall mapper (char-code (char string pos)))))
+    (declare (type (or null char-code) code))
     (values (cond
               ((and code (< code 256)) code)
               (t

diff --git a/version.lisp-expr b/version.lisp-expr
index c45488e..d8c689e 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.9.30"
+"0.9.9.31"