Changeset 14088 for trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Timestamp:

08/14/12 20:02:16 (10 years ago)

Author:

rschlatte

Message:

Tell compile, set-function-definition about funcallable objects

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -7493 +7493 @@
     (unless (and (consp definition) (eq (car definition) 'LAMBDA))
       (let ((function definition))
-        (when (typep definition 'standard-generic-function)
+        (when (typep definition 'mop:funcallable-standard-object)
           (setf function (mop::funcallable-instance-function function)))
         (multiple-value-setq