Changeset 11351


Ignore:
Timestamp:
Nov 11, 2008, 4:18:11 PM (11 years ago)
Author:
gz
Message:

method combination fixes (r11347, r11349)

Location:
branches/working-0711/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-dcode.lisp

    r11074 r11351  
    16881688  ; and our job is to do all the arg checking
    16891689  (let ()
    1690     (when magic
     1690    ;; THING is nil in next-method calls for non-standard method combination.  To enable
     1691    ;; checking in that case, would need to change %%call-method* to store a vector in (car magic).
     1692    (when (and magic thing)
    16911693      (flet ((do-it (thing args)
    16921694               (let* ((args-len (length args))
  • branches/working-0711/ccl/lib/method-combination.lisp

    r11101 r11351  
    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.