Changeset 11688

Timestamp:

02/28/09 11:05:08 (12 years ago)

Author:

ehuelsmann

Message:

Add list() with variadic arguments.

File:

• trunk/abcl/src/org/armedbear/lisp/Lisp.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/Lisp.java

@@ -590 +590 @@
     else
       env.bind(sym, value);
+  }
+
+  public static final Cons list(LispObject... objects)
+  {
+    Cons theList = new Cons(objects[objects.length-1]);
+    for (int i = objects.length - 2; i >= 0; i--)
+        theList = new Cons(objects[i], theList);
+    return theList;
   }