Changeset 5924


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

VECTORP()

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

Legend:

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

    r5910 r5924  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: DisplacedArray.java,v 1.27 2004-02-24 00:43:11 piso Exp $
     5 * $Id: DisplacedArray.java,v 1.28 2004-02-24 12:51:42 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    118118        else
    119119            return new String(chars);
     120    }
     121
     122    public LispObject VECTORP()
     123    {
     124        return vectorp() ? T : NIL;
    120125    }
    121126
  • trunk/j/src/org/armedbear/lisp/LispObject.java

    r5875 r5924  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.74 2004-02-19 01:44:37 piso Exp $
     5 * $Id: LispObject.java,v 1.75 2004-02-24 12:53:49 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    292292    public LispObject VECTORP()
    293293    {
    294         return vectorp() ? T : NIL;
     294        return NIL;
    295295    }
    296296
Note: See TracChangeset for help on using the changeset viewer.