Changeset 3686


Ignore:
Timestamp:
09/10/03 18:45:38 (19 years ago)
Author:
piso
Message:

integerp()

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

Legend:

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

    r3570 r3686  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Bignum.java,v 1.35 2003-09-04 04:28:01 piso Exp $
     5 * $Id: Bignum.java,v 1.36 2003-09-10 18:45:38 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6363            return value.signum() >= 0 ? T : NIL;
    6464        return super.typep(typeSpecifier);
     65    }
     66   
     67    public boolean integerp()
     68    {
     69        return true;
    6570    }
    6671
  • trunk/j/src/org/armedbear/lisp/Fixnum.java

    r3579 r3686  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Fixnum.java,v 1.61 2003-09-04 14:42:53 piso Exp $
     5 * $Id: Fixnum.java,v 1.62 2003-09-10 18:45:25 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7272            return (value == 0 || value == 1) ? T : NIL;
    7373        return super.typep(typeSpecifier);
     74    }
     75   
     76    public boolean integerp()
     77    {
     78        return true;
    7479    }
    7580
Note: See TracChangeset for help on using the changeset viewer.