[armedbear-cvs] r13819 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Sat Jan 28 09:43:39 2012
New Revision: 13819

Log:
make functionp recognize instances of funcallable-standard-object.

Modified:
   trunk/abcl/src/org/armedbear/lisp/Primitives.java

Modified: trunk/abcl/src/org/armedbear/lisp/Primitives.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Primitives.java	Sat Jan 28 08:34:47 2012	(r13818)
+++ trunk/abcl/src/org/armedbear/lisp/Primitives.java	Sat Jan 28 09:43:39 2012	(r13819)
@@ -544,7 +544,7 @@
 
         @Override
         public LispObject execute(LispObject arg) {
-            return (arg instanceof Function || arg instanceof StandardGenericFunction) ? T : NIL;
+            return (arg instanceof Function || arg instanceof FuncallableStandardObject) ? T : NIL;
         }
     };