From 3995c4505fd4e2b5e3ed0c25a32cb527a0dc5f6c Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 10 Oct 2013 16:27:30 +0900
Subject: [PATCH] Writing out the pointer value of unwritable types.

---
 sexp.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/sexp.c b/sexp.c
index 7373ca52..b0932063 100644
--- a/sexp.c
+++ b/sexp.c
@@ -2000,6 +2000,8 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
             sexp_write_string(ctx, sexp_string_data(sexp_type_name(x)), out);
           else
             sexp_write(ctx, sexp_type_name(x), out);
+          sexp_write_char(ctx, ' ', out);
+          sexp_write(ctx, sexp_make_fixnum(obj), out);
           sexp_write_char(ctx, '>', out);
 #if SEXP_USE_TYPE_PRINTERS
         }