Changeset 3548


Ignore:
Timestamp:
09/02/03 15:06:12 (19 years ago)
Author:
piso
Message:

EVENP(), evenp(), ODDP(), oddp()

File:
1 edited

Legend:

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

    r3542 r3548  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.40 2003-08-30 15:06:16 piso Exp $
     5 * $Id: LispObject.java,v 1.41 2003-09-02 15:06:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    129129    }
    130130
     131    public LispObject EVENP() throws TypeError
     132    {
     133        return evenp() ? T : NIL;
     134    }
     135
     136    public boolean evenp() throws TypeError
     137    {
     138        throw new TypeError(this, "integer");
     139    }
     140
     141    public LispObject ODDP() throws TypeError
     142    {
     143        return oddp() ? T : NIL;
     144    }
     145
     146    public boolean oddp() throws TypeError
     147    {
     148        throw new TypeError(this, "integer");
     149    }
     150
    131151    public LispObject PLUSP() throws TypeError
    132152    {
Note: See TracChangeset for help on using the changeset viewer.