From: Nathan Froyd <froydnj@cs.rice.edu>
Date: Tue, 14 Feb 2006 19:38:38 +0000 (+0000)
Subject: 0.9.9.31:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1363121ddb1d2e722e2e41d1c93758551066797c;p=sbcl.git

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
--- 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
--- 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"