* 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.

diff --git a/src/print.c b/src/print.c
index e22f3b6778ceee7b974c4c8761ca779574ddc331..0a5f2ee48d4b06d5c5504c15a28771271b10cac5 100644 (file)
--- 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);