From 00a5b33e013c7aaef0a4e8c5c8c266852397bfa9 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@juanjo-imac.local>
Date: Thu, 3 Sep 2009 16:55:33 +0200
Subject: [PATCH] Weak pointers can now be printed.

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

diff --git a/src/c/print.d b/src/c/print.d
index 8fbe7117c..9dc6e15e4 100644
--- a/src/c/print.d
+++ b/src/c/print.d
@@ -1580,6 +1580,12 @@ si_write_ugly_object(cl_object x, cl_object stream)
 		write_addr((void*)x->frame.base, stream);
 		write_ch('>', stream);
 		break;
+	case t_weak_pointer:
+		if (ecl_print_readably()) FEprint_not_readable(x);
+		write_str("#<weak-pointer ", stream);
+		write_addr(x, stream);
+		write_ch('>', stream);
+		break;
 #ifdef ECL_THREADS
 	case t_process:
 		if (ecl_print_readably()) FEprint_not_readable(x);