Changeset 5268


Ignore:
Timestamp:
12/27/03 15:53:55 (18 years ago)
Author:
piso
Message:

ADJUSTABLE-ARRAY-P

File:
1 edited

Legend:

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

    r5267 r5268  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.544 2003-12-27 07:47:21 piso Exp $
     5 * $Id: Primitives.java,v 1.545 2003-12-27 15:53:55 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    16711671    };
    16721672
     1673    private static final Primitive1 ADJUSTABLE_ARRAY_P =
     1674        new Primitive1("adjustable-array-p", "array") {
     1675        public LispObject execute(LispObject arg) throws ConditionThrowable
     1676        {
     1677            if (arg instanceof AbstractArray)
     1678                return T;
     1679            return signal(new TypeError(arg, Symbol.ARRAY));
     1680        }
     1681    };
     1682
    16731683    // ### array-in-bounds-p
    16741684    // array-in-bounds-p array &rest subscripts => generalized-boolean
Note: See TracChangeset for help on using the changeset viewer.