+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (when (char= #\a (symbol-name '#:a))
+ (pushnew :lowercase-reader *features*)))
+
+(defun string-default-case (str)
+ #+(and (not case-sensitive) (not lowercase-reader))
+ (string-upcase str)
+ #+(and (not case-sensitive) lowercase-reader)
+ (string-downcase str)
+ #+case-sensitive
+ str)
+