Lines Matching +defs:list +defs:length
66 LispObj *list, *package, *nick;
68 for (list = PACK; CONSP(list); list = CDR(list)) {
69 package = CAR(list);
179 string->value, string->length);
202 int head = lisp__data.env.length;
205 LispObj *variable, *package = NULL, *list, *code, *result_form;
243 for (list = PACK; CONSP(list); list = CDR(list)) {
245 package = CAR(list);
249 /* Traverse the symbol list, executing body */
272 lisp__data.env.head = lisp__data.env.length = head;
423 LispObj *list, *package, *result;
424 int length = 0;
432 length = STRLEN(string_or_symbol);
436 length = ATOMID(string_or_symbol)->length;
445 for (list = PACK; CONSP(list); list = CDR(list)) {
446 package = CAR(list);
449 atom = (LispAtom *)hash_check(pack->atoms, string, length);
459 * beginning of the result list */
498 LispObj *list;
513 for (list = symbols; CONSP(list); list = CDR(list))
514 LispDoExport(builtin, package, CAR(list), 1);
530 LispObj *list, *savepackage = NULL;
556 for (list = symbols; CONSP(list); list = CDR(list))
557 LispDoImport(builtin, CAR(list));
604 list-all-packages
607 /* Maybe this should be read-only or a copy of the package list.
621 LispObj *list, *package, *nicks, *cons, *savepackage;
644 for (list = nicknames; CONSP(list); list = CDR(list)) {
645 package = LispFindPackage(CAR(list));
649 STRFUN(builtin), STROBJ(CAR(list)),
652 package = CAR(list);
665 /* Check use list */
666 for (list = use; CONSP(list); list = CDR(list))
667 (void)LispFindPackageOrDie(builtin, CAR(list));
672 /* Update list of packages */
678 /* Import symbols from use list */
686 for (list = use; CONSP(list); list = CDR(list))
687 LispUsePackage(LispFindPackage(CAR(list)));
745 package-use-list package
761 if (pack->use.length) {
763 int i = pack->use.length - 1;
780 package-used-by-list package
786 LispObj *package, *other, *used, *cons, *list;
794 for (list = PACK; CONSP(list); list = CDR(list)) {
795 other = CAR(list);
802 for (i = 0; i < pack->use.length; i++) {
827 LispObj *list;
842 for (list = symbols; CONSP(list); list = CDR(list))
843 LispDoExport(builtin, package, CAR(list), 0);