Changeset 8561


Ignore:
Timestamp:
02/13/05 04:24:23 (16 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r5114 r8561  
    22 * logeqv.java
    33 *
    4  * Copyright (C) 2003 Peter Graves
    5  * $Id: logeqv.java,v 1.5 2003-12-13 00:58:51 piso Exp $
     4 * Copyright (C) 2003-2005 Peter Graves
     5 * $Id: logeqv.java,v 1.6 2005-02-13 04:24:23 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3131    private logeqv()
    3232    {
    33         super("logeqv","&rest integers");
     33        super("logeqv", "&rest integers");
    3434    }
    3535
     
    4545        if (arg instanceof Bignum)
    4646            return arg;
    47         return signal(new TypeError(arg, "integer"));
     47        return signal(new TypeError(arg, Symbol.INTEGER));
    4848    }
    4949
     
    5757                n = ((Fixnum)arg).getBigInteger();
    5858            else if (arg instanceof Bignum)
    59                 n = ((Bignum)arg).getValue();
     59                n = ((Bignum)arg).value;
    6060            else
    61                 return signal(new TypeError(arg, "integer"));
     61                return signal(new TypeError(arg, Symbol.INTEGER));
    6262            if (result == null)
    6363                result = n;
     
    6868    }
    6969
    70     private static final logeqv LOGEQV = new logeqv();
     70    private static final Primitive LOGEQV = new logeqv();
    7171}
Note: See TracChangeset for help on using the changeset viewer.