From b7e20e88d6b2bc438c6bc7c9208957432abc7ac8 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 15 Feb 2008 10:02:33 +0100
Subject: Enable caching for OBJC-CLASS-NAME->SYMBOL.

darcs-hash:7f154797a202c06d30bffa4e6859887ed18642bc
---
 Lisp/name-conversion.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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.
-- 
cgit v1.2.3