mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Print the address of the foreign data in ffi objects

Browse source
This commit is contained in:
jjgarcia 2004-11-23 15:09:41 +00:00
parent 6b771da508
commit 3b2fe13154
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/print.d
View file

@ -16,7 +16,9 @@
#include <string.h>
#include "ecl.h"
#ifndef _MSC_VER
#include <math.h>
#endif
#include <ctype.h>
#ifndef _MSC_VER
#include <unistd.h>
@ -1316,7 +1318,8 @@ si_write_ugly_object(cl_object x, cl_object stream)
case t_foreign:
if (ecl_print_readably()) FEprint_not_readable(x);
write_str("#<foreign ", stream);
/*_write_ugly_object(x->foreign.tag, level);*/
si_write_ugly_object(x->foreign.tag, stream);
write_ch(' ', stream);
write_addr((cl_object)x->foreign.data, stream);
write_ch('>', stream);
break;