Changeset 8281


Ignore:
Timestamp:
12/21/04 20:25:33 (17 years ago)
Author:
piso
Message:

isEqualTo(int n) isNotEqualTo(int n)

File:
1 edited

Legend:

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

    r8278 r8281  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.112 2004-12-21 18:03:20 piso Exp $
     5 * $Id: LispObject.java,v 1.113 2004-12-21 20:25:33 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    576576    }
    577577
     578    public boolean isEqualTo(int n) throws ConditionThrowable
     579    {
     580        return isEqualTo(new Fixnum(n));
     581    }
     582
    578583    public boolean isEqualTo(LispObject obj) throws ConditionThrowable
    579584    {
     
    586591    {
    587592        return isEqualTo(obj) ? T : NIL;
     593    }
     594
     595    public boolean isNotEqualTo(int n) throws ConditionThrowable
     596    {
     597        return isNotEqualTo(new Fixnum(n));
    588598    }
    589599
Note: See TracChangeset for help on using the changeset viewer.