From 074be8bdfc44a29ae54497da0ee064117f5a1530 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 5 Feb 2008 20:23:29 +0100
Subject: Add support for reading foreign slots.

darcs-hash:00abb78ca0134b8fa34830c9643986e046808c5e
---
 Lisp/method-invocation.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Lisp/method-invocation.lisp')

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