From 1363121ddb1d2e722e2e41d1c93758551066797c Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Tue, 14 Feb 2006 19:38:38 +0000 Subject: [PATCH] 0.9.9.31: Add a declaration to GET-LATIN-BYTES to silence some efficiency notes. Makes the code smaller, too. --- src/code/octets.lisp | 1 + version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) 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" -- 1.7.10.4