Changeset 4977


Ignore:
Timestamp:
12/05/03 02:45:44 (18 years ago)
Author:
piso
Message:

equal(), equalp()

File:
1 edited

Legend:

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

    r4647 r4977  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: JavaObject.java,v 1.9 2003-11-04 22:24:18 asimon Exp $
     5 * $Id: JavaObject.java,v 1.10 2003-12-05 02:45:44 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5252    }
    5353
     54    public final boolean equal(LispObject other)
     55    {
     56        if (this == other)
     57            return true;
     58        if (other instanceof JavaObject)
     59            return (obj == ((JavaObject)other).obj);
     60        return false;
     61    }
     62
     63    public final boolean equalp(LispObject other)
     64    {
     65        return equal(other);
     66    }
     67
    5468    public String toString()
    5569    {
Note: See TracChangeset for help on using the changeset viewer.