t3x.org / sketchy / library / c-downcase.html
SketchyLISP
Reference
  Copyright (C) 2006
Nils M Holm

char-downcase

Conformance: R5RS

Purpose: Convert a char to lower case.

Arguments:
X - char

Implementation:

(define (char-downcase x)
  (cond ((char-upper-case? x)
      (integer->char (+ (char->integer x) 32)))
    (#t x)))

Example:

(char-downcase #\X) 
=> #\x

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