From eac7ea44a71ad254ded3b7e46832bfa4ef5b485c Mon Sep 17 00:00:00 2001
From: matthieupeeters <matthieupeeters@users.noreply.github.com>
Date: Sun, 4 Dec 2016 22:05:48 +0100
Subject: [PATCH] Update test-handlers.lisp

Fix finding the uploaded file for download in sbcl.
---
 test/test-handlers.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/test-handlers.lisp b/test/test-handlers.lisp
index 3ad6174..aba11e6 100644
--- a/test/test-handlers.lisp
+++ b/test/test-handlers.lisp
@@ -323,7 +323,7 @@ and see what's happening.")
   (let* ((path (get-parameter "path"))
          (file-info (and path
                          (find path *tmp-test-files*
-                               :key 'second :test 'equal))))
+                               :key 'second :test (lambda (a b) (equal a (namestring b)))))))
     (unless file-info
       (setf (return-code*) +http-not-found+)
       (return-from send-file))
-- 
2.11.4.GIT