prog1

渡した式を順番に評価して、最初の式の結果を返す。

code: eval.c

DEFUN ("prog1", Fprog1, Sprog1, 1, UNEVALLED, 0,

doc: /* Eval FIRST and BODY sequentially; return value from FIRST.

The value of FIRST is saved during the evaluation of the remaining args,

whose values are discarded.

usage: (prog1 FIRST BODY...) */)

(Lisp_Object args)

{

Lisp_Object val = eval_sub (XCAR (args));

prog_ignore (XCDR (args));

return val;

}