From e647d39511c3e3e158e3046ea3292aaa9145952b Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 20 Feb 2008 12:42:26 +0100 Subject: Make OBJC-CLASS-NAME->SYMBOL not fail for class names whose characters are all upper case. darcs-hash:efeb227563f18f7f698e0386f40280e15a6496b3 --- Lisp/name-conversion.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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, -- cgit v1.2.3