Ignore:
Timestamp:
Jul 19, 2011, 4:07:53 PM (8 years ago)
Author:
gb
Message:

In CASE-KEY-TESTERS: don't try to reduce EQL to EQ here. That should
happen elsewhere and should deal with other types where EQL differs
from EQ. (We've had the notion of pointer-typed constants for a while;
if someone uses #. or otherwise introduces such a constant into a CASE
clause, we need to use EQL. Yes, that'd be a strange thing to do.)

File:
1 edited

Legend:

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

    r14850 r14891  
    931931        (warn "Duplicate keyform ~s in ~s statement." atom-or-list statement-type)
    932932        (setq used-keys (nconc used-keys (list (cons atom-or-list t)))))
    933       `((,(if (typep atom-or-list '(and number (not fixnum)))
    934               'eql
    935               'eq)
    936          ,symbol ',atom-or-list)))
     933      `((eql ,symbol ',atom-or-list)))
    937934    (nconc (case-key-testers symbol used-keys (car atom-or-list) statement-type t)
    938935           (when (cdr atom-or-list)
Note: See TracChangeset for help on using the changeset viewer.