Changeset 3767


Ignore:
Timestamp:
09/14/03 16:43:19 (19 years ago)
Author:
piso
Message:

VECTORP(), vectorp()

File:
1 edited

Legend:

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

    r3761 r3767  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.49 2003-09-14 15:33:05 piso Exp $
     5 * $Id: LispObject.java,v 1.50 2003-09-14 16:43:19 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    239239    }
    240240
     241    public LispObject VECTORP()
     242    {
     243        return vectorp() ? T : NIL;
     244    }
     245
     246    public boolean vectorp()
     247    {
     248        return false;
     249    }
     250
    241251    public int length() throws LispError
    242252    {
Note: See TracChangeset for help on using the changeset viewer.