mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

Print readably hash tables using the EXT:HASH-TABLE-FILL

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-10 19:00:09 +01:00
parent 75c332b452
commit 05a46aca0b
1 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/c/printer/write_ugly.d
View file

@ -148,7 +148,21 @@ write_package(cl_object x, cl_object stream)
static void
write_hashtable(cl_object x, cl_object stream)
{
_ecl_write_unreadable(x, "hash-table", Cnil, stream);
if (ecl_print_readably() && !Null(ecl_symbol_value(@'*read-eval*'))) {
cl_object make =
cl_list(9, @'make-hash-table',
@':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));
cl_object init =
cl_list(3, @'ext::hash-table-fill', make,
cl_list(2, @'quote', si_hash_table_content(x)));
writestr_stream("#.", stream);
si_write_ugly_object(init, stream);
} else {
_ecl_write_unreadable(x, "hash-table", Cnil, stream);
}
}
static void