mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

Printer addresses

Browse source
This commit is contained in:
Daniel Kochmański 2018-05-04 08:38:33 +00:00
parent 07391b9ced
commit ca0962cdb3
5 changed files with 40 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/printer/write_array.d
View file

@ -39,7 +39,7 @@ write_array_inner(bool vector, cl_object x, cl_object stream)
} else {
if (!ecl_print_array()) {
writestr_stream(vector? "#<vector " : "#<array ", stream);
_ecl_write_addr(x, stream);
_ecl_write_addr((void *)x, stream);
ecl_write_char('>', stream);
return;
}
@ -189,7 +189,7 @@ _ecl_write_bitvector(cl_object x, cl_object stream)
{
if (!ecl_print_array() && !ecl_print_readably()) {
writestr_stream("#<bit-vector ", stream);
_ecl_write_addr(x, stream);
_ecl_write_addr((void *)x, stream);
ecl_write_char('>', stream);
} else {
cl_index ndx;