Changeset 5901


Ignore:
Timestamp:
02/23/04 14:55:42 (17 years ago)
Author:
piso
Message:

Removed checkString().

File:
1 edited

Legend:

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

    r5897 r5901  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Lisp.java,v 1.208 2004-02-23 14:24:47 piso Exp $
     5 * $Id: Lisp.java,v 1.209 2004-02-23 14:55:42 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    692692    }
    693693
    694     public static final LispString checkString(LispObject obj)
    695         throws ConditionThrowable
    696     {
    697         if (obj == null)
    698             throw new NullPointerException();
    699         try {
    700             return (LispString) obj;
    701         }
    702         catch (ClassCastException e) {
    703             signal(new TypeError(obj, Symbol.STRING));
    704             // Not reached.
    705             return null;
    706         }
    707     }
    708 
    709694    public static final LispObject string(LispObject arg) throws ConditionThrowable
    710695    {
Note: See TracChangeset for help on using the changeset viewer.