Changeset 3910


Ignore:
Timestamp:
09/19/03 23:56:10 (19 years ago)
Author:
piso
Message:

isConditionOfType()

File:
1 edited

Legend:

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

    r3902 r3910  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.414 2003-09-19 16:04:50 piso Exp $
     5 * $Id: Primitives.java,v 1.415 2003-09-19 23:56:10 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    18071807        if (type == Symbol.SIMPLE_ERROR)
    18081808            return c.getCondition() instanceof SimpleError;
    1809         if (type == Symbol.ERROR) {
     1809        if (type == Symbol.ERROR || type == LispClass.ERROR) {
    18101810            Condition condition = c.getCondition();
    18111811            if (condition.typep(Symbol.ERROR) == T)
Note: See TracChangeset for help on using the changeset viewer.