Add a policy for distinguishing between char and BOOL return values.

darcs-hash:09dbdf5e230a28071f1933a48077d562065df71f

1 files changed, 13 insertions, 0 deletions

diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp
index 4408a1b..929162f 100644
--- a/Lisp/method-invocation.lisp
+++ b/Lisp/method-invocation.lisp
@@ -423,6 +423,13 @@ easier to use with __apply__.
                  (make-pointer-wrapper (car return-type)
                     :pointer (cffi:mem-ref objc-return-value-cell
                                            return-c-type))))
+              ((:char :unsigned-char)
+               ;; FIXME: This is non-trivial.  See policy.lisp for
+               ;; details.
+               (objc-char->lisp-value (cffi:mem-ref objc-return-value-cell
+                                                    return-c-type)
+                                      receiver
+                                      selector))
               ((:void) (values))
               (otherwise (cffi:mem-ref objc-return-value-cell
                                        return-c-type)))))))))
@@ -565,6 +572,12 @@ easier to use with __apply__.
   +yes+)
 
 
+;; Note that this refers to the Lisp BOOLEAN type, not the Objective-C
+;; BOOL type.
+(defcoercion boolean ((x number))
+  (not (zerop x)))
+
+
 (defcoercion string ((x string))
   x)