From 822be83141a65194dea98e44a49d69066e8a9ac7 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 7 Aug 2007 16:33:17 +0200 Subject: Improve type safety of method calls. darcs-hash:261bf7d0a033d5c318d246da40356a9f28badde2 --- Lisp/method-invocation.lisp | 4 ++++ 1 file changed, 4 insertions(+) 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 -- cgit v1.2.3