Changeset 3527


Ignore:
Timestamp:
08/26/03 14:38:57 (19 years ago)
Author:
piso
Message:

PLUSP, MINUSP

File:
1 edited

Legend:

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

    r3520 r3527  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.354 2003-08-25 19:16:24 piso Exp $
     5 * $Id: Primitives.java,v 1.355 2003-08-26 14:38:57 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    558558        {
    559559            return arg == NIL ? T : NIL;
     560        }
     561    };
     562
     563    // ### plusp
     564    private static final Primitive1 PLUSP = new Primitive1("plusp") {
     565        public LispObject execute(LispObject arg) throws TypeError
     566        {
     567            return arg.PLUSP();
     568        }
     569    };
     570
     571    // ### minusp
     572    private static final Primitive1 MINUSP = new Primitive1("minusp") {
     573        public LispObject execute(LispObject arg) throws TypeError
     574        {
     575            return arg.MINUSP();
    560576        }
    561577    };
Note: See TracChangeset for help on using the changeset viewer.