Changeset 12592

Timestamp:

Aug 16, 2009, 2:29:35 PM (15 years ago)

Author:

Gary Byers

Message:

Use the new support for null parameters to completely ignore the
invisible _CMD argument in the callbacks established by OBJC:DEFMETHOD.

File:

• trunk/source/objc-bridge/objc-runtime.lisp (modified) (3 diffs)

trunk/source/objc-bridge/objc-runtime.lisp

@@ -2938 +2938 @@
            (struct-return-size nil)
            (selector nil)
-           (cmd (intern "_CMD"))
            (class-p nil)
            (objc-class-name nil))
@@ -2958 +2957 @@
             (arglist struct-return-var)))
         (arg-types :<SEL>)
-        (arg-names cmd)
+        (arg-names nil)                 ;newfangled
         (dolist (arg other-args)
           (if (atom arg)
@@ -3028 +3027 @@
                  ',(cddr arg-types))
                 (defcallback ,impname ( :error-return (condition objc-callback-error-return) ,@(arglist))
-                  (declare (ignorable ,self-name ,cmd)
+                  (declare (ignorable ,self-name)
                            (unsettable ,self-name)
                            ,@(unless class-p `((type ,lisp-class-name ,self-name))))