diff options
| -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, |