From d3d27bf76620df7a11cd1f6ef139174c208d54d4 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" 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 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))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- 2.34.1