Changeset 4252

Timestamp:

10/08/03 14:56:36 (20 years ago)

Author:

piso

Message:

%SET-ROW-MAJOR-AREF

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.463 2003-10-06 17:15:12 piso Exp $
+ * $Id: Primitives.java,v 1.464 2003-10-08 14:56:36 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -1855 +1855 @@
     // %set-row-major-aref array index new-value => new-value
     private static final Primitive3 _SET_ROW_MAJOR_AREF =
-        new Primitive3("%set-row-major-aref", PACKAGE_SYS, false) {
+        new Primitive3("%set-row-major-aref", PACKAGE_SYS, false)
+    {
         public LispObject execute(LispObject first, LispObject second,
             LispObject third) throws ConditionThrowable
         {
-            checkArray(first).setRowMajor(Fixnum.getValue(second), third);
-            return third;
+            try {
+                ((AbstractArray)first).setRowMajor(Fixnum.getValue(second), third);
+                return third;
+            }
+            catch (ClassCastException e) {
+                throw new ConditionThrowable(new TypeError(first, "array"));
+            }
         }
     };