Changeset 10252 for trunk/source/examples

Timestamp:

Jul 30, 2008, 10:47:53 PM (11 years ago)

Author:

gb

Message:

Propagate r10236 to trunk.

File:

• trunk/source/examples/cocoa/currency-converter/currency-converter.lisp (modified) (1 diff)

trunk/source/examples/cocoa/currency-converter/currency-converter.lisp

@@ -18 +18 @@
   (:metaclass ns:+ns-object))
 
-(objc:defmethod #/convert: ((self converter-controller) sender)
+(objc:defmethod (#/convert: :void) ((self converter-controller) sender)
+  (declare (ignore sender))
   (let* ((conv (converter self))
          (dollar-field (dollar-field self))