Changeset 5875


Ignore:
Timestamp:
02/19/04 01:44:50 (17 years ago)
Author:
piso
Message:

CHARACTERP(), characterp()

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

Legend:

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

    r5852 r5875  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: LispCharacter.java,v 1.36 2004-02-16 12:41:20 piso Exp $
     5 * $Id: LispCharacter.java,v 1.37 2004-02-19 01:44:50 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7171    }
    7272
     73    public LispObject CHARACTERP()
     74    {
     75        return T;
     76    }
     77
     78    public boolean characterp()
     79    {
     80        return true;
     81    }
     82
    7383    public LispObject isStandardChar()
    7484    {
  • trunk/j/src/org/armedbear/lisp/LispObject.java

    r5825 r5875  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.73 2004-02-14 18:51:52 piso Exp $
     5 * $Id: LispObject.java,v 1.74 2004-02-19 01:44:37 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    300300    }
    301301
     302    public LispObject CHARACTERP()
     303    {
     304        return NIL;
     305    }
     306
     307    public boolean characterp()
     308    {
     309        return false;
     310    }
     311
    302312    public int length() throws ConditionThrowable
    303313    {
Note: See TracChangeset for help on using the changeset viewer.