From 8758eeac5de943def274663df5ba43014f6b05b6 Mon Sep 17 00:00:00 2001
From: csr21 <csr21@cam.ac.uk>
Date: Fri, 17 Mar 2006 13:36:50 -0800
Subject: [PATCH] only 256 characters

Whoops.  Stop adding latin1 characters at char-code 255.

darcs-hash:20060317213650-30503-1eb18e69049e72a279832284157acc3ceb62df53.gz
---
 keysyms.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/keysyms.lisp b/keysyms.lisp
index d56a4f4..92fc5ec 100644
--- a/keysyms.lisp
+++ b/keysyms.lisp
@@ -175,7 +175,7 @@
 #+sbcl
 (progn
   (do ((i 160 (+ i 1)))
-      ((> i 256))
+      ((>= i 256))
     (if (or (<= #xc0 i #xd6)
             (<= #xd8 i #xde))
         (define-keysym (code-char i) i :lowercase (+ i 32))