; -*- Scheme -*-
;
; $Id: char-set-23.scm,v 1.1 1998/03/16 07:57:56 foner Exp $

(require 'char-set:from-range)

;+doc
; constant: char-set:upper-case
; signature: char-set
;
; A character set containing the upper case characters i.e. A-Z
;-doc

(define char-set:upper-case (char-set:from-range #\A #\Z))

; eof
