OSCL/PURI
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

r11328: fix printing of unreadable objects

Browse Source
This commit is contained in:
Kevin M. Rosenberg
2006-12-02 15:43:07 +00:00
parent 912aa71fe6
commit d3d27bf766
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src.lisp
View File

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