Changeset 4252


Ignore:
Timestamp:
10/08/03 14:56:36 (19 years ago)
Author:
piso
Message:

%SET-ROW-MAJOR-AREF

File:
1 edited

Legend:

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

    r4231 r4252  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.463 2003-10-06 17:15:12 piso Exp $
     5 * $Id: Primitives.java,v 1.464 2003-10-08 14:56:36 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    18551855    // %set-row-major-aref array index new-value => new-value
    18561856    private static final Primitive3 _SET_ROW_MAJOR_AREF =
    1857         new Primitive3("%set-row-major-aref", PACKAGE_SYS, false) {
     1857        new Primitive3("%set-row-major-aref", PACKAGE_SYS, false)
     1858    {
    18581859        public LispObject execute(LispObject first, LispObject second,
    18591860            LispObject third) throws ConditionThrowable
    18601861        {
    1861             checkArray(first).setRowMajor(Fixnum.getValue(second), third);
    1862             return third;
     1862            try {
     1863                ((AbstractArray)first).setRowMajor(Fixnum.getValue(second), third);
     1864                return third;
     1865            }
     1866            catch (ClassCastException e) {
     1867                throw new ConditionThrowable(new TypeError(first, "array"));
     1868            }
    18631869        }
    18641870    };
Note: See TracChangeset for help on using the changeset viewer.