(t (let ((pairs (character-set-type-pairs type)))
`(member ,@(loop for (low . high) in pairs
nconc (loop for code from low upto high
(t (let ((pairs (character-set-type-pairs type)))
`(member ,@(loop for (low . high) in pairs
nconc (loop for code from low upto high