Changeset 3508


Ignore:
Timestamp:
08/25/03 17:36:00 (19 years ago)
Author:
piso
Message:

SYS::%RPLACA
SYS::%RPLACD

File:
1 edited

Legend:

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

    r2544 r3508  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: cxr.java,v 1.1 2003-06-23 02:19:14 piso Exp $
     5 * $Id: cxr.java,v 1.2 2003-08-25 17:36:00 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2222package org.armedbear.lisp;
    2323
    24 public final class cxr
     24public final class cxr extends Lisp
    2525{
     26    // ### %rplaca
     27    private static final Primitive2 _RPLACA =
     28        new Primitive2("%rplaca", PACKAGE_SYS, false) {
     29        public LispObject execute(LispObject first, LispObject second)
     30            throws LispError
     31        {
     32            first.setCar(second);
     33            return second;
     34        }
     35    };
     36
     37    // ### %rplacd
     38    private static final Primitive2 _RPLACD =
     39        new Primitive2("%rplacd", PACKAGE_SYS, false) {
     40        public LispObject execute(LispObject first, LispObject second)
     41            throws LispError
     42        {
     43            first.setCdr(second);
     44            return second;
     45        }
     46    };
     47
    2648    // ### car
    2749    private static final Primitive1 CAR = new Primitive1("car") {
Note: See TracChangeset for help on using the changeset viewer.