Join

join函数是我们需要定义的最后一个函数。

它需要多个参数，其结构看起来更像先前定义的builtin_op。首先确保所有的参数都是Q-表达式，然后将它们拼接起来。所以我们需要定义lval_join函数，它将y中元素依次弹出并添加进x中，然后将y删除，返回x。

lval* builtin_join(lval* a) {
  for (int i = 0; i < a->count; i++) {
    LASSERT(a, a->cell[i]->type == LVAL_QEXPR,
      "Function 'join' passed incorrect type.");
  }
  lval* x = lval_pop(a, 0);
  while (a->count) {
    x = lval_join(x, lval_pop(a, 0));
  }
  lval_del(a);
  return x;
}
lval* lval_join(lval* x, lval* y) {
  /* For each cell in 'y' add it to 'x' */
  while (y->count) {
    x = lval_add(x, lval_pop(y, 0));
  }
  /* Delete the empty 'y' and return 'x' */
  lval_del(y);
  return x;
}