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

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*))