From 7b99d095f3484f51f9a08063f873a58959689940 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 3 Mar 2008 14:41:20 +0100
Subject: Define type OBJECTIVE-C-TYPE-KEYWORD.

darcs-hash:e5b50879e9dd0bf3a09fc7cb99aa24bc91bb7e89
---
 Lisp/data-types.lisp | 9 +++++++++
 1 file changed, 9 insertions(+)

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 ()
-- 
cgit v1.2.3