Changeset 3968


Ignore:
Timestamp:
09/21/03 16:58:41 (19 years ago)
Author:
piso
Message:

typeOf(), classOf(), typep()

File:
1 edited

Legend:

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

    r3966 r3968  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StandardClass.java,v 1.3 2003-09-21 15:07:13 piso Exp $
     5 * $Id: StandardClass.java,v 1.4 2003-09-21 16:58:41 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2929    }
    3030
     31    public LispObject typeOf()
     32    {
     33        return Symbol.STANDARD_CLASS;
     34    }
     35
     36    public LispClass classOf()
     37    {
     38        return BuiltInClass.STANDARD_CLASS;
     39    }
     40
     41    public LispObject typep(LispObject type) throws ConditionThrowable
     42    {
     43        if (type == Symbol.STANDARD_CLASS)
     44            return T;
     45        if (type == BuiltInClass.STANDARD_CLASS)
     46            return T;
     47        return super.typep(type);
     48    }
     49
    3150    public String toString()
    3251    {
Note: See TracChangeset for help on using the changeset viewer.