Changeset 3981


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

typep()

File:
1 edited

Legend:

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

    r3953 r3981  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: SimpleCondition.java,v 1.5 2003-09-21 02:03:01 piso Exp $
     5 * $Id: SimpleCondition.java,v 1.6 2003-09-21 23:04:58 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5050    public LispObject typep(LispObject type) throws ConditionThrowable
    5151    {
    52         if (type == Symbol.CONDITION)
     52        if (type == Symbol.SIMPLE_CONDITION)
    5353            return T;
    54         if (type == BuiltInClass.CONDITION)
     54        if (type == BuiltInClass.SIMPLE_CONDITION)
    5555            return T;
    5656        return super.typep(type);
Note: See TracChangeset for help on using the changeset viewer.