Changeset 4633


Ignore:
Timestamp:
11/03/03 18:49:20 (18 years ago)
Author:
piso
Message:

typeOf(), classOf()

File:
1 edited

Legend:

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

    r4597 r4633  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Condition.java,v 1.13 2003-11-02 00:24:54 piso Exp $
     5 * $Id: Condition.java,v 1.14 2003-11-03 18:49:20 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5454    public LispObject typeOf()
    5555    {
     56        LispClass c = getLispClass();
     57        if (c != null)
     58            return c.getSymbol();
    5659        return Symbol.CONDITION;
    5760    }
     
    5962    public LispClass classOf()
    6063    {
     64        LispClass c = getLispClass();
     65        if (c != null)
     66            return c;
    6167        return BuiltInClass.CONDITION;
    6268    }
Note: See TracChangeset for help on using the changeset viewer.