Lines Matching +defs:symbol +defs:name
22 * Except as contained in this notice, the name of the XFree86 Project shall
118 block name &rest body
122 LispObj *name, *body;
125 name = ARGUMENT(0);
127 if (name != NIL && name != T && !SYMBOLP(name))
128 LispDestroy("%s: %s cannot name a block",
129 STRFUN(builtin), STROBJ(name));
131 CompileIniBlock(com, LispBlockTag, name);
250 LispObj *symbol, *list, *result;
258 symbol = CAR(init);
259 CHECK_SYMBOL(symbol);
260 CHECK_CONSTANT(symbol);
311 ComPush(com, symbol, NIL, 0, 0, 0);
320 COM_VARIABLE_USED(symbol->data.atom);
397 char *name;
410 name = STRFUN(builtin);
411 switch (name[3]) {
416 code = name[5] == 'P' ? XBC_EQUALP : XBC_EQUAL;
541 LispObj *symbol, *value, *pair;
561 symbol = CAR(pair);
567 STRFUN(builtin), STROBJ(symbol));
573 symbol = pair;
576 CHECK_SYMBOL(symbol);
577 CHECK_CONSTANT(symbol);
580 ComPush(com, symbol, value, 1, 0, 0);
607 LispObj *symbol, *value, *pair;
627 symbol = CAR(pair);
633 STRFUN(builtin), STROBJ(symbol));
639 symbol = pair;
642 CHECK_SYMBOL(symbol);
643 CHECK_CONSTANT(symbol);
645 /* LET* is identical to &AUX arguments, just bind the symbol */
646 ComPush(com, symbol, value, 1, 0, 0);
820 return-from name &optional result
852 LispObj *form, *symbol, *value;
857 symbol = CAR(form);
858 CHECK_SYMBOL(symbol);
859 CHECK_CONSTANT(symbol);
866 offset = ComGetVariable(com, symbol);
870 com_SetSym(com, symbol->data.atom);
1056 LispObj *name, *result;
1061 name = ARGUMENT(0);
1065 name = NIL;
1075 else if (block->type == LispBlockTag && block->tag == name)
1082 if (!block || block->tag != name)
1083 LispDestroy("%s: no visible %s block", STRFUN(builtin), STROBJ(name));
1174 ComAddVariable(LispCom *com, LispObj *symbol, LispObj *value)
1176 LispAtom *atom = symbol->data.atom;
1199 LispAddVar(symbol, value);
1203 ComGetVariable(LispCom *com, LispObj *symbol)
1205 LispAtom *name;
1209 name = symbol->data.atom;
1210 if (name->constant) {
1211 if (name->package == lisp__data.keyword)
1212 /* Just load <symbol> from the byte stream, keywords are
1218 offset = name->offset;
1219 id = name->key;
1225 COM_VARIABLE_USED(name);
1230 /* name->offset may have been changed in a macro expansion */
1233 name->offset = i;
1234 COM_VARIABLE_USED(name);
1238 if (!name->a_object) {
1241 name->key->value);
1244 /* Not found, resolve <symbol> at run time */
1260 * has the same name as a bound variable in the current function.
1302 ComPush(LispCom *com, LispObj *symbol, LispObj *value,
1311 ComAddVariable(com, symbol, value);
1316 * variable <symbol> bounded to <value>, so that it will be available
1319 ComAddVariable(com, symbol, value);
1335 com_LoadLet(com, offset, symbol->data.atom);
1344 com_LoadConLet(com, value, symbol->data.atom);
1352 symbol->data.atom);
1362 com_Let(com, symbol->data.atom);
1366 /* Remember <symbol> will be bound, <value> only matters for
1371 ComAddVariable(com, symbol, value);
1382 com_LoadConLet(com, value, symbol->data.atom);
1383 /* Remember <symbol> will be bound */
1384 ComAddVariable(com, symbol, value);
1394 LispObj *name, LispObj *values,
1441 LispDestroy("%s: too few arguments", STROBJ(name));
1545 strcpy(function_name, STROBJ(name));
1553 STROBJ(name));
1648 string = builtin ? ATOMID(name)->value : NULL;
1707 /* Remember this symbol will be bound */
1748 LispDestroy("%s: too many arguments", STROBJ(name));
1880 alist = (LispArgList*)function->data.lambda.name->data.opaque.data;
1892 alist = (LispArgList*)function->data.lambda.name->data.opaque.data;
1944 /* Load value bound to symbol at run time */
2005 LispObj *name, LispObj *arguments)
2015 base = ComCall(com, alist, name, arguments, 1, 0, 0);
2045 LispObj *name, LispObj *arguments, LispObj *lambda)
2054 CompileIniBlock(com, LispBlockClosure, name);
2057 base = ComCall(com, alist, name, arguments, 1, 0, 0);
2194 LispObj *name, LispObj *lambda, LispObj *arguments)
2200 base = ComCall(com, alist, name, arguments, 0, 0, 0);