Changeset 14371


Ignore:
Timestamp:
Oct 19, 2010, 8:56:37 PM (9 years ago)
Author:
rme
Message:

In ADVISE-GLOBAL-DEF, declare CCL::ARGLIST ignorable in order to avoid
warnings when it is unused in the case of :around advice.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/encapsulate.lisp

    r13067 r14371  
    718718       ,@(and dynamic-extent-arglist '((declare (dynamic-extent arglist))))
    719719       (declare (ftype function ,def))
     720       (declare (ignorable arglist))
    720721       (let ()
    721722         ,(ecase
Note: See TracChangeset for help on using the changeset viewer.