Changeset 11347
- Timestamp:
- Nov 10, 2008, 10:10:32 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lib/method-combination.lisp
r11139 r11347 193 193 (setf (get-method-combination-evaluator operator) function) 194 194 (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)) 197 197 *method-combination-info*) 198 198 function)
Note: See TracChangeset
for help on using the changeset viewer.