Changeset 4034


Ignore:
Timestamp:
09/23/03 17:08:28 (19 years ago)
Author:
piso
Message:

Minor cleanup.

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

Legend:

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

    r3884 r4034  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: logand.java,v 1.4 2003-09-19 11:50:19 piso Exp $
     5 * $Id: logand.java,v 1.5 2003-09-23 17:08:28 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2828public final class logand extends Primitive
    2929{
    30     private logand(String name)
     30    private logand()
    3131    {
    32         super(name);
     32        super("logand");
    3333    }
    3434
    3535    public LispObject execute()
    3636    {
    37         return new Fixnum(-1);
     37        return Fixnum.MINUS_ONE;
    3838    }
    3939
     
    7777    }
    7878
    79     private static final logand LOGAND = new logand("logand");
     79    private static final logand LOGAND = new logand();
    8080}
  • trunk/j/src/org/armedbear/lisp/logeqv.java

    r3884 r4034  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: logeqv.java,v 1.2 2003-09-19 11:50:19 piso Exp $
     5 * $Id: logeqv.java,v 1.3 2003-09-23 17:08:08 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2929public final class logeqv extends Primitive
    3030{
    31     private logeqv(String name)
     31    private logeqv()
    3232    {
    33         super(name);
     33        super("logeqv");
    3434    }
    3535
    3636    public LispObject execute()
    3737    {
    38         return new Fixnum(-1);
     38        return Fixnum.MINUS_ONE;
    3939    }
    4040
     
    6868    }
    6969
    70     private static final logeqv LOGEQV = new logeqv("logeqv");
     70    private static final logeqv LOGEQV = new logeqv();
    7171}
Note: See TracChangeset for help on using the changeset viewer.