diff options
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 |