Permalink
Browse files

Just use write-string.

  • Loading branch information...
ruricolist committed Jan 4, 2018
1 parent ec29a77 commit 06b280612aff07cf376f593746d080230f2c7462
Showing with 1 addition and 1 deletion.
  1. +1 −1 run.lisp
@@ -121,7 +121,7 @@
((= (length string) 0))
(pre?
(let ((stream (html-stream.base-stream html)))
(fast-format stream "~A" string)))
(write-string string stream)))
(pretty?
(let* ((start-col (get-indent))
(fill *fill-column*)

0 comments on commit 06b2806

Please sign in to comment.