paku/website
1
0
Fork 0
Code Issues4 Pull requests Projects Releases Packages Wiki Activity Actions

Refactor

Browse source
This commit is contained in:
Akira Tempaku 2024-02-29 14:49:32 +09:00
commit 0d538e8e2d
1 changed files with 3 additions and 4 deletions

7
src/app.lisp
View file

@ -24,10 +24,9 @@
(update-routes) (update-routes)
(defun exist-public-file-p (path) (defun exist-public-file-p (path)
(and (not (string= path "/")) (let ((pathname (probe-file (concatenate 'string "public" path))))
(let ((pathname (probe-file (concatenate 'string "public" path)))) (and pathname
(and pathname (pathname-name pathname))))
(pathname-name pathname)))))
(defparameter *app* (defparameter *app*
(lack:builder :accesslog (lack:builder :accesslog