Changeset 3549

Timestamp:

09/02/03 15:07:25 (19 years ago)

Author:

piso

Message:

evenp(), oddp()

Location:

trunk/j/src/org/armedbear/lisp

Files:

• Bignum.java (modified) (2 diffs)
• Fixnum.java (modified) (2 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Bignum.java,v 1.29 2003-09-02 04:35:29 piso Exp $
+ * $Id: Bignum.java,v 1.30 2003-09-02 15:07:25 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -101 +101 @@
             return this;
         return new Bignum(value.negate());
+    }
+
+    public boolean evenp() throws TypeError
+    {
+        return !value.testBit(0);
+    }
+
+    public boolean oddp() throws TypeError
+    {
+        return value.testBit(0);
     }
 

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Fixnum.java,v 1.55 2003-08-27 16:15:10 piso Exp $
+ * $Id: Fixnum.java,v 1.56 2003-09-02 15:06:53 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -110 +110 @@
             return this;
         return number(-((long)value));
+    }
+
+    public boolean evenp() throws TypeError
+    {
+        return (value & 0x01) == 0;
+    }
+
+    public boolean oddp() throws TypeError
+    {
+        return (value & 0x01) != 0;
     }