Changeset 3755


Ignore:
Timestamp:
09/14/03 13:05:45 (19 years ago)
Author:
piso
Message:

STRINGP(), SIMPLE-STRING-P()

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r3752 r3755  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.46 2003-09-14 12:25:54 piso Exp $
     5 * $Id: LispObject.java,v 1.47 2003-09-14 13:03:33 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    219219    }
    220220
     221    public LispObject STRINGP()
     222    {
     223        return NIL;
     224    }
     225
     226    public LispObject SIMPLE_STRING_P()
     227    {
     228        return NIL;
     229    }
     230
    221231    public int length() throws LispError
    222232    {
  • trunk/j/src/org/armedbear/lisp/LispString.java

    r3511 r3755  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispString.java,v 1.54 2003-08-25 17:57:51 piso Exp $
     5 * $Id: LispString.java,v 1.55 2003-09-14 13:05:45 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    8484        }
    8585        return super.typep(typeSpecifier);
     86    }
     87
     88    public LispObject STRINGP()
     89    {
     90        return T;
     91    }
     92
     93    public LispObject SIMPLE_STRING_P()
     94    {
     95        return fillPointer < 0 ? T : NIL;
    8696    }
    8797
Note: See TracChangeset for help on using the changeset viewer.