master 4ba6954e695 01/20: * src/print.c (print_object): Don't print hash table test if `eql`.

[Mattias Engdegård]

branch: master
commit 4ba6954e69528f89dc12bf968dec845601b1b24b
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 e22f3b6778c..0a5f2ee48d4 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);