Changeset 3777


Ignore:
Timestamp:
09/14/03 17:13:52 (19 years ago)
Author:
piso
Message:

RATIONALP(), REALP()

File:
1 edited

Legend:

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

    r3775 r3777  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.51 2003-09-14 17:00:15 piso Exp $
     5 * $Id: LispObject.java,v 1.52 2003-09-14 17:13:52 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    229229    }
    230230
     231    public LispObject RATIONALP()
     232    {
     233        return rationalp() ? T : NIL;
     234    }
     235
    231236    public boolean rationalp()
    232237    {
    233238        return false;
     239    }
     240
     241    public LispObject REALP()
     242    {
     243        return realp() ? T : NIL;
    234244    }
    235245
Note: See TracChangeset for help on using the changeset viewer.