Changeset 11005


Ignore:
Timestamp:
03/11/06 17:04:02 (15 years ago)
Author:
piso
Message:

Reformatted source.

File:
1 edited

Legend:

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

    r10304 r11005  
    22 * LispError.java
    33 *
    4  * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: LispError.java,v 1.15 2005-11-01 01:42:06 piso Exp $
     4 * Copyright (C) 2002-2006 Peter Graves
     5 * $Id: LispError.java,v 1.16 2006-03-11 17:04:02 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2424public class LispError extends SeriousCondition
    2525{
    26     public LispError() throws ConditionThrowable
    27     {
    28     }
     26  public LispError() throws ConditionThrowable
     27  {
     28  }
    2929
    30     protected LispError(LispClass cls) throws ConditionThrowable
    31     {
    32         super(cls);
    33     }
     30  protected LispError(LispClass cls) throws ConditionThrowable
     31  {
     32    super(cls);
     33  }
    3434
    35     public LispError(LispObject initArgs) throws ConditionThrowable
    36     {
    37         super(StandardClass.ERROR);
    38         initialize(initArgs);
    39     }
     35  public LispError(LispObject initArgs) throws ConditionThrowable
     36  {
     37    super(StandardClass.ERROR);
     38    initialize(initArgs);
     39  }
    4040
    41     protected void initialize(LispObject initArgs) throws ConditionThrowable
    42     {
    43         super.initialize(initArgs);
    44     }
     41  protected void initialize(LispObject initArgs) throws ConditionThrowable
     42  {
     43    super.initialize(initArgs);
     44  }
    4545
    46     public LispError(String message)
    47     {
    48         super(message);
    49     }
     46  public LispError(String message)
     47  {
     48    super(message);
     49  }
    5050
    51     public LispObject typeOf()
    52     {
    53         return Symbol.ERROR;
    54     }
     51  public LispObject typeOf()
     52  {
     53    return Symbol.ERROR;
     54  }
    5555
    56     public LispObject classOf()
    57     {
    58         return StandardClass.ERROR;
    59     }
     56  public LispObject classOf()
     57  {
     58    return StandardClass.ERROR;
     59  }
    6060
    61     public LispObject typep(LispObject type) throws ConditionThrowable
    62     {
    63         if (type == Symbol.ERROR)
    64             return T;
    65         if (type == StandardClass.ERROR)
    66             return T;
    67         return super.typep(type);
    68     }
     61  public LispObject typep(LispObject type) throws ConditionThrowable
     62  {
     63    if (type == Symbol.ERROR)
     64      return T;
     65    if (type == StandardClass.ERROR)
     66      return T;
     67    return super.typep(type);
     68  }
    6969}
Note: See TracChangeset for help on using the changeset viewer.