Changeset 5888

Timestamp:

Feb 10, 2007, 10:54:43 PM (18 years ago)

Author:

Gary Byers

Message:

Make structure return-type explicit in objc-message-send calls in
send/stret and variants.

File:

• trunk/ccl/examples/bridge.lisp (modified) (1 diff)

trunk/ccl/examples/bridge.lisp

@@ -756 +756 @@
           (error "The message ~S must be sent using SEND/STRET" msg)
           (if (null super)
-            `(objc-message-send-stret ,s ,o ,msg ,@arglist :void)
-            `(objc-message-send-super-stret ,s ,super ,msg ,@arglist :void)))
+            `(objc-message-send-stret ,s ,o ,msg ,@arglist ,(car (objc-method-info-signature method-info)))
+            `(objc-message-send-super-stret ,s ,super ,msg ,@arglist ,(car (objc-method-info-signature method-info)))))
         (if s
           ;; STRET provided but not required