From 0d538e8e2d9caa3e93505e251b95b8e72a3baacd Mon Sep 17 00:00:00 2001 From: paku <paku@skyizwhite.dev> Date: Thu, 29 Feb 2024 14:49:32 +0900 Subject: [PATCH] Refactor --- src/app.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/app.lisp b/src/app.lisp index fd389ea..28b33f4 100644 --- a/src/app.lisp +++ b/src/app.lisp @@ -24,10 +24,9 @@ (update-routes) (defun exist-public-file-p (path) - (and (not (string= path "/")) - (let ((pathname (probe-file (concatenate 'string "public" path)))) - (and pathname - (pathname-name pathname))))) + (let ((pathname (probe-file (concatenate 'string "public" path)))) + (and pathname + (pathname-name pathname)))) (defparameter *app* (lack:builder :accesslog