summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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))))