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
Hide 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,324 +35,283 @@ package org.armedbear.lisp;
import
static
org
.
armedbear
.
lisp
.
Lisp
.*;
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
()
{
super
(
"set-car"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
)
{
first
.
setCar
(
second
);
return
second
;
}
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
()
{
super
(
"set-car"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
)
{
first
.
setCar
(
second
);
return
second
;
}
};
// ### set-cdr
private
static
final
Primitive
SET_CDR
=
new
pf_set_cdr
();
private
static
final
class
pf_set_cdr
extends
Primitive
{
pf_set_cdr
()
{
super
(
"set-cdr"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
)
{
first
.
setCdr
(
second
);
return
second
;
}
// ### set-cdr
private
static
final
Primitive
SET_CDR
=
new
pf_set_cdr
();
private
static
final
class
pf_set_cdr
extends
Primitive
{
pf_set_cdr
()
{
super
(
"set-cdr"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
)
{
first
.
setCdr
(
second
);
return
second
;
}
};
// ### car
private
static
final
Primitive
CAR
=
new
pf_car
();
private
static
final
class
pf_car
extends
Primitive
{
pf_car
()
{
super
(
Symbol
.
CAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
();
}
// ### car
private
static
final
Primitive
CAR
=
new
pf_car
();
private
static
final
class
pf_car
extends
Primitive
{
pf_car
()
{
super
(
Symbol
.
CAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
();
}
};
// ### cdr
private
static
final
Primitive
CDR
=
new
pf_cdr
();
private
static
final
class
pf_cdr
extends
Primitive
{
pf_cdr
()
{
super
(
Symbol
.
CDR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
();
}
// ### cdr
private
static
final
Primitive
CDR
=
new
pf_cdr
();
private
static
final
class
pf_cdr
extends
Primitive
{
pf_cdr
()
{
super
(
Symbol
.
CDR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
();
}
};
// ### caar
private
static
final
Primitive
CAAR
=
new
pf_caar
();
private
static
final
class
pf_caar
extends
Primitive
{
pf_caar
()
{
super
(
Symbol
.
CAAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
car
();
}
// ### caar
private
static
final
Primitive
CAAR
=
new
pf_caar
();
private
static
final
class
pf_caar
extends
Primitive
{
pf_caar
()
{
super
(
Symbol
.
CAAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
car
();
}
};
// ### cadr
private
static
final
Primitive
CADR
=
new
pf_cadr
();
private
static
final
class
pf_cadr
extends
Primitive
{
pf_cadr
()
{
super
(
Symbol
.
CADR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cadr
();
}
// ### cadr
private
static
final
Primitive
CADR
=
new
pf_cadr
();
private
static
final
class
pf_cadr
extends
Primitive
{
pf_cadr
()
{
super
(
Symbol
.
CADR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cadr
();
}
};
// ### cdar
private
static
final
Primitive
CDAR
=
new
pf_cdar
();
private
static
final
class
pf_cdar
extends
Primitive
{
pf_cdar
()
{
super
(
Symbol
.
CDAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
cdr
();
}
// ### cdar
private
static
final
Primitive
CDAR
=
new
pf_cdar
();
private
static
final
class
pf_cdar
extends
Primitive
{
pf_cdar
()
{
super
(
Symbol
.
CDAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
cdr
();
}
};
// ### cddr
private
static
final
Primitive
CDDR
=
new
pf_cddr
();
private
static
final
class
pf_cddr
extends
Primitive
{
pf_cddr
()
{
super
(
Symbol
.
CDDR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
cdr
();
}
// ### cddr
private
static
final
Primitive
CDDR
=
new
pf_cddr
();
private
static
final
class
pf_cddr
extends
Primitive
{
pf_cddr
()
{
super
(
Symbol
.
CDDR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
cdr
();
}
};
// ### caddr
private
static
final
Primitive
CADDR
=
new
pf_caddr
();
private
static
final
class
pf_caddr
extends
Primitive
{
pf_caddr
()
{
super
(
Symbol
.
CADDR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
caddr
();
}
// ### caddr
private
static
final
Primitive
CADDR
=
new
pf_caddr
();
private
static
final
class
pf_caddr
extends
Primitive
{
pf_caddr
()
{
super
(
Symbol
.
CADDR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
caddr
();
}
};
// ### caadr
private
static
final
Primitive
CAADR
=
new
pf_caadr
();
private
static
final
class
pf_caadr
extends
Primitive
{
pf_caadr
()
{
super
(
Symbol
.
CAADR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
car
().
car
();
}
// ### caadr
private
static
final
Primitive
CAADR
=
new
pf_caadr
();
private
static
final
class
pf_caadr
extends
Primitive
{
pf_caadr
()
{
super
(
Symbol
.
CAADR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
car
().
car
();
}
};
// ### caaar
private
static
final
Primitive
CAAAR
=
new
pf_caaar
();
private
static
final
class
pf_caaar
extends
Primitive
{
pf_caaar
()
{
super
(
Symbol
.
CAAAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
car
().
car
();
}
// ### caaar
private
static
final
Primitive
CAAAR
=
new
pf_caaar
();
private
static
final
class
pf_caaar
extends
Primitive
{
pf_caaar
()
{
super
(
Symbol
.
CAAAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
car
().
car
();
}
};
// ### cdaar
private
static
final
Primitive
CDAAR
=
new
pf_cdaar
();
private
static
final
class
pf_cdaar
extends
Primitive
{
pf_cdaar
()
{
super
(
Symbol
.
CDAAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
car
().
cdr
();
}
// ### cdaar
private
static
final
Primitive
CDAAR
=
new
pf_cdaar
();
private
static
final
class
pf_cdaar
extends
Primitive
{
pf_cdaar
()
{
super
(
Symbol
.
CDAAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
car
().
cdr
();
}
};
// ### cddar
private
static
final
Primitive
CDDAR
=
new
pf_cddar
();
private
static
final
class
pf_cddar
extends
Primitive
{
pf_cddar
()
{
super
(
Symbol
.
CDDAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
cdr
().
cdr
();
}
// ### cddar
private
static
final
Primitive
CDDAR
=
new
pf_cddar
();
private
static
final
class
pf_cddar
extends
Primitive
{
pf_cddar
()
{
super
(
Symbol
.
CDDAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
cdr
().
cdr
();
}
};
// ### cdddr
private
static
final
Primitive
CDDDR
=
new
pf_cdddr
();
private
static
final
class
pf_cdddr
extends
Primitive
{
pf_cdddr
()
{
super
(
Symbol
.
CDDDR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
cdr
().
cdr
();
}
// ### cdddr
private
static
final
Primitive
CDDDR
=
new
pf_cdddr
();
private
static
final
class
pf_cdddr
extends
Primitive
{
pf_cdddr
()
{
super
(
Symbol
.
CDDDR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
cdr
().
cdr
();
}
};
// ### cadar
private
static
final
Primitive
CADAR
=
new
pf_cadar
();
private
static
final
class
pf_cadar
extends
Primitive
{
pf_cadar
()
{
super
(
Symbol
.
CADAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
cdr
().
car
();
}
// ### cadar
private
static
final
Primitive
CADAR
=
new
pf_cadar
();
private
static
final
class
pf_cadar
extends
Primitive
{
pf_cadar
()
{
super
(
Symbol
.
CADAR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
().
cdr
().
car
();
}
};
// ### cdadr
private
static
final
Primitive
CDADR
=
new
pf_cdadr
();
private
static
final
class
pf_cdadr
extends
Primitive
{
pf_cdadr
()
{
super
(
Symbol
.
CDADR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
car
().
cdr
();
}
// ### cdadr
private
static
final
Primitive
CDADR
=
new
pf_cdadr
();
private
static
final
class
pf_cdadr
extends
Primitive
{
pf_cdadr
()
{
super
(
Symbol
.
CDADR
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
car
().
cdr
();
}
};
// ### first
private
static
final
Primitive
FIRST
=
new
pf_first
();
private
static
final
class
pf_first
extends
Primitive
{
pf_first
()
{
super
(
Symbol
.
FIRST
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
();
}
// ### first
private
static
final
Primitive
FIRST
=
new
pf_first
();
private
static
final
class
pf_first
extends
Primitive
{
pf_first
()
{
super
(
Symbol
.
FIRST
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
car
();
}
};
// ### second
private
static
final
Primitive
SECOND
=
new
pf_second
();
private
static
final
class
pf_second
extends
Primitive
{
pf_second
()
{
super
(
Symbol
.
SECOND
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cadr
();
}
// ### second
private
static
final
Primitive
SECOND
=
new
pf_second
();
private
static
final
class
pf_second
extends
Primitive
{
pf_second
()
{
super
(
Symbol
.
SECOND
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cadr
();
}
};
// ### third
private
static
final
Primitive
THIRD
=
new
pf_third
();
private
static
final
class
pf_third
extends
Primitive
{
pf_third
()
{
super
(
Symbol
.
THIRD
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
caddr
();
}
// ### third
private
static
final
Primitive
THIRD
=
new
pf_third
();
private
static
final
class
pf_third
extends
Primitive
{
pf_third
()
{
super
(
Symbol
.
THIRD
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
caddr
();
}
};
// ### fourth
private
static
final
Primitive
FOURTH
=
new
pf_fourth
();
private
static
final
class
pf_fourth
extends
Primitive
{
pf_fourth
()
{
super
(
Symbol
.
FOURTH
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
cdr
().
cadr
();
}
// ### fourth
private
static
final
Primitive
FOURTH
=
new
pf_fourth
();
private
static
final
class
pf_fourth
extends
Primitive
{
pf_fourth
()
{
super
(
Symbol
.
FOURTH
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
().
cdr
().
cadr
();
}
};
// ### rest
private
static
final
Primitive
REST
=
new
pf_rest
();
private
static
final
class
pf_rest
extends
Primitive
{
pf_rest
()
{
super
(
Symbol
.
REST
,
"list"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
return
arg
.
cdr
();
}
// ### rest
private
static
final
Primitive
REST
=
new
pf_rest
();
private
static
final
class
pf_rest
extends
Primitive
{
pf_rest
()
{
super
(
Symbol
.
REST
,
"list"
);
}
@Override
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