((type= type (specifier-type 'standard-char)) 'standard-char)
(t (let ((pairs (character-set-type-pairs type)))
`(member ,@(loop for (low . high) in pairs
((type= type (specifier-type 'standard-char)) 'standard-char)
(t (let ((pairs (character-set-type-pairs type)))
`(member ,@(loop for (low . high) in pairs