summaryrefslogtreecommitdiff
path: root/Lisp/class-definition.lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-19 01:17:52 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-19 01:17:52 +0100
commit65f8d8bf8e9a709e549917837f7c01a31aad3928 (patch)
tree8d7c0b7a5833f6391dac7aac8791bc1071f22422 /Lisp/class-definition.lisp
parentb2f4979a6b17a0a2c67c67c9c6d3c83a90b228af (diff)
Make TYPESPEC a struct type.
darcs-hash:e915984995e05d399993c4d602a7c4949053ca66
Diffstat (limited to 'Lisp/class-definition.lisp')
-rw-r--r--Lisp/class-definition.lisp3
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))))