Changeset 11347


Ignore:
Timestamp:
Nov 10, 2008, 10:10:32 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/method-combination.lisp

    r11139 r11347  
    193193  (setf (get-method-combination-evaluator operator) function)
    194194  (maphash #'(lambda (name mci)
    195                (when (eq operator (or (getf (mci.options mci) :operator) name))
    196                  (clear-method-combination-caches name mci)))
     195               (when (eq operator (or (and (eq (mci.class mci) 'short-method-combination) (getf (mci.options mci) :operator)) name)))
     196                 (clear-method-combination-caches name mci))
    197197           *method-combination-info*)
    198198  function)
Note: See TracChangeset for help on using the changeset viewer.