Changeset 8284


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

equalp(int n)

File:
1 edited

Legend:

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

    r8231 r8284  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: LispFloat.java,v 1.81 2004-12-07 18:11:32 piso Exp $
     5 * $Id: LispFloat.java,v 1.82 2004-12-23 12:29:29 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    120120    }
    121121
     122    public boolean equalp(int n)
     123    {
     124        return value == n;
     125    }
     126
    122127    public boolean equalp(LispObject obj) throws ConditionThrowable
    123128    {
     
    125130            return value == ((LispFloat)obj).value;
    126131        if (obj instanceof Fixnum)
    127             return value == ((Fixnum)obj).getValue();
     132            return value == ((Fixnum)obj).value;
    128133        if (obj instanceof Bignum)
    129134            return value == ((Bignum)obj).floatValue();
Note: See TracChangeset for help on using the changeset viewer.