Ticket #388: abcl-14755-equalp-fix-3.diff

File abcl-14755-equalp-fix-3.diff, 2.2 KB (added by Mark Evenson, 9 years ago)

massimiliano.ghilardi@gmail-ticket-388

  • src/org/armedbear/lisp/Bignum.java

    old new  
    213213  @Override
    214214  public boolean equalp(LispObject obj)
    215215  {
    216     if (obj.numberp())
     216    if (obj != null && obj.numberp())
    217217      return isEqualTo(obj);
    218218    return false;
    219219  }

  • src/org/armedbear/lisp/Complex.java

    old new  
    143143  @Override
    144144  public boolean equalp(LispObject obj)
    145145  {
    146     if (obj.numberp())
     146    if (obj != null && obj.numberp())
    147147      return isEqualTo(obj);
    148148    return false;
    149149  }

  • src/org/armedbear/lisp/DoubleFloat.java

    old new  
    169169    @Override
    170170    public boolean equalp(LispObject obj)
    171171    {
    172         if (obj.numberp())
     172        if (obj != null && obj.numberp())
    173173            return isEqualTo(obj);
    174174        return false;
    175175    }

  • src/org/armedbear/lisp/Fixnum.java

    old new  
    228228  @Override
    229229  public boolean equalp(LispObject obj)
    230230  {
    231     if (obj.numberp())
     231    if (obj != null && obj.numberp())
    232232      return isEqualTo(obj);
    233233    return false;
    234234  }

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

    old new  
    137137    @Override
    138138    public boolean equalp(LispObject obj)
    139139    {
    140         if (obj.numberp())
     140        if (obj != null && obj.numberp())
    141141            return isEqualTo(obj);
    142142        return false;
    143143    }

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

    old new  
    169169    @Override
    170170    public boolean equalp(LispObject obj)
    171171    {
    172         if (obj.numberp())
     172        if (obj != null && obj.numberp())
    173173            return isEqualTo(obj);
    174174        return false;
    175175    }