X-Git-Url: http://git.kpe.io/?p=puri.git;a=blobdiff_plain;f=src.lisp;h=f231793792002fa34edea6fbddab93cb58912aa6;hp=e6c1eda9e2b0d02686046eb064d8c40c161aa87f;hb=d3d27bf76620df7a11cd1f6ef139174c208d54d4;hpb=912aa71fe60d5f6583807a1b510ee6114d5e883b

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)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;