summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 22:41:49 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 22:41:49 +0100
commitb7ffdea2a207ec03acdc931cb8422d7e85e42ee8 (patch)
tree694b95c6d349a27741ff91d4d050b5a298262f9e
parent623cd43997641e4e277ca10161e44cd9bd7ac874 (diff)
Treat the :UPCASE case sensitivity mode like the :INVERT mode.
darcs-hash:737329e5ebc5a71f0f3d2d8b46cbf7db2b59149a
-rw-r--r--Lisp/name-conversion.lisp2
1 files changed, 1 insertions, 1 deletions
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)))