From 3f06b3a67a1d2ca8ef3eafffb4d67bd8b0ae47e8 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 6 Feb 2008 21:23:01 +0100 Subject: Assign a fake metaclass as a metaclass to the root metaclass. darcs-hash:e594ffa7fa03edfdbfd4f44708c2a1863c96a2af --- Lisp/name-conversion.lisp | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'Lisp/name-conversion.lisp') diff --git a/Lisp/name-conversion.lisp b/Lisp/name-conversion.lisp index dcff468..84a0c82 100644 --- a/Lisp/name-conversion.lisp +++ b/Lisp/name-conversion.lisp @@ -106,6 +106,15 @@ (symbol-name (objc-class-name->symbol meta-class-name))))))) +(defun objc-fake-meta-class-name->symbol (meta-class-name) + (let ((*package* (find-package '#:objective-c-classes))) + (export-and-return + (intern + (concatenate 'string + "++" + (symbol-name (objc-class-name->symbol meta-class-name))))))) + + (defun name-hyphenated->mixed-case (string &optional (case-convention :nerd-caps)) (let ((lower-case-string (name->canonised-lower-case string))) (ecase case-convention -- cgit v1.2.3