Changeset 12285


Ignore:
Timestamp:
11/29/09 19:38:53 (12 years ago)
Author:
vvoutilainen
Message:

Make NUMBERP/LISTP/etc. type query functions final in LispObject.
These usually call their virtual boolean counterpart and then return T or
NIL in the final function. Same change is made for IS_* functions
in LispObject, those also invoke a virtual boolean counterpart.

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

Legend:

Unmodified
Added
Removed

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

    r12255 r12285  
    5050            return T;
    5151        return super.typep(type);
    52     }
    53 
    54     @Override
    55     public final LispObject STRINGP()
    56     {
    57         return T;
    5852    }
    5953

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

    r12272 r12285  
    4747      return T;
    4848    return super.typep(type);
    49   }
    50 
    51   @Override
    52   public final LispObject VECTORP()
    53   {
    54     return T;
    5549  }
    5650

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

    r12254 r12285  
    160160
    161161  @Override
    162   public LispObject NUMBERP()
    163   {
    164     return T;
    165   }
    166 
    167   @Override
    168162  public boolean numberp()
    169163  {
    170164    return true;
    171   }
    172 
    173   @Override
    174   public LispObject INTEGERP()
    175   {
    176     return T;
    177165  }
    178166

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

    r12254 r12285  
    103103      return T;
    104104    return super.typep(type);
    105   }
    106 
    107   @Override
    108   public LispObject NUMBERP()
    109   {
    110     return T;
    111105  }
    112106

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

    r12279 r12285  
    113113
    114114  @Override
    115   public LispObject ATOM()
    116   {
    117     return NIL;
    118   }
    119 
    120   @Override
    121115  public boolean atom()
    122116  {
    … …  
    415409
    416410  @Override
    417   public final LispObject LISTP()
    418   {
    419     return T;
    420   }
    421 
    422   @Override
    423411  public final boolean endp()
    424412  {
    425413    return false;
    426   }
    427 
    428   @Override
    429   public final LispObject ENDP()
    430   {
    431     return NIL;
    432414  }
    433415

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

    r12254 r12285  
    107107
    108108    @Override
    109     public LispObject NUMBERP()
    110     {
    111         return T;
    112     }
    113 
    114     @Override
    115109    public boolean numberp()
    116110    {
    … …  
    210204    {
    211205        return value == 0;
    212     }
    213 
    214     @Override
    215     public LispObject FLOATP()
    216     {
    217         return T;
    218206    }
    219207

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

    r12254 r12285  
    157157
    158158  @Override
    159   public LispObject NUMBERP()
    160   {
    161     return T;
    162   }
    163 
    164   @Override
    165159  public boolean numberp()
    166160  {
    167161    return true;
    168   }
    169 
    170   @Override
    171   public LispObject INTEGERP()
    172   {
    173     return T;
    174162  }
    175163

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

    r12254 r12285  
    117117
    118118  @Override
    119   public LispObject CHARACTERP()
    120   {
    121     return T;
    122   }
    123 
    124   @Override
    125119  public boolean characterp()
    126120  {

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

    r12281 r12285  
    8787  }
    8888
    89   public LispObject CONSTANTP()
     89  public final LispObject CONSTANTP()
    9090  {
    9191    return constantp() ? T : NIL;
    9292  }
    9393
    94   public LispObject ATOM()
    95   {
    96     return T;
     94  public final LispObject ATOM()
     95  {
     96    return atom() ? T : NIL;
    9797  }
    9898
    … …  
    269269  }
    270270
    271   public LispObject EVENP()
     271  public final LispObject EVENP()
    272272  {
    273273    return evenp() ? T : NIL;
    … …  
    281281  }
    282282
    283   public LispObject ODDP()
     283  public final LispObject ODDP()
    284284  {
    285285    return oddp() ? T : NIL;
    … …  
    293293  }
    294294
    295   public LispObject PLUSP()
     295  public final LispObject PLUSP()
    296296  {
    297297    return plusp() ? T : NIL;
    … …  
    305305  }
    306306
    307   public LispObject MINUSP()
     307  public final LispObject MINUSP()
    308308  {
    309309    return minusp() ? T : NIL;
    … …  
    317317  }
    318318
    319   public LispObject NUMBERP()
     319  public final LispObject NUMBERP()
     320  {
     321    return numberp() ? T : NIL;
     322  }
     323
     324  public boolean numberp()
     325  {
     326    return false;
     327  }
     328
     329  public final LispObject ZEROP()
     330  {
     331    return zerop() ? T : NIL;
     332  }
     333
     334  public boolean zerop()
     335  {
     336    type_error(this, Symbol.NUMBER);
     337    // Not reached.
     338    return false;
     339  }
     340
     341  public LispObject COMPLEXP()
    320342  {
    321343    return NIL;
    322344  }
    323345
    324   public boolean numberp()
    325   {
    326     return false;
    327   }
    328 
    329   public LispObject ZEROP()
    330   {
    331     return zerop() ? T : NIL;
    332   }
    333 
    334   public boolean zerop()
    335   {
    336     type_error(this, Symbol.NUMBER);
    337     // Not reached.
    338     return false;
    339   }
    340 
    341   public LispObject COMPLEXP()
     346  public final LispObject FLOATP()
     347  {
     348    return floatp() ? T : NIL;
     349  }
     350
     351  public boolean floatp()
     352  {
     353    return false;
     354  }
     355
     356  public final LispObject INTEGERP()
     357  {
     358    return integerp() ? T : NIL;
     359  }
     360
     361  public boolean integerp()
     362  {
     363    return false;
     364  }
     365
     366  public final LispObject RATIONALP()
     367  {
     368    return rationalp() ? T : NIL;
     369  }
     370
     371  public boolean rationalp()
     372  {
     373    return false;
     374  }
     375
     376  public final LispObject REALP()
     377  {
     378    return realp() ? T : NIL;
     379  }
     380
     381  public boolean realp()
     382  {
     383    return false;
     384  }
     385
     386  public final LispObject STRINGP()
     387  {
     388    return stringp() ? T : NIL;
     389  }
     390
     391  public boolean stringp()
     392  {
     393    return false;
     394  }
     395
     396  public LispObject SIMPLE_STRING_P()
    342397  {
    343398    return NIL;
    344399  }
    345400
    346   public LispObject FLOATP()
    347   {
    348     return NIL;
    349   }
    350 
    351   public boolean floatp()
    352   {
    353     return false;
    354   }
    355 
    356   public LispObject INTEGERP()
    357   {
    358     return NIL;
    359   }
    360 
    361   public boolean integerp()
    362   {
    363     return false;
    364   }
    365 
    366   public LispObject RATIONALP()
    367   {
    368     return rationalp() ? T : NIL;
    369   }
    370 
    371   public boolean rationalp()
    372   {
    373     return false;
    374   }
    375 
    376   public LispObject REALP()
    377   {
    378     return realp() ? T : NIL;
    379   }
    380 
    381   public boolean realp()
    382   {
    383     return false;
    384   }
    385 
    386   public LispObject STRINGP()
    387   {
    388     return NIL;
    389   }
    390 
    391   public boolean stringp()
    392   {
    393     return false;
    394   }
    395 
    396   public LispObject SIMPLE_STRING_P()
    397   {
    398     return NIL;
    399   }
    400 
    401   public LispObject VECTORP()
    402   {
    403     return NIL;
     401  public final LispObject VECTORP()
     402  {
     403    return vectorp() ? T : NIL;
    404404  }
    405405
    … …  
    409409  }
    410410
    411   public LispObject CHARACTERP()
    412   {
    413     return NIL;
     411  public final LispObject CHARACTERP()
     412  {
     413    return characterp() ? T : NIL;
    414414  }
    415415
    … …  
    556556  }
    557557
    558   public LispObject LISTP()
    559   {
    560     return NIL;
     558  public final LispObject LISTP()
     559  {
     560    return listp() ? T : NIL;
    561561  }
    562562
    … …  
    568568  }
    569569
    570   public LispObject ENDP()
    571   {
    572     return type_error(this, Symbol.LIST);
     570  public final LispObject ENDP()
     571  {
     572    return endp() ? T : NIL;
    573573  }
    574574
    … …  
    881881  }
    882882
    883   public LispObject IS_E(LispObject obj)
     883  public final LispObject IS_E(LispObject obj)
    884884  {
    885885    return isEqualTo(obj) ? T : NIL;
    … …  
    898898  }
    899899
    900   public LispObject IS_NE(LispObject obj)
     900  public final LispObject IS_NE(LispObject obj)
    901901  {
    902902    return isNotEqualTo(obj) ? T : NIL;
    … …  
    915915  }
    916916
    917   public LispObject IS_LT(LispObject obj)
     917  public final LispObject IS_LT(LispObject obj)
    918918  {
    919919    return isLessThan(obj) ? T : NIL;
    … …  
    932932  }
    933933
    934   public LispObject IS_GT(LispObject obj)
     934  public final LispObject IS_GT(LispObject obj)
    935935  {
    936936    return isGreaterThan(obj) ? T : NIL;
    … …  
    949949  }
    950950
    951   public LispObject IS_LE(LispObject obj)
     951  public final LispObject IS_LE(LispObject obj)
    952952  {
    953953    return isLessThanOrEqualTo(obj) ? T : NIL;
    … …  
    966966  }
    967967
    968   public LispObject IS_GE(LispObject obj)
     968  public final LispObject IS_GE(LispObject obj)
    969969  {
    970970    return isGreaterThanOrEqualTo(obj) ? T : NIL;

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

    r12279 r12285  
    201201
    202202    @Override
    203     public LispObject LISTP()
    204     {
    205         return T;
    206     }
    207 
    208     @Override
    209203    public boolean endp()
    210204    {
    211205        return true;
    212     }
    213 
    214     @Override
    215     public LispObject ENDP()
    216     {
    217         return T;
    218206    }
    219207

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

    r12254 r12285  
    9595            return T;
    9696        return super.typep(type);
    97     }
    98 
    99     @Override
    100     public LispObject NUMBERP()
    101     {
    102         return T;
    10397    }
    10498

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

    r12254 r12285  
    107107
    108108    @Override
    109     public LispObject NUMBERP()
    110     {
    111         return T;
    112     }
    113 
    114     @Override
    115109    public boolean numberp()
    116110    {
    … …  
    210204    {
    211205        return value == 0;
    212     }
    213 
    214     @Override
    215     public LispObject FLOATP()
    216     {
    217         return T;
    218206    }
    219207
Note: See TracChangeset for help on using the changeset viewer.