Changeset 5990


Ignore:
Timestamp:
02/26/04 01:45:03 (17 years ago)
Author:
piso
Message:

Array refactoring (work in progress).

File:
1 edited

Legend:

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

    r5967 r5990  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Primitives.java,v 1.582 2004-02-25 17:26:00 piso Exp $
     5 * $Id: Primitives.java,v 1.583 2004-02-26 01:45:03 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    19141914            if (arg instanceof AbstractVector)
    19151915                fillPointer = ((AbstractVector)arg).getFillPointer();
    1916             else if (arg instanceof DisplacedArray)
    1917                 fillPointer = ((DisplacedArray)arg).getFillPointer();
    19181916            if (fillPointer >= 0)
    19191917                return new Fixnum(fillPointer);
     
    19421940    // vector-push new-element vector => index-of-new-element
    19431941    private static final Primitive2 VECTOR_PUSH =
    1944         new Primitive2("vector-push","new-element vector") {
     1942        new Primitive2("vector-push","new-element vector")
     1943    {
    19451944        public LispObject execute(LispObject first, LispObject second)
    19461945            throws ConditionThrowable
Note: See TracChangeset for help on using the changeset viewer.