Changeset 11968


Ignore:
Timestamp:
05/31/09 15:17:24 (13 years ago)
Author:
ehuelsmann
Message:

More type assertion functions (checkXXXX()).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Lisp.java

    r11889 r11968  
    845845        type_error(obj, Symbol.VECTOR);
    846846  }
     847
     848  public static final DoubleFloat checkDoubleFloat(LispObject obj)
     849    throws ConditionThrowable
     850  {
     851          if (obj instanceof DoubleFloat)
     852                  return (DoubleFloat) obj;
     853          return (DoubleFloat)// Not reached.
     854            type_error(obj, Symbol.DOUBLE_FLOAT);
     855  }
     856
     857  public static final SingleFloat checkSingleFloat(LispObject obj)
     858    throws ConditionThrowable
     859  {
     860          if (obj instanceof SingleFloat)
     861                  return (SingleFloat) obj;
     862          return (SingleFloat)// Not reached.
     863            type_error(obj, Symbol.SINGLE_FLOAT);
     864  }
     865
    847866
    848867  static
Note: See TracChangeset for help on using the changeset viewer.