Mon May 11 14:02:40 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Cleanup: unpush does not need second argument.

--- old-smoke/src/cxx-method.lisp 2014-09-30 10:25:14.000000000 +0200

+++ new-smoke/src/cxx-method.lisp 2014-09-30 10:25:14.000000000 +0200

@@ -82,7 +82,7 @@

(method-argument-count method))))

(add-method generic-function method)))

-(defun unpush-method (method cxx-generic-function)

+(defun unpush-method (method)

"Removes METHOD from its generic-function."

(let ((generic-function (closer-mop:method-generic-function method)))

(when generic-function

@@ -143,7 +143,7 @@

(update-method gf 'add-method method))

(defmethod remove-method ((gf cxx-generic-function) method)

- (unpush-method method gf)

+ (unpush-method method)

(update-method gf 'remove-method method))

#|