Changeset 11347

Timestamp:

Nov 10, 2008, 10:10:32 PM (13 years ago)

Author:

gb

Message:

In %DEFINE-METHOD-COMBINATION-EVALUATOR, don't treat (MCI.OPTIONS MCI)
as a property list unless (MCI.CLASS MCI) is SHORT-METHOD-COMBINATION
(ticket:377).

File:

• trunk/source/lib/method-combination.lisp (modified) (1 diff)

trunk/source/lib/method-combination.lisp

@@ -193 +193 @@
   (setf (get-method-combination-evaluator operator) function)
   (maphash #'(lambda (name mci)
-               (when (eq operator (or (getf (mci.options mci) :operator) name))
-                 (clear-method-combination-caches name mci)))
+               (when (eq operator (or (and (eq (mci.class mci) 'short-method-combination) (getf (mci.options mci) :operator)) name)))
+                 (clear-method-combination-caches name mci))
            *method-combination-info*)
   function)