Artifact 11779335e6495e16b81bb7bc20e76f2ebd98587dd4aff32f1862e9608990d7a4:

• Executable file r37/lisp/csl/jlisp/LispEqualObject.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: 700) [annotate] [blame] [check-ins using] [more...]

//
// This file is part of the Jlisp implementation of Standard Lisp
// Copyright \u00a9 (C) Codemist Ltd, 1998-2000.
//

// This class exists just so that I can hash LispObjects using an EQUAL
// test. I do so by wrapping them up as LispEqualObjects at which stage the
// relevant methods emerge.

class LispEqualObject extends Object
{
    LispObject value;

    LispEqualObject(Object a)
    {   this.value = (LispObject)a;
    }

    public boolean equals(Object b)
    {
        if (!(b instanceof LispEqualObject)) return false;
	return value.lispequals(((LispEqualObject)b).value);
    }

    public int hashCode()
    {   return value.lisphashCode();
    }

}

// end of LispEqualObject.java