Changeset 3685


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

INTEGERP(), integerp()

File:
1 edited

Legend:

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

    r3570 r3685  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.44 2003-09-04 04:28:01 piso Exp $
     5 * $Id: LispObject.java,v 1.45 2003-09-10 18:45:02 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    183183        return zerop() ? T : NIL;
    184184    }
    185    
     185
    186186    public boolean zerop() throws TypeError
    187187    {
     
    200200
    201201    public boolean floatp()
     202    {
     203        return false;
     204    }
     205
     206    public LispObject INTEGERP()
     207    {
     208        return integerp() ? T : NIL;
     209    }
     210
     211    public boolean integerp()
    202212    {
    203213        return false;
Note: See TracChangeset for help on using the changeset viewer.