Lines Matching defs:setf
5664 setf &rest form
5668 LispObj *setf, *place, *value, *result = NIL, *data;
5693 * before finishing setf. */
5696 setf = CAR(place);
5697 if (!SYMBOLP(setf))
5705 atom = setf->data.atom;
5709 /* Use a default setf method for the structure field, as
5720 result = APPLY3(Ostruct_store, setf, data, value);
5734 setf = setf->data.atom->property->setf;
5735 if (SYMBOLP(setf)) {
5741 result = APPLY2(setf, arguments, value);
5748 result = APPLY3(setf, arguments, cons, value);
5758 result = APPLY(setf, arguments);
5762 result = LispRunSetf(atom->property->salist, setf, place, value);
5785 LispObj *setf, *place = NIL, *value, *data;
5791 /* parallel setf, first pass evaluate values and basic error checking */
5793 for (setf = form; CONSP(setf); setf = CDR(setf)) {
5794 if (!POINTERP(CAR(setf)))
5796 setf = CDR(setf);
5797 if (!CONSP(setf))
5799 value = EVAL(CAR(setf));
5816 setf = CAR(place);
5817 if (!SYMBOLP(setf))
5822 atom = setf->data.atom;
5832 (void)APPLY3(Ostruct_store, setf, data, value);
5846 setf = setf->data.atom->property->setf;
5847 if (SYMBOLP(setf)) {
5851 (void)APPLY2(setf, arguments, value);
5858 (void)APPLY3(setf, arguments, cons, value);
5868 (void)APPLY(setf, arguments);
5873 (void)LispRunSetf(atom->property->salist, setf, place, value);