From d3d27bf76620df7a11cd1f6ef139174c208d54d4 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sat, 2 Dec 2006 15:43:07 +0000
Subject: [PATCH] r11328: fix printing of unreadable objects

---
 debian/changelog | 6 ++++++
 src.lisp         | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 6a4262f..4b41975 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-puri (1.5.1-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Sat,  2 Dec 2006 08:42:15 -0700
+
 cl-puri (1.5-1) unstable; urgency=low
 
   * Incorporate updates from latest Franz release
diff --git a/src.lisp b/src.lisp
index e6c1eda..f231793 100644
--- a/src.lisp
+++ b/src.lisp
@@ -926,12 +926,12 @@ URI ~s contains illegal character ~s at position ~d."
 
 (defmethod print-object ((uri uri) stream)
   (if* *print-escape*
-     then (format stream "#<~a ~a>" 'uri (render-uri uri nil))
+     then (print-unreadable-object (uri stream :type t) (render-uri uri stream))
      else (render-uri uri stream)))
 
 (defmethod print-object ((urn urn) stream)
   (if* *print-escape*
-     then (format stream "#<~a ~a>" 'uri (render-urn urn nil))
+     then (print-unreadable-object (urn stream :type t) (render-urn urn stream))
      else (render-urn urn stream)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-- 
GitLab