Changeset 13819


Ignore:
Timestamp:
01/28/12 17:43:39 (9 years ago)
Author:
rschlatte
Message:

make functionp recognize instances of funcallable-standard-object.

File:
1 edited

Legend:

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

    r13695 r13819  
    545545        @Override
    546546        public LispObject execute(LispObject arg) {
    547             return (arg instanceof Function || arg instanceof StandardGenericFunction) ? T : NIL;
     547            return (arg instanceof Function || arg instanceof FuncallableStandardObject) ? T : NIL;
    548548        }
    549549    };
Note: See TracChangeset for help on using the changeset viewer.