Changeset 3550


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

EVENP, ODDP

File:
1 edited

Legend:

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

    r3547 r3550  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.361 2003-09-02 05:11:09 piso Exp $
     5 * $Id: Primitives.java,v 1.362 2003-09-02 15:07:58 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    296296                return arg.getSymbolFunction() instanceof SpecialOperator ? T : NIL;
    297297            case EVENP:                         // ### evenp
    298                 return (Fixnum.getValue(arg) % 2) == 0 ? T : NIL;
     298                return arg.EVENP();
    299299            case ODDP:                          // ### oddp
    300                 return (Fixnum.getValue(arg) % 2) == 0 ? NIL : T;
     300                return arg.ODDP();
    301301            case NUMBERP:                       // ### numberp
    302302                return (arg.getType() & TYPE_NUMBER) != 0 ? T : NIL;
Note: See TracChangeset for help on using the changeset viewer.