From c37aa8cd389a7dfd102bbfd2b86f287d9c0be18c Mon Sep 17 00:00:00 2001
From: Guilherme Affonso <guilherme.c.affonso@gmail.com>
Date: Fri, 29 Mar 2019 23:20:36 +0900
Subject: [PATCH] Do not consume *print-length* on structure name

---
 lisp/c/printer.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/c/printer.c b/lisp/c/printer.c
index b38fad1b4..84fc66903 100644
--- a/lisp/c/printer.c
+++ b/lisp/c/printer.c
@@ -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);