int main(void){
ptr a, b, c;
ptr p, q, r;
//(a )を作成
a = makesymbol("a");
p = cons(a, nil);
//(b c )を作成
b = makesymbol("b");
c = makesymbol("c");
q = cons(b, c);
//((b c ))を作成
q = cons(q, nil);
//(a (b c ))を作成
r = cons(a, q);
//データの表示
print(p);
printf("\n");
print(r);
printf("\n");
return 0;
}
/* xintern - make a new interned symbol */
LVAL xintern(void)
{
return (makesymbol(TRUE));
}
/* xmakesymbol - make a new uninterned symbol */
LVAL xmakesymbol(void)
{
return (makesymbol(FALSE));
}
