Ignore:
Timestamp:
Jun 25, 2011, 10:22:58 PM (8 years ago)
Author:
gb
Message:

If [E|C]TYPECASE warns about a shadowed clause, it has to be a
STYLE-WARNING.

Fixes ticket:872 in the trunk.

File:
1 edited

Legend:

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

    r14793 r14850  
    961961              (dolist (already types nil)
    962962                (when (subtypep typespec already)
    963                   (warn "Clause ~S ignored in ~S form - shadowed by ~S ." clause construct (assq already clauses))
     963                  (warn 'shadowed-typecase-clause
     964                        :construct construct
     965                        :clause clause
     966                        :by (assq already clauses))
    964967                  (return t)))
    965968            (push typespec types)
Note: See TracChangeset for help on using the changeset viewer.