Lines Matching defs:form
734 LispObj *result, *code, *keyform, *body, *form;
746 form = CAR(code);
747 if (form == T || form == Ootherwise) {
754 else if (CONSP(form)) {
755 for (; CONSP(form); form = CDR(form))
756 if (XEQL(keyform, CAR(form)) == T) {
760 if (CONSP(form)) /* if found match */
763 else if (XEQL(keyform, form) == T) {
1015 constantp form &optional environment
1018 LispObj *form;
1020 form = ARGUMENT(0);
1023 if (!POINTERP(form) ||
1024 NUMBERP(form) ||
1025 XQUOTEP(form) ||
1026 (XCONSP(form) && CAR(form) == Oquote) ||
1027 (XSYMBOLP(form) && form->data.atom->constant) ||
1028 XSTRINGP(form) ||
1029 XARRAYP(form))
1490 eval form
1494 LispObj *form, *result;
1496 form = ARGUMENT(0);
1498 /* make sure eval form will not access local variables */
1501 result = EVAL(form);
3330 multiple-value-call function &rest form
3337 LispObj *function, *form;
3339 form = ARGUMENT(1);
3344 for (; CONSP(form); form = CDR(form)) {
3346 result = EVAL(CAR(form));
3377 multiple-value-prog1 first-form &rest form
3384 LispObj *first_form, *form;
3386 form = ARGUMENT(1);
3390 if (!CONSP(form))
3409 for (; CONSP(form); form = CDR(form))
3410 EVAL(CAR(form));
3426 multiple-value-list form
3431 LispObj *form, *result, *cons;
3433 form = ARGUMENT(0);
3435 result = EVAL(form);
3454 multiple-value-setq symbols form
3460 LispObj *symbols, *form;
3462 form = ARGUMENT(1);
3466 result = EVAL(form);
3642 nth-value index form
3646 LispObj *oindex, *form, *result;
3648 form = ARGUMENT(1);
3655 result = EVAL(form);
5605 setq &rest form
5608 LispObj *result, *variable, *form;
5610 form = ARGUMENT(0);
5613 for (; CONSP(form); form = CDR(form)) {
5614 variable = CAR(form);
5617 form = CDR(form);
5618 if (!CONSP(form))
5620 result = EVAL(CAR(form));
5630 psetq &rest form
5635 LispObj *value, *symbol, *list, *form;
5637 form = ARGUMENT(0);
5640 for (list = form; CONSP(list); list = CDR(list)) {
5651 for (; CONSP(form); form = CDDR(form)) {
5652 symbol = CAR(form);
5664 setf &rest form
5670 LispObj *form;
5672 form = ARGUMENT(0);
5674 for (; CONSP(form); form = CDR(form)) {
5675 place = CAR(form);
5676 form = CDR(form);
5677 if (!CONSP(form))
5679 value = CAR(form);
5779 psetf &rest form
5787 LispObj *form;
5789 form = ARGUMENT(0);
5793 for (setf = form; CONSP(setf); setf = CDR(setf)) {
5804 for (; CONSP(form); form = CDDR(form)) {
5805 place = CAR(form);
6382 LispObj *form = CAR(body);
6384 if (CONSP(form))
6385 EVAL(form);
6401 the value-type form
6404 LispObj *value_type, *form;
6406 form = ARGUMENT(1);
6409 form = EVAL(form);
6411 return (LispCoerce(builtin, form, value_type));