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

char-ci=?

Conformance: R5RS Scheme

Purpose: Case-insensitively test whether all chars in a sequence are equal.

Arguments:
X - char
Y... - chars

Model:

(define char-ci=?
  (predicate-iterator
    (lambda (x y)
      (= (char->integer (char-downcase x))
         (char->integer (char-downcase y))))))

Implementation:

; This function is a primitive function.

Example:

(char-ci=? #\C #\c #\C) 
=> #t

See also:
char=?, char-ci<?, char-ci>?, char-ci<=?, char-ci>=?, string=?, equal?.