Changeset 3918


Ignore:
Timestamp:
09/20/03 00:38:41 (19 years ago)
Author:
piso
Message:

extends ConditionThrowable? => extends Condition
typeOf(), classOf(), typep()

File:
1 edited

Legend:

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

    r3871 r3918  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: SimpleCondition.java,v 1.2 2003-09-19 00:05:11 piso Exp $
     5 * $Id: SimpleCondition.java,v 1.3 2003-09-20 00:38:41 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2222package org.armedbear.lisp;
    2323
    24 public class SimpleCondition extends ConditionThrowable
     24public class SimpleCondition extends Condition
    2525{
    2626    public SimpleCondition()
     
    3232        super(message);
    3333    }
     34
     35    public LispObject typeOf()
     36    {
     37        return Symbol.SIMPLE_CONDITION;
     38    }
     39
     40    public LispClass classOf()
     41    {
     42        return LispClass.SIMPLE_CONDITION;
     43    }
     44
     45    public LispObject typep(LispObject type) throws ConditionThrowable
     46    {
     47        if (type == Symbol.CONDITION)
     48            return T;
     49        return super.typep(type);
     50    }
    3451}
Note: See TracChangeset for help on using the changeset viewer.