From 170159290c0c46685353cd3a54a968f203ddb795 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 5 Feb 2008 19:57:38 +0100 Subject: Wrap objects returned by Objective-C code with the appropriate classes instead of ID. darcs-hash:5e7987f5da1a4d692e6e60c45c34aa80f9c4236d --- 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 a0a426b..08e0dac 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -285,7 +285,9 @@ easier to use with __apply__. (* ,num +pessimistic-allocation-size+)))) (flet ((ad-hoc-arglist->objc-arglist! (args) (setf (argref '(:pointer :void) 0) - (pointer-to receiver) + (if (pointerp receiver) + receiver + (pointer-to receiver)) (argref '(:pointer :void) 1) (pointer-to selector)) (loop for arg in args -- cgit v1.2.3