Changeset 3953


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

initArgs constructor.

Location:
trunk/j/src/org/armedbear/lisp
Files:
3 edited

Legend:

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

    r3929 r3953  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispError.java,v 1.7 2003-09-20 17:02:04 piso Exp $
     5 * $Id: LispError.java,v 1.8 2003-09-21 02:04:55 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2828    }
    2929
     30    public LispError(LispObject initArgs)
     31    {
     32        this(); // FIXME
     33    }
     34
    3035    public LispError(String message)
    3136    {
     
    4752        if (type == Symbol.ERROR)
    4853            return T;
     54        if (type == BuiltInClass.ERROR)
     55            return T;
    4956        return super.typep(type);
    5057    }
  • trunk/j/src/org/armedbear/lisp/SimpleCondition.java

    r3929 r3953  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: SimpleCondition.java,v 1.4 2003-09-20 17:02:05 piso Exp $
     5 * $Id: SimpleCondition.java,v 1.5 2003-09-21 02:03:01 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2828    }
    2929
     30    public SimpleCondition(LispObject initArgs)
     31    {
     32        this(); // FIXME
     33    }
     34
    3035    public SimpleCondition(String message)
    3136    {
     
    4752        if (type == Symbol.CONDITION)
    4853            return T;
     54        if (type == BuiltInClass.CONDITION)
     55            return T;
    4956        return super.typep(type);
    5057    }
  • trunk/j/src/org/armedbear/lisp/SimpleError.java

    r3940 r3953  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: SimpleError.java,v 1.5 2003-09-21 00:54:56 piso Exp $
     5 * $Id: SimpleError.java,v 1.6 2003-09-21 02:02:21 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2626    public SimpleError()
    2727    {
     28    }
     29
     30    public SimpleError(LispObject initArgs)
     31    {
     32        this(); // FIXME
    2833    }
    2934
Note: See TracChangeset for help on using the changeset viewer.