Changeset 4209


Ignore:
Timestamp:
10/06/03 00:26:24 (19 years ago)
Author:
piso
Message:

%setelt => %set-elt
%setnth => %set-nth

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r4185 r4209  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.461 2003-10-04 01:26:28 piso Exp $
     5 * $Id: Primitives.java,v 1.462 2003-10-06 00:25:45 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    10701070    };
    10711071
    1072     // ### %setnth
     1072    // ### %set-nth
    10731073    // %setnth n list new-object => new-object
    1074     private static final Primitive3 _SETNTH =
    1075         new Primitive3("%setnth", PACKAGE_SYS, false) {
     1074    private static final Primitive3 _SET_NTH =
     1075        new Primitive3("%set-nth", PACKAGE_SYS, false)
     1076    {
    10761077        public LispObject execute(LispObject first, LispObject second,
    1077             LispObject third) throws ConditionThrowable
     1078                                  LispObject third)
     1079            throws ConditionThrowable
    10781080        {
    10791081            int index = Fixnum.getValue(first);
     
    40914093
    40924094    // ### reverse
    4093     private static final Primitive1 REVERSE = new Primitive1("reverse") {
     4095    private static final Primitive1 REVERSE = new Primitive1("reverse")
     4096    {
    40944097        public LispObject execute(LispObject arg) throws ConditionThrowable
    40954098        {
     
    41104113    };
    41114114
    4112     // ### %setelt
     4115    // ### %set-elt
    41134116    // %setelt sequence index newval => newval
    4114     private static final Primitive3 _SETELT = new Primitive3("%setelt") {
     4117    private static final Primitive3 _SET_ELT = new Primitive3("%set-elt")
     4118    {
    41154119        public LispObject execute(LispObject first, LispObject second,
    41164120            LispObject third) throws ConditionThrowable
  • trunk/j/src/org/armedbear/lisp/setf.lisp

    r4208 r4209  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: setf.lisp,v 1.33 2003-10-06 00:20:09 piso Exp $
     4;;; $Id: setf.lisp,v 1.34 2003-10-06 00:26:24 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    225225
    226226(defsetf rest %rplacd)
    227 (defsetf elt %setelt)
    228 (defsetf nth %setnth)
     227(defsetf elt %set-elt)
     228(defsetf nth %set-nth)
    229229(defsetf svref %svset)
    230230(defsetf fill-pointer %set-fill-pointer)
Note: See TracChangeset for help on using the changeset viewer.