Changeset 3832


Ignore:
Timestamp:
09/16/03 19:01:08 (19 years ago)
Author:
piso
Message:

CompoundTypeSpecifier?.java is obsolete.

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

Legend:

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

    r3781 r3832  
    4444            if (name.equals("ARRAY"))
    4545                return T;
    46         } else if (typeSpecifier instanceof Cons) {
    47             return CompoundTypeSpecifier.getInstance(typeSpecifier).test(this);
    4846        }
    4947        return super.typep(typeSpecifier);
  • trunk/j/src/org/armedbear/lisp/Array.java

    r3773 r3832  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Array.java,v 1.8 2003-09-14 17:03:42 piso Exp $
     5 * $Id: Array.java,v 1.9 2003-09-16 19:01:07 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    135135                return T;
    136136        }
    137         if (typeSpecifier instanceof Cons)
    138             return CompoundTypeSpecifier.getInstance(typeSpecifier).test(this);
    139137        return super.typep(typeSpecifier);
    140138    }
  • trunk/j/src/org/armedbear/lisp/DisplacedArray.java

    r3785 r3832  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: DisplacedArray.java,v 1.8 2003-09-14 18:23:49 piso Exp $
     5 * $Id: DisplacedArray.java,v 1.9 2003-09-16 19:01:07 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7272                return T;
    7373        }
    74         if (typeSpecifier instanceof Cons)
    75             return CompoundTypeSpecifier.getInstance(typeSpecifier).test(this);
    7674        return super.typep(typeSpecifier);
    7775    }
  • trunk/j/src/org/armedbear/lisp/Fixnum.java

    r3781 r3832  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Fixnum.java,v 1.66 2003-09-14 17:36:11 piso Exp $
     5 * $Id: Fixnum.java,v 1.67 2003-09-16 19:01:07 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4949    public LispObject typep(LispObject typeSpecifier) throws LispError
    5050    {
    51         if (typeSpecifier instanceof Cons)
    52             return CompoundTypeSpecifier.getInstance(typeSpecifier).test(this);
    53 
    5451        if (typeSpecifier == Symbol.FIXNUM)
    5552            return T;
  • trunk/j/src/org/armedbear/lisp/LispCharacter.java

    r3708 r3832  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispCharacter.java,v 1.21 2003-09-11 16:08:24 piso Exp $
     5 * $Id: LispCharacter.java,v 1.22 2003-09-16 19:01:08 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5555    public LispObject typep(LispObject typeSpecifier) throws LispError
    5656    {
    57         if (typeSpecifier instanceof Cons)
    58             return CompoundTypeSpecifier.getInstance(typeSpecifier).test(this);
    5957        if (typeSpecifier == Symbol.CHARACTER)
    6058            return T;
  • trunk/j/src/org/armedbear/lisp/LispString.java

    r3781 r3832  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispString.java,v 1.56 2003-09-14 17:36:11 piso Exp $
     5 * $Id: LispString.java,v 1.57 2003-09-16 19:01:08 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6666    public LispObject typep(LispObject typeSpecifier) throws LispError
    6767    {
    68         if (typeSpecifier instanceof Cons)
    69             return CompoundTypeSpecifier.getInstance(typeSpecifier).test(this);
    70 
    7168        if (typeSpecifier instanceof Symbol) {
    7269            if (typeSpecifier == Symbol.STRING)
  • trunk/j/src/org/armedbear/lisp/Makefile.in

    r3824 r3832  
    22
    33# Copyright (C) 2003 Peter Graves
    4 # $Id: Makefile.in,v 1.66 2003-09-16 17:39:20 piso Exp $
     4# $Id: Makefile.in,v 1.67 2003-09-16 19:01:08 piso Exp $
    55
    66# This program is free software; you can redistribute it and/or
     
    2424CLASSFILES =  AbstractArray.class \
    2525    AbstractVector.class \
    26     AndTypeSpecifier.class \
    2726    ArithmeticError.class \
    2827    Array.class \
    2928    ArrayType.class \
    30     ArrayTypeSpecifier.class \
    3129    AtomicTypeSpecifier.class \
    3230    Autoload.class \
     
    4543    CompiledFunction.class \
    4644    Complex.class \
    47     CompoundTypeSpecifier.class \
    4845    Condition.class \
    4946    Cons.class \
    50     ConsTypeSpecifier.class \
    5147    ControlError.class \
    5248    Debug.class \
     
    6359    Go.class \
    6460    HashTable.class \
    65     IntegerTypeSpecifier.class \
    6661    Interpreter.class \
    6762    Java.class \
     
    8176    MacroObject.class \
    8277    Main.class \
    83     MemberTypeSpecifier.class \
    8478    Module.class \
    8579    Nil.class \
    86     NotTypeSpecifier.class \
    8780    NullTypeSpecifier.class \
    88     OrTypeSpecifier.class \
    8981    Package.class \
    9082    PackageError.class \
     
    10597    SimpleCondition.class \
    10698    SimpleError.class \
    107     SimpleVectorTypeSpecifier.class \
    10899    SpecialOperator.class \
    109100    StreamError.class \
     
    125116    Utilities.class \
    126117    Vector.class \
    127     VectorTypeSpecifier.class \
    128118    Version.class \
    129119    WrongNumberOfArgumentsException.class \
  • trunk/j/src/org/armedbear/lisp/TypeSpecifier.java

    r3721 r3832  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: TypeSpecifier.java,v 1.5 2003-09-12 01:34:02 piso Exp $
     5 * $Id: TypeSpecifier.java,v 1.6 2003-09-16 19:01:08 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2828        if (arg == Symbol.UNSPECIFIED)
    2929            return UnspecifiedTypeSpecifier.getInstance();
    30         if (arg == Symbol.INTEGER)
    31             return new IntegerTypeSpecifier();
    3230        if (arg instanceof Symbol)
    3331            return new AtomicTypeSpecifier((Symbol)arg);
    3432        if (arg instanceof LispClass)
    3533            return new ClassTypeSpecifier((LispClass)arg);
    36         if (arg instanceof Cons)
    37             return CompoundTypeSpecifier.getInstance(arg);
    3834        throw new LispError("bad type specifier: " + arg);
    3935    }
Note: See TracChangeset for help on using the changeset viewer.