Changeset 3554

Timestamp:

09/02/03 16:27:01 (19 years ago)

Author:

piso

Message:

NUMERATOR(), DENOMINATOR()

Location:

trunk/j/src/org/armedbear/lisp

Files:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Bignum.java,v 1.30 2003-09-02 15:07:25 piso Exp $
+ * $Id: Bignum.java,v 1.31 2003-09-02 16:27:01 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -101 +101 @@
             return this;
         return new Bignum(value.negate());
+    }
+
+    public LispObject NUMERATOR()
+    {
+        return this;
+    }
+
+    public LispObject DENOMINATOR()
+    {
+        return Fixnum.ONE;
     }
 

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Fixnum.java,v 1.56 2003-09-02 15:06:53 piso Exp $
+ * $Id: Fixnum.java,v 1.57 2003-09-02 16:26:47 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -110 +110 @@
             return this;
         return number(-((long)value));
+    }
+
+    public LispObject NUMERATOR()
+    {
+        return this;
+    }
+
+    public LispObject DENOMINATOR()
+    {
+        return ONE;
     }
 

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: LispObject.java,v 1.41 2003-09-02 15:06:12 piso Exp $
+ * $Id: LispObject.java,v 1.42 2003-09-02 16:25:45 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -129 +129 @@
     }
 
+    public LispObject NUMERATOR() throws TypeError
+    {
+        throw new TypeError(this, "rational number");
+    }
+
+    public LispObject DENOMINATOR() throws TypeError
+    {
+        throw new TypeError(this, "rational number");
+    }
+
     public LispObject EVENP() throws TypeError
     {