diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-15 10:02:33 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-15 10:02:33 +0100 |
| commit | b7e20e88d6b2bc438c6bc7c9208957432abc7ac8 (patch) | |
| tree | 5a5642bf7891401c502e5a9150c2cc972f5ffff5 /Lisp | |
| parent | 8ec38c1b5c51f22af38b5664a030fadc0b8521a9 (diff) | |
Enable caching for OBJC-CLASS-NAME->SYMBOL.
darcs-hash:7f154797a202c06d30bffa4e6859887ed18642bc
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/name-conversion.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/name-conversion.lisp b/Lisp/name-conversion.lisp index 84a0c82..5f3b397 100644 --- a/Lisp/name-conversion.lisp +++ b/Lisp/name-conversion.lisp @@ -59,7 +59,7 @@ symbol) -(defun objc-class-name->symbol (class-name) +(define-cached-function objc-class-name->symbol (class-name) class-name (let ((prefix-end (1- (position-if #'lower-case-p class-name)))) (cond ((and prefix-end (> prefix-end 0)) ;; There are n upper case chars at the head of the name. |