Changeset 3771


Ignore:
Timestamp:
09/14/03 16:46:58 (20 years ago)
Author:
piso
Message:

VECTORP

File:
1 edited

Legend:

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

    r3766 r3771  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.393 2003-09-14 16:28:22 piso Exp $
     5 * $Id: Primitives.java,v 1.394 2003-09-14 16:46:58 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    351351                throw new TypeError(arg, "array");
    352352            case VECTORP:                       // ### vectorp
    353                 return (arg.getType() & TYPE_VECTOR) != 0 ? T : NIL;
     353                return arg.VECTORP();
    354354            case SIMPLE_VECTOR_P:               // ### simple-vector-p
    355355                return arg.typep(Symbol.SIMPLE_VECTOR);
Note: See TracChangeset for help on using the changeset viewer.