Skip to content

Commit

Permalink
Do not consume *print-length* on structure name
Browse files Browse the repository at this point in the history
  • Loading branch information
Affonso-Gui committed Dec 21, 2019
1 parent d14f75c commit 86a65f1
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion lisp/c/printer.c
Original file line number Diff line number Diff line change
Expand Up @@ -515,8 +515,8 @@ int prlevel;
writestr(f,(byte *)"#s(",3);
klass=classof(x);
printsym(ctx,klass->c.cls.name,f);
// structure name is always printed, and do not consume *print-length*
s=objsize(x); varvec=klass->c.cls.vars->c.vec.v;
prlength--;
while (i<s && (nullprlen || prlength>0)) {
writech(f,' ');
printsym(ctx,varvec[i],f);
Expand Down

0 comments on commit 86a65f1

Please sign in to comment.