Artifact e35b1dcfa0373d13b3dcbe4262610bd555748a61a2a0afd0113e99019e5955f0:

• Executable file r37/lisp/csl/jlisp/EqFn.java — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 397) [annotate] [blame] [check-ins using] [more...]

//24/02/02 created for seeing if I have all tools necessary for Lisp

class EqFn extends BuiltinFunction
{
    public LispObject op2(LispObject arg1, LispObject arg2)
    {
        if (arg1 instanceof LispNumber)                                // @@@
            return arg1.lispequals(arg2) ? Jlisp.lispTrue : Jlisp.nil; // @@@
        else return arg1==arg2 ? Jlisp.lispTrue : Jlisp.nil;
    }
}