Lines Matching defs:strings
916 /* update pointers to a list of format strings:
931 * input formats in separate strings, then see if one of then need to
1504 LispObj *string, *strings = NIL, *cons;
1520 /* initialize list of strings streams */
1523 strings = cons = CONS(string, NIL);
1524 GC_PROTECT(strings);
1535 /* loop formating strings */
1536 for (i = 0, cons = strings; i < num_formats; i++, cons = CDR(cons)) {
1556 /* free temporary format strings */
1561 if (CAR(strings) == NIL) {
1562 while (CAR(strings) == NIL) {
1563 strings = CDR(strings);
1566 /* keep strings gc protected, discarding first entries */
1567 lisp__data.protect.objects[gc__protect] = strings;
1570 cons = strings;
1582 cons = CDR(strings); /* if has_defaults, strings is surely a list */
1584 cons = strings;
1590 cons = CDR(strings);
1592 cons = strings;
1632 str = LispGetSstring(SSTREAMP(CAR(strings)), &size);
1635 string = has_default ? CAR(CDR(strings)) : CAR(strings);
1668 * formatted strings.
1706 str = LispGetSstring(SSTREAMP(CAR(strings)), &size);