Changeset 3759


Ignore:
Timestamp:
09/14/03 15:11:07 (19 years ago)
Author:
piso
Message:

NUMBERP()

Location:
trunk/j/src/org/armedbear/lisp
Files:
6 edited

Legend:

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

    r3686 r3759  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Bignum.java,v 1.36 2003-09-10 18:45:38 piso Exp $
     5 * $Id: Bignum.java,v 1.37 2003-09-14 15:08:42 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6464        return super.typep(typeSpecifier);
    6565    }
    66    
     66
     67    public LispObject NUMBERP()
     68    {
     69        return T;
     70    }
     71
    6772    public boolean integerp()
    6873    {
  • trunk/j/src/org/armedbear/lisp/Complex.java

    r3574 r3759  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Complex.java,v 1.16 2003-09-04 05:06:39 piso Exp $
     5 * $Id: Complex.java,v 1.17 2003-09-14 15:11:07 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7676    }
    7777
     78    public LispObject NUMBERP()
     79    {
     80        return T;
     81    }
     82
    7883    public boolean eql(LispObject obj)
    7984    {
  • trunk/j/src/org/armedbear/lisp/Fixnum.java

    r3686 r3759  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Fixnum.java,v 1.62 2003-09-10 18:45:25 piso Exp $
     5 * $Id: Fixnum.java,v 1.63 2003-09-14 15:07:41 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7373        return super.typep(typeSpecifier);
    7474    }
    75    
     75
     76    public LispObject NUMBERP()
     77    {
     78        return T;
     79    }
     80
    7681    public boolean integerp()
    7782    {
  • trunk/j/src/org/armedbear/lisp/LispFloat.java

    r3585 r3759  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: LispFloat.java,v 1.38 2003-09-05 14:30:24 piso Exp $
     5 * $Id: LispFloat.java,v 1.39 2003-09-14 15:08:09 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6666            return T;
    6767        return super.typep(typeSpecifier);
     68    }
     69
     70    public LispObject NUMBERP()
     71    {
     72        return T;
    6873    }
    6974
  • trunk/j/src/org/armedbear/lisp/LispObject.java

    r3755 r3759  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.47 2003-09-14 13:03:33 piso Exp $
     5 * $Id: LispObject.java,v 1.48 2003-09-14 15:07:02 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    179179    }
    180180
     181    public LispObject NUMBERP()
     182    {
     183        return NIL;
     184    }
     185
    181186    public LispObject ZEROP() throws TypeError
    182187    {
  • trunk/j/src/org/armedbear/lisp/Ratio.java

    r3588 r3759  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Ratio.java,v 1.28 2003-09-06 16:10:17 piso Exp $
     5 * $Id: Ratio.java,v 1.29 2003-09-14 15:09:05 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7676            return T;
    7777        return super.typep(typeSpecifier);
     78    }
     79
     80    public LispObject NUMBERP()
     81    {
     82        return T;
    7883    }
    7984
Note: See TracChangeset for help on using the changeset viewer.