Changeset 5922


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

SIMPLE-VECTOR-P

File:
1 edited

Legend:

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

    r5914 r5922  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Primitives.java,v 1.579 2004-02-24 01:14:05 piso Exp $
     5 * $Id: Primitives.java,v 1.580 2004-02-24 12:29:40 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    227227        public LispObject execute(LispObject arg) throws ConditionThrowable
    228228        {
    229             return arg.typep(Symbol.SIMPLE_VECTOR);
     229            return arg instanceof SimpleVector ? T : NIL;
    230230        }
    231231    };
Note: See TracChangeset for help on using the changeset viewer.