From 9dcb1674cd00bb5a5e4d0fcb3ef6c6a8e7dbb72c Mon Sep 17 00:00:00 2001
From: Niten <niten@fudo.org>
Date: Fri, 16 Apr 2021 17:00:57 -0500
Subject: [PATCH] Require base-uri for feeds

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

diff --git a/src/server.lisp b/src/server.lisp
index 6dd069f..3db1f5d 100644
--- a/src/server.lisp
+++ b/src/server.lisp
@@ -12,7 +12,7 @@
 (defvar *feeds* (make-hash-table :test 'equalp))
 
 (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."))
   (if-let ((verified-path (probe-file path)))
     (progn (when (pathname-name verified-path)