Changeset 5925


Ignore:
Timestamp:
02/24/04 12:54:25 (17 years ago)
Author:
piso
Message:

typep()

File:
1 edited

Legend:

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

    r5910 r5925  
    33 *
    44 * Copyright (C) 2004 Peter Graves
    5  * $Id: SimpleString.java,v 1.4 2004-02-24 00:41:33 piso Exp $
     5 * $Id: SimpleString.java,v 1.5 2004-02-24 12:54:25 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    8282            if (type == Symbol.SIMPLE_BASE_STRING)
    8383                return T;
    84         }
    85         // FIXME BuiltInClass.SIMPLE_STRING
     84            if (type == Symbol.SIMPLE_ARRAY)
     85                return T;
     86        }
     87        // FIXME BuiltInClass.SIMPLE_STRING, BuiltInClass.SIMPLE_ARRAY
    8688        return super.typep(type);
    8789    }
Note: See TracChangeset for help on using the changeset viewer.