diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-02 23:49:57 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-02 23:49:57 +0100 |
commit | 628a01f38931b5cd3b3c1ede19e8b0b5678bf453 (patch) | |
tree | b51002ff91016a5ec9d276c78c27f649f4d9776f /Lisp/name-conversion.lisp | |
parent | 3d0e2eda9285b91a998b86cb72c806c2aa5d789e (diff) |
Introduce new metaclass OBJECTIVE-C-META-CLASS.
darcs-hash:3d9bf7fb5b37a4089ae3d85493612c6e6abc4469
Diffstat (limited to 'Lisp/name-conversion.lisp')
-rw-r--r-- | Lisp/name-conversion.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Lisp/name-conversion.lisp b/Lisp/name-conversion.lisp index 64a42c7..9b27e70 100644 --- a/Lisp/name-conversion.lisp +++ b/Lisp/name-conversion.lisp @@ -99,3 +99,11 @@ ;; of (READTABLE-CASE *READTABLE*), which means that 'ns-object ;; should always mean the same thing as "NSObject". (read-from-string class-name))) + + +(defun objc-meta-class-name->symbol (meta-class-name) + (let ((*package* (find-package '#:objective-c-classes))) + (read-from-string + (concatenate 'string + "%" + (symbol-name (objc-class-name->symbol meta-class-name)))))) |