From baaf50bd67cbb36d51bfaf0b473cc914d140a41b Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 13 May 2004 09:39:08 +0000 Subject: [PATCH] r9341: fix case reading --- symbols.lisp | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/symbols.lisp b/symbols.lisp index 3621ac4..f4fc111 100644 --- a/symbols.lisp +++ b/symbols.lisp @@ -47,15 +47,19 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (when (char= #\a (schar (symbol-name '#:a) 0)) - (pushnew :lowercase-reader *features*)) - (when (not (eql '#:a '#:A)) - (pushnew :case-sensitive *features*))) + (pushnew :kmrcl-lowercase-reader *features*)) + (when (not (string= (symbol-name '#:a) + (symbol-name '#:A))) + (pushnew :kmrcl-case-sensitive *features*))) (defun string-default-case (str) - #-lowercase-reader - (string-upcase str) - #+lowercase-reader - (string-downcase 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)) + +(eval-when (:compile-toplevel :load-toplevel :execute) + (setq cl:*features* (delete :kmrcl-lowercase-reader *features*)) + (setq cl:*features* (delete :kmrcl-case-sensitive *features*))) (defun concat-symbol-pkg (pkg &rest args) (declare (dynamic-extent args)) -- 2.34.1