Changeset 4034

Timestamp:

09/23/03 17:08:28 (20 years ago)

Author:

piso

Message:

Minor cleanup.

Location:

trunk/j/src/org/armedbear/lisp

Files:

• logand.java (modified) (3 diffs)
• logeqv.java (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/logand.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: logand.java,v 1.4 2003-09-19 11:50:19 piso Exp $
+ * $Id: logand.java,v 1.5 2003-09-23 17:08:28 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -28 +28 @@
 public final class logand extends Primitive
 {
-    private logand(String name)
+    private logand()
     {
-        super(name);
+        super("logand");
     }
 
     public LispObject execute()
     {
-        return new Fixnum(-1);
+        return Fixnum.MINUS_ONE;
     }
 
@@ -77 +77 @@
     }
 
-    private static final logand LOGAND = new logand("logand");
+    private static final logand LOGAND = new logand();
 }

trunk/j/src/org/armedbear/lisp/logeqv.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: logeqv.java,v 1.2 2003-09-19 11:50:19 piso Exp $
+ * $Id: logeqv.java,v 1.3 2003-09-23 17:08:08 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -29 +29 @@
 public final class logeqv extends Primitive
 {
-    private logeqv(String name)
+    private logeqv()
     {
-        super(name);
+        super("logeqv");
     }
 
     public LispObject execute()
     {
-        return new Fixnum(-1);
+        return Fixnum.MINUS_ONE;
     }
 
@@ -68 +68 @@
     }
 
-    private static final logeqv LOGEQV = new logeqv("logeqv");
+    private static final logeqv LOGEQV = new logeqv();
 }