[armedbear-cvs] r13568 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Sep  4 02:59:23 2011
New Revision: 13568

Log:
Remove unused GF argument from MOP::PROCESS-NEXT-METHOD-LIST
to restore warning-free builds.

Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sat Sep  3 23:23:44 2011	(r13567)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sun Sep  4 02:59:23 2011	(r13568)
@@ -1941,7 +1941,7 @@
 (defun around-method-p (method)
   (equal '(:around) (method-qualifiers method)))
 
-(defun process-next-method-list (gf next-method-list)
+(defun process-next-method-list (next-method-list)
   (mapcar #'(lambda (next-method-form)
               (cond
                 ((listp next-method-form)
@@ -2064,7 +2064,7 @@
                                         ;; by not generating an emf when there are no next methods,
                                         ;; we ensure next-method-p returns NIL
                                         (compute-effective-method-function ,gf
-                                           (process-next-method-list ,gf next-method-list))))))
+                                           (process-next-method-list next-method-list))))))
                         ,result)))))))
       (t
        (let ((mc-obj (get mc-name 'method-combination-object)))