From 3b2fe1315435ba73fd8000bd36a2df536a8bbe25 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 23 Nov 2004 15:09:41 +0000
Subject: [PATCH] Print the address of the foreign data in ffi objects

---
 src/c/print.d | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/c/print.d b/src/c/print.d
index 695da2284..7f6ef0485 100644
--- a/src/c/print.d
+++ b/src/c/print.d
@@ -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;