(pushnew :kmrcl-case-sensitive *features*)))
(defun string-default-case (str)
- #+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))
(eval-when (:compile-toplevel :load-toplevel :execute)
(setq cl:*features* (delete :kmrcl-lowercase-reader *features*))