Changeset 6683

Timestamp:

Jun 8, 2007, 3:14:28 PM (17 years ago)

Author:

Gary Byers

Message:

objc:defmethod: declare type of receiver.

File:

• branches/ide-1.0/ccl/examples/objc-runtime.lisp (modified) (1 diff)

branches/ide-1.0/ccl/examples/objc-runtime.lisp

@@ -2742 +2742 @@
                 (defcallback ,impname ( :error-return (condition objc-callback-error-return) ,@(arglist))
                   (declare (ignorable ,self-name ,cmd)
-                           (unsettable ,self-name))
+                           (unsettable ,self-name)
+                           ,@(unless class-p `((type ,lisp-class-name ,self-name))))
                   ,@decls
                   ,@body)