diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-05 20:23:29 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-05 20:23:29 +0100 |
commit | 074be8bdfc44a29ae54497da0ee064117f5a1530 (patch) | |
tree | 16fc8215f5fa05a5eab711e25ce982a11753186e /Lisp/method-invocation.lisp | |
parent | 170159290c0c46685353cd3a54a968f203ddb795 (diff) |
Add support for reading foreign slots.
darcs-hash:00abb78ca0134b8fa34830c9643986e046808c5e
Diffstat (limited to 'Lisp/method-invocation.lisp')
-rw-r--r-- | Lisp/method-invocation.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index 08e0dac..3170670 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -386,7 +386,8 @@ easier to use with __apply__. (defun typespec->c-type (typespec) (case (car typespec) - ((:pointer struct union id objective-c-class exception array selector) + ((:pointer pointer struct union id objective-c-class exception array + selector) :pointer) ((:string) :string) (otherwise (car typespec)))) |