Changeset 14466


Ignore:
Timestamp:
04/24/13 12:50:40 (10 years ago)
Author:
rschlatte
Message:

call type_error when possible

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
32 edited

Legend:

Unmodified
Added
Removed

  • trunk/abcl/src/org/armedbear/lisp/AbstractBitVector.java

    r13440 r14466  
    139139            // Fall through...
    140140        }
    141         error(new TypeError(obj, Symbol.BIT));
     141        type_error(obj, Symbol.BIT);
    142142    }
    143143

  • trunk/abcl/src/org/armedbear/lisp/ArithmeticError.java

    r12513 r14466  
    134134            }
    135135            else {
    136                 return error(new TypeError(arg, Symbol.ARITHMETIC_ERROR));
     136                return type_error(arg, Symbol.ARITHMETIC_ERROR);
    137137            }
    138138        }
    … …  
    149149            }
    150150            else {
    151                 return error(new TypeError(arg, Symbol.ARITHMETIC_ERROR));
     151                return type_error(arg, Symbol.ARITHMETIC_ERROR);
    152152            }
    153153        }

  • trunk/abcl/src/org/armedbear/lisp/BasicVector_UnsignedByte16.java

    r12588 r14466  
    179179        }
    180180        else {
    181             error(new TypeError(obj, UNSIGNED_BYTE_16));
     181            type_error(obj, UNSIGNED_BYTE_16);
    182182        }
    183183    }
    … …  
    264264                    newElements[i] = initialContents.elt(i);
    265265            } else
    266                 error(new TypeError(initialContents, Symbol.SEQUENCE));
     266                type_error(initialContents, Symbol.SEQUENCE);
    267267            return new BasicVector_UnsignedByte16(newElements);
    268268        }

  • trunk/abcl/src/org/armedbear/lisp/BroadcastStream.java

    r13440 r14466  
    244244                        continue;
    245245                    } else
    246                         return error(new TypeError(args[i], list(Symbol.SATISFIES,
    247                                                                    Symbol.OUTPUT_STREAM_P)));
     246                        return type_error(args[i],
     247                                          list(Symbol.SATISFIES, Symbol.OUTPUT_STREAM_P));
    248248                } else
    249                     return error(new TypeError(args[i], Symbol.STREAM));
     249                    return type_error(args[i], Symbol.STREAM);
    250250            }
    251251            // All is well.
    … …  
    269269                return result;
    270270            }
    271             return error(new TypeError(arg, Symbol.BROADCAST_STREAM));
     271            return type_error(arg, Symbol.BROADCAST_STREAM);
    272272        }
    273273    };

  • trunk/abcl/src/org/armedbear/lisp/ByteArrayOutputStream.java

    r13442 r14466  
    124124                return JavaObject.getInstance(((ByteArrayOutputStream)arg).getByteArray());
    125125            }
    126             return error(new TypeError(this, Symbol.STREAM)); //TODO
     126            return type_error(this, Symbol.STREAM); //TODO
    127127        }
    128128    };
    … …  
    138138                return new BasicVector_UnsignedByte8(((ByteArrayOutputStream)arg).getByteArray());
    139139
    140             return error(new TypeError(this, Symbol.STREAM)); // TODO
     140            return type_error(this, Symbol.STREAM); // TODO
    141141        }
    142142    };

  • trunk/abcl/src/org/armedbear/lisp/ComplexVector.java

    r12588 r14466  
    380380                    newElements[i] = initialContents.elt(i);
    381381            } else
    382                 error(new TypeError(initialContents, Symbol.SEQUENCE));
     382                type_error(initialContents, Symbol.SEQUENCE);
    383383            elements = newElements;
    384384        } else {

  • trunk/abcl/src/org/armedbear/lisp/ComplexVector_UnsignedByte32.java

    r12588 r14466  
    382382                    newElements[i] = initialContents.elt(i);
    383383            } else
    384                 error(new TypeError(initialContents, Symbol.SEQUENCE));
     384                type_error(initialContents, Symbol.SEQUENCE);
    385385            elements = newElements;
    386386        } else {

  • trunk/abcl/src/org/armedbear/lisp/ComplexVector_UnsignedByte8.java

    r12588 r14466  
    394394                    newElements[i] = coerceLispObjectToJavaByte(initialContents.elt(i));
    395395            } else
    396                 error(new TypeError(initialContents, Symbol.SEQUENCE));
     396                type_error(initialContents, Symbol.SEQUENCE);
    397397            elements = newElements;
    398398        } else {

  • trunk/abcl/src/org/armedbear/lisp/ConcatenatedStream.java

    r14209 r14466  
    274274            if (arg instanceof ConcatenatedStream)
    275275                return ((ConcatenatedStream)arg).streams;
    276             return error(new TypeError(arg, Symbol.CONCATENATED_STREAM));
     276            return type_error(arg, Symbol.CONCATENATED_STREAM);
    277277        }
    278278    };

  • trunk/abcl/src/org/armedbear/lisp/HashTableFunctions.java

    r13440 r14466  
    429429              return ((WeakHashTable)first).getWeakness();
    430430          }
    431           return error(new TypeError(first, Symbol.HASH_TABLE));
     431          return type_error(first, Symbol.HASH_TABLE);
    432432      }
    433433  };

  • trunk/abcl/src/org/armedbear/lisp/JProxy.java

    r13461 r14466  
    203203            }
    204204            if(!(args[0] instanceof Function)) {
    205               return error(new TypeError(args[0], Symbol.FUNCTION));
     205              return type_error(args[0], Symbol.FUNCTION);
    206206            }
    207207            return new JavaObject(new LispInvocationHandler((Function) args[0]));
    … …  
    219219            }
    220220            if(!(args[0] instanceof Cons)) {
    221           return error(new TypeError(args[0], new SimpleString("CONS")));
     221          return type_error(args[0], Symbol.CONS);
    222222            }
    223223      Class[] ifaces = new Class[args[0].length()];

  • trunk/abcl/src/org/armedbear/lisp/Java.java

    r14465 r14466  
    459459                }
    460460            } else
    461                 error(new TypeError("wrong type: " + methodRef));
     461              type_error(methodRef, Symbol.STRING);
    462462            Object[] methodArgs = new Object[args.length-2];
    463463            Class[] argTypes = m.getParameterTypes();
    … …  
    12331233    return JavaObject.getInstance(o, c);
    12341234      } catch(ClassCastException e) {
    1235     return error(new TypeError(javaObject, new SimpleString(c.getName())));
     1235          return type_error(javaObject, new SimpleString(c.getName()));
    12361236      }
    12371237        }

  • trunk/abcl/src/org/armedbear/lisp/Layout.java

    r14092 r14466  
    278278          oldLayout = Symbol.CLASS_LAYOUT.execute(lispClass);
    279279        } else {
    280           return error(new TypeError(arg, Symbol.CLASS));
     280          return type_error(arg, Symbol.CLASS);
    281281        }
    282282

  • trunk/abcl/src/org/armedbear/lisp/Pathname.java

    r14465 r14466  
    26402640        public LispObject execute(LispObject arg) {
    26412641            if (!(arg instanceof AbstractString)) {
    2642                 return error(new TypeError(arg, Symbol.STRING));
     2642                return type_error(arg, Symbol.STRING);
    26432643            }
    26442644            String result = uriDecode(((AbstractString)arg).toString());
    … …  
    26672667        public LispObject execute(LispObject arg) {
    26682668            if (!(arg instanceof AbstractString)) {
    2669                 return error(new TypeError(arg, Symbol.STRING));
     2669                return type_error(arg, Symbol.STRING);
    26702670            }
    26712671            String result = uriEncode(((AbstractString)arg).toString());

  • trunk/abcl/src/org/armedbear/lisp/Ratio.java

    r13440 r14466  
    272272            return Complex.getInstance(add(c.getRealPart()), c.getImaginaryPart());
    273273        }
    274         return error(new TypeError(obj, Symbol.NUMBER));
     274        return type_error(obj, Symbol.NUMBER);
    275275    }
    276276
    … …  
    308308                                       Fixnum.ZERO.subtract(c.getImaginaryPart()));
    309309        }
    310         return error(new TypeError(obj, Symbol.NUMBER));
     310        return type_error(obj, Symbol.NUMBER);
    311311    }
    312312
    … …  
    338338                                       multiplyBy(c.getImaginaryPart()));
    339339        }
    340         return error(new TypeError(obj, Symbol.NUMBER));
     340        return type_error(obj, Symbol.NUMBER);
    341341    }
    342342
    … …  
    380380                                       imagPart.divideBy(d));
    381381        }
    382         return error(new TypeError(obj, Symbol.NUMBER));
     382        return type_error(obj, Symbol.NUMBER);
    383383    }
    384384
    … …  
    395395        if (obj.numberp())
    396396            return false;
    397         error(new TypeError(obj, Symbol.NUMBER));
     397        type_error(obj, Symbol.NUMBER);
    398398        // Not reached.
    399399        return false;
    … …  
    426426        if (obj instanceof DoubleFloat)
    427427            return isLessThan(((DoubleFloat)obj).rational());
    428         error(new TypeError(obj, Symbol.REAL));
     428        type_error(obj, Symbol.REAL);
    429429        // Not reached.
    430430        return false;
    … …  
    451451        if (obj instanceof DoubleFloat)
    452452            return isGreaterThan(((DoubleFloat)obj).rational());
    453         error(new TypeError(obj, Symbol.REAL));
     453        type_error(obj, Symbol.REAL);
    454454        // Not reached.
    455455        return false;
    … …  
    476476        if (obj instanceof DoubleFloat)
    477477            return isLessThanOrEqualTo(((DoubleFloat)obj).rational());
    478         error(new TypeError(obj, Symbol.REAL));
     478        type_error(obj, Symbol.REAL);
    479479        // Not reached.
    480480        return false;
    … …  
    501501        if (obj instanceof DoubleFloat)
    502502            return isGreaterThanOrEqualTo(((DoubleFloat)obj).rational());
    503         error(new TypeError(obj, Symbol.REAL));
     503        type_error(obj, Symbol.REAL);
    504504        // Not reached.
    505505        return false;
    … …  
    528528            d = ((Ratio)obj).denominator();
    529529    } else {
    530             return error(new TypeError(obj, Symbol.NUMBER));
     530            return type_error(obj, Symbol.NUMBER);
    531531    }
    532532    // Invert and multiply.

  • trunk/abcl/src/org/armedbear/lisp/SimpleBitVector.java

    r12513 r14466  
    212212                    v.aset(i, initialContents.elt(i));
    213213            } else
    214                 error(new TypeError(initialContents, Symbol.SEQUENCE));
     214                type_error(initialContents, Symbol.SEQUENCE);
    215215            return v;
    216216        }

  • trunk/abcl/src/org/armedbear/lisp/SimpleVector.java

    r12588 r14466  
    339339          }
    340340        else
    341           error(new TypeError(initialContents, Symbol.SEQUENCE));
     341          type_error(initialContents, Symbol.SEQUENCE);
    342342        return new SimpleVector(newData);
    343343      }

  • trunk/abcl/src/org/armedbear/lisp/SingleFloat.java

    r14062 r14466  
    285285            return Complex.getInstance(add(c.getRealPart()), c.getImaginaryPart());
    286286        }
    287         return error(new TypeError(obj, Symbol.NUMBER));
     287        return type_error(obj, Symbol.NUMBER);
    288288    }
    289289
    … …  
    316316                                       ZERO.subtract(c.getImaginaryPart()));
    317317        }
    318         return error(new TypeError(obj, Symbol.NUMBER));
     318        return type_error(obj, Symbol.NUMBER);
    319319    }
    320320
    … …  
    337337                                       multiplyBy(c.getImaginaryPart()));
    338338        }
    339         return error(new TypeError(obj, Symbol.NUMBER));
     339        return type_error(obj, Symbol.NUMBER);
    340340    }
    341341
    … …  
    363363            return Complex.getInstance(resX, resY);
    364364        }
    365         return error(new TypeError(obj, Symbol.NUMBER));
     365        return type_error(obj, Symbol.NUMBER);
    366366    }
    367367
    … …  
    381381        if (obj instanceof Complex)
    382382            return obj.isEqualTo(this);
    383         error(new TypeError(obj, Symbol.NUMBER));
     383        type_error(obj, Symbol.NUMBER);
    384384        // Not reached.
    385385        return false;
    … …  
    405405        if (obj instanceof Ratio)
    406406            return rational().isLessThan(obj);
    407         error(new TypeError(obj, Symbol.REAL));
     407        type_error(obj, Symbol.REAL);
    408408        // Not reached.
    409409        return false;
    … …  
    423423        if (obj instanceof Ratio)
    424424            return rational().isGreaterThan(obj);
    425         error(new TypeError(obj, Symbol.REAL));
     425        type_error(obj, Symbol.REAL);
    426426        // Not reached.
    427427        return false;
    … …  
    441441        if (obj instanceof Ratio)
    442442            return rational().isLessThanOrEqualTo(obj);
    443         error(new TypeError(obj, Symbol.REAL));
     443        type_error(obj, Symbol.REAL);
    444444        // Not reached.
    445445        return false;
    … …  
    459459        if (obj instanceof Ratio)
    460460            return rational().isGreaterThanOrEqualTo(obj);
    461         error(new TypeError(obj, Symbol.REAL));
     461        type_error(obj, Symbol.REAL);
    462462        // Not reached.
    463463        return false;
    … …  
    543543            return thread.setValues(result, remainder);
    544544        }
    545         return error(new TypeError(obj, Symbol.REAL));
     545        return type_error(obj, Symbol.REAL);
    546546    }
    547547

  • trunk/abcl/src/org/armedbear/lisp/Stream.java

    r14465 r14466  
    351351        return ((Stream)arg).getExternalFormat();
    352352      } else {
    353         return error(new TypeError(arg, Symbol.STREAM));
     353        return type_error(arg, Symbol.STREAM);
    354354      }
    355355    }

  • trunk/abcl/src/org/armedbear/lisp/StreamError.java

    r12320 r14466  
    163163            if (arg instanceof StreamError)
    164164                return ((StreamError)arg).getStream();
    165             return error(new TypeError(arg, Symbol.STREAM_ERROR));
     165            return type_error(arg, Symbol.STREAM_ERROR);
    166166        }
    167167    };

  • trunk/abcl/src/org/armedbear/lisp/SynonymStream.java

    r13440 r14466  
    243243            if (arg instanceof SynonymStream)
    244244                return ((SynonymStream)arg).symbol;
    245             return error(new TypeError(arg, Symbol.SYNONYM_STREAM));
     245            return type_error(arg, Symbol.SYNONYM_STREAM);
    246246        }
    247247    };

  • trunk/abcl/src/org/armedbear/lisp/ZeroRankArray.java

    r13440 r14466  
    119119    {
    120120        if (obj.typep(elementType) == NIL)
    121             error(new TypeError(obj, elementType));
     121            type_error(obj, elementType);
    122122        if (index == 0)
    123123            data = obj;
    … …  
    130130    {
    131131        if (obj.typep(elementType) == NIL)
    132             error(new TypeError(obj, elementType));
     132            type_error(obj, elementType);
    133133        data = obj;
    134134    }

  • trunk/abcl/src/org/armedbear/lisp/dotimes.java

    r12288 r14466  
    137137          }
    138138        else
    139           return error(new TypeError(limit, Symbol.INTEGER));
     139          return type_error(limit, Symbol.INTEGER);
    140140        return result;
    141141      }

  • trunk/abcl/src/org/armedbear/lisp/function_info.java

    r12957 r14466  
    9393                        }
    9494                    } else if (cons != NIL)
    95                         error(new TypeError(cons, Symbol.LIST));
     95                        type_error(cons, Symbol.LIST);
    9696                    info = info.cdr();
    9797                }
    … …  
    125125                    }
    126126                } else if (cons != NIL)
    127                     error(new TypeError(cons, Symbol.LIST));
     127                    type_error(cons, Symbol.LIST);
    128128                alist = alist.cdr();
    129129            }

  • trunk/abcl/src/org/armedbear/lisp/interactive_stream_p.java

    r12288 r14466  
    4949        if (arg instanceof Stream)
    5050            return ((Stream)arg).isInteractive() ? T : NIL;
    51         return error(new TypeError(arg, Symbol.STREAM));
     51        return type_error(arg, Symbol.STREAM);
    5252    }
    5353

  • trunk/abcl/src/org/armedbear/lisp/logandc1.java

    r12288 r14466  
    5858                return number(n1.not().and(n2));
    5959            }
    60             return error(new TypeError(second, Symbol.INTEGER));
     60            return type_error(second, Symbol.INTEGER);
    6161        }
    6262        if (first instanceof Bignum) {
    … …  
    7070                return number(n1.not().and(n2));
    7171            }
    72             return error(new TypeError(second, Symbol.INTEGER));
     72            return type_error(second, Symbol.INTEGER);
    7373        }
    74         return error(new TypeError(first, Symbol.INTEGER));
     74        return type_error(first, Symbol.INTEGER);
    7575    }
    7676

  • trunk/abcl/src/org/armedbear/lisp/logandc2.java

    r12288 r14466  
    6161                return number(n1.and(n2.not()));
    6262            }
    63             return error(new TypeError(second, Symbol.INTEGER));
     63            return type_error(second, Symbol.INTEGER);
    6464        }
    6565        if (first instanceof Bignum) {
    … …  
    7373                return number(n1.and(n2.not()));
    7474            }
    75             return error(new TypeError(second, Symbol.INTEGER));
     75            return type_error(second, Symbol.INTEGER);
    7676        }
    77         return error(new TypeError(first, Symbol.INTEGER));
     77        return type_error(first, Symbol.INTEGER);
    7878    }
    7979

  • trunk/abcl/src/org/armedbear/lisp/logeqv.java

    r12288 r14466  
    6161        if (arg instanceof Bignum)
    6262            return arg;
    63         return error(new TypeError(arg, Symbol.INTEGER));
     63        return type_error(arg, Symbol.INTEGER);
    6464    }
    6565
    … …  
    7676                n = ((Bignum)arg).value;
    7777            else
    78                 return error(new TypeError(arg, Symbol.INTEGER));
     78                return type_error(arg, Symbol.INTEGER);
    7979            if (result == null)
    8080                result = n;

  • trunk/abcl/src/org/armedbear/lisp/lognand.java

    r12288 r14466  
    5858                return number(n1.and(n2).not());
    5959            }
    60             return error(new TypeError(second, Symbol.INTEGER));
     60            return type_error(second, Symbol.INTEGER);
    6161        }
    6262        if (first instanceof Bignum) {
    … …  
    7070                return number(n1.and(n2).not());
    7171            }
    72             return error(new TypeError(second, Symbol.INTEGER));
     72            return type_error(second, Symbol.INTEGER);
    7373        }
    74         return error(new TypeError(first, Symbol.INTEGER));
     74        return type_error(first, Symbol.INTEGER);
    7575    }
    7676

  • trunk/abcl/src/org/armedbear/lisp/logorc1.java

    r12288 r14466  
    6161                return number(n1.not().or(n2));
    6262            }
    63             return error(new TypeError(second, Symbol.INTEGER));
     63            return type_error(second, Symbol.INTEGER);
    6464        }
    6565        if (first instanceof Bignum) {
    … …  
    7373                return number(n1.not().or(n2));
    7474            }
    75             return error(new TypeError(second, Symbol.INTEGER));
     75            return type_error(second, Symbol.INTEGER);
    7676        }
    77         return error(new TypeError(first, Symbol.INTEGER));
     77        return type_error(first, Symbol.INTEGER);
    7878    }
    7979

  • trunk/abcl/src/org/armedbear/lisp/logorc2.java

    r12826 r14466  
    6161                return number(n1.or(n2.not()));
    6262            }
    63             return error(new TypeError(second, Symbol.INTEGER));
     63            return type_error(second, Symbol.INTEGER);
    6464        }
    6565        if (first instanceof Bignum) {
    … …  
    7373                return number(n1.or(n2.not()));
    7474            }
    75             return error(new TypeError(second, Symbol.INTEGER));
     75            return type_error(second, Symbol.INTEGER);
    7676        }
    77         return error(new TypeError(first, Symbol.INTEGER));
     77        return type_error(first, Symbol.INTEGER);
    7878    }
    7979

  • trunk/abcl/src/org/armedbear/lisp/unbound_slot_instance.java

    r12288 r14466  
    4949        if (arg instanceof UnboundSlot)
    5050            return ((UnboundSlot)arg).getInstance();
    51         return error(new TypeError(arg, Symbol.UNBOUND_SLOT));
     51        return type_error(arg, Symbol.UNBOUND_SLOT);
    5252    }
    5353
Note: See TracChangeset for help on using the changeset viewer.