Changeset 3747


Ignore:
Timestamp:
09/14/03 11:38:11 (19 years ago)
Author:
piso
Message:

getUpgradedArrayElementType()

File:
1 edited

Legend:

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

    r3698 r3747  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.126 2003-09-11 14:58:01 piso Exp $
     5 * $Id: Lisp.java,v 1.127 2003-09-14 11:38:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    660660    }
    661661
     662    public static final LispObject getUpgradedArrayElementType(LispObject type)
     663    {
     664        if (type == Symbol.CHARACTER || type == Symbol.BASE_CHAR || type == Symbol.STANDARD_CHAR)
     665            return Symbol.CHARACTER;
     666        if (type == Symbol.BIT)
     667            return Symbol.BIT;
     668        if (type == NIL)
     669            return Symbol.CHARACTER;
     670        return T;
     671    }
     672
    662673    public static final LispCharacter checkCharacter(LispObject obj)
    663674        throws LispError
Note: See TracChangeset for help on using the changeset viewer.