Changeset 13997


Ignore:
Timestamp:
07/08/12 15:30:33 (8 years ago)
Author:
rschlatte
Message:

Fix fast-function optimization when only standard method function is given.

  • This was the last error / missing feature exposed by the MOP test suite.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13996 r13997  
    21002100              (cond
    21012101                ((and (eq (method-combination-name (sys:%generic-function-method-combination gf)) 'standard)
    2102                       (= (length (sys:%generic-function-methods gf)) 1))
     2102                      (= (length (sys:%generic-function-methods gf)) 1)
     2103                      (std-method-fast-function (%car (sys:%generic-function-methods gf))))
    21032104                 (let* ((method (%car (sys:%generic-function-methods gf)))
    21042105                        (specializer (car (std-method-specializers method)))
    2105                         (function (or (std-method-fast-function method)
    2106                                       (std-method-function method))))
     2106                        (function (std-method-fast-function method)))
    21072107                   (if (typep specializer 'eql-specializer)
    21082108                       (let ((specializer-object (eql-specializer-object specializer)))
Note: See TracChangeset for help on using the changeset viewer.