diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-05 22:33:09 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-05 22:33:09 +0100 |
| commit | 623cd43997641e4e277ca10161e44cd9bd7ac874 (patch) | |
| tree | 8ff8c3df4629fec341c1806b5834df6c1ad56ed7 | |
| parent | e6338e2a0d1aecbd81a69bb01deddd0a2db92984 (diff) | |
Fix a bunch of problems related to the :INVERT case sensitivity mode.
darcs-hash:f829c35a91ad7e978c8973cd004f5ae5c27dcf2a
| -rw-r--r-- | Lisp/name-conversion.lisp | 6 |
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)))) |