r10174: fix dotted-to-ipaddr

[kmrcl.git] / symbols.lisp

diff --git a/symbols.lisp b/symbols.lisp
index f4fc111a7f477221726ac5461b041910e26fb404..870426e3e426169733930484047e168791a43908 100644 (file)
--- 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*))