Changeset 5074


Ignore:
Timestamp:
12/11/03 20:37:22 (17 years ago)
Author:
piso
Message:

list8()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Lisp.java

    r5061 r5074  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.185 2003-12-10 21:35:47 asimon Exp $
     5 * $Id: Lisp.java,v 1.186 2003-12-11 20:37:22 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    578578    }
    579579
     580    public static final Cons list8(LispObject obj1, LispObject obj2,
     581                                   LispObject obj3, LispObject obj4,
     582                                   LispObject obj5, LispObject obj6,
     583                                   LispObject obj7, LispObject obj8)
     584    {
     585        return new Cons(obj1,
     586                        new Cons(obj2,
     587                                 new Cons(obj3,
     588                                          new Cons(obj4,
     589                                                   new Cons(obj5,
     590                                                            new Cons(obj6,
     591                                                                     new Cons(obj7,
     592                                                                              new Cons(obj8))))))));
     593    }
     594
    580595    // Used by jvm compiler.
    581596    public static final LispObject multipleValueList(LispObject result)
Note: See TracChangeset for help on using the changeset viewer.