Changeset 3485

Timestamp:

08/24/03 17:26:24 (19 years ago)

Author:

piso

Message:

REALPART, IMAGPART

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (2 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.343 2003-08-24 16:23:22 piso Exp $
+ * $Id: Primitives.java,v 1.344 2003-08-24 17:26:24 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -4788 +4788 @@
         }
     };
+
+    // ### realpart
+    private static final Primitive1 REALPART = new Primitive1("realpart")
+    {
+        public LispObject execute(LispObject arg) throws LispError
+        {
+            if (arg instanceof Complex)
+                return ((Complex)arg).getRealPart();
+            if ((arg.getType() & TYPE_NUMBER) != 0)
+                return arg;
+            throw new TypeError(arg, "number");
+        }
+    };
+
+    // ### imagpart
+    private static final Primitive1 IMAGPART = new Primitive1("imagpart")
+    {
+        public LispObject execute(LispObject arg) throws LispError
+        {
+            if (arg instanceof Complex)
+                return ((Complex)arg).getImaginaryPart();
+            return arg.multiplyBy(Fixnum.ZERO);
+        }
+    };
 }