| /xsrc/external/mit/xedit/dist/lisp/ |
| debugger.c | 186 if (ATOMID(CAR(CAR(obj))) == ATOMID(name) &&
187 FIXNUM_VALUE(CAR(CDR(CDR(CAR(obj))))) ==
197 LispWriteObject(NIL, CAR(CDR(CAR(obj))));
199 LispWriteObject(NIL, CAR(CAR(DBG)));
201 LispWriteObject(NIL, CAR(CDR(CAR(DBG))))
[all...] |
| struct.c | 84 if (CONSP(description) && STRINGP(CAR(description))) {
85 documentation = CAR(description);
93 object = CAR(list);
102 object = CAR(object);
110 CAR(cons) = KEYWORD(ATOMID(object)->value);
114 LispObj *left = CAR(object), *right = CAR(list);
117 left = CAR(left);
119 right = CAR(right);
148 if (CONSP(CAR(list))
[all...] |
| require.c | 51 filename = CAR(filename->data.pathname);
80 pathname = CAR(pathname->data.pathname);
89 if (strcmp(THESTR(CAR(obj)), THESTR(module)) == 0)
146 RPLACD(MOD, CONS(CAR(MOD), CDR(MOD)));
|
| core.c | 244 compare = CAR(object);
302 for (; CONSP(CDR(lists)) && CAR(lists) == NIL; lists = CDR(lists))
307 return (CAR(lists));
310 list = CAR(lists);
312 result = cons = CONS(CAR(list), NIL);
315 RPLACD(cons, CONS(CAR(list), NIL));
322 list = CAR(lists);
328 RPLACD(cons, CONS(CAR(list), NIL));
334 RPLACD(cons, CAR(lists));
359 CHECK_INDEX(CAR(subscripts))
991 LispObj *car, *cdr; local
1840 LispObj *car, *cdr; local
[all...] |
| pathname.c | 203 pathname = CAR(pathname->data.pathname);
205 pathname = CAR(pathname->data.stream.pathname->data.pathname);
527 cdr = defaults == NIL ? NIL : CAR(defaults);
534 cdr = defaults == NIL ? NIL : CAR(defaults);
578 dlength += STRLEN(CAR(dir)) + 1;
586 for (dir = CDAR(defaults), cdr = CAR(cons);
589 RPLACD(cdr, CONS(CAR(dir), CDR(cdr)));
595 tstring = THESTR(CAR(dir));
596 tlength = STRLEN(CAR(dir));
609 cdr = defaults == NIL ? NIL : CAR(defaults)
[all...] |
| package.c | 69 package = CAR(list);
74 if (strcmp(THESTR(CAR(nick)), string) == 0)
214 variable = CAR(init);
225 package = EVAL(CAR(init));
245 package = CAR(list);
260 EVAL(CAR(code));
270 EVAL(CAR(code));
446 package = CAR(list);
460 RPLACD(result, CONS(CAR(result), CDR(result)));
514 LispDoExport(builtin, package, CAR(list), 1)
[all...] |
| helper.c | 123 if (LispObjectCompare(CAR(llist), CAR(rlist),
138 if (LispObjectCompare(CAR(lfield), CAR(rfield),
237 if (LispObjectCompare(CAR(left), CAR(right), function) == T &&
597 symbol = CAR(list);
601 symbol = CAR(symbol);
604 value = EVAL(CAR(value));
632 if (EVAL(CAR(test)) != NIL
[all...] |
| math.c | 115 number = CAR(numbers);
128 mul_number_object(&num, CAR(numbers));
147 number = CAR(numbers);
160 add_number_object(&num, CAR(numbers));
186 sub_number_object(&num, CAR(more_numbers));
215 number = CAR(more_numbers);
276 number = CAR(more_numbers);
303 number = CAR(more_numbers);
330 number = CAR(more_numbers);
357 number = CAR(more_numbers)
[all...] |
| compile.c | 86 ComEval(com, CAR(args));
97 ComEval(com, CAR(args));
153 desc = "CAR";
183 code = CAR(body);
186 ComEval(com, CAR(code));
212 cons car cdr
215 LispObj *car, *cdr; local
218 car = ARGUMENT(0);
220 if (ComConstantp(com, car) && ComConstantp(com, cdr))
221 com_BytecodeCons(com, XBC_CCONS, car, cdr)
1636 LispObj *list, *car = NIL; local
[all...] |
| format.c | 110 LispObj **object; /* CAR(arguments), for plural check */
332 object = CAR((*objects));
808 object = CAR(arguments);
835 object = CAR(arguments);
845 object = CAR(arguments);
887 object = CAR(*(indirect_info.arguments));
1162 object = CAR(arguments);
1172 if (CAR(arguments) != NIL)
1175 object = CAR(arguments);
1189 object = CAR(arguments)
[all...] |
| bytecode.c | 183 LispObj *car; member in struct:_CodeTree::__anon45::__anon54
495 ComProgn(&com, CAR(form));
593 if (CAR(function) == Olambda) {
855 case XBC_CAR: strcpy(ptr, "CAR"); break;
868 strcpy(ptr, "CAR&PUSH");
930 strcpy(ptr, "LOAD&CAR");
936 strcpy(ptr, "LOAD&CAR&STORE");
1021 strcpy(ptr, "LOAD&CAR&SET");
1027 strcpy(ptr, "CAR&SET");
1122 strcpy(ptr, CAR(fields)->data.atom->key->value)
[all...] |
| lisp.c | 212 {LispFunction, Lisp_Car, "car list", 0, 0, Com_C_r},
246 {LispFunction, Lisp_Cons, "cons car cdr", 0, 0, Com_Cons},
343 {LispFunction, Lisp_Gc, "gc &optional car cdr"},
843 LispGC(LispObj *car, LispObj *cdr)
845 Lisp__GC(car, cdr);
849 Lisp__GC(LispObj *car, LispObj *cdr)
894 LispObj *package = CAR(entry);
969 LispMark(car);
1639 if (key == CAR(list)) {
1841 arguments = CAR(cons)
4809 LispObj arguments, car, cdr; local
[all...] |
| read.c | 640 if (READLABELP(CAR(object)))
641 CAR(object) = LispReadLabelCircle(CAR(object), info);
645 LispReadFixCircle(CAR(object), info);
1625 if (CAR(function) != Olambda)
1871 if (INVALIDP(fields) || !CONSP(fields) || !SYMBOLP(CAR(fields)))
1876 len = ATOMID(CAR(fields))->length;
1882 sprintf(str, "MAKE-%s", ATOMID(CAR(fields))->value);
1927 array = CAR(array);
2007 LispObj *function = CAR(feature), *arguments = CDR(feature)
[all...] |
| stream.c | 123 return (LispUnlink(THESTR(CAR(filename->data.pathname))) ? NIL : T);
166 from = THESTR(CAR(filename->data.pathname));
167 to = THESTR(CAR(new_name->data.pathname));
367 string = THESTR(CAR(filename->data.pathname));
384 STRFUN(builtin), STROBJ(CAR(filename->data.quote)));
393 STROBJ(CAR(filename->data.quote)));
401 STRFUN(builtin), STROBJ(CAR(filename->data.quote)));
410 STROBJ(CAR(filename->data.quote)));
666 command_line = CAR(command_line->data.quote);
|
| string.c | 94 CHECK_SCHAR(CAR(object));
101 character = CAR(object);
108 value = SCHAR_VALUE(CAR(more_characters));
119 character = CAR(more_characters);
835 ochar = CAR(list);
846 ochar = CAR(list);
1370 string = CAR(object);
1378 string = CAR(object);
|
| write.c | 420 LispBuildCircle(CAR(list), info);
430 LispBuildCircle(CAR(list), info);
480 if (CONSP(CAR(object)))
481 LispDoBuildCircle(CAR(object), info);
483 LispBuildCircle(CAR(object), info);
793 LispObj *car, *cdr; local
808 car = CAR(object);
816 length += LispDoWriteObject(stream, car, info, 1);
829 length += LispDoWriteObject(stream, car, info, 1)
[all...] |
| xedit.c | 288 string = THESTR(CAR(list)->data.package.name);
290 LispUsePackage(CAR(list));
326 interactive_arguments[3].data.cons.car = T;
344 list = CAR(modes);
349 desc = CAR(list);
439 XeditPrint(output, CAR(returns), 0);
516 arguments.data.cons.car = syntax;
662 interactive_arguments[0].data.cons.car = syntax;
663 interactive_arguments[1].data.cons.car = FIXNUM(left);
664 interactive_arguments[2].data.cons.car = FIXNUM(right)
[all...] |
| hash.c | 160 key = (LispHashKey(CAR(object), function) << 16) ^
584 CHECK_CONS(CAR(cons));
|
| io.c | 145 if (!CONSP(lisp__data.input_list) || stream != CAR(lisp__data.input_list))
149 CAR(lisp__data.input_list) : lisp__data.input_list;
|
| internal.h | 53 #define RPLACA(cons, object) (CAR(cons) = object)
56 #define CAR(list) ((list)->data.cons.car)
57 #define CAAR(list) ((list)->data.cons.car->data.cons.car)
58 #define CADR(list) ((list)->data.cons.cdr->data.cons.car)
60 #define CDAR(list) ((list)->data.cons.car->data.cons.cdr)
62 #define CONS(car, cdr) LispNewCons(car, cdr)
592 LispObj *car; member in struct:_LispObj::__anon69::__anon74
[all...] |
| /xsrc/external/mit/xedit/dist/lisp/modules/ |
| xt.c | 291 CONS(CAR(CDR(args->data)), CONS(OPAQUE(call_data, 0), NIL))));
306 UPROTECT(CAR(args->data), args->data);
318 code = CONS(CDR(CDR(args->data)), CONS(CAR(CDR(args->data)),
319 CONS(INTEGER(*source), CONS(CAR(args->data), NIL))));
500 if (id == (XtInputId)(CAR(args->data)->data.opaque.data)) {
501 UPROTECT(CAR(args->data), args->data);
550 CHECK_STRING(CAR(string));
556 fallback[count] = THESTR(CAR(string));
884 CHECK_STRING(CAR(list));
885 if ((resource = GetResourceInfo(THESTR(CAR(list)), rlist, plist)
[all...] |
| xaw.c | 276 UPROTECT(CAR(data->object), data->object);
542 CHECK_STRING(CAR(object));
555 list[i] = THESTR(CAR(object));
560 if ((Widget)CAR(list_data[i]->object)->data.opaque.data == widget) {
|
