Changeset 4914


Ignore:
Timestamp:
11/29/03 19:23:36 (18 years ago)
Author:
piso
Message:

EVENP, ODDP, NUMBERP

File:
1 edited

Legend:

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

    r4907 r4914  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.507 2003-11-28 06:08:06 piso Exp $
     5 * $Id: Primitives.java,v 1.508 2003-11-29 19:23:36 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5151    private static final int CONSP                      = 17;
    5252    private static final int EVAL                       = 18;
    53     private static final int EVENP                      = 19;
    54     private static final int FOURTH                     = 20;
    55     private static final int IDENTITY                   = 21;
    56     private static final int KEYWORDP                   = 22;
    57     private static final int LISTP                      = 23;
    58     private static final int LOWER_CASE_P               = 24;
    59     private static final int MAKE_SYMBOL                = 25;
    60     private static final int MAKUNBOUND                 = 26;
    61     private static final int NUMBERP                    = 27;
    62     private static final int ODDP                       = 28;
    63     private static final int PREDECESSOR                = 29;
    64     private static final int SECOND                     = 30;
    65     private static final int SIMPLE_BIT_VECTOR_P        = 31;
    66     private static final int SIMPLE_STRING_P            = 32;
    67     private static final int SIMPLE_VECTOR_P            = 33;
    68     private static final int STRINGP                    = 34;
    69     private static final int SUCCESSOR                  = 35;
    70     private static final int SYMBOL_FUNCTION            = 36;
    71     private static final int SYMBOL_NAME                = 37;
    72     private static final int SYMBOL_PACKAGE             = 38;
    73     private static final int SYMBOL_PLIST               = 39;
    74     private static final int THIRD                      = 40;
    75     private static final int UPPER_CASE_P               = 41;
    76     private static final int VECTORP                    = 42;
     53    private static final int FOURTH                     = 19;
     54    private static final int IDENTITY                   = 20;
     55    private static final int KEYWORDP                   = 21;
     56    private static final int LISTP                      = 22;
     57    private static final int LOWER_CASE_P               = 23;
     58    private static final int MAKE_SYMBOL                = 24;
     59    private static final int MAKUNBOUND                 = 25;
     60    private static final int PREDECESSOR                = 26;
     61    private static final int SECOND                     = 27;
     62    private static final int SIMPLE_BIT_VECTOR_P        = 28;
     63    private static final int SIMPLE_STRING_P            = 29;
     64    private static final int SIMPLE_VECTOR_P            = 30;
     65    private static final int STRINGP                    = 31;
     66    private static final int SUCCESSOR                  = 32;
     67    private static final int SYMBOL_FUNCTION            = 33;
     68    private static final int SYMBOL_NAME                = 34;
     69    private static final int SYMBOL_PACKAGE             = 35;
     70    private static final int SYMBOL_PLIST               = 36;
     71    private static final int THIRD                      = 37;
     72    private static final int UPPER_CASE_P               = 38;
     73    private static final int VECTORP                    = 39;
    7774
    7875    private Primitives()
     
    9996        definePrimitive1("consp", CONSP);
    10097        definePrimitive1("eval", EVAL);
    101         definePrimitive1("evenp", EVENP);
    10298        definePrimitive1("fourth", FOURTH);
    10399        definePrimitive1("identity", IDENTITY);
     
    107103        definePrimitive1("make-symbol", MAKE_SYMBOL);
    108104        definePrimitive1("makunbound", MAKUNBOUND);
    109         definePrimitive1("numberp", NUMBERP);
    110         definePrimitive1("oddp", ODDP);
    111105        definePrimitive1("second", SECOND);
    112106        definePrimitive1("simple-bit-vector-p", SIMPLE_BIT_VECTOR_P);
     
    195189                }
    196190                return NIL;
    197             case EVENP:                         // ### evenp
    198                 return arg.EVENP();
    199             case ODDP:                          // ### oddp
    200                 return arg.ODDP();
    201             case NUMBERP:                       // ### numberp
    202                 return arg.NUMBERP();
    203191            case CONSP:                         // ### consp
    204192                return arg instanceof Cons ? T : NIL;
     
    43614349    };
    43624350
     4351    // ### evenp
     4352    private static final Primitive1 EVENP = new Primitive1("evenp")
     4353    {
     4354        public LispObject execute(LispObject arg) throws ConditionThrowable
     4355        {
     4356            return arg.EVENP();
     4357        }
     4358    };
     4359
     4360    // ### oddp
     4361    private static final Primitive1 ODDP = new Primitive1("oddp")
     4362    {
     4363        public LispObject execute(LispObject arg) throws ConditionThrowable
     4364        {
     4365            return arg.ODDP();
     4366        }
     4367    };
     4368
     4369    // ### numberp
     4370    private static final Primitive1 NUMBERP = new Primitive1("numberp")
     4371    {
     4372        public LispObject execute(LispObject arg)
     4373        {
     4374            return arg.NUMBERP();
     4375        }
     4376    };
     4377
    43634378    // ### realp
    43644379    private static final Primitive1 REALP = new Primitive1("realp") {
Note: See TracChangeset for help on using the changeset viewer.