diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-03 14:41:20 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-03 14:41:20 +0100 |
| commit | 7b99d095f3484f51f9a08063f873a58959689940 (patch) | |
| tree | 981a42b38954cb39c560a133644036aa6fc2b5f3 /Lisp/data-types.lisp | |
| parent | 836f1c8bb022fa0db9ecd696d711441ede4359c7 (diff) | |
Define type OBJECTIVE-C-TYPE-KEYWORD.
darcs-hash:e5b50879e9dd0bf3a09fc7cb99aa24bc91bb7e89
Diffstat (limited to 'Lisp/data-types.lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 432091a..384e526 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -30,6 +30,15 @@ (defctype char-pointer :pointer) +;;;; (@* "Type specifiers") +(deftype objective-c-type-keyword () + `(member :id :class :selector :string + :char :short :int :long :long-long + :unsigned-char :unsigned-short :unsigned-int + :unsigned-long :unsigned-long-long :pointer + :float :double)) + + ;;;; (@* "Objective-C object wrapper classes") (with-compilation-unit () ; needed for class finalization (defclass c-pointer-wrapper () |