Commit e3a12ccfc9fec914eef8be2b89d7878ac34373ad
2018-05-30T12:11:06
use str more
diff --git a/thot.lisp b/thot.lisp
index 632c8d1..cf30e21 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -355,8 +355,7 @@ The requested url ~S was not found on this server."
(content
(with-output-to-string (o)
(flet ((w (&rest parts)
- (dolist (p parts)
- (write-sequence o p))))
+ (write-str o parts)))
(w "<html>
<head>
<title>" (h dir) "</title>