Changeset 3686

Timestamp:

09/10/03 18:45:38 (19 years ago)

Author:

piso

Message:

integerp()

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.35 2003-09-04 04:28:01 piso Exp $
+ * $Id: Bignum.java,v 1.36 2003-09-10 18:45:38 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -63 +63 @@
             return value.signum() >= 0 ? T : NIL;
         return super.typep(typeSpecifier);
+    }
+    
+    public boolean integerp()
+    {
+        return true;
     }
 

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Fixnum.java,v 1.61 2003-09-04 14:42:53 piso Exp $
+ * $Id: Fixnum.java,v 1.62 2003-09-10 18:45:25 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -72 +72 @@
             return (value == 0 || value == 1) ? T : NIL;
         return super.typep(typeSpecifier);
+    }
+    
+    public boolean integerp()
+    {
+        return true;
     }