Changeset 13568


Ignore:
Timestamp:
09/04/11 09:59:23 (10 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13566 r13568  
    19421942  (equal '(:around) (method-qualifiers method)))
    19431943
    1944 (defun process-next-method-list (gf next-method-list)
     1944(defun process-next-method-list (next-method-list)
    19451945  (mapcar #'(lambda (next-method-form)
    19461946              (cond
     
    20652065                                        ;; we ensure next-method-p returns NIL
    20662066                                        (compute-effective-method-function ,gf
    2067                                            (process-next-method-list ,gf next-method-list))))))
     2067                                           (process-next-method-list next-method-list))))))
    20682068                        ,result)))))))
    20692069      (t
Note: See TracChangeset for help on using the changeset viewer.