HomeSort by: relevance | last modified time | path
    Searched refs:CONSP (Results 1 - 20 of 20) sorted by relevancy

  /xsrc/external/mit/xedit/dist/lisp/
struct.c 84 if (CONSP(description) && STRINGP(CAR(description))) {
92 for (list = description; CONSP(list); list = CDR(list)) {
96 if (CONSP(object)) {
97 if ((CONSP(CDR(object)) && CDR(CDR(object)) != NIL) ||
98 (!CONSP(CDR(object)) && CDR(object) != NIL))
116 if (CONSP(left))
118 if (CONSP(right))
145 for (i = 0, list = description; CONSP(list); i++, list = CDR(list)) {
148 if (CONSP(CAR(list)))
203 for (list = init, nfld = 0; CONSP(list); list = CDR(list))
    [all...]
math.c 114 if (CONSP(numbers)) {
118 if (!CONSP(numbers)) {
130 } while (CONSP(numbers));
146 if (CONSP(numbers)) {
150 if (!CONSP(numbers)) {
162 } while (CONSP(numbers));
180 if (!CONSP(more_numbers)) {
188 } while (CONSP(more_numbers));
205 if (CONSP(more_numbers))
220 if (!CONSP(more_numbers)
    [all...]
package.c 68 for (list = PACK; CONSP(list); list = CDR(list)) {
73 CONSP(nick); nick = CDR(nick))
221 if (!CONSP(init))
235 if (CONSP(init))
243 for (list = PACK; CONSP(list); list = CDR(list)) {
259 for (code = body; CONSP(code); code = CDR(code))
269 for (code = result_form; CONSP(code); code = CDR(code))
445 for (list = PACK; CONSP(list); list = CDR(list)) {
512 if (CONSP(symbols)) {
513 for (list = symbols; CONSP(list); list = CDR(list)
    [all...]
compile.c 84 if (CONSP(args)) {
90 if (CONSP(args)) {
96 for (; CONSP(args); args = CDR(args)) {
130 if (CONSP(body)) {
181 if (CONSP(body)) {
182 for (; CONSP(body); body = CDR(body)) {
237 consp object
262 if (CONSP(init)) {
268 if (CONSP(init)) {
270 if (CONSP(CDR(init))
    [all...]
core.c 243 for (object = list; CONSP(object); object = CDR(object)) {
298 if (!CONSP(lists))
302 for (; CONSP(CDR(lists)) && CAR(lists) == NIL; lists = CDR(lists))
306 if (!CONSP(CDR(lists)))
314 for (list = CDR(list); CONSP(list); list = CDR(list)) {
321 for (; CONSP(CDR(lists)); lists = CDR(lists)) {
327 for (; CONSP(list); list = CDR(list)) {
356 if (STRINGP(array) && CONSP(subscripts) && CDR(subscripts) == NIL) {
371 for (count = 0, dim = subscripts, obj = array->data.array.dim; CONSP(dim);
385 for (count = seq = 0, dim = subscripts; CONSP(dim); dim = CDR(dim), seq++)
    [all...]
helper.c 122 for (; CONSP(llist); llist = CDR(llist), rlist = CDR(rlist))
126 if (!CONSP(llist))
136 for (; CONSP(lfield);
142 if (!CONSP(lfield))
325 CONSP(sequence);
414 if (CONSP(object))
584 if (!CONSP(test))
596 for (list = init; CONSP(list); list = CDR(list)) {
636 for (list = body; CONSP(list); list = CDR(list))
640 for (list = init, cons = values; CONSP(list); list = CDR(list))
    [all...]
format.c 328 if (!CONSP(*objects)) {
886 if (CONSP(*(indirect_info.arguments)))
891 if (!LISTP(object) || !CONSP(*(info->arguments)))
902 for (num_arguments = 0; CONSP(object); object = CDR(object))
1160 if (!CONSP(arguments))
1170 if (!CONSP(arguments))
1187 if (!CONSP(arguments))
1264 if (!CONSP(arguments))
1272 if (CONSP(object)) {
1274 for (iobject = object; CONSP(iobject); iobject = CDR(iobject)
    [all...]
string.c 89 if (!CONSP(more_characters))
93 for (object = more_characters; CONSP(object); object = CDR(object))
100 for (object = more_characters; CONSP(object); object = CDR(object)) {
112 } while (CONSP(more_characters));
118 for (; CONSP(more_characters); more_characters = CDR(more_characters)) {
834 for (list = ochars; CONSP(list); list = CDR(list)) {
839 if (!CONSP(list))
845 for (list = ochars; CONSP(list); list = CDR(list)) {
850 if (!CONSP(list))
1369 for (length = 1, object = strings; CONSP(object); object = CDR(object))
    [all...]
lisp.c 247 {LispFunction, Lisp_Consp, "consp object", 0, 0, Com_Consp},
803 if (CONSP(lisp__data.input_list)) {
806 while (CONSP(lisp__data.input_list))
893 for (entry = PACK; CONSP(entry); entry = CDR(entry)) {
1637 CONSP(list);
1645 if (!CONSP(list))
1650 if (CONSP(list) && function == REM_PROPERTY) {
1651 if (!CONSP(CDR(list)))
1661 if (!CONSP(list)) {
1870 if (!CONSP(list))
    [all...]
require.c 88 for (obj = MOD; CONSP(obj); obj = CDR(obj)) {
read.c 273 else if (CONSP(lisp__data.input_list)) {
638 CONSP(object);
1624 else if (CONSP(function)) {
1818 if (INVALIDP(arguments) || !CONSP(arguments))
1871 if (INVALIDP(fields) || !CONSP(fields) || !SYMBOLP(CAR(fields)))
1924 if (!CONSP(array))
1929 for (length = 0; CONSP(item); item = CDR(item), length++)
1966 if (!CONSP(FEATURES) && FEATURES != NIL)
2006 if (CONSP(feature)) {
2011 if (!CONSP(arguments)
    [all...]
write.c 419 CONSP(list); list = CDR(list))
429 CONSP(list); list = CDR(list))
479 if (CONSP(object)) {
480 if (CONSP(CAR(object)))
484 if (CONSP(CDR(object)))
831 if (!CONSP(cdr)) {
bytecode.c 1176 case XBP_CONSP: strcpy(ptr, "CONSP"); break;
1198 if (!CONSP(form))
1213 for (; CONSP(form); form = CDR(form)) {
1297 if (!CONSP(code))
1299 else if (CONSP(plist)) {
1866 if (!CONSP(tree->data.object))
1877 if (!CONSP(tree->data.object))
3051 if (!CONSP(reg0))
3060 if (!CONSP(reg0))
3068 if (!CONSP(reg1)
    [all...]
pathname.c 577 for (dlength = 1; CONSP(dir); dir = CDR(dir))
587 CONSP(dir);
594 for (dlength = 1; CONSP(dir); dir = CDR(dir)) {
798 if (CONSP(directory)) {
802 for (cdr = CDR(directory); CONSP(cdr); cdr = CDR(cdr)) {
hash.c 582 CONSP(cons);
615 for (cons = initial_contents; CONSP(cons); cons = CDR(cons)) {
io.c 145 if (!CONSP(lisp__data.input_list) || stream != CAR(lisp__data.input_list))
148 SINPUT = CONSP(lisp__data.input_list) ?
xedit.c 287 for (list = PACK; CONSP(list); list = CDR(list)) {
343 for (; CONSP(modes); modes = CDR(modes)) {
347 for (i = 0; i < 3 && CONSP(list); i++, list = CDR(list)) {
438 for (; CONSP(returns); returns = CDR(returns))
internal.h 169 #define CONSP(object) (POINTERP(object) && XCONSP(object))
171 if (!CONSP(object)) \
174 #define LISTP(object) (object == NIL || CONSP(object))
  /xsrc/external/mit/xedit/dist/lisp/modules/
xaw.c 540 for (nitems = 0, object = olist; CONSP(object);
554 for (i = 0, object = olist; CONSP(object); i++, object = CDR(object))
xt.c 548 for (string = fallback_resources, count = 0; CONSP(string);
554 for (string = fallback_resources, count = 0; CONSP(string);
883 for (list = arguments; CONSP(list); list = CDR(list)) {
1477 for (; CONSP(list); list = CDR(list)) {
1478 if (!CONSP(CAR(list))) {

Completed in 18 milliseconds