Commit 8162f13f8f11d81048ab3899c4a8db7fcd3cbade

Thomas de Grivel 2018-06-05T18:19:01

use str for content

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
diff --git a/thot.lisp b/thot.lisp
index 36f3380..153f9e2 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -336,10 +336,11 @@
 (defun 404-not-found ()
   (status "404 Not found")
   (header "Content-Type: text/plain")
-  (content (format nil "404 Not found
+  (content "404 Not found
 
-The requested url ~S was not found on this server."
-                   (request-target))))
+The requested url "
+           (request-target)
+           " was not found on this server."))
 
 (defun 404-not-found-handler ()
   '(404-not-found))