only 256 characters

Whoops. Stop adding latin1 characters at char-code 255. darcs-hash:20060317213650-30503-1eb18e69049e72a279832284157acc3ceb62df53.gz
sharplispers · Mar 17, 2006 · 8758eea · 8758eea
1 parent 0d309f6
commit 8758eea
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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))