Commit b0ed937b authored by asmyles's avatar asmyles

update format string in syntax.lisp

darcs-hash:56642b87c2a137d4e6f792ae3a059b0325959119
parent 76c8234d
......@@ -48,6 +48,6 @@
(if *print-escape*
(let* ((*print-escape* nil)
(uri-string (print-object stream uri)))
(format stream "~A\"~A\"" uri-dmc uri-string))
(format stream "~A~S" uri-dmc uri-string))
(print-object stream uri))))
(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