Changeset 15250


Ignore:
Timestamp:
Mar 13, 2012, 4:30:29 PM (7 years ago)
Author:
rme
Message:

Fix for broken &whole in define-method-combination from trunk.
See ticket:913.

Location:
release/1.8/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.8/source

  • release/1.8/source/lib/method-combination.lisp

    r14578 r15250  
    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.