t3x.org / sketchy / library / c-upper-casep.html
SketchyLISP
Reference
  Copyright (C) 2007
Nils M Holm

char-upper-case?

Conformance: R5RS Scheme

Purpose: Test whether a char is an upper case letter.

Arguments:
X - char

Implementation:

(define (char-upper-case? x)
  (and (char<=? #\A x)
       (char<=? x #\Z)))

Example:

(char-upper-case? #\X) 
=> #t

See also:
char-lower-case?, char-alphabetic?.