summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 22:33:09 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 22:33:09 +0100
commit623cd43997641e4e277ca10161e44cd9bd7ac874 (patch)
tree8ff8c3df4629fec341c1806b5834df6c1ad56ed7
parente6338e2a0d1aecbd81a69bb01deddd0a2db92984 (diff)
Fix a bunch of problems related to the :INVERT case sensitivity mode.
darcs-hash:f829c35a91ad7e978c8973cd004f5ae5c27dcf2a
-rw-r--r--Lisp/name-conversion.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/Lisp/name-conversion.lisp b/Lisp/name-conversion.lisp
index d882548..6309962 100644
--- a/Lisp/name-conversion.lisp
+++ b/Lisp/name-conversion.lisp
@@ -100,7 +100,7 @@
(defun objc-meta-class-name->symbol (meta-class-name)
(let ((*package* (find-package '#:objective-c-classes)))
(export-and-return
- (read-from-string
+ (intern
(concatenate 'string
"+"
(symbol-name (objc-class-name->symbol meta-class-name)))))))
@@ -146,9 +146,9 @@
(defun name-in-canonical-case-p (string
&optional
(case-mode (readtable-case *readtable*)))
- (or (and (member case-mode '(:downcase :invert :preserve))
+ (or (and (member case-mode '(:downcase :preserve))
(notany #'upper-case-p string))
- (and (member case-mode '(:upcase))
+ (and (member case-mode '(:upcase :invert))
(notany #'lower-case-p string))))