Changeset 12342


Ignore:
Timestamp:
01/07/10 19:01:55 (11 years ago)
Author:
vvoutilainen
Message:

Convert LispErrors? to ProgramErrors?, convert a couple of asserts
to ProgramErrors?.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Closure.java

    r12288 r12342  
    100100    setLambdaList(lambdaList);
    101101    if (!(lambdaList == NIL || lambdaList instanceof Cons))
    102       error(new LispError("The lambda list " + lambdaList.writeToString() +
     102      error(new ProgramError("The lambda list " + lambdaList.writeToString() +
    103103                           " is invalid."));
    104104    boolean _andKey = false;
     
    137137                    if (remaining == NIL)
    138138                      {
    139                         error(new LispError(
     139                        error(new ProgramError(
    140140                          "&REST/&BODY must be followed by a variable."));
    141141                      }
    142                     Debug.assertTrue(restVar == null);
     142                    if (restVar != null)
     143                      {
     144                        error(new ProgramError(
     145                          "&REST/&BODY may occur only once."));
     146                      }
    143147                    final LispObject remainingcar =  remaining.car();
    144148                    if (remainingcar instanceof Symbol)
     
    148152                    else
    149153                      {
    150                         error(new LispError(
     154                        error(new ProgramError(
    151155                          "&REST/&BODY must be followed by a variable."));
    152156                      }
     
    195199                    else
    196200                      {
    197                         Debug.assertTrue(state == STATE_REQUIRED);
     201                        if (state != STATE_REQUIRED)
     202                          {
     203                            error(new ProgramError(
     204                              "required parameters cannot appear after &REST/&BODY."));
     205                          }
    198206                        if (required == null)
    199207                          required = new ArrayList<Parameter>();
     
    343351
    344352  {
    345     error(new LispError(obj.writeToString() +
     353    error(new ProgramError(obj.writeToString() +
    346354                         " may not be used as a variable in a lambda list."));
    347355  }
Note: See TracChangeset for help on using the changeset viewer.