| H A D | write.c | 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; local in function:Lisp_Write 267 circle = ARGUMENT(2); 278 if (circle != UNSPEC) 279 LispAddVar(Oprint_circle, circle); 345 LispObj *level, *length, *circle, *oescape, *ocase; local in function:LispWriteObject 365 circle = LispGetVar(Oprint_circle); 371 if (circle && circle ! 504 LispPrintCircle(LispObj * stream,LispObj * object,long circle,int * length,write_info * info) argument 789 long circle = 0; local in function:LispWriteList 1345 long print_level = info->level, circle; local in function:LispWriteArray 1479 long circle; local in function:LispWriteStruct [all...] |