Changeset 11888

Timestamp:

05/17/09 06:13:37 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/CompiledClosure.java (modified) (1 diff)

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

@@ -62 +62 @@
   }
 
+  @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