From 7ab7284e88b82fdf31d55187f893e815a551ef38 Mon Sep 17 00:00:00 2001
From: paku <paku@skyizwhite.dev>
Date: Thu, 13 Jun 2024 21:01:22 +0900
Subject: [PATCH] Use absolute path instead

---
 src/main.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/main.lisp b/src/main.lisp
index 0c3632a..995b04d 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -47,7 +47,7 @@
     (mapcar (lambda (pathname)
               (cons (pathname->url pathname dir-namestring)
                     (pathname->package pathname system-path-namestring system-prefix)))
-            (dir->pathnames dir))))
+            (dir->pathnames dir-namestring))))
 
 (defparameter *http-request-methods*
   '(:GET :POST :PUT :DELETE :HEAD :CONNECT :OPTIONS :PATCH))