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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun May 17 02:13:37 2009
New Revision: 11888

Log:
Fix DISASSEMBLE.5: CompiledClosure should return T
when asked if it's of type COMPILED-FUNCTION.


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

Modified: trunk/abcl/src/org/armedbear/lisp/CompiledClosure.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/CompiledClosure.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/CompiledClosure.java	Sun May 17 02:13:37 2009
@@ -61,6 +61,13 @@
       return result;
   }
 
+  @Override
+  public LispObject typep(LispObject typeSpecifier) throws ConditionThrowable
+  {
+    if (typeSpecifier == Symbol.COMPILED_FUNCTION)
+      return T;
+    return super.typep(typeSpecifier);
+  }
 
   private final LispObject notImplemented() throws ConditionThrowable
   {