diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-19 01:17:52 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-19 01:17:52 +0100 |
commit | 65f8d8bf8e9a709e549917837f7c01a31aad3928 (patch) | |
tree | 8d7c0b7a5833f6391dac7aac8791bc1071f22422 /Lisp/class-definition.lisp | |
parent | b2f4979a6b17a0a2c67c67c9c6d3c83a90b228af (diff) |
Make TYPESPEC a struct type.
darcs-hash:e915984995e05d399993c4d602a7c4949053ca66
Diffstat (limited to 'Lisp/class-definition.lisp')
-rw-r--r-- | Lisp/class-definition.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index 467965d..7410847 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -197,6 +197,7 @@ __define-objective-c-method__" :type (or null string)) (foreign-type :initarg :foreign-type :initform nil + :type typespec :accessor slot-definition-foreign-type) (foreign-slot :initarg :foreign-slot :initform nil @@ -277,7 +278,7 @@ __define-objective-c-method__" :initfunction (or initfunction #'(lambda () (or initform *objcl-foreign-default-initform*))) - :foreign-type foreign-type + :foreign-type (typespec foreign-type) :foreign-name foreign-name :foreign-slot foreign-slot :class class)))) |