From 17aeae082fda67704ec0835b20e2412573775b2b Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 15 Feb 2008 13:33:38 +0100
Subject: Wrap returned structs with TAGGED-STRUCT instances.

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

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

diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp
index 85b8b0d..59b4ce4 100644
--- a/Lisp/method-invocation.lisp
+++ b/Lisp/method-invocation.lisp
@@ -464,7 +464,9 @@ easier to use with __apply__.
               ((struct union array)
                ;; The caller is responsible for FOREIGN-FREEing the
                ;; return value.
-               objc-struct-return-value-cell)
+               (make-struct-wrapper objc-struct-return-value-cell
+                                    return-type
+                                    t))
               ((:void) (values))
               (otherwise (cffi:mem-ref objc-return-value-cell
                                        return-c-type)))))))))
-- 
cgit v1.2.3