Skip to content
Snippets Groups Projects
Commit d3d27bf7 authored by Kevin M. Rosenberg's avatar Kevin M. Rosenberg
Browse files

r11328: fix printing of unreadable objects

parent 912aa71f
No related branches found
No related tags found
No related merge requests found
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 cl-puri (1.5-1) unstable; urgency=low
* Incorporate updates from latest Franz release * Incorporate updates from latest Franz release
......
...@@ -926,12 +926,12 @@ URI ~s contains illegal character ~s at position ~d." ...@@ -926,12 +926,12 @@ URI ~s contains illegal character ~s at position ~d."
(defmethod print-object ((uri uri) stream) (defmethod print-object ((uri uri) stream)
(if* *print-escape* (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))) else (render-uri uri stream)))
(defmethod print-object ((urn urn) stream) (defmethod print-object ((urn urn) stream)
(if* *print-escape* (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))) else (render-urn urn stream)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment