Skip to content

Commit 2797578

Browse files
carldcarld
committed
Dependencies for the compilers target.
1 parent f1e8a3e commit 2797578

File tree

2 files changed

+106
-0
lines changed

2 files changed

+106
-0
lines changed

‎compiler0.secd

Lines changed: 55 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,55 @@
1+
( 6 2 NIL 3 ( 1 ( 0 . 0 ) 2 NIL 14 8 ( 2 NIL 9 ) ( 2 NIL 1 ( 0 . 0 ) 11 13 1 ( 1
2+
. 5 ) 4 1 ( 0 . 0 ) 10 11 13 9 ) 5 ) 13 3 ( 1 ( 0 . 0 ) 2 NIL 14 8 ( 2 NIL 9 ) (
3+
2 NIL 1 ( 0 . 0 ) 11 13 1 ( 1 . 4 ) 4 1 ( 0 . 0 ) 10 10 13 9 ) 5 ) 13 3 ( 6 2
4+
NIL 3 ( 1 ( 0 . 0 ) 11 2 1 1 ( 0 . 0 ) 10 15 13 5 ) 13 3 ( 1 ( 0 . 0 ) 1 ( 0 . 1
5+
) 10 14 8 ( 2 0 9 ) ( 2 1 2 NIL 1 ( 0 . 1 ) 11 13 1 ( 0 . 0 ) 13 1 ( 1 . 1 ) 4
6+
15 9 ) 5 ) 13 3 ( 1 ( 0 . 1 ) 2 NIL 14 8 ( 2 F 9 ) ( 1 ( 0 . 0 ) 1 ( 0 . 1 ) 10
7+
14 8 ( 2 T 9 ) ( 2 NIL 1 ( 0 . 1 ) 11 13 1 ( 0 . 0 ) 13 1 ( 1 . 0 ) 4 9 ) 9 ) 5
8+
) 13 3 ( 2 NIL 1 ( 1 . 1 ) 10 13 1 ( 1 . 0 ) 13 1 ( 0 . 0 ) 4 8 ( 2 NIL 1 ( 1 .
9+
1 ) 10 13 1 ( 1 . 0 ) 13 1 ( 0 . 1 ) 4 2 0 13 9 ) ( 2 NIL 2 NIL 1 ( 1 . 1 ) 11
10+
13 1 ( 1 . 0 ) 13 1 ( 2 . 3 ) 4 13 1 ( 0 . 2 ) 4 9 ) 5 ) 7 5 ) 13 3 ( 1 ( 0 . 0
11+
) 2 NIL 14 8 ( 1 ( 0 . 2 ) 2 NIL 13 2 2 13 9 ) ( 2 NIL 2 NIL 1 ( 0 . 2 ) 2 13 13
12+
13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 10 13 1 ( 1 . 1 ) 4 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 )
13+
11 13 1 ( 1 . 2 ) 4 9 ) 5 ) 13 3 ( 1 ( 0 . 0 ) 12 8 ( 1 ( 0 . 2 ) 2 NIL 1 ( 0 .
14+
1 ) 13 1 ( 0 . 0 ) 13 1 ( 1 . 3 ) 4 13 2 1 13 9 ) ( 1 ( 0 . 0 ) 10 2 QUOTE 14 8
15+
( 1 ( 0 . 2 ) 1 ( 0 . 0 ) 11 10 13 2 2 13 9 ) ( 1 ( 0 . 0 ) 10 2 ADD 14 8 ( 2
16+
NIL 2 NIL 1 ( 0 . 2 ) 2 15 13 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11 11 10 13 1 ( 1 .
17+
1 ) 4 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11 10 13 1 ( 1 . 1 ) 4 9 ) ( 1 ( 0 . 0 ) 10
18+
2 SUB 14 8 ( 2 NIL 2 NIL 1 ( 0 . 2 ) 2 16 13 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11 11
19+
10 13 1 ( 1 . 1 ) 4 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11 10 13 1 ( 1 . 1 ) 4 9 ) ( 1
20+
( 0 . 0 ) 10 2 MUL 14 8 ( 2 NIL 2 NIL 1 ( 0 . 2 ) 2 17 13 13 1 ( 0 . 1 ) 13 1 (
21+
0 . 0 ) 11 11 10 13 1 ( 1 . 1 ) 4 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11 10 13 1 ( 1 .
22+
1 ) 4 9 ) ( 1 ( 0 . 0 ) 10 2 DIV 14 8 ( 2 NIL 2 NIL 1 ( 0 . 2 ) 2 18 13 13 1 ( 0
23+
. 1 ) 13 1 ( 0 . 0 ) 11 11 10 13 1 ( 1 . 1 ) 4 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11
24+
10 13 1 ( 1 . 1 ) 4 9 ) ( 1 ( 0 . 0 ) 10 2 REM 14 8 ( 2 NIL 2 NIL 1 ( 0 . 2 ) 2
25+
19 13 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11 11 10 13 1 ( 1 . 1 ) 4 13 1 ( 0 . 1 ) 13
26+
1 ( 0 . 0 ) 11 10 13 1 ( 1 . 1 ) 4 9 ) ( 1 ( 0 . 0 ) 10 2 LEQ 14 8 ( 2 NIL 2 NIL
27+
1 ( 0 . 2 ) 2 20 13 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11 11 10 13 1 ( 1 . 1 ) 4 13 1
28+
( 0 . 1 ) 13 1 ( 0 . 0 ) 11 10 13 1 ( 1 . 1 ) 4 9 ) ( 1 ( 0 . 0 ) 10 2 EQ 14 8 (
29+
2 NIL 2 NIL 1 ( 0 . 2 ) 2 14 13 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11 11 10 13 1 ( 1
30+
. 1 ) 4 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11 10 13 1 ( 1 . 1 ) 4 9 ) ( 1 ( 0 . 0 )
31+
10 2 CAR 14 8 ( 2 NIL 1 ( 0 . 2 ) 2 10 13 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11 10 13
32+
1 ( 1 . 1 ) 4 9 ) ( 1 ( 0 . 0 ) 10 2 CDR 14 8 ( 2 NIL 1 ( 0 . 2 ) 2 11 13 13 1 (
33+
0 . 1 ) 13 1 ( 0 . 0 ) 11 10 13 1 ( 1 . 1 ) 4 9 ) ( 1 ( 0 . 0 ) 10 2 ATOM 14 8 (
34+
2 NIL 1 ( 0 . 2 ) 2 12 13 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11 10 13 1 ( 1 . 1 ) 4 9
35+
) ( 1 ( 0 . 0 ) 10 2 CONS 14 8 ( 2 NIL 2 NIL 1 ( 0 . 2 ) 2 13 13 13 1 ( 0 . 1 )
36+
13 1 ( 0 . 0 ) 11 10 13 1 ( 1 . 1 ) 4 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 11 11 10 13
37+
1 ( 1 . 1 ) 4 9 ) ( 1 ( 0 . 0 ) 10 2 IF 14 8 ( 2 NIL 2 NIL 2 ( 9 ) 13 1 ( 0 . 1
38+
) 13 1 ( 0 . 0 ) 11 11 11 10 13 1 ( 1 . 1 ) 4 13 2 NIL 2 ( 9 ) 13 1 ( 0 . 1 ) 13
39+
1 ( 0 . 0 ) 11 11 10 13 1 ( 1 . 1 ) 4 13 3 ( 2 NIL 1 ( 1 . 2 ) 1 ( 0 . 1 ) 13 1
40+
( 0 . 0 ) 13 2 8 13 13 1 ( 1 . 1 ) 13 1 ( 1 . 0 ) 11 10 13 1 ( 2 . 1 ) 4 5 ) 4 9
41+
) ( 1 ( 0 . 0 ) 10 2 LAMBDA 14 8 ( 2 NIL 2 NIL 2 ( 5 ) 13 1 ( 0 . 1 ) 1 ( 0 . 0
42+
) 11 10 13 13 1 ( 0 . 0 ) 11 11 10 13 1 ( 1 . 1 ) 4 13 3 ( 1 ( 1 . 2 ) 1 ( 0 . 0
43+
) 13 2 3 13 5 ) 4 9 ) ( 1 ( 0 . 0 ) 10 2 LET 14 8 ( 2 NIL 2 NIL 1 ( 0 . 0 ) 11
44+
11 13 1 ( 1 . 5 ) 4 13 1 ( 0 . 1 ) 2 NIL 1 ( 0 . 0 ) 11 11 13 1 ( 1 . 4 ) 4 13
45+
13 3 ( 2 NIL 2 NIL 2 ( 5 ) 13 1 ( 0 . 0 ) 13 1 ( 1 . 0 ) 11 10 13 1 ( 2 . 1 ) 4
46+
13 3 ( 2 NIL 1 ( 2 . 2 ) 2 4 13 1 ( 0 . 0 ) 13 2 3 13 13 1 ( 2 . 1 ) 13 1 ( 1 .
47+
1 ) 13 1 ( 3 . 2 ) 4 5 ) 4 5 ) 4 9 ) ( 1 ( 0 . 0 ) 10 2 LETREC 14 8 ( 2 NIL 2
48+
NIL 1 ( 0 . 0 ) 11 11 13 1 ( 1 . 5 ) 4 13 1 ( 0 . 1 ) 2 NIL 1 ( 0 . 0 ) 11 11 13
49+
1 ( 1 . 4 ) 4 13 13 3 ( 2 NIL 2 NIL 2 ( 5 ) 13 1 ( 0 . 0 ) 13 1 ( 1 . 0 ) 11 10
50+
13 1 ( 2 . 1 ) 4 13 3 ( 2 NIL 1 ( 2 . 2 ) 2 7 13 1 ( 0 . 0 ) 13 2 3 13 13 1 ( 1
51+
. 0 ) 13 1 ( 1 . 1 ) 13 1 ( 3 . 2 ) 4 2 6 13 5 ) 4 5 ) 4 9 ) ( 2 NIL 2 NIL 1 ( 0
52+
. 2 ) 2 4 13 13 1 ( 0 . 1 ) 13 1 ( 0 . 0 ) 10 13 1 ( 1 . 1 ) 4 13 1 ( 0 . 1 ) 13
53+
1 ( 0 . 0 ) 11 13 1 ( 1 . 2 ) 4 9 ) 9 ) 9 ) 9 ) 9 ) 9 ) 9 ) 9 ) 9 ) 9 ) 9 ) 9 )
54+
9 ) 9 ) 9 ) 9 ) 9 ) 5 ) 13 3 ( 2 NIL 2 ( 4 21 ) 13 2 NIL 13 1 ( 0 . 0 ) 13 1 ( 1
55+
. 1 ) 4 5 ) 13 3 ( 1 ( 0 . 0 ) 5 ) 7 4 21 )

‎compiler1.lisp

Lines changed: 51 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,51 @@
1+
( LETREC COMPILE ( COMPILE LAMBDA ( E ) ( COMP E ( QUOTE NIL ) ( QUOTE ( 4
2+
21 ) ) ) ) ( COMP LAMBDA ( E N C ) ( IF ( ATOM E ) ( CONS ( QUOTE
3+
1 ) ( CONS ( LOCATION E N ) C ) ) ( IF ( EQ ( CAR E ) ( QUOTE QUOTE ) )
4+
( CONS ( QUOTE 2 ) ( CONS ( CAR ( CDR E ) ) C ) ) ( IF ( EQ ( CAR E ) (
5+
QUOTE ADD ) ) ( COMP ( CAR ( CDR E ) ) N ( COMP ( CAR ( CDR ( CDR E ) )
6+
) N ( CONS ( QUOTE 15 ) C ) ) ) ( IF ( EQ ( CAR E ) ( QUOTE SUB ) )
7+
( COMP ( CAR ( CDR E ) ) N ( COMP ( CAR ( CDR ( CDR E ) ) ) N ( CONS ( QUOTE 16
8+
) C ) ) ) ( IF ( EQ ( CAR E ) ( QUOTE MUL ) ) ( COMP ( CAR ( CDR E
9+
) ) N ( COMP ( CAR ( CDR ( CDR E ) ) ) N ( CONS ( QUOTE 17 ) C ) ) ) ( IF (
10+
EQ ( CAR E ) ( QUOTE DIV ) ) ( COMP ( CAR ( CDR E ) ) N ( COMP ( CAR (
11+
CDR ( CDR E ) ) ) N ( CONS ( QUOTE 18 ) C ) ) ) ( IF ( EQ ( CAR E ) ( QUOTE
12+
REM ) ) ( COMP ( CAR ( CDR E ) ) N ( COMP ( CAR ( CDR ( CDR E ) ) ) N (
13+
CONS ( QUOTE 19 ) C ) ) ) ( IF ( EQ ( CAR E ) ( QUOTE LEQ ) ) (
14+
COMP ( CAR ( CDR E ) ) N ( COMP ( CAR ( CDR ( CDR E ) ) ) N ( CONS ( QUOTE 20 )
15+
C ) ) ) ( IF ( EQ ( CAR E ) ( QUOTE EQ ) ) ( COMP ( CAR ( CDR E ) )
16+
N ( COMP ( CAR ( CDR ( CDR E ) ) ) N ( CONS ( QUOTE 14 ) C ) ) ) ( IF ( EQ
17+
( CAR E ) ( QUOTE CAR ) ) ( COMP ( CAR ( CDR E ) ) N ( CONS ( QUOTE 10 )
18+
C ) ) ( IF ( EQ ( CAR E ) ( QUOTE CDR ) ) ( COMP ( CAR ( CDR E ) ) N
19+
( CONS ( QUOTE 11 ) C ) ) ( IF ( EQ ( CAR E ) ( QUOTE ATOM ) ) (
20+
COMP ( CAR ( CDR E ) ) N ( CONS ( QUOTE 12 ) C ) ) ( IF ( EQ ( CAR E ) (
21+
QUOTE CONS ) ) ( COMP ( CAR ( CDR ( CDR E ) ) ) N ( COMP ( CAR ( CDR E )
22+
) N ( CONS ( QUOTE 13 ) C ) ) ) ( IF ( EQ ( CAR E ) ( QUOTE IF ) ) (
23+
LET ( COMP ( CAR ( CDR E ) ) N ( CONS ( QUOTE 8 )
24+
( CONS THENPT ( CONS ELSEPT C ) ) ) ) ( THENPT COMP ( CAR ( CDR ( CDR
25+
E ) ) ) N ( QUOTE ( 9 ) ) ) ( ELSEPT COMP ( CAR ( CDR ( CDR ( CDR E )
26+
) ) ) N ( QUOTE ( 9 ) ) ) ) ( IF ( EQ ( CAR E ) ( QUOTE LAMBDA ) )
27+
( LET ( CONS ( QUOTE 3 ) ( CONS BODY C ) ) ( BODY COMP ( CAR ( CDR (
28+
CDR E ) ) ) ( CONS ( CAR ( CDR E ) ) N ) (
29+
QUOTE ( 5 ) ) ) ) ( IF ( EQ ( CAR E ) ( QUOTE LET ) ) ( LET (
30+
LET ( COMPLIS ARGS N ( CONS ( QUOTE 3 ) ( CONS BODY
31+
( CONS ( QUOTE 4 ) C ) ) ) ) ( BODY COMP ( CAR ( CDR E ) ) M
32+
( QUOTE ( 5 ) ) ) ) ( M CONS ( VARS ( CDR ( CDR E ) ) ) N )
33+
( ARGS EXPRS ( CDR ( CDR E ) ) ) ) ( IF ( EQ ( CAR E ) ( QUOTE LETREC ) )
34+
( LET ( LET ( CONS ( QUOTE 6 ) ( COMPLIS ARGS M (
35+
CONS ( QUOTE 3 ) ( CONS BODY ( CONS ( QUOTE 7 ) C ) ) ) ) ) (
36+
BODY COMP ( CAR ( CDR E ) ) M ( QUOTE ( 5 ) ) ) ) ( M CONS ( VARS (
37+
CDR ( CDR E ) ) ) N ) ( ARGS EXPRS ( CDR ( CDR E ) ) ) ) (
38+
COMPLIS ( CDR E ) N ( COMP ( CAR E ) N ( CONS ( QUOTE 4 ) C ) ) ) ) ) ) ) ) ) )
39+
) ) ) ) ) ) ) ) ) ) ) ( COMPLIS LAMBDA ( E N C ) ( IF ( EQ E ( QUOTE NIL )
40+
) ( CONS ( QUOTE 2 ) ( CONS ( QUOTE NIL ) C ) ) ( COMPLIS ( CDR E ) N (
41+
COMP ( CAR E ) N ( CONS ( QUOTE 13 ) C ) ) ) ) ) ( LOCATION LAMBDA ( E N )
42+
( LETREC ( IF ( MEMBER E ( CAR N ) ) ( CONS ( QUOTE 0 ) ( POSN E ( CAR N )
43+
) ) ( INCAR ( LOCATION E ( CDR N ) ) ) ) ( MEMBER LAMBDA ( E N )
44+
( IF ( EQ N ( QUOTE NIL ) ) ( QUOTE F ) ( IF ( EQ E ( CAR N ) ) (
45+
QUOTE T ) ( MEMBER E ( CDR N ) ) ) ) ) ( POSN LAMBDA ( E N ) ( IF (
46+
EQ E ( CAR N ) ) ( QUOTE 0 ) ( ADD ( QUOTE 1 ) ( POSN E ( CDR N ) ) ) ) ) (
47+
INCAR LAMBDA ( L ) ( CONS ( ADD ( QUOTE 1 ) ( CAR L ) ) ( CDR L ) ) ) ) ) (
48+
VARS LAMBDA ( D ) ( IF ( EQ D ( QUOTE NIL ) ) ( QUOTE NIL ) ( CONS (
49+
CAR ( CAR D ) ) ( VARS ( CDR D ) ) ) ) ) ( EXPRS LAMBDA ( D ) ( IF ( EQ D
50+
( QUOTE NIL ) ) ( QUOTE NIL ) ( CONS ( CDR ( CAR D ) ) ( EXPRS ( CDR D )
51+
) ) ) ) )

0 commit comments

Comments
 (0)