Cross Reference: /xsrc/external/mit/xedit/dist/lisp/pathname.c

Lines Matching refs:cons
179     LispObj *pathname, *all, *if_cannot_read, *result, *cons, *object;
186     cons = NIL;
425 	    result = cons = CONS(object, NIL);
429 	    RPLACD(cons, CONS(object, NIL));
430 	    cons = CDR(cons);
485 	LispObj *cons, *cdr;
521 	result = cons = CONS(NIL, NIL);
528 	RPLACD(cons, CONS(cdr, NIL));
529 	cons = CDR(cons);
535 	RPLACD(cons, CONS(cdr, NIL));
536 	cons = CDR(cons);
542 	    cdr = CONS(Kabsolute, NIL);
544 	    cdr = CONS(Krelative, NIL);
545 	RPLACD(cons, CONS(cdr, NIL));
546 	cons = CDR(cons);
561 	    RPLACD(cdr, CONS(LSTRING(ptr, str - ptr - 1), NIL));
570 	if (CAAR(cons) == Krelative &&
585 		CAAR(cons) = Kabsolute;
586 		for (dir = CDAR(defaults), cdr = CAR(cons);
589 		    RPLACD(cdr, CONS(CAR(dir), CDR(cdr)));
626 	RPLACD(cons, CONS(cdr, NIL));
627 	cons = CDR(cons);
644 	RPLACD(cons, CONS(cdr, NIL));
645 	cons = CDR(cons);
651 	RPLACD(cons, CONS(cdr, NIL));
709     LispObj *result, *cdr, *cons;
843     result = cons = CONS(LSTRING(pathname, length), NIL);
847     RPLACD(cons, CONS(host == UNSPEC ? NIL : host, NIL));
848     cons = CDR(cons);
851     RPLACD(cons, CONS(device == UNSPEC ? NIL : device, NIL));
852     cons = CDR(cons);
856 	cdr = CONS(Krelative, NIL);
859     RPLACD(cons, CONS(cdr, NIL));
860     cons = CDR(cons);
863     RPLACD(cons, CONS(name == UNSPEC ? NIL : name, NIL));
864     cons = CDR(cons);
867     RPLACD(cons, CONS(type == UNSPEC ? NIL : type, NIL));
868     cons = CDR(cons);
871     RPLACD(cons, CONS(version == UNSPEC ? NIL : version, NIL));
OpenGrok
