Changeset 3612

Timestamp:

09/08/03 02:35:47 (20 years ago)

Author:

piso

Message:

COMPLEX: single argument case.

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.373 2003-09-06 17:15:32 piso Exp $
+ * $Id: Primitives.java,v 1.374 2003-09-08 02:35:47 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -4761 +4761 @@
     // ### complex
     private static final Primitive2 COMPLEX = new Primitive2("complex") {
+        public LispObject execute(LispObject arg) throws LispError
+        {
+            if (arg instanceof LispFloat)
+                return Complex.getInstance(arg, LispFloat.ZERO);
+            if ((arg.getType() & TYPE_REAL) != 0)
+                return arg;
+            throw new TypeError(arg, "real number");
+        }
         public LispObject execute(LispObject first, LispObject second)
             throws LispError