Changeset 3253


Ignore:
Timestamp:
08/07/03 16:16:16 (19 years ago)
Author:
piso
Message:

typep()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/CompiledFunction.java

    r3157 r3253  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: CompiledFunction.java,v 1.4 2003-08-01 01:37:04 piso Exp $
     5 * $Id: CompiledFunction.java,v 1.5 2003-08-07 16:16:16 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3434    {
    3535        return TYPE_COMPILED_FUNCTION;
     36    }
     37
     38    public LispObject typep(LispObject typeSpecifier) throws LispError
     39    {
     40        if (typeSpecifier == Symbol.COMPILED_FUNCTION)
     41            return T;
     42        return super.typep(typeSpecifier);
    3643    }
    3744
Note: See TracChangeset for help on using the changeset viewer.