summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-20 12:42:26 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-20 12:42:26 +0100
commite647d39511c3e3e158e3046ea3292aaa9145952b (patch)
tree6aff32c6cf1dfc2a456215c276daf44cf7d8587a /Lisp
parent52955a05962f3066c8a4c4bf83a6fcd87f718be4 (diff)
Make OBJC-CLASS-NAME->SYMBOL not fail for class names whose characters are all upper case.
darcs-hash:efeb227563f18f7f698e0386f40280e15a6496b3
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/name-conversion.lisp3
1 files changed, 2 insertions, 1 deletions
diff --git a/Lisp/name-conversion.lisp b/Lisp/name-conversion.lisp
index 5f3b397..bec232b 100644
--- a/Lisp/name-conversion.lisp
+++ b/Lisp/name-conversion.lisp
@@ -60,7 +60,8 @@
(define-cached-function objc-class-name->symbol (class-name) class-name
- (let ((prefix-end (1- (position-if #'lower-case-p class-name))))
+ (let* ((prefix-end+1 (position-if #'lower-case-p class-name))
+ (prefix-end (and prefix-end+1 (1- prefix-end+1))))
(cond ((and prefix-end (> prefix-end 0))
;; There are n upper case chars at the head of the name.
;; Take the first (1- n) of them and downcase them. Then,