summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Lisp/method-invocation.lisp4
1 files changed, 4 insertions, 0 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp
index b446015..e7079a7 100644
--- a/Lisp/method-invocation.lisp
+++ b/Lisp/method-invocation.lisp
@@ -65,6 +65,8 @@ if as the second **argument** to __invoke-by-name__.
__invoke-by-name__"
+ (check-type receiver (or id objc-class exception)
+ "an Objective C instance (ID, OBJC-CLASS or EXCEPTION)")
(do* ((components-left (cons message-start message-components)
(cddr components-left))
(message-list (list message-start)
@@ -117,6 +119,8 @@ Returns: *result* --- the return value of the method invocation.
__invoke__"
+ (check-type receiver (or id objc-class exception)
+ "an Objective C instance (ID, OBJC-CLASS or EXCEPTION)")
(let* ((arglist (arglist-intersperse-types
(mapcar #'lisp->obj-data args)))
(return-value (apply-macro '%objcl-invoke-class-method