Changeset 3975


Ignore:
Timestamp:
09/21/03 19:32:05 (19 years ago)
Author:
piso
Message:

list6(), list7()

File:
1 edited

Legend:

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

    r3971 r3975  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.143 2003-09-21 17:43:00 piso Exp $
     5 * $Id: Lisp.java,v 1.144 2003-09-21 19:32:05 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    427427    }
    428428
    429     public static final Cons list1(LispObject first)
    430     {
    431         return new Cons(first);
    432     }
    433 
    434     public static final Cons list2(LispObject first, LispObject second)
    435     {
    436         return new Cons(first, new Cons(second));
    437     }
    438 
    439     public static final Cons list3(LispObject first, LispObject second,
    440                                    LispObject third)
    441     {
    442         return new Cons(first, new Cons(second, new Cons(third)));
    443     }
    444 
    445     public static final Cons list4(LispObject first, LispObject second,
    446                                    LispObject third, LispObject fourth)
    447     {
    448         return new Cons(first,
    449                         new Cons(second,
    450                                  new Cons(third,
    451                                           new Cons(fourth))));
    452     }
    453 
    454     public static final Cons list5(LispObject first, LispObject second,
    455                                    LispObject third, LispObject fourth,
    456                                    LispObject fifth)
    457     {
    458         return new Cons(first,
    459                         new Cons(second,
    460                                  new Cons(third,
    461                                           new Cons(fourth,
    462                                                    new Cons(fifth)))));
     429    public static final Cons list1(LispObject obj1)
     430    {
     431        return new Cons(obj1);
     432    }
     433
     434    public static final Cons list2(LispObject obj1, LispObject obj2)
     435    {
     436        return new Cons(obj1, new Cons(obj2));
     437    }
     438
     439    public static final Cons list3(LispObject obj1, LispObject obj2,
     440                                   LispObject obj3)
     441    {
     442        return new Cons(obj1, new Cons(obj2, new Cons(obj3)));
     443    }
     444
     445    public static final Cons list4(LispObject obj1, LispObject obj2,
     446                                   LispObject obj3, LispObject obj4)
     447    {
     448        return new Cons(obj1,
     449                        new Cons(obj2,
     450                                 new Cons(obj3,
     451                                          new Cons(obj4))));
     452    }
     453
     454    public static final Cons list5(LispObject obj1, LispObject obj2,
     455                                   LispObject obj3, LispObject obj4,
     456                                   LispObject obj5)
     457    {
     458        return new Cons(obj1,
     459                        new Cons(obj2,
     460                                 new Cons(obj3,
     461                                          new Cons(obj4,
     462                                                   new Cons(obj5)))));
     463    }
     464
     465    public static final Cons list6(LispObject obj1, LispObject obj2,
     466                                   LispObject obj3, LispObject obj4,
     467                                   LispObject obj5, LispObject obj6)
     468    {
     469        return new Cons(obj1,
     470                        new Cons(obj2,
     471                                 new Cons(obj3,
     472                                          new Cons(obj4,
     473                                                   new Cons(obj5,
     474                                                            new Cons(obj6))))));
     475    }
     476
     477    public static final Cons list7(LispObject obj1, LispObject obj2,
     478                                   LispObject obj3, LispObject obj4,
     479                                   LispObject obj5, LispObject obj6,
     480                                   LispObject obj7)
     481    {
     482        return new Cons(obj1,
     483                        new Cons(obj2,
     484                                 new Cons(obj3,
     485                                          new Cons(obj4,
     486                                                   new Cons(obj5,
     487                                                            new Cons(obj6,
     488                                                                     new Cons(obj7)))))));
    463489    }
    464490
Note: See TracChangeset for help on using the changeset viewer.