[Openmcl-cvs-notifications] r11347 - /trunk/source/lib/method-combination.lisp

[gb at clozure.com]

Author: gb
Date: Mon Nov 10 17:10:32 2008
New Revision: 11347

Log:
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).


Modified:
    trunk/source/lib/method-combination.lisp

Modified: trunk/source/lib/method-combination.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/method-combination.lisp (original)
+++ trunk/source/lib/method-combination.lisp Mon Nov 10 17:10:32 2008
@@ -192,8 +192,8 @@
   (record-source-file operator 'method-combination-evaluator)
   (setf (get-method-combination-evaluator operator) function)
   (maphash #'(lambda (name mci)
-               (when (eq operator (or (getf (mci.options mci) :operator) n=
ame))
-                 (clear-method-combination-caches name mci)))
+               (when (eq operator (or (and (eq (mci.class mci) 'short-meth=
od-combination) (getf (mci.options mci) :operator)) name)))
+                 (clear-method-combination-caches name mci))
            *method-combination-info*)
   function)
 =