Changeset 12015


Ignore:
Timestamp:
May 7, 2009, 8:23:46 PM (10 years ago)
Author:
gz
Message:

Merge r11999 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-clos.lisp

    r11680 r12015  
    24482448;;; If there's a single method (with standard method combination) on
    24492449;;; GF and all of that method's arguments are specialized to the T
    2450 ;;; class - and if the method doesn't accept &key - we can just have
    2451 ;;; the generic function call the method-function
     2450;;; class - and if the method doesn't accept &key or do any
     2451;;; next-method things - we can just have the generic function call
     2452;;; the method-function
    24522453(defun dcode-for-universally-applicable-singleton (gf)
    24532454  (when (eq (generic-function-method-combination gf)
     
    24582459                 (null (cdr methods))
    24592460                 (null (method-qualifiers method))
    2460                  (not (logbitp $lfbits-keys-bit (lfun-bits (method-function method))))
     2461                 (not (logtest (logior (ash 1 $lfbits-keys-bit)
     2462                                       (ash 1 $lfbits-nextmeth-bit))
     2463                                 (lfun-bits (method-function method))))
    24612464                 (dolist (spec (method-specializers method) t)
    24622465                   (unless (eq spec *t-class*)
Note: See TracChangeset for help on using the changeset viewer.