Artifact 9f56846cdba46fac7e0dd2f6f6218cc0438f38735667d9964a040965ffd8095a:

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

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

import java.util.*;

class LispEqualHash extends HashMap
{

    public Object put(Object key, Object value)
    {
        super.put(new LispEqualObject(key), value);
        return value;
    }

    public Object get(Object key)
    {
        return super.get(new LispEqualObject(key));
    }

    public Object remove(Object key)
    {
        return super.remove(new LispEqualObject(key));
    }

}

// end of LispEqualHash.java