Changeset 3781


Ignore:
Timestamp:
09/14/03 17:36:12 (19 years ago)
Author:
piso
Message:

getType() is obsolete.

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

Legend:

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

    r3769 r3781  
    2424{
    2525    protected int fillPointer = -1; // -1 indicates no fill pointer.
    26 
    27     public int getType()
    28     {
    29         return TYPE_VECTOR;
    30     }
    3126
    3227    public LispObject typep(LispObject typeSpecifier) throws LispError
  • trunk/j/src/org/armedbear/lisp/Bignum.java

    r3775 r3781  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Bignum.java,v 1.39 2003-09-14 17:05:41 piso Exp $
     5 * $Id: Bignum.java,v 1.40 2003-09-14 17:36:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3636    {
    3737        value = n;
    38     }
    39 
    40     public int getType()
    41     {
    42         return TYPE_BIGNUM;
    4338    }
    4439
  • trunk/j/src/org/armedbear/lisp/BitVector.java

    r3752 r3781  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: BitVector.java,v 1.21 2003-09-14 12:26:32 piso Exp $
     5 * $Id: BitVector.java,v 1.22 2003-09-14 17:36:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5252                Debug.assertTrue(false);
    5353        }
    54     }
    55 
    56     public int getType()
    57     {
    58         return TYPE_BIT_VECTOR | TYPE_VECTOR;
    5954    }
    6055
  • trunk/j/src/org/armedbear/lisp/Closure.java

    r3147 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Closure.java,v 1.52 2003-07-31 16:54:47 piso Exp $
     5 * $Id: Closure.java,v 1.53 2003-09-14 17:36:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    266266    }
    267267
    268     public int getType()
    269     {
    270         return TYPE_CLOSURE;
    271     }
    272 
    273268    public LispObject typep(LispObject typeSpecifier) throws LispError
    274269    {
  • trunk/j/src/org/armedbear/lisp/CompiledFunction.java

    r3273 r3781  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: CompiledFunction.java,v 1.7 2003-08-09 17:16:07 piso Exp $
     5 * $Id: CompiledFunction.java,v 1.8 2003-09-14 17:36:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2929    {
    3030        super(name, lambdaList, body, env);
    31     }
    32 
    33     public final int getType()
    34     {
    35         return TYPE_COMPILED_FUNCTION;
    3631    }
    3732
  • trunk/j/src/org/armedbear/lisp/Complex.java

    r3779 r3781  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Complex.java,v 1.19 2003-09-14 17:18:36 piso Exp $
     5 * $Id: Complex.java,v 1.20 2003-09-14 17:36:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6262    }
    6363
    64     public int getType()
    65     {
    66         return TYPE_COMPLEX;
    67     }
    68 
    6964    public LispObject typep(LispObject typeSpecifier) throws LispError
    7065    {
  • trunk/j/src/org/armedbear/lisp/Cons.java

    r3715 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Cons.java,v 1.23 2003-09-11 17:12:23 piso Exp $
     5 * $Id: Cons.java,v 1.24 2003-09-14 17:36:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3939        this.cdr = NIL;
    4040        ++count;
    41     }
    42 
    43     public int getType()
    44     {
    45         return TYPE_CONS;
    4641    }
    4742
  • trunk/j/src/org/armedbear/lisp/Fixnum.java

    r3775 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Fixnum.java,v 1.65 2003-09-14 17:04:51 piso Exp $
     5 * $Id: Fixnum.java,v 1.66 2003-09-14 17:36:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4040    {
    4141        return new Fixnum(value);
    42     }
    43 
    44     public int getType()
    45     {
    46         return TYPE_FIXNUM;
    4742    }
    4843
  • trunk/j/src/org/armedbear/lisp/LispFloat.java

    r3776 r3781  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: LispFloat.java,v 1.41 2003-09-14 17:07:37 piso Exp $
     5 * $Id: LispFloat.java,v 1.42 2003-09-14 17:36:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3232    {
    3333        this.value = value;
    34     }
    35 
    36     public int getType()
    37     {
    38         return TYPE_FLOAT;
    3934    }
    4035
  • trunk/j/src/org/armedbear/lisp/LispObject.java

    r3777 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.52 2003-09-14 17:13:52 piso Exp $
     5 * $Id: LispObject.java,v 1.53 2003-09-14 17:36:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2424public class LispObject extends Lisp
    2525{
    26     public int getType()
    27     {
    28         return 0;
    29     }
    30 
    3126    public int getFunctionalType()
    3227    {
  • trunk/j/src/org/armedbear/lisp/LispString.java

    r3755 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispString.java,v 1.55 2003-09-14 13:05:45 piso Exp $
     5 * $Id: LispString.java,v 1.56 2003-09-14 17:36:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5757    {
    5858        return new LispString(s);
    59     }
    60 
    61     public int getType()
    62     {
    63         return TYPE_STRING | TYPE_VECTOR;
    6459    }
    6560
  • trunk/j/src/org/armedbear/lisp/Nil.java

    r3409 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Nil.java,v 1.20 2003-08-15 16:40:40 piso Exp $
     5 * $Id: Nil.java,v 1.21 2003-09-14 17:36:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2828        super("NIL", pkg);
    2929        pkg.addSymbol(this);
    30     }
    31 
    32     public int getType()
    33     {
    34         return TYPE_SYMBOL | TYPE_NULL;
    3530    }
    3631
  • trunk/j/src/org/armedbear/lisp/Primitive.java

    r3131 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitive.java,v 1.4 2003-07-28 20:29:48 piso Exp $
     5 * $Id: Primitive.java,v 1.5 2003-09-14 17:36:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4848    }
    4949
    50     public final int getType()
    51     {
    52         return TYPE_PRIMITIVE;
    53     }
    54 
    5550    public LispObject execute() throws Condition
    5651    {
  • trunk/j/src/org/armedbear/lisp/Primitive0.java

    r3120 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitive0.java,v 1.5 2003-07-27 18:54:05 piso Exp $
     5 * $Id: Primitive0.java,v 1.6 2003-09-14 17:36:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5454    }
    5555
    56     public final int getType()
    57     {
    58         return TYPE_PRIMITIVE0;
    59     }
    60 
    6156    public LispObject execute(LispObject first) throws Condition
    6257    {
  • trunk/j/src/org/armedbear/lisp/Primitive1.java

    r3120 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitive1.java,v 1.5 2003-07-27 18:54:36 piso Exp $
     5 * $Id: Primitive1.java,v 1.6 2003-09-14 17:36:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5454    }
    5555
    56     public final int getType()
    57     {
    58         return TYPE_PRIMITIVE1;
    59     }
    60 
    6156    public LispObject execute() throws Condition
    6257    {
  • trunk/j/src/org/armedbear/lisp/Primitive2.java

    r2724 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitive2.java,v 1.4 2003-07-02 18:07:07 piso Exp $
     5 * $Id: Primitive2.java,v 1.5 2003-09-14 17:36:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4848    }
    4949
    50     public final int getType()
    51     {
    52         return TYPE_PRIMITIVE2;
    53     }
    54 
    5550    public LispObject execute() throws Condition
    5651    {
  • trunk/j/src/org/armedbear/lisp/Primitive3.java

    r2705 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitive3.java,v 1.5 2003-07-02 15:24:25 piso Exp $
     5 * $Id: Primitive3.java,v 1.6 2003-09-14 17:36:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4848    }
    4949
    50     public final int getType()
    51     {
    52         return TYPE_PRIMITIVE3;
    53     }
    54 
    5550    public LispObject execute() throws Condition
    5651    {
  • trunk/j/src/org/armedbear/lisp/Ratio.java

    r3775 r3781  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Ratio.java,v 1.31 2003-09-14 17:06:59 piso Exp $
     5 * $Id: Ratio.java,v 1.32 2003-09-14 17:36:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5353    {
    5454        return number(denominator);
    55     }
    56 
    57     public int getType()
    58     {
    59         return TYPE_RATIO;
    6055    }
    6156
  • trunk/j/src/org/armedbear/lisp/SpecialOperator.java

    r2073 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: SpecialOperator.java,v 1.8 2003-06-01 01:37:54 piso Exp $
     5 * $Id: SpecialOperator.java,v 1.9 2003-09-14 17:36:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4646    }
    4747
    48     public final int getType()
    49     {
    50         return TYPE_SPECIAL_OPERATOR;
    51     }
    52 
    5348    public final int getFunctionalType()
    5449    {
  • trunk/j/src/org/armedbear/lisp/Symbol.java

    r3735 r3781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Symbol.java,v 1.70 2003-09-13 23:56:29 piso Exp $
     5 * $Id: Symbol.java,v 1.71 2003-09-14 17:36:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    210210    }
    211211
    212     public int getType()
    213     {
    214         return TYPE_SYMBOL;
    215     }
    216 
    217212    public final boolean isSpecialVariable()
    218213    {
Note: See TracChangeset for help on using the changeset viewer.