Changeset 4253

Timestamp:

10/08/03 17:26:49 (20 years ago)

Author:

piso

Message:

%VSET

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.464 2003-10-08 14:56:36 piso Exp $
+ * $Id: Primitives.java,v 1.465 2003-10-08 17:26:49 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -1858 +1858 @@
     {
         public LispObject execute(LispObject first, LispObject second,
-            LispObject third) throws ConditionThrowable
+                                  LispObject third)
+            throws ConditionThrowable
         {
             try {
@@ -1875 +1876 @@
         {
             return new Vector(args);
+        }
+    };
+
+    // ### %vset
+    // %vset vector index new-value => new-value
+    private static final Primitive3 _VSET =
+        new Primitive3("%vset", PACKAGE_SYS, false)
+    {
+        public LispObject execute(LispObject first, LispObject second,
+                                  LispObject third)
+            throws ConditionThrowable
+        {
+            try {
+                ((AbstractVector)first).set(Fixnum.getValue(second), third);
+                return third;
+            }
+            catch (ClassCastException e) {
+                throw new ConditionThrowable(new TypeError(first, "vector"));
+            }
         }
     };