| write.c | 67 /* used while building circle info */ 125 Oprint_circle = STATIC_ATOM("*PRINT-CIRCLE*"); 256 write object &key case circle escape length level lines pretty readably right-margin stream 261 LispObj *object, *ocase, *circle, *escape, *length, *level, *stream; local 267 circle = ARGUMENT(2); 278 if (circle != UNSPEC) 279 LispAddVar(Oprint_circle, circle); 345 LispObj *level, *length, *circle, *oescape, *ocase; local 365 circle = LispGetVar(Oprint_circle); 371 if (circle && circle != NIL) 789 long circle = 0; local 1345 long print_level = info->level, circle; local 1479 long circle; local [all...] |