Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 50ba000)
#276 [PATCH]: printing hashtables readably is broken
authorPhilipp Marek <philipp@marek.priv.at>
Sat, 22 Feb 2014 11:27:26 +0000 (12:27 +0100)
committerPhilipp Marek <philipp@marek.priv.at>
Sat, 22 Feb 2014 11:27:26 +0000 (12:27 +0100)
https://sourceforge.net/p/ecls/bugs/276/
Thanks, Stas.

src/c/printer/write_ugly.d patch | blob | blame | history

diff --git a/src/c/printer/write_ugly.d b/src/c/printer/write_ugly.d
index e732994..5d15cd0 100644 (file)
--- a/src/c/printer/write_ugly.d
+++ b/src/c/printer/write_ugly.d
@@ -154,7 +154,7 @@ write_hashtable(cl_object x, cl_object stream)
                                @':size', cl_hash_table_size(x),
                                @':rehash-size', cl_hash_table_rehash_size(x),
                                @':rehash-threshold', cl_hash_table_rehash_threshold(x),
-                               @':test', cl_hash_table_test(x));
+                               @':test', cl_list(2, @'quote', cl_hash_table_test(x)));
                cl_object init =
                        cl_list(3, @'ext::hash-table-fill', make,
                                cl_list(2, @'quote', si_hash_table_content(x)));
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)