Commit 586ac9f0 authored by asmyles's avatar asmyles

use output-to-string instead of stream

darcs-hash:1766d8171cd641932207ecdcc22b9c8386b6ab37
parent 6402a9b5
......@@ -47,7 +47,8 @@
(flet ((uri (stream uri)
(if *print-escape*
(let* ((*print-escape* nil)
(uri-string (print-object uri stream)))
(uri-string (with-output-to-string (s)
(print-object uri s))))
(format stream "~A~S" uri-dmc uri-string))
(print-object uri stream))))
(set-pprint-dispatch 'uri (function uri) 1 table)))
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment