Changeset 3963


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

list1(), list4()

File:
1 edited

Legend:

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

    r3955 r3963  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.141 2003-09-21 02:05:49 piso Exp $
     5 * $Id: Lisp.java,v 1.142 2003-09-21 13:52: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
    429434    public static final Cons list2(LispObject first, LispObject second)
    430435    {
     
    436441    {
    437442        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, new Cons(second, new Cons(third, new Cons(fourth))));
    438449    }
    439450
Note: See TracChangeset for help on using the changeset viewer.