首次尝试

我们的内建函数应该和上章的buildin_op接口一致。也就是说所有的参数都先转换为S-表达式，同时要注意使用后释放内存。函数的返回值将是一个新的lval*。

实现Q-表达式的head和tail的功能并不难。我们可以使用已有的S-表达式函数，比如lval_take和lval_pop。同时我们也要对错误的输入进行异常处理。

我们先从head和tail入手。它们在某些条件下是不能执行的。首先要保证输入的参数只有一个，并且类型为Q-表达式。其次这个输入的Q-表达式不能为空。

head函数可以重复执行pop并delete在第二个列表元素（index 1）上，直到列表为空。

tail函数更简单。只需要pop并delete第一个列表元素（index 0），剩余元素组成的列表则为我们所需要的。按此思路我们可以将代码实现如下：

  1. lval* builtin_head(lval* a) {
  2.   /* Check Error Conditions */
  3.   if (a->count != 1) {
  4.     lval_del(a);
  5.     return lval_err("Function 'head' passed too many arguments!");
  6.   }
  8.   if (a->cell[0]->type != LVAL_QEXPR) {
  9.     lval_del(a);
  10.     return lval_err("Function 'head' passed incorrect types!");
  11.   }
  13.   if (a->cell[0]->count == 0) {
  14.     lval_del(a);
  15.     return lval_err("Function 'head' passed {}!");
  16.   }
  18.   /* Otherwise take first argument */
  19.   lval* v = lval_take(a, 0);
  21.   /* Delete all elements that are not head and return */
  22.   while (v->count > 1) { lval_del(lval_pop(v, 1)); }
  23.   return v;
  24. }
  25. lval* builtin_tail(lval* a) {
  26.   /* Check Error Conditions */
  27.   if (a->count != 1) {
  28.     lval_del(a);
  29.     return lval_err("Function 'tail' passed too many arguments!");
  30.   }
  32.   if (a->cell[0]->type != LVAL_QEXPR) {
  33.     lval_del(a);
  34.     return lval_err("Function 'tail' passed incorrect types!");
  35.   }
  37.   if (a->cell[0]->count == 0) {
  38.     lval_del(a);
  39.     return lval_err("Function 'tail' passed {}!");
  40.   }
  42.   /* Take first argument */
  43.   lval* v = lval_take(a, 0);
  45.   /* Delete first element and return */
  46.   lval_del(lval_pop(v, 0));
  47.   return v;
  48. }