informis
/
cl-gemini
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Require base-uri for feeds

This commit is contained in:
Niten 2021-04-16 17:00:57 -05:00
parent 1d5075c232
commit 9dcb1674cd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/server.lisp
View File

@ -12,7 +12,7 @@
(defvar *feeds* (make-hash-table :test 'equalp)) (defvar *feeds* (make-hash-table :test 'equalp))
(defun register-feed (&key base-uri name title path) (defun register-feed (&key base-uri name title path)
(when (not (and name title path)) (when (not (and base-uri name title path))
(error "Must specify :name, :title, and :path for feeds.")) (error "Must specify :name, :title, and :path for feeds."))
(if-let ((verified-path (probe-file path))) (if-let ((verified-path (probe-file path)))
(progn (when (pathname-name verified-path) (progn (when (pathname-name verified-path)