Lines Matching defs:alist
523 LispWriteAlist(LispObj *stream, LispArgList *alist, write_info *info)
545 for (i = 0; i < alist->normals.num_symbols; i++) {
546 WRITE_ATOM(alist->normals.symbols[i]);
547 if (i + 1 < alist->normals.num_symbols)
552 if (alist->optionals.num_symbols) {
557 for (i = 0; i < alist->optionals.num_symbols; i++) {
559 WRITE_ATOM(alist->optionals.symbols[i]);
561 WRITE_OBJECT(alist->optionals.defaults[i]);
562 if (alist->optionals.sforms[i]) {
564 WRITE_ATOM(alist->optionals.sforms[i]);
567 if (i + 1 < alist->optionals.num_symbols)
572 if (alist->keys.num_symbols) {
577 for (i = 0; i < alist->keys.num_symbols; i++) {
579 if (alist->keys.keys[i]) {
581 WRITE_ATOM(alist->keys.keys[i]);
584 WRITE_ATOM(alist->keys.symbols[i]);
585 if (alist->keys.keys[i])
588 WRITE_OBJECT(alist->keys.defaults[i]);
589 if (alist->keys.sforms[i]) {
591 WRITE_ATOM(alist->keys.sforms[i]);
594 if (i + 1 < alist->keys.num_symbols)
599 if (alist->rest) {
604 WRITE_ATOM(alist->rest);
607 if (alist->auxs.num_symbols) {
612 for (i = 0; i < alist->auxs.num_symbols; i++) {
614 WRITE_ATOM(alist->auxs.symbols[i]);
616 WRITE_OBJECT(alist->auxs.initials[i]);
618 if (i + 1 < alist->auxs.num_symbols)
1018 ->data.atom->property->alist, info);