Character case predicates.

[jscl.git] / src / char.lisp

diff --git a/src/char.lisp b/src/char.lisp
index 6fe28b6..2a36d91 100644 (file)
--- a/src/char.lisp
+++ b/src/char.lisp
@@ -282,6 +282,15 @@ character exists."
          (or (< 31 n 127)
              (= n 10)))))
 
+(defun upper-case-p (character)
+  (char/= character (char-downcase character)))
+
+(defun lower-case-p (character)
+  (char/= character (char-upcase character)))
+
+(defun both-case-p (character)
+  (or (upper-case-p character) (lower-case-p character)))
+
 (defun char-int (character)
   ;; no implementation-defined character attributes
   (char-code character))