Changeset 3656

Timestamp:

09/10/03 15:26:04 (20 years ago)

Author:

piso

Message:

Minor cleanup.

File:

• trunk/j/src/org/armedbear/lisp/logandc2.java (modified) (4 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: logandc2.java,v 1.1 2003-09-10 15:05:26 piso Exp $
+ * $Id: logandc2.java,v 1.2 2003-09-10 15:26:04 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -24 +24 @@
 import java.math.BigInteger;
 
+// ### logandc2
+// logandc2 integer-1 integer-2 => result-integer
+// and integer-1 with complement of integer-2
 public final class logandc2 extends Primitive2
 {
@@ -31 +34 @@
     }
 
-    // ### logandc2
-    // logandc2 integer-1 integer-2 => result-integer
-    // and integer-1 with complement of integer-2
     public LispObject execute(LispObject first, LispObject second)
         throws LispError
@@ -63 +63 @@
     }
 
-    private static final logandc2 LOGANDC1 = new logandc2("logandc2");
+    private static final logandc2 LOGANDC2 = new logandc2("logandc2");
 }