X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=symbols.lisp;h=870426e3e426169733930484047e168791a43908;hp=f4fc111a7f477221726ac5461b041910e26fb404;hb=e96b017d2a09ffd9c9279cb4c2341c53f0581022;hpb=baaf50bd67cbb36d51bfaf0b473cc914d140a41b

diff --git a/symbols.lisp b/symbols.lisp
index f4fc111..870426e 100644
--- a/symbols.lisp
+++ b/symbols.lisp
@@ -53,9 +53,8 @@
     (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*))