Changeset 8909


Ignore:
Timestamp:
Mar 28, 2008, 1:49:30 AM (11 years ago)
Author:
gb
Message:

Don't use DCODE-FOR-UNIVERSALLY-APPLICABLE-SINGLETON if method-function
has &key.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos.lisp

    r8855 r8909  
    23042304                 (null (cdr methods))
    23052305                 (null (method-qualifiers method))
     2306                 (not (logbitp $lfbits-keys-bit (lfun-bits (method-function method))))
    23062307                 (dolist (spec (method-specializers method) t)
    23072308                   (unless (eq spec *t-class*)
Note: See TracChangeset for help on using the changeset viewer.