1 files changed, 10 insertions, 0 deletions
diff --git a/utils.lisp b/utils.lisp
index 74030b8..590d310 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -325,3 +325,13 @@ ELEMENT-TYPE as the stream's."
                 (submitter-user-agent comment)
                 (spamp comment)
                 (body-of comment))))
+
+(defun revalidate-cache-or-die ()
+  #+clisp
+    (let ((time (cybertiggyr-time:parse-time *if-modified-since*)))
+      (when (and (integerp time) (>= *if-modified-since* (compute-journal-last-modified-date)))
+        (http-add-header "Status: 304 Not Modified")
+        (http-send-headers)
+        (ext:quit 0)))
+  #-clisp
+    nil)