diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-20 12:42:26 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-20 12:42:26 +0100 |
| commit | e647d39511c3e3e158e3046ea3292aaa9145952b (patch) | |
| tree | 6aff32c6cf1dfc2a456215c276daf44cf7d8587a | |
| parent | 52955a05962f3066c8a4c4bf83a6fcd87f718be4 (diff) | |
Make OBJC-CLASS-NAME->SYMBOL not fail for class names whose characters are all upper case.
darcs-hash:efeb227563f18f7f698e0386f40280e15a6496b3
| -rw-r--r-- | Lisp/name-conversion.lisp | 3 |
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, |