Lines Matching defs:circle
67 /* used while building circle info */
256 write object &key case circle escape length level lines pretty readably right-margin stream
261 LispObj *object, *ocase, *circle, *escape, *length, *level, *stream;
267 circle = ARGUMENT(2);
278 if (circle != UNSPEC)
279 LispAddVar(Oprint_circle, circle);
345 LispObj *level, *length, *circle, *oescape, *ocase;
365 circle = LispGetVar(Oprint_circle);
371 if (circle && circle != NIL) {
397 if (circle && circle != NIL && info.num_circles)
504 LispPrintCircle(LispObj *stream, LispObj *object, long circle,
509 if (!info->circles[circle].circle_nth) {
512 info->circles[circle].circle_nth = info->circle_count;
516 sprintf(stk, "#%ld#", info->circles[circle].circle_nth);
789 long circle = 0;
796 if (info->circles && (circle = LispCheckCircle(object, info)) >= 0) {
801 if (LispPrintCircle(stream, object, circle, &length, info) == 0) {
1345 long print_level = info->level, circle;
1347 if (info->circles && (circle = LispCheckCircle(object, info)) >= 0 &&
1348 LispPrintCircle(stream, object, circle, &length, info) == 0)
1479 long circle;
1484 if (info->circles && (circle = LispCheckCircle(object, info)) >= 0 &&
1485 LispPrintCircle(stream, object, circle, &length, info) == 0)