| /xsrc/external/mit/xedit/dist/lisp/modules/ |
| lisp.lsp | 91 `(let ((,(car file) (open ,@(cdr file))))
106 (defsetf cdr (list) (value) `(progn (rplacd ,list ,value) ,value)) function
109 (defsetf cadr (list) (value) `(progn (rplaca (cdr ,list) ,value) ,value))
111 (defsetf cddr (list) (value) `(progn (rplacd (cdr ,list) ,value) ,value))
|
| psql.c | 543 LispObj *poly, *box, *p = NIL, *cdr, *obj; local
552 cdr = EVAL(CONS(ATOM("MAKE-PG-POINT"),
564 CONS(cdr,
575 p = cdr = CONS(obj, NIL);
577 RPLACD(cdr, CONS(obj, NIL));
578 cdr = CDR(cdr);
|
| /xsrc/external/mit/xedit/dist/lisp/ |
| pathname.c | 430 cons = CDR(cons);
485 LispObj *cons, *cdr; local
526 defaults = CDR(defaults);
527 cdr = defaults == NIL ? NIL : CAR(defaults);
528 RPLACD(cons, CONS(cdr, NIL));
529 cons = CDR(cons);
533 defaults = CDR(defaults);
534 cdr = defaults == NIL ? NIL : CAR(defaults);
535 RPLACD(cons, CONS(cdr, NIL));
536 cons = CDR(cons)
709 LispObj *result, *cdr, *cons; local
[all...] |
| compile.c | 87 args = CDR(args);
96 for (; CONSP(args); args = CDR(args)) {
155 desc = "CDR";
182 for (; CONSP(body); body = CDR(body)) {
193 ComProgn(com, CDR(code));
212 cons car cdr
215 LispObj *car, *cdr; local
217 cdr = ARGUMENT(1);
220 if (ComConstantp(com, car) && ComConstantp(com, cdr))
221 com_BytecodeCons(com, XBC_CCONS, car, cdr);
[all...] |
| write.c | 419 CONSP(list); list = CDR(list))
429 CONSP(list); list = CDR(list))
484 if (CONSP(CDR(object)))
485 LispDoBuildCircle(CDR(object), info);
487 LispBuildCircle(CDR(object), info);
793 LispObj *car, *cdr; local
809 cdr = CDR(object);
811 if (cdr == NIL) {
831 if (!CONSP(cdr)) {
[all...] |
| bytecode.c | 184 LispObj *cdr; member in struct:_CodeTree::__anon6587::__anon6596
347 CDR(cons) = NIL;
350 CDR(cons1) = cons;
353 CDR(cons2) = cons1;
356 CDR(cons3) = cons2;
359 CDR(cons4) = cons3;
362 CDR(cons5) = cons4;
365 CDR(cons6) = cons5;
368 CDR(cons7) = cons6;
436 form = CDR(form)
[all...] |
| internal.h | 54 #define RPLACD(cons, object) (CDR(cons) = object)
58 #define CADR(list) ((list)->data.cons.cdr->data.cons.car)
59 #define CDR(list) ((list)->data.cons.cdr)
60 #define CDAR(list) ((list)->data.cons.car->data.cons.cdr)
61 #define CDDR(list) ((list)->data.cons.cdr->data.cons.cdr)
62 #define CONS(car, cdr) LispNewCons(car, cdr)
593 LispObj *cdr; member in struct:_LispObj::__anon6613::__anon6618
[all...] |
| lisp.c | 216 {LispFunction, Lisp_Cdr, "cdr 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"},
807 lisp__data.input_list = CDR(lisp__data.input_list);
843 LispGC(LispObj *car, LispObj *cdr)
845 Lisp__GC(car, cdr);
849 Lisp__GC(LispObj *car, LispObj *cdr)
893 for (entry = PACK; CONSP(entry); entry = CDR(entry)) {
970 LispMark(cdr);
1053 CDR(entry) = freeobj
3834 LispObj *result, *object, *cons, *cdr; local
4795 LispObj arguments, cdr; local
4809 LispObj arguments, car, cdr; local
[all...] |
| core.c | 243 for (object = list; CONSP(object); object = CDR(object)) {
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)) {
316 cons = CDR(cons);
318 lists = CDR(lists);
321 for (; CONSP(CDR(lists)); lists = CDR(lists))
991 LispObj *car, *cdr; local
1840 LispObj *car, *cdr; local
2343 *item, *clist1, *clist2, *cons, *cdr; local
[all...] |
