Changeset 3593

Timestamp:

09/07/03 16:41:53 (19 years ago)

Author:

piso

Message:

%STRUCTURE-REF-0, %STRUCTURE-REF-1, %STRUCTURE-REF-2

Location:

trunk/j/src/org/armedbear/lisp

Files:

• Autoload.java (modified) (2 diffs)
• StructureObject.java (modified) (2 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Autoload.java,v 1.48 2003-08-24 16:41:22 piso Exp $
+ * $Id: Autoload.java,v 1.49 2003-09-07 16:41:53 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -219 +219 @@
         autoload(PACKAGE_SYS, "%string>=", "StringFunctions");
         autoload(PACKAGE_SYS, "%structure-ref", "StructureObject");
+        autoload(PACKAGE_SYS, "%structure-ref-0", "StructureObject");
+        autoload(PACKAGE_SYS, "%structure-ref-1", "StructureObject");
+        autoload(PACKAGE_SYS, "%structure-ref-2", "StructureObject");
         autoload(PACKAGE_SYS, "%structure-set", "StructureObject");
         autoload(PACKAGE_SYS, "%time", "Time");

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: StructureObject.java,v 1.6 2003-09-06 17:05:08 piso Exp $
+ * $Id: StructureObject.java,v 1.7 2003-09-07 16:41:53 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -109 +109 @@
     };
 
+    private static final Primitive1 _STRUCTURE_REF_0 =
+        new Primitive1("%structure-ref-0", PACKAGE_SYS, false) {
+        public LispObject execute(LispObject arg) throws LispError
+        {
+            try {
+                return ((StructureObject)arg).get(0);
+            }
+            catch (ClassCastException e) {
+                throw new TypeError();
+            }
+        }
+    };
+
+    private static final Primitive1 _STRUCTURE_REF_1 =
+        new Primitive1("%structure-ref-1", PACKAGE_SYS, false) {
+        public LispObject execute(LispObject arg) throws LispError
+        {
+            try {
+                return ((StructureObject)arg).get(1);
+            }
+            catch (ClassCastException e) {
+                throw new TypeError();
+            }
+        }
+    };
+
+    private static final Primitive1 _STRUCTURE_REF_2 =
+        new Primitive1("%structure-ref-2", PACKAGE_SYS, false) {
+        public LispObject execute(LispObject arg) throws LispError
+        {
+            try {
+                return ((StructureObject)arg).get(2);
+            }
+            catch (ClassCastException e) {
+                throw new TypeError();
+            }
+        }
+    };
+
     // ### %structure-set
     // %structure-set instance index new-value => new-value