Changeset 3781

Timestamp:

09/14/03 17:36:12 (19 years ago)

Author:

piso

Message:

getType() is obsolete.

Location:

trunk/j/src/org/armedbear/lisp

Files:

• AbstractVector.java (modified) (1 diff)
• Bignum.java (modified) (2 diffs)
• BitVector.java (modified) (2 diffs)
• Closure.java (modified) (2 diffs)
• CompiledFunction.java (modified) (2 diffs)
• Complex.java (modified) (2 diffs)
• Cons.java (modified) (2 diffs)
• Fixnum.java (modified) (2 diffs)
• LispFloat.java (modified) (2 diffs)
• LispObject.java (modified) (2 diffs)
• LispString.java (modified) (2 diffs)
• Nil.java (modified) (2 diffs)
• Primitive.java (modified) (2 diffs)
• Primitive0.java (modified) (2 diffs)
• Primitive1.java (modified) (2 diffs)
• Primitive2.java (modified) (2 diffs)
• Primitive3.java (modified) (2 diffs)
• Ratio.java (modified) (2 diffs)
• SpecialOperator.java (modified) (2 diffs)
• Symbol.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/AbstractVector.java

@@ -24 +24 @@
 {
     protected int fillPointer = -1; // -1 indicates no fill pointer.
-
-    public int getType()
-    {
-        return TYPE_VECTOR;
-    }
 
     public LispObject typep(LispObject typeSpecifier) throws LispError

trunk/j/src/org/armedbear/lisp/Bignum.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Bignum.java,v 1.39 2003-09-14 17:05:41 piso Exp $
+ * $Id: Bignum.java,v 1.40 2003-09-14 17:36:11 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -36 +36 @@
     {
         value = n;
-    }
-
-    public int getType()
-    {
-        return TYPE_BIGNUM;
     }
 

trunk/j/src/org/armedbear/lisp/BitVector.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: BitVector.java,v 1.21 2003-09-14 12:26:32 piso Exp $
+ * $Id: BitVector.java,v 1.22 2003-09-14 17:36:11 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -52 +52 @@
                 Debug.assertTrue(false);
         }
-    }
-
-    public int getType()
-    {
-        return TYPE_BIT_VECTOR | TYPE_VECTOR;
     }
 

trunk/j/src/org/armedbear/lisp/Closure.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Closure.java,v 1.52 2003-07-31 16:54:47 piso Exp $
+ * $Id: Closure.java,v 1.53 2003-09-14 17:36:11 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -266 +266 @@
     }
 
-    public int getType()
-    {
-        return TYPE_CLOSURE;
-    }
-
     public LispObject typep(LispObject typeSpecifier) throws LispError
     {

trunk/j/src/org/armedbear/lisp/CompiledFunction.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: CompiledFunction.java,v 1.7 2003-08-09 17:16:07 piso Exp $
+ * $Id: CompiledFunction.java,v 1.8 2003-09-14 17:36:11 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -29 +29 @@
     {
         super(name, lambdaList, body, env);
-    }
-
-    public final int getType()
-    {
-        return TYPE_COMPILED_FUNCTION;
     }
 

trunk/j/src/org/armedbear/lisp/Complex.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Complex.java,v 1.19 2003-09-14 17:18:36 piso Exp $
+ * $Id: Complex.java,v 1.20 2003-09-14 17:36:11 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -62 +62 @@
     }
 
-    public int getType()
-    {
-        return TYPE_COMPLEX;
-    }
-
     public LispObject typep(LispObject typeSpecifier) throws LispError
     {

trunk/j/src/org/armedbear/lisp/Cons.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Cons.java,v 1.23 2003-09-11 17:12:23 piso Exp $
+ * $Id: Cons.java,v 1.24 2003-09-14 17:36:11 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -39 +39 @@
         this.cdr = NIL;
         ++count;
-    }
-
-    public int getType()
-    {
-        return TYPE_CONS;
     }
 

trunk/j/src/org/armedbear/lisp/Fixnum.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Fixnum.java,v 1.65 2003-09-14 17:04:51 piso Exp $
+ * $Id: Fixnum.java,v 1.66 2003-09-14 17:36:11 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -40 +40 @@
     {
         return new Fixnum(value);
-    }
-
-    public int getType()
-    {
-        return TYPE_FIXNUM;
     }
 

trunk/j/src/org/armedbear/lisp/LispFloat.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: LispFloat.java,v 1.41 2003-09-14 17:07:37 piso Exp $
+ * $Id: LispFloat.java,v 1.42 2003-09-14 17:36:11 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -32 +32 @@
     {
         this.value = value;
-    }
-
-    public int getType()
-    {
-        return TYPE_FLOAT;
     }
 

trunk/j/src/org/armedbear/lisp/LispObject.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: LispObject.java,v 1.52 2003-09-14 17:13:52 piso Exp $
+ * $Id: LispObject.java,v 1.53 2003-09-14 17:36:11 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -24 +24 @@
 public class LispObject extends Lisp
 {
-    public int getType()
-    {
-        return 0;
-    }
-
     public int getFunctionalType()
     {

trunk/j/src/org/armedbear/lisp/LispString.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: LispString.java,v 1.55 2003-09-14 13:05:45 piso Exp $
+ * $Id: LispString.java,v 1.56 2003-09-14 17:36:11 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -57 +57 @@
     {
         return new LispString(s);
-    }
-
-    public int getType()
-    {
-        return TYPE_STRING | TYPE_VECTOR;
     }
 

trunk/j/src/org/armedbear/lisp/Nil.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Nil.java,v 1.20 2003-08-15 16:40:40 piso Exp $
+ * $Id: Nil.java,v 1.21 2003-09-14 17:36:12 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -28 +28 @@
         super("NIL", pkg);
         pkg.addSymbol(this);
-    }
-
-    public int getType()
-    {
-        return TYPE_SYMBOL | TYPE_NULL;
     }
 

trunk/j/src/org/armedbear/lisp/Primitive.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitive.java,v 1.4 2003-07-28 20:29:48 piso Exp $
+ * $Id: Primitive.java,v 1.5 2003-09-14 17:36:12 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -48 +48 @@
     }
 
-    public final int getType()
-    {
-        return TYPE_PRIMITIVE;
-    }
-
     public LispObject execute() throws Condition
     {

trunk/j/src/org/armedbear/lisp/Primitive0.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitive0.java,v 1.5 2003-07-27 18:54:05 piso Exp $
+ * $Id: Primitive0.java,v 1.6 2003-09-14 17:36:12 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -54 +54 @@
     }
 
-    public final int getType()
-    {
-        return TYPE_PRIMITIVE0;
-    }
-
     public LispObject execute(LispObject first) throws Condition
     {

trunk/j/src/org/armedbear/lisp/Primitive1.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitive1.java,v 1.5 2003-07-27 18:54:36 piso Exp $
+ * $Id: Primitive1.java,v 1.6 2003-09-14 17:36:12 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -54 +54 @@
     }
 
-    public final int getType()
-    {
-        return TYPE_PRIMITIVE1;
-    }
-
     public LispObject execute() throws Condition
     {

trunk/j/src/org/armedbear/lisp/Primitive2.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitive2.java,v 1.4 2003-07-02 18:07:07 piso Exp $
+ * $Id: Primitive2.java,v 1.5 2003-09-14 17:36:12 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -48 +48 @@
     }
 
-    public final int getType()
-    {
-        return TYPE_PRIMITIVE2;
-    }
-
     public LispObject execute() throws Condition
     {

trunk/j/src/org/armedbear/lisp/Primitive3.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitive3.java,v 1.5 2003-07-02 15:24:25 piso Exp $
+ * $Id: Primitive3.java,v 1.6 2003-09-14 17:36:12 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -48 +48 @@
     }
 
-    public final int getType()
-    {
-        return TYPE_PRIMITIVE3;
-    }
-
     public LispObject execute() throws Condition
     {

trunk/j/src/org/armedbear/lisp/Ratio.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Ratio.java,v 1.31 2003-09-14 17:06:59 piso Exp $
+ * $Id: Ratio.java,v 1.32 2003-09-14 17:36:12 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -53 +53 @@
     {
         return number(denominator);
-    }
-
-    public int getType()
-    {
-        return TYPE_RATIO;
     }
 

trunk/j/src/org/armedbear/lisp/SpecialOperator.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: SpecialOperator.java,v 1.8 2003-06-01 01:37:54 piso Exp $
+ * $Id: SpecialOperator.java,v 1.9 2003-09-14 17:36:12 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -46 +46 @@
     }
 
-    public final int getType()
-    {
-        return TYPE_SPECIAL_OPERATOR;
-    }
-
     public final int getFunctionalType()
     {

trunk/j/src/org/armedbear/lisp/Symbol.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Symbol.java,v 1.70 2003-09-13 23:56:29 piso Exp $
+ * $Id: Symbol.java,v 1.71 2003-09-14 17:36:12 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -210 +210 @@
     }
 
-    public int getType()
-    {
-        return TYPE_SYMBOL;
-    }
-
     public final boolean isSpecialVariable()
     {