From: Owen Rodley <Strigoides@gmail.com>
Date: Thu, 9 May 2013 02:55:32 +0000 (+1200)
Subject: Fix ALPHA-CHAR-P for capital letters
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=797de724195c1357526f639a84b0fb63cb258f3a;p=jscl.git

Fix ALPHA-CHAR-P for capital letters
---

diff --git a/src/boot.lisp b/src/boot.lisp
index 72c43cb..44587f2 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -386,7 +386,7 @@
 
 (defun alpha-char-p (x)
   (or (<= (char-code #\a) (char-code x) (char-code #\z))
-      (<= (char-code #\Z) (char-code x) (char-code #\Z))))
+      (<= (char-code #\A) (char-code x) (char-code #\Z))))
 
 (defun digit-char-p (x)
   (if (and (<= (char-code #\0) (char-code x) (char-code #\9)))