summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Lisp/name-conversion.lisp2
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.