Objective-C layer: Add functions for dealing with classes and metaclasses.

darcs-hash:9ce15bb5fff3fb127cf4f6b72e70fa58c1cc2345

1 files changed, 2 insertions, 3 deletions

diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp
index bc6cc2d..e290e50 100644
--- a/Lisp/method-invocation.lisp
+++ b/Lisp/method-invocation.lisp
@@ -392,15 +392,14 @@ Returns: *result* --- the return value of the method invocation.
 
 (defun invoke-with-conversion (receiver method-name &rest args)
   (let* ((selector (selector method-name))
-         (class (primitive-invoke receiver 'class 'objc-class)))
+         (class (object-get-class receiver)))
     (multiple-value-bind (argc
                           method-return-typestring
                           method-return-type
                           method-arg-typestrings
                           method-arg-types)
         (retrieve-method-signature-info class selector
-                                        (if (cffi:pointer-eq (pointer-to receiver)
-                                                             (pointer-to class))
+                                        (if (object-is-class-p receiver)
                                             :class
                                             :instance))
       (assert (= argc (+ 2 (length args)))