Changeset 3593


Ignore:
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:
2 edited

Legend:

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

    r3482 r3593  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Autoload.java,v 1.48 2003-08-24 16:41:22 piso Exp $
     5 * $Id: Autoload.java,v 1.49 2003-09-07 16:41:53 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    219219        autoload(PACKAGE_SYS, "%string>=", "StringFunctions");
    220220        autoload(PACKAGE_SYS, "%structure-ref", "StructureObject");
     221        autoload(PACKAGE_SYS, "%structure-ref-0", "StructureObject");
     222        autoload(PACKAGE_SYS, "%structure-ref-1", "StructureObject");
     223        autoload(PACKAGE_SYS, "%structure-ref-2", "StructureObject");
    221224        autoload(PACKAGE_SYS, "%structure-set", "StructureObject");
    222225        autoload(PACKAGE_SYS, "%time", "Time");
  • trunk/j/src/org/armedbear/lisp/StructureObject.java

    r3590 r3593  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StructureObject.java,v 1.6 2003-09-06 17:05:08 piso Exp $
     5 * $Id: StructureObject.java,v 1.7 2003-09-07 16:41:53 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    109109    };
    110110
     111    private static final Primitive1 _STRUCTURE_REF_0 =
     112        new Primitive1("%structure-ref-0", PACKAGE_SYS, false) {
     113        public LispObject execute(LispObject arg) throws LispError
     114        {
     115            try {
     116                return ((StructureObject)arg).get(0);
     117            }
     118            catch (ClassCastException e) {
     119                throw new TypeError();
     120            }
     121        }
     122    };
     123
     124    private static final Primitive1 _STRUCTURE_REF_1 =
     125        new Primitive1("%structure-ref-1", PACKAGE_SYS, false) {
     126        public LispObject execute(LispObject arg) throws LispError
     127        {
     128            try {
     129                return ((StructureObject)arg).get(1);
     130            }
     131            catch (ClassCastException e) {
     132                throw new TypeError();
     133            }
     134        }
     135    };
     136
     137    private static final Primitive1 _STRUCTURE_REF_2 =
     138        new Primitive1("%structure-ref-2", PACKAGE_SYS, false) {
     139        public LispObject execute(LispObject arg) throws LispError
     140        {
     141            try {
     142                return ((StructureObject)arg).get(2);
     143            }
     144            catch (ClassCastException e) {
     145                throw new TypeError();
     146            }
     147        }
     148    };
     149
    111150    // ### %structure-set
    112151    // %structure-set instance index new-value => new-value
Note: See TracChangeset for help on using the changeset viewer.