4.3.1 cons

xcons������������cons�����������o�����������D

LVAL xcons()
{
    LVAL arg1,arg2;

    /* get the two arguments */
    arg1 = xlgetarg();
    arg2 = xlgetarg();
    xllastarg();

    /* construct a new list element */
    return (cons(arg1,arg2));
}

cons���Cxldmem.c���������`�����������C

/* cons - construct a new cons node */
LVAL cons(x,y)
  LVAL x,y;
{
  LVAL nnode;
  
  /* get a free node */
  if ((nnode = fnodes) == NIL) {
    xlstkcheck(2);
    xlprotect(x);
    xlprotect(y);
    findmem();
    if ((nnode = fnodes) == NIL)
      xlabort("insufficient node space");
    xlpop();
    xlpop();
  }
  
  /* unlink the node from the free list */
  fnodes = cdr(nnode);
  --nfree;
  
  /* initialize the new node */
  nnode->n_type = CONS;
  rplaca(nnode,x);
  rplacd(nnode,y);
  
  /* return the new node */
  return (nnode);
}

���������������D xlprotect,xlpop���Cxlisp.h���C

#define xlprotect(n)        {*--xlstack = &n;}

#define xlpop()                {++xlstack;}

�����������������`�������������D