From 65f8d8bf8e9a709e549917837f7c01a31aad3928 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 19 Mar 2008 01:17:52 +0100
Subject: Make TYPESPEC a struct type.

darcs-hash:e915984995e05d399993c4d602a7c4949053ca66
---
 Lisp/class-definition.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Lisp/class-definition.lisp')

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