Changeset 14088


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

Tell compile, set-function-definition about funcallable objects

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 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
  • trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

    r14069 r14088  
    10701070    (when (macro-function name)
    10711071      (setf new (make-macro name new)))
    1072     (if (typep old 'standard-generic-function)
     1072    (if (typep old 'mop:funcallable-standard-object)
    10731073        (mop:set-funcallable-instance-function old new)
    10741074        (setf (fdefinition name) new))))
Note: See TracChangeset for help on using the changeset viewer.