Changeset 8285


Ignore:
Timestamp:
12/23/04 12:30:04 (17 years ago)
Author:
piso
Message:

eql(int n)
equal(int n)
equalp(int n)

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r8280 r8285  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Fixnum.java,v 1.106 2004-12-21 20:25:05 piso Exp $
     5 * $Id: Fixnum.java,v 1.107 2004-12-23 12:30:04 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    138138    }
    139139
     140    public boolean eql(int n)
     141    {
     142        return value == n;
     143    }
     144
    140145    public boolean eql(LispObject obj)
    141146    {
     
    149154    }
    150155
     156    public boolean equal(int n)
     157    {
     158        return value == n;
     159    }
     160
    151161    public boolean equal(LispObject obj)
    152162    {
     
    158168        }
    159169        return false;
     170    }
     171
     172    public boolean equalp(int n)
     173    {
     174        return value == n;
    160175    }
    161176
  • trunk/j/src/org/armedbear/lisp/LispObject.java

    r8281 r8285  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.113 2004-12-21 20:25:33 piso Exp $
     5 * $Id: LispObject.java,v 1.114 2004-12-23 12:28:51 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    166166    }
    167167
     168    public boolean eql(int n)
     169    {
     170        return false;
     171    }
     172
    168173    public boolean eql(LispObject obj)
    169174    {
     
    181186    }
    182187
     188    public boolean equal(int n)
     189    {
     190        return false;
     191    }
     192
    183193    public boolean equal(LispObject obj) throws ConditionThrowable
    184194    {
    185195        return this == obj;
     196    }
     197
     198    public boolean equalp(int n)
     199    {
     200        return false;
    186201    }
    187202
Note: See TracChangeset for help on using the changeset viewer.