diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-06 21:23:01 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-06 21:23:01 +0100 |
| commit | 3f06b3a67a1d2ca8ef3eafffb4d67bd8b0ae47e8 (patch) | |
| tree | b994e87e4e100ae977790a931496ffa7ab370d08 /Lisp/name-conversion.lisp | |
| parent | 3ffee49d000d27f9af5e74fef540ab345ead4332 (diff) | |
Assign a fake metaclass as a metaclass to the root metaclass.
darcs-hash:e594ffa7fa03edfdbfd4f44708c2a1863c96a2af
Diffstat (limited to 'Lisp/name-conversion.lisp')
| -rw-r--r-- | Lisp/name-conversion.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
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 |