- #+(and (not case-sensitive) (not lowercase-reader))
- (string-upcase str)
- #+(and (not case-sensitive) lowercase-reader)
- (string-downcase str)
- #+case-sensitive
- str)
+ #+(and (not kmrcl-lowercase-reader)) (string-upcase str)
+ #+(and kmrcl-lowercase-reader) (string-downcase str))
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (setq cl:*features* (delete :kmrcl-lowercase-reader *features*))
+ (setq cl:*features* (delete :kmrcl-case-sensitive *features*)))