Reindentation.

parent 90bc4ba6
...@@ -35,324 +35,283 @@ package org.armedbear.lisp; ...@@ -35,324 +35,283 @@ package org.armedbear.lisp;
import static org.armedbear.lisp.Lisp.*; import static org.armedbear.lisp.Lisp.*;
public final class cxr public final class cxr {
{ // ### set-car
// ### set-car private static final Primitive SET_CAR = new pf_set_car();
private static final Primitive SET_CAR = new pf_set_car(); private static final class pf_set_car extends Primitive {
private static final class pf_set_car extends Primitive { pf_set_car() {
pf_set_car() super("set-car", PACKAGE_SYS, true);
{ }
super("set-car", PACKAGE_SYS, true);
} @Override
public LispObject execute(LispObject first, LispObject second)
@Override
public LispObject execute(LispObject first, LispObject second) {
first.setCar(second);
{ return second;
first.setCar(second); }
return second;
}
}; };
// ### set-cdr // ### set-cdr
private static final Primitive SET_CDR = new pf_set_cdr(); private static final Primitive SET_CDR = new pf_set_cdr();
private static final class pf_set_cdr extends Primitive { private static final class pf_set_cdr extends Primitive {
pf_set_cdr() pf_set_cdr() {
{ super("set-cdr", PACKAGE_SYS, true);
super("set-cdr", PACKAGE_SYS, true); }
}
@Override
@Override public LispObject execute(LispObject first, LispObject second)
public LispObject execute(LispObject first, LispObject second)
{
{ first.setCdr(second);
first.setCdr(second); return second;
return second; }
}
}; };
// ### car // ### car
private static final Primitive CAR = new pf_car(); private static final Primitive CAR = new pf_car();
private static final class pf_car extends Primitive { private static final class pf_car extends Primitive {
pf_car() pf_car() {
{ super(Symbol.CAR, "list");
super(Symbol.CAR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.car();
{ }
return arg.car();
}
}; };
// ### cdr // ### cdr
private static final Primitive CDR = new pf_cdr(); private static final Primitive CDR = new pf_cdr();
private static final class pf_cdr extends Primitive { private static final class pf_cdr extends Primitive {
pf_cdr() pf_cdr() {
{ super(Symbol.CDR, "list");
super(Symbol.CDR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.cdr();
{ }
return arg.cdr();
}
}; };
// ### caar // ### caar
private static final Primitive CAAR = new pf_caar(); private static final Primitive CAAR = new pf_caar();
private static final class pf_caar extends Primitive { private static final class pf_caar extends Primitive {
pf_caar() pf_caar() {
{ super(Symbol.CAAR, "list");
super(Symbol.CAAR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.car().car();
{ }
return arg.car().car();
}
}; };
// ### cadr // ### cadr
private static final Primitive CADR = new pf_cadr(); private static final Primitive CADR = new pf_cadr();
private static final class pf_cadr extends Primitive { private static final class pf_cadr extends Primitive {
pf_cadr() pf_cadr() {
{ super(Symbol.CADR, "list");
super(Symbol.CADR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.cadr();
{ }
return arg.cadr();
}
}; };
// ### cdar // ### cdar
private static final Primitive CDAR = new pf_cdar(); private static final Primitive CDAR = new pf_cdar();
private static final class pf_cdar extends Primitive { private static final class pf_cdar extends Primitive {
pf_cdar() pf_cdar() {
{ super(Symbol.CDAR, "list");
super(Symbol.CDAR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.car().cdr();
{ }
return arg.car().cdr();
}
}; };
// ### cddr // ### cddr
private static final Primitive CDDR = new pf_cddr(); private static final Primitive CDDR = new pf_cddr();
private static final class pf_cddr extends Primitive { private static final class pf_cddr extends Primitive {
pf_cddr() pf_cddr() {
{ super(Symbol.CDDR, "list");
super(Symbol.CDDR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.cdr().cdr();
{ }
return arg.cdr().cdr();
}
}; };
// ### caddr // ### caddr
private static final Primitive CADDR = new pf_caddr(); private static final Primitive CADDR = new pf_caddr();
private static final class pf_caddr extends Primitive { private static final class pf_caddr extends Primitive {
pf_caddr() pf_caddr() {
{ super(Symbol.CADDR, "list");
super(Symbol.CADDR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.caddr();
{ }
return arg.caddr();
}
}; };
// ### caadr // ### caadr
private static final Primitive CAADR = new pf_caadr(); private static final Primitive CAADR = new pf_caadr();
private static final class pf_caadr extends Primitive { private static final class pf_caadr extends Primitive {
pf_caadr() pf_caadr() {
{ super(Symbol.CAADR, "list");
super(Symbol.CAADR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.cdr().car().car();
{ }
return arg.cdr().car().car();
}
}; };
// ### caaar // ### caaar
private static final Primitive CAAAR = new pf_caaar(); private static final Primitive CAAAR = new pf_caaar();
private static final class pf_caaar extends Primitive { private static final class pf_caaar extends Primitive {
pf_caaar() pf_caaar() {
{ super(Symbol.CAAAR, "list");
super(Symbol.CAAAR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.car().car().car();
{ }
return arg.car().car().car();
}
}; };
// ### cdaar // ### cdaar
private static final Primitive CDAAR = new pf_cdaar(); private static final Primitive CDAAR = new pf_cdaar();
private static final class pf_cdaar extends Primitive { private static final class pf_cdaar extends Primitive {
pf_cdaar() pf_cdaar() {
{ super(Symbol.CDAAR, "list");
super(Symbol.CDAAR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.car().car().cdr();
{ }
return arg.car().car().cdr();
}
}; };
// ### cddar // ### cddar
private static final Primitive CDDAR = new pf_cddar(); private static final Primitive CDDAR = new pf_cddar();
private static final class pf_cddar extends Primitive { private static final class pf_cddar extends Primitive {
pf_cddar() pf_cddar() {
{ super(Symbol.CDDAR, "list");
super(Symbol.CDDAR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.car().cdr().cdr();
{ }
return arg.car().cdr().cdr();
}
}; };
// ### cdddr // ### cdddr
private static final Primitive CDDDR = new pf_cdddr(); private static final Primitive CDDDR = new pf_cdddr();
private static final class pf_cdddr extends Primitive { private static final class pf_cdddr extends Primitive {
pf_cdddr() pf_cdddr() {
{ super(Symbol.CDDDR, "list");
super(Symbol.CDDDR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.cdr().cdr().cdr();
{ }
return arg.cdr().cdr().cdr();
}
}; };
// ### cadar // ### cadar
private static final Primitive CADAR = new pf_cadar(); private static final Primitive CADAR = new pf_cadar();
private static final class pf_cadar extends Primitive { private static final class pf_cadar extends Primitive {
pf_cadar() pf_cadar() {
{ super(Symbol.CADAR, "list");
super(Symbol.CADAR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.car().cdr().car();
{ }
return arg.car().cdr().car();
}
}; };
// ### cdadr // ### cdadr
private static final Primitive CDADR = new pf_cdadr(); private static final Primitive CDADR = new pf_cdadr();
private static final class pf_cdadr extends Primitive { private static final class pf_cdadr extends Primitive {
pf_cdadr() pf_cdadr() {
{ super(Symbol.CDADR, "list");
super(Symbol.CDADR, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.cdr().car().cdr();
{ }
return arg.cdr().car().cdr();
}
}; };
// ### first // ### first
private static final Primitive FIRST = new pf_first(); private static final Primitive FIRST = new pf_first();
private static final class pf_first extends Primitive { private static final class pf_first extends Primitive {
pf_first() pf_first() {
{ super(Symbol.FIRST, "list");
super(Symbol.FIRST, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.car();
{ }
return arg.car();
}
}; };
// ### second // ### second
private static final Primitive SECOND = new pf_second(); private static final Primitive SECOND = new pf_second();
private static final class pf_second extends Primitive { private static final class pf_second extends Primitive {
pf_second() pf_second() {
{ super(Symbol.SECOND, "list");
super(Symbol.SECOND, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.cadr();
{ }
return arg.cadr();
}
}; };
// ### third // ### third
private static final Primitive THIRD = new pf_third(); private static final Primitive THIRD = new pf_third();
private static final class pf_third extends Primitive { private static final class pf_third extends Primitive {
pf_third() pf_third() {
{ super(Symbol.THIRD, "list");
super(Symbol.THIRD, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.caddr();
{ }
return arg.caddr();
}
}; };
// ### fourth // ### fourth
private static final Primitive FOURTH = new pf_fourth(); private static final Primitive FOURTH = new pf_fourth();
private static final class pf_fourth extends Primitive { private static final class pf_fourth extends Primitive {
pf_fourth() pf_fourth() {
{ super(Symbol.FOURTH, "list");
super(Symbol.FOURTH, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.cdr().cdr().cadr();
{ }
return arg.cdr().cdr().cadr();
}
}; };
// ### rest // ### rest
private static final Primitive REST = new pf_rest(); private static final Primitive REST = new pf_rest();
private static final class pf_rest extends Primitive { private static final class pf_rest extends Primitive {
pf_rest() pf_rest() {
{ super(Symbol.REST, "list");
super(Symbol.REST, "list"); }
}
@Override
@Override public LispObject execute(LispObject arg) {
public LispObject execute(LispObject arg) return arg.cdr();
{ }
return arg.cdr();
}
}; };
} }
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment