Lines Matching defs:place
242 /* Check if item is not already in place */
3857 pop place
3862 LispObj *place;
3864 place = ARGUMENT(0);
3866 if (SYMBOLP(place)) {
3867 result = LispGetVar(place);
3869 LispDestroy("EVAL: the variable %s is unbound", STROBJ(place));
3870 CHECK_CONSTANT(place);
3878 LispSetVar(place, value);
3884 result = EVAL(place);
3895 APPLY2(Osetf, place, "e);
4207 push item place
4212 LispObj *item, *place;
4214 place = ARGUMENT(1);
4219 if (SYMBOLP(place)) {
4220 list = LispGetVar(place);
4222 LispDestroy("EVAL: the variable %s is unbound", STROBJ(place));
4223 CHECK_CONSTANT(place);
4224 LispSetVar(place, result = CONS(item, list));
4230 list = EVAL(place);
4235 APPLY2(Osetf, place, "e);
4245 pushnew item place &key key test test-not
4251 LispObj *item, *place, *key, *test, *test_not;
4256 place = ARGUMENT(1);
4259 /* Evaluate place */
4260 if (SYMBOLP(place)) {
4261 list = LispGetVar(place);
4263 LispDestroy("EVAL: the variable %s is unbound", STROBJ(place));
4265 CHECK_CONSTANT(place);
4269 list = EVAL(place);
4295 if (SYMBOLP(place)) {
4296 CHECK_CONSTANT(place);
4297 LispSetVar(place, result);
4305 APPLY2(Osetf, place, "e);
5301 rplaca place value
5304 LispObj *place, *value;
5307 place = ARGUMENT(0);
5309 CHECK_CONS(place);
5310 RPLACA(place, value);
5312 return (place);
5318 rplacd place value
5321 LispObj *place, *value;
5324 place = ARGUMENT(0);
5326 CHECK_CONS(place);
5327 RPLACD(place, value);
5329 return (place);
5668 LispObj *setf, *place, *value, *result = NIL, *data;
5675 place = CAR(form);
5681 if (!POINTERP(place))
5683 if (XSYMBOLP(place)) {
5684 CHECK_CONSTANT(place);
5686 (void)LispSetVar(place, result);
5688 else if (XCONSP(place)) {
5696 setf = CAR(place);
5699 if (!CONSP(CDR(place)))
5714 place = CDR(place);
5715 data = CAR(place);
5716 if (CONSP(CDR(place)))
5727 result = LispRunSetfMacro(atom, CDR(place), value);
5733 place = CDR(place);
5738 if (!CONSP(CDR(place))) {
5739 arguments = EVAL(CAR(place));
5743 else if (!CONSP(CDDR(place))) {
5744 arguments = EVAL(CAR(place));
5746 cons = EVAL(CADR(place));
5751 arguments = cons = CONS(EVAL(CAR(place)), NIL);
5753 for (place = CDR(place); CONSP(place); place = CDR(place)) {
5754 RPLACD(cons, CONS(EVAL(CAR(place)), NIL));
5762 result = LispRunSetf(atom->property->salist, setf, place, value);
5771 LispDestroy("%s: %s is an invalid place", STRFUN(builtin), STROBJ(place));
5785 LispObj *setf, *place = NIL, *value, *data;
5805 place = CAR(form);
5808 if (XSYMBOLP(place)) {
5809 CHECK_CONSTANT(place);
5810 (void)LispSetVar(place, value);
5812 else if (XCONSP(place)) {
5816 setf = CAR(place);
5819 if (!CONSP(CDR(place)))
5826 place = CDR(place);
5827 data = CAR(place);
5828 if (CONSP(CDR(place)))
5838 (void)LispRunSetfMacro(atom, CDR(place), value);
5845 place = CDR(place);
5848 if (!CONSP(CDR(place))) {
5849 arguments = EVAL(CAR(place));
5853 else if (!CONSP(CDDR(place))) {
5854 arguments = EVAL(CAR(place));
5856 cons = EVAL(CADR(place));
5861 arguments = cons = CONS(EVAL(CAR(place)), NIL);
5863 for (place = CDR(place); CONSP(place); place = CDR(place)) {
5864 RPLACD(cons, CONS(EVAL(CAR(place)), NIL));
5873 (void)LispRunSetf(atom->property->salist, setf, place, value);
5882 LispDestroy("%s: %s is an invalid place", STRFUN(builtin), STROBJ(place));