From b7ffdea2a207ec03acdc931cb8422d7e85e42ee8 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 5 Feb 2008 22:41:49 +0100
Subject: Treat the :UPCASE case sensitivity mode like the :INVERT mode.

darcs-hash:737329e5ebc5a71f0f3d2d8b46cbf7db2b59149a
---
 Lisp/name-conversion.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Lisp')

diff --git a/Lisp/name-conversion.lisp b/Lisp/name-conversion.lisp
index 6309962..dcff468 100644
--- a/Lisp/name-conversion.lisp
+++ b/Lisp/name-conversion.lisp
@@ -137,7 +137,7 @@
 
 (defun name->canonised-lower-case (string)
   (cond ((name-in-canonical-case-p string) (string-downcase string))
-        ((and (eq (readtable-case *readtable*) :invert)
+        ((and (member (readtable-case *readtable*) '(:upcase :invert))
               (notany #'upper-case-p string))
          (string-upcase string))
         (t string)))
-- 
cgit v1.2.3