Changeset 5033


Ignore:
Timestamp:
12/09/03 06:07:05 (17 years ago)
Author:
asimon
Message:

Added (String name, String arglist) constructor

Location:
trunk/j/src/org/armedbear/lisp
Files:
5 edited

Legend:

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

    r5022 r5033  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Function.java,v 1.26 2003-12-08 05:06:10 piso Exp $
     5 * $Id: Function.java,v 1.27 2003-12-09 06:07:05 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4343        if (name != null)
    4444            setLambdaName(Symbol.addFunction(this.name, this));
     45    }
     46
     47    public Function(String name, String arglist)
     48    {
     49        this(name);
     50        this.arglist = new LispString(arglist);
    4551    }
    4652
  • trunk/j/src/org/armedbear/lisp/Primitive.java

    r5022 r5033  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitive.java,v 1.7 2003-12-08 05:06:10 piso Exp $
     5 * $Id: Primitive.java,v 1.8 2003-12-09 06:07:05 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3131    {
    3232        super(name);
     33    }
     34
     35    public Primitive(String name, String arglist)
     36    {
     37        super(name,arglist);
    3338    }
    3439
  • trunk/j/src/org/armedbear/lisp/Primitive1.java

    r5022 r5033  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitive1.java,v 1.9 2003-12-08 05:06:10 piso Exp $
     5 * $Id: Primitive1.java,v 1.10 2003-12-09 06:07:05 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3131    {
    3232        super(name);
     33    }
     34
     35    public Primitive1(String name, String arglist)
     36    {
     37        super(name,arglist);
    3338    }
    3439
  • trunk/j/src/org/armedbear/lisp/Primitive2.java

    r5022 r5033  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitive2.java,v 1.8 2003-12-08 05:06:10 piso Exp $
     5 * $Id: Primitive2.java,v 1.9 2003-12-09 06:07:05 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3131    {
    3232        super(name);
     33    }
     34
     35    public Primitive2(String name, String arglist)
     36    {
     37        super(name,arglist);
    3338    }
    3439
  • trunk/j/src/org/armedbear/lisp/Primitive3.java

    r5022 r5033  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitive3.java,v 1.9 2003-12-08 05:06:10 piso Exp $
     5 * $Id: Primitive3.java,v 1.10 2003-12-09 06:07:05 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3131    {
    3232        super(name);
     33    }
     34
     35    public Primitive3(String name, String arglist)
     36    {
     37        super(name,arglist);
    3338    }
    3439
Note: See TracChangeset for help on using the changeset viewer.