Ignore:
Timestamp:
08/14/12 20:02:16 (9 years ago)
Author:
rschlatte
Message:

Tell compile, set-function-definition about funcallable objects

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r14087 r14088  
    74937493    (unless (and (consp definition) (eq (car definition) 'LAMBDA))
    74947494      (let ((function definition))
    7495         (when (typep definition 'standard-generic-function)
     7495        (when (typep definition 'mop:funcallable-standard-object)
    74967496          (setf function (mop::funcallable-instance-function function)))
    74977497        (multiple-value-setq
Note: See TracChangeset for help on using the changeset viewer.