Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
abcl
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
abcl
abcl
Commits
ca24a4d9
Commit
ca24a4d9
authored
Feb 14, 2010
by
vvoutilainen@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Reindentation.
parent
90bc4ba6
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
238 additions
and
279 deletions
+238
-279
src/org/armedbear/lisp/cxr.java
src/org/armedbear/lisp/cxr.java
+238
-279
No files found.
src/org/armedbear/lisp/cxr.java
View file @
ca24a4d9
...
...
@@ -35,13 +35,11 @@ package org.armedbear.lisp;
import
static
org
.
armedbear
.
lisp
.
Lisp
.*;
public
final
class
cxr
{
public
final
class
cxr
{
// ### set-car
private
static
final
Primitive
SET_CAR
=
new
pf_set_car
();
private
static
final
class
pf_set_car
extends
Primitive
{
pf_set_car
()
{
pf_set_car
()
{
super
(
"set-car"
,
PACKAGE_SYS
,
true
);
}
...
...
@@ -57,8 +55,7 @@ public final class cxr
// ### set-cdr
private
static
final
Primitive
SET_CDR
=
new
pf_set_cdr
();
private
static
final
class
pf_set_cdr
extends
Primitive
{
pf_set_cdr
()
{
pf_set_cdr
()
{
super
(
"set-cdr"
,
PACKAGE_SYS
,
true
);
}
...
...
@@ -74,14 +71,12 @@ public final class cxr
// ### car
private
static
final
Primitive
CAR
=
new
pf_car
();
private
static
final
class
pf_car
extends
Primitive
{
pf_car
()
{
pf_car
()
{
super
(
Symbol
.
CAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
();
}
};
...
...
@@ -89,14 +84,12 @@ public final class cxr
// ### cdr
private
static
final
Primitive
CDR
=
new
pf_cdr
();
private
static
final
class
pf_cdr
extends
Primitive
{
pf_cdr
()
{
pf_cdr
()
{
super
(
Symbol
.
CDR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
();
}
};
...
...
@@ -104,14 +97,12 @@ public final class cxr
// ### caar
private
static
final
Primitive
CAAR
=
new
pf_caar
();
private
static
final
class
pf_caar
extends
Primitive
{
pf_caar
()
{
pf_caar
()
{
super
(
Symbol
.
CAAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
car
();
}
};
...
...
@@ -119,14 +110,12 @@ public final class cxr
// ### cadr
private
static
final
Primitive
CADR
=
new
pf_cadr
();
private
static
final
class
pf_cadr
extends
Primitive
{
pf_cadr
()
{
pf_cadr
()
{
super
(
Symbol
.
CADR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cadr
();
}
};
...
...
@@ -134,14 +123,12 @@ public final class cxr
// ### cdar
private
static
final
Primitive
CDAR
=
new
pf_cdar
();
private
static
final
class
pf_cdar
extends
Primitive
{
pf_cdar
()
{
pf_cdar
()
{
super
(
Symbol
.
CDAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
cdr
();
}
};
...
...
@@ -149,14 +136,12 @@ public final class cxr
// ### cddr
private
static
final
Primitive
CDDR
=
new
pf_cddr
();
private
static
final
class
pf_cddr
extends
Primitive
{
pf_cddr
()
{
pf_cddr
()
{
super
(
Symbol
.
CDDR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
cdr
();
}
};
...
...
@@ -164,14 +149,12 @@ public final class cxr
// ### caddr
private
static
final
Primitive
CADDR
=
new
pf_caddr
();
private
static
final
class
pf_caddr
extends
Primitive
{
pf_caddr
()
{
pf_caddr
()
{
super
(
Symbol
.
CADDR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
caddr
();
}
};
...
...
@@ -179,14 +162,12 @@ public final class cxr
// ### caadr
private
static
final
Primitive
CAADR
=
new
pf_caadr
();
private
static
final
class
pf_caadr
extends
Primitive
{
pf_caadr
()
{
pf_caadr
()
{
super
(
Symbol
.
CAADR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
car
().
car
();
}
};
...
...
@@ -194,14 +175,12 @@ public final class cxr
// ### caaar
private
static
final
Primitive
CAAAR
=
new
pf_caaar
();
private
static
final
class
pf_caaar
extends
Primitive
{
pf_caaar
()
{
pf_caaar
()
{
super
(
Symbol
.
CAAAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
car
().
car
();
}
};
...
...
@@ -209,14 +188,12 @@ public final class cxr
// ### cdaar
private
static
final
Primitive
CDAAR
=
new
pf_cdaar
();
private
static
final
class
pf_cdaar
extends
Primitive
{
pf_cdaar
()
{
pf_cdaar
()
{
super
(
Symbol
.
CDAAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
car
().
cdr
();
}
};
...
...
@@ -224,14 +201,12 @@ public final class cxr
// ### cddar
private
static
final
Primitive
CDDAR
=
new
pf_cddar
();
private
static
final
class
pf_cddar
extends
Primitive
{
pf_cddar
()
{
pf_cddar
()
{
super
(
Symbol
.
CDDAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
cdr
().
cdr
();
}
};
...
...
@@ -239,14 +214,12 @@ public final class cxr
// ### cdddr
private
static
final
Primitive
CDDDR
=
new
pf_cdddr
();
private
static
final
class
pf_cdddr
extends
Primitive
{
pf_cdddr
()
{
pf_cdddr
()
{
super
(
Symbol
.
CDDDR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
cdr
().
cdr
();
}
};
...
...
@@ -254,14 +227,12 @@ public final class cxr
// ### cadar
private
static
final
Primitive
CADAR
=
new
pf_cadar
();
private
static
final
class
pf_cadar
extends
Primitive
{
pf_cadar
()
{
pf_cadar
()
{
super
(
Symbol
.
CADAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
cdr
().
car
();
}
};
...
...
@@ -269,14 +240,12 @@ public final class cxr
// ### cdadr
private
static
final
Primitive
CDADR
=
new
pf_cdadr
();
private
static
final
class
pf_cdadr
extends
Primitive
{
pf_cdadr
()
{
pf_cdadr
()
{
super
(
Symbol
.
CDADR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
car
().
cdr
();
}
};
...
...
@@ -284,14 +253,12 @@ public final class cxr
// ### first
private
static
final
Primitive
FIRST
=
new
pf_first
();
private
static
final
class
pf_first
extends
Primitive
{
pf_first
()
{
pf_first
()
{
super
(
Symbol
.
FIRST
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
();
}
};
...
...
@@ -299,14 +266,12 @@ public final class cxr
// ### second
private
static
final
Primitive
SECOND
=
new
pf_second
();
private
static
final
class
pf_second
extends
Primitive
{
pf_second
()
{
pf_second
()
{
super
(
Symbol
.
SECOND
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cadr
();
}
};
...
...
@@ -314,14 +279,12 @@ public final class cxr
// ### third
private
static
final
Primitive
THIRD
=
new
pf_third
();
private
static
final
class
pf_third
extends
Primitive
{
pf_third
()
{
pf_third
()
{
super
(
Symbol
.
THIRD
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
caddr
();
}
};
...
...
@@ -329,14 +292,12 @@ public final class cxr
// ### fourth
private
static
final
Primitive
FOURTH
=
new
pf_fourth
();
private
static
final
class
pf_fourth
extends
Primitive
{
pf_fourth
()
{
pf_fourth
()
{
super
(
Symbol
.
FOURTH
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
cdr
().
cadr
();
}
};
...
...
@@ -344,14 +305,12 @@ public final class cxr
// ### rest
private
static
final
Primitive
REST
=
new
pf_rest
();
private
static
final
class
pf_rest
extends
Primitive
{
pf_rest
()
{
pf_rest
()
{
super
(
Symbol
.
REST
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
();
}
};
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment