- #+kmrcl-case-sensitive str
- #+(and (not kmrcl-case-sensitive) (not kmrcl-lowercase-reader)) (string-upcase str)
- #+(and (not kmrcl-case-sensitive) kmrcl-lowercase-reader) (string-downcase str))
+ #+(and (not kmrcl-lowercase-reader)) (string-upcase str)
+ #+(and kmrcl-lowercase-reader) (string-downcase str))