Changeset 3971

Timestamp:

09/21/03 17:43:00 (19 years ago)

Author:

piso

Message:

list5()

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Lisp.java,v 1.142 2003-09-21 13:52:05 piso Exp $
+ * $Id: Lisp.java,v 1.143 2003-09-21 17:43:00 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -446 +446 @@
                                    LispObject third, LispObject fourth)
     {
-        return new Cons(first, new Cons(second, new Cons(third, new Cons(fourth))));
+        return new Cons(first,
+                        new Cons(second,
+                                 new Cons(third,
+                                          new Cons(fourth))));
+    }
+
+    public static final Cons list5(LispObject first, LispObject second,
+                                   LispObject third, LispObject fourth,
+                                   LispObject fifth)
+    {
+        return new Cons(first,
+                        new Cons(second,
+                                 new Cons(third,
+                                          new Cons(fourth,
+                                                   new Cons(fifth)))));
     }