scratch/hash-table-perf 9b39cee78e3 12/35: * src/print.c (print_object): Don't print hash table test if `eql`.

[Mattias Engdegård]

branch: scratch/hash-table-perf
commit 9b39cee78e3ca2a669cb2986d3e6963e8c8cbbbe
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    * src/print.c (print_object): Don't print hash table test if `eql`.
    
    Since `eql` is the default, this ensures bidirectional compatibility
    while reducing the size of the external representation.
---
 src/print.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/print.c b/src/print.c
index 5d94d3fd4de..e5da033d312 100644
--- a/src/print.c
+++ b/src/print.c
@@ -2580,7 +2580,7 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, 
bool escapeflag)
                               HASH_TABLE_SIZE (h));
            strout (buf, len, len, printcharfun);
 
-           if (!NILP (h->test.name))
+           if (!BASE_EQ (h->test.name, Qeql))
              {
                print_c_string (" test ", printcharfun);
                print_object (h->test.name, printcharfun, escapeflag);