Changeset 5048


Ignore:
Timestamp:
12/10/03 08:55:00 (17 years ago)
Author:
asimon
Message:

Added arglist info

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

Legend:

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

    r5037 r5048  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.520 2003-12-09 20:26:22 asimon Exp $
     5 * $Id: Primitives.java,v 1.521 2003-12-10 08:55:00 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    982982    // ### <
    983983    // Numeric comparison.
    984     private static final Primitive LESS_THAN = new Primitive("<") {
     984    private static final Primitive LESS_THAN = new Primitive("<","&rest numbers") {
    985985        public LispObject execute(LispObject first, LispObject second)
    986986            throws ConditionThrowable
     
    10311031
    10321032    // ### >
    1033     private static final Primitive GREATER_THAN = new Primitive(">") {
     1033    private static final Primitive GREATER_THAN = new Primitive(">","&rest numbers") {
    10341034        public LispObject execute(LispObject first, LispObject second)
    10351035            throws ConditionThrowable
  • trunk/j/src/org/armedbear/lisp/last.java

    r3884 r5048  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: last.java,v 1.3 2003-09-19 11:50:19 piso Exp $
     5 * $Id: last.java,v 1.4 2003-12-10 08:55:00 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2525// last list &optional n => tail
    2626public final class last extends Primitive {
    27     public last(String name)
     27    public last(String name, String arglist)
    2828    {
    29         super(name);
     29        super(name,arglist);
    3030    }
    3131
     
    7878    }
    7979
    80     private static final last LAST = new last("last");
     80    private static final last LAST = new last("last","list &optional n");
    8181}
  • trunk/j/src/org/armedbear/lisp/logandc1.java

    r3884 r5048  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: logandc1.java,v 1.3 2003-09-19 11:50:19 piso Exp $
     5 * $Id: logandc1.java,v 1.4 2003-12-10 08:55:00 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2626public final class logandc1 extends Primitive2
    2727{
    28     private logandc1(String name)
     28    private logandc1(String name, String arglist)
    2929    {
    30         super(name);
     30        super(name,arglist);
    3131    }
    3232
     
    6060    }
    6161
    62     private static final logandc1 LOGANDC1 = new logandc1("logandc1");
     62    private static final logandc1 LOGANDC1 = new logandc1("logandc1","integer-1 integer-2");
    6363}
  • trunk/j/src/org/armedbear/lisp/logandc2.java

    r3884 r5048  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: logandc2.java,v 1.4 2003-09-19 11:50:19 piso Exp $
     5 * $Id: logandc2.java,v 1.5 2003-12-10 08:55:00 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2929public final class logandc2 extends Primitive2
    3030{
    31     private logandc2(String name)
     31    private logandc2(String name, String arglist)
    3232    {
    33         super(name);
     33        super(name,arglist);
    3434    }
    3535
     
    6363    }
    6464
    65     private static final logandc2 LOGANDC2 = new logandc2("logandc2");
     65    private static final logandc2 LOGANDC2 = new logandc2("logandc2","integer-1 integer-2");
    6666}
  • trunk/j/src/org/armedbear/lisp/logbitp.java

    r3884 r5048  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: logbitp.java,v 1.3 2003-09-19 11:50:19 piso Exp $
     5 * $Id: logbitp.java,v 1.4 2003-12-10 08:55:00 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2828public final class logbitp extends Primitive2
    2929{
    30     private logbitp(String name)
     30    private logbitp(String name, String arglist)
    3131    {
    32         super(name);
     32        super(name,arglist);
    3333    }
    3434
     
    6060    }
    6161
    62     private static final logbitp LOGBITP = new logbitp("logbitp");
     62    private static final logbitp LOGBITP = new logbitp("logbitp","index integer");
    6363}
  • trunk/j/src/org/armedbear/lisp/logior.java

    r3884 r5048  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: logior.java,v 1.3 2003-09-19 11:50:19 piso Exp $
     5 * $Id: logior.java,v 1.4 2003-12-10 08:55:00 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2828public final class logior extends Primitive
    2929{
    30     private logior(String name)
     30    private logior(String name, String arglist)
    3131    {
    32         super(name);
     32        super(name,arglist);
    3333    }
    3434
     
    7777    }
    7878
    79     private static final logior LOGIOR = new logior("logior");
     79    private static final logior LOGIOR = new logior("logior","&rest integers");
    8080}
  • trunk/j/src/org/armedbear/lisp/lognand.java

    r3884 r5048  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: lognand.java,v 1.3 2003-09-19 11:50:19 piso Exp $
     5 * $Id: lognand.java,v 1.4 2003-12-10 08:55:00 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2626public final class lognand extends Primitive2
    2727{
    28     private lognand(String name)
     28    private lognand(String name, String arglist)
    2929    {
    30         super(name);
     30        super(name,arglist);
    3131    }
    3232
     
    6060    }
    6161
    62     private static final lognand LOGNAND = new lognand("lognand");
     62    private static final lognand LOGNAND = new lognand("lognand","integer-1 integer-2");
    6363}
  • trunk/j/src/org/armedbear/lisp/lognor.java

    r3884 r5048  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: lognor.java,v 1.3 2003-09-19 11:50:19 piso Exp $
     5 * $Id: lognor.java,v 1.4 2003-12-10 08:55:00 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2626public final class lognor extends Primitive2
    2727{
    28     private lognor(String name)
     28    private lognor(String name, String arglist)
    2929    {
    30         super(name);
     30        super(name,arglist);
    3131    }
    3232
     
    6060    }
    6161
    62     private static final lognor LOGNOR = new lognor("lognor");
     62    private static final lognor LOGNOR = new lognor("lognor","integer-1 integer-2");
    6363}
  • trunk/j/src/org/armedbear/lisp/lognot.java

    r3884 r5048  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: lognot.java,v 1.3 2003-09-19 11:50:19 piso Exp $
     5 * $Id: lognot.java,v 1.4 2003-12-10 08:55:00 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2727public final class lognot extends Primitive
    2828{
    29     private lognot(String name)
     29    private lognot(String name, String arglist)
    3030    {
    31         super(name);
     31        super(name,arglist);
    3232    }
    3333
     
    4141    }
    4242
    43     private static final lognot LOGNOT = new lognot("lognot");
     43    private static final lognot LOGNOT = new lognot("lognot","integer");
    4444}
  • trunk/j/src/org/armedbear/lisp/logorc1.java

    r3884 r5048  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: logorc1.java,v 1.3 2003-09-19 11:50:19 piso Exp $
     5 * $Id: logorc1.java,v 1.4 2003-12-10 08:55:00 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2929public final class logorc1 extends Primitive2
    3030{
    31     private logorc1(String name)
     31    private logorc1(String name, String arglist)
    3232    {
    33         super(name);
     33        super(name,arglist);
    3434    }
    3535
     
    6363    }
    6464
    65     private static final logorc1 LOGORC1 = new logorc1("logorc1");
     65    private static final logorc1 LOGORC1 = new logorc1("logorc1","integer-1 integer-2");
    6666}
  • trunk/j/src/org/armedbear/lisp/logorc2.java

    r3884 r5048  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: logorc2.java,v 1.3 2003-09-19 11:50:19 piso Exp $
     5 * $Id: logorc2.java,v 1.4 2003-12-10 08:55:00 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2929public final class logorc2 extends Primitive2
    3030{
    31     private logorc2(String name)
     31    private logorc2(String name, String arglist)
    3232    {
    33         super(name);
     33        super(name,arglist);
    3434    }
    3535
     
    6363    }
    6464
    65     private static final logorc2 LOGORC2 = new logorc2("logorc2");
     65    private static final logorc2 LOGORC2 = new logorc2("logorc2","integer-1 integer-2");
    6666}
  • trunk/j/src/org/armedbear/lisp/logxor.java

    r3884 r5048  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: logxor.java,v 1.2 2003-09-19 11:50:19 piso Exp $
     5 * $Id: logxor.java,v 1.3 2003-12-10 08:55:00 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2929public final class logxor extends Primitive
    3030{
    31     private logxor(String name)
     31    private logxor(String name, String arglist)
    3232    {
    33         super(name);
     33        super(name,arglist);
    3434    }
    3535
     
    6868    }
    6969
    70     private static final logxor LOGXOR = new logxor("logxor");
     70    private static final logxor LOGXOR = new logxor("logxor","&rest integers");
    7171}
Note: See TracChangeset for help on using the changeset viewer.