Changeset 12000 for release


Ignore:
Timestamp:
May 5, 2009, 1:59:54 PM (10 years ago)
Author:
gb
Message:

propagate 11999 to 1.3

File:
1 edited

Legend:

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

    r11666 r12000  
    24572457                 (null (cdr methods))
    24582458                 (null (method-qualifiers method))
    2459                  (not (logbitp $lfbits-keys-bit (lfun-bits (method-function method))))
     2459                 (not (logtest (logior (ash 1 $lfbits-keys-bit)
     2460                                       (ash 1 $lfbits-nextmeth-bit))
     2461                                 (lfun-bits (method-function method))))
    24602462                 (dolist (spec (method-specializers method) t)
    24612463                   (unless (eq spec *t-class*)
Note: See TracChangeset for help on using the changeset viewer.