Changeset 3971


Ignore:
Timestamp:
09/21/03 17:43:00 (19 years ago)
Author:
piso
Message:

list5()

File:
1 edited

Legend:

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

    r3963 r3971  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.142 2003-09-21 13:52:05 piso Exp $
     5 * $Id: Lisp.java,v 1.143 2003-09-21 17:43:00 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    446446                                   LispObject third, LispObject fourth)
    447447    {
    448         return new Cons(first, new Cons(second, new Cons(third, new Cons(fourth))));
     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)))));
    449463    }
    450464
Note: See TracChangeset for help on using the changeset viewer.