Fix lack-middleware-backtrace and tests of lack-middleware-static for…

… CLISP support.
fukamachi · Aug 19, 2015 · fd0ca96 · fd0ca96
1 parent 0e13680
commit fd0ca96
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/src/middleware/backtrace.lisp b/src/middleware/backtrace.lisp
@@ -23,7 +23,7 @@
                ((or pathname string)
                 (with-open-file (out output
                                      :direction :output
-                                     :external-format :utf-8
+                                     :external-format #+clisp charset:utf-8 #-clisp :utf-8
                                      :if-exists :append
                                      :if-does-not-exist :create)
                   (print-error condition env out))))))

diff --git a/t/middleware/static.lisp b/t/middleware/static.lisp
@@ -22,7 +22,8 @@
         (funcall app (generate-env "/public/jellyfish.jpg"))
       (is status 200)
       (is (getf headers :content-type) "image/jpeg")
-      (is body (asdf:system-relative-pathname :lack #P"data/jellyfish.jpg")))
+      (is (namestring body)
+          (namestring (asdf:system-relative-pathname :lack #P"data/jellyfish.jpg"))))
 
     (destructuring-bind (status headers body)
         (funcall app (generate-env "/public/hoge.png"))
@@ -64,7 +65,8 @@
         (funcall app (generate-env "/static/jellyfish.jpg"))
       (is status 200)
       (is (getf headers :content-type) "image/jpeg")
-      (is body (asdf:system-relative-pathname :lack #P"data/jellyfish.jpg")))
+      (is (namestring body)
+          (namestring (asdf:system-relative-pathname :lack #P"data/jellyfish.jpg"))))
 
     (is (car (funcall app (generate-env "/static/not-found.png"))) 404)))