Changeset 15249


Ignore:
Timestamp:
Mar 13, 2012, 3:09:10 AM (7 years ago)
Author:
greg
Message:

Fix broken handling of &WHOLE in long-form method combination. Fixes issue #913.

File:
1 edited

Legend:

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

    r14578 r15249  
    505505             (&whole
    506506              (names arg)
    507               (vals `,args-form)
     507              (vals (list 'quote `,args-form))
    508508              (setq state :required))
    509509             (&optional
     
    523523                  (names spvar)
    524524                  (vals (list 'quote
    525                          `(nth-opt-gf-arg-present-p ,gf-form ,args-form ,opt-idx))))
     525                              `(nth-opt-gf-arg-present-p ,gf-form ,args-form ,opt-idx))))
    526526                (incf opt-idx)))
    527527             (&rest
Note: See TracChangeset for help on using the changeset viewer.