Changeset 5975


Ignore:
Timestamp:
02/25/04 23:45:53 (17 years ago)
Author:
piso
Message:

ash()

File:
1 edited

Legend:

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

    r5924 r5975  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.75 2004-02-24 12:53:49 piso Exp $
     5 * $Id: LispObject.java,v 1.76 2004-02-25 23:45:53 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    445445    public LispObject incr() throws ConditionThrowable
    446446    {
    447         return signal(new TypeError(this, "number"));
     447        return signal(new TypeError(this, Symbol.NUMBER));
    448448    }
    449449
    450450    public LispObject decr() throws ConditionThrowable
    451451    {
    452         return signal(new TypeError(this, "number"));
     452        return signal(new TypeError(this, Symbol.NUMBER));
    453453    }
    454454
    455455    public LispObject add(LispObject obj) throws ConditionThrowable
    456456    {
    457         return signal(new TypeError(this, "number"));
     457        return signal(new TypeError(this, Symbol.NUMBER));
    458458    }
    459459
    460460    public LispObject subtract(LispObject obj) throws ConditionThrowable
    461461    {
    462         return signal(new TypeError(this, "number"));
     462        return signal(new TypeError(this, Symbol.NUMBER));
    463463    }
    464464
    465465    public LispObject multiplyBy(LispObject obj) throws ConditionThrowable
    466466    {
    467         return signal(new TypeError(this, "number"));
     467        return signal(new TypeError(this, Symbol.NUMBER));
    468468    }
    469469
    470470    public LispObject divideBy(LispObject obj) throws ConditionThrowable
    471471    {
    472         return signal(new TypeError(this, "number"));
     472        return signal(new TypeError(this, Symbol.NUMBER));
    473473    }
    474474
    475475    public boolean isEqualTo(LispObject obj) throws ConditionThrowable
    476476    {
    477         signal(new TypeError(this, "number"));
     477        signal(new TypeError(this, Symbol.NUMBER));
    478478        // Not reached.
    479479        return false;
     
    487487    public boolean isNotEqualTo(LispObject obj) throws ConditionThrowable
    488488    {
    489         signal(new TypeError(this, "number"));
     489        signal(new TypeError(this, Symbol.NUMBER));
    490490        // Not reached.
    491491        return false;
     
    499499    public boolean isLessThan(LispObject obj) throws ConditionThrowable
    500500    {
    501         signal(new TypeError(this, "number"));
     501        signal(new TypeError(this, Symbol.NUMBER));
    502502        // Not reached.
    503503        return false;
     
    511511    public boolean isGreaterThan(LispObject obj) throws ConditionThrowable
    512512    {
    513         signal(new TypeError(this, "number"));
     513        signal(new TypeError(this, Symbol.NUMBER));
    514514        // Not reached.
    515515        return false;
     
    523523    public boolean isLessThanOrEqualTo(LispObject obj) throws ConditionThrowable
    524524    {
    525         signal(new TypeError(this, "number"));
     525        signal(new TypeError(this, Symbol.NUMBER));
    526526        // Not reached.
    527527        return false;
     
    535535    public boolean isGreaterThanOrEqualTo(LispObject obj) throws ConditionThrowable
    536536    {
    537         signal(new TypeError(this, "number"));
     537        signal(new TypeError(this, Symbol.NUMBER));
    538538        // Not reached.
    539539        return false;
     
    547547    public LispObject truncate(LispObject obj) throws ConditionThrowable
    548548    {
    549         return signal(new TypeError(this, "real number"));
     549        return signal(new TypeError(this, Symbol.REAL));
     550    }
     551
     552    public LispObject ash(LispObject obj) throws ConditionThrowable
     553    {
     554        return signal(new TypeError(obj, Symbol.INTEGER));
    550555    }
    551556
Note: See TracChangeset for help on using the changeset viewer.