Changeset 5269


Ignore:
Timestamp:
12/27/03 16:24:16 (17 years ago)
Author:
piso
Message:

checkList()
checkArray()
checkVector()
checkString()

File:
1 edited

Legend:

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

    r5266 r5269  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.193 2003-12-27 07:46:42 piso Exp $
     5 * $Id: Lisp.java,v 1.194 2003-12-27 16:24:16 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    650650        if (obj.listp())
    651651            return obj;
    652         return signal(new TypeError(obj, "list"));
     652        return signal(new TypeError(obj, Symbol.LIST));
    653653    }
    654654
     
    662662        }
    663663        catch (ClassCastException e) {
    664             signal(new TypeError(obj, "array"));
     664            signal(new TypeError(obj, Symbol.ARRAY));
    665665            // Not reached.
    666666            return null;
     
    677677        }
    678678        catch (ClassCastException e) {
    679             signal(new TypeError(obj, "vector"));
     679            signal(new TypeError(obj, Symbol.VECTOR));
    680680            // Not reached.
    681681            return null;
     
    692692        }
    693693        catch (ClassCastException e) {
    694             signal(new TypeError(obj, "string"));
     694            signal(new TypeError(obj, Symbol.STRING));
    695695            // Not reached.
    696696            return null;
Note: See TracChangeset for help on using the changeset viewer.