paku/ningle-fbr
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Activity Actions

Remove dependency on quicklisp (#5)

Browse source
This commit is contained in:
Anthony Green 2024-12-28 07:41:05 -07:00 committed by GitHub
parent 1151e4adac
commit 90ac8ee8f5
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/router.lisp
View file

@ -7,6 +7,7 @@
#:regex-replace #:regex-replace
#:regex-replace-all) #:regex-replace-all)
(:import-from #:ningle) (:import-from #:ningle)
(:import-from #:trivial-system-loader)
(:export #:pathname->path (:export #:pathname->path
#:path->uri #:path->uri
#:path-package #:path-package
@ -54,7 +55,7 @@
:for path :in (detect-paths system target-dir-path) :for path :in (detect-paths system target-dir-path)
:for uri := (path->uri path) :for uri := (path->uri path)
:for pkg := (path->package path system target-dir-path) :for pkg := (path->package path system target-dir-path)
:do (ql:quickload pkg) :do (load-system pkg)
(if (string= uri "/not-found") (if (string= uri "/not-found")
(let ((handler (find-symbol "HANDLE-NOT-FOUND" pkg))) (let ((handler (find-symbol "HANDLE-NOT-FOUND" pkg)))
(defmethod ningle:not-found ((app ningle:app)) (defmethod ningle:not-found ((app ningle:app))