Changeset 5914


Ignore:
Timestamp:
02/24/04 01:14:05 (17 years ago)
Author:
piso
Message:

VECTOR: return a SIMPLE-VECTOR.

File:
1 edited

Legend:

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

    r5911 r5914  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Primitives.java,v 1.578 2004-02-24 00:48:16 piso Exp $
     5 * $Id: Primitives.java,v 1.579 2004-02-24 01:14:05 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    18751875
    18761876    // ### vector
    1877     private static final Primitive VECTOR = new Primitive("vector","&rest objects") {
     1877    private static final Primitive VECTOR = new Primitive("vector", "&rest objects")
     1878    {
    18781879        public LispObject execute(LispObject[] args) throws ConditionThrowable
    18791880        {
    1880             return new Vector(args);
     1881            return new SimpleVector(args);
    18811882        }
    18821883    };
Note: See TracChangeset for help on using the changeset viewer.