summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--utils.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/utils.lisp b/utils.lisp
index e73b7e4..89c3bf4 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -331,7 +331,7 @@ ELEMENT-TYPE as the stream's."
(when *if-modified-since*
(let* ((date-recognisers (mapcar #'cybertiggyr-time::make-fmt-recognizer '("%A, %d-%B-%y %H:%M:%S GMT" "%A, %d %B %Y %H:%M:%S GMT" "%A %B %d %H:%M:%S %Y")))
(requested-time (cybertiggyr-time:parse-time *if-modified-since* date-recognisers)))
- (when (and (integerp time) (>= requested-time (compute-journal-last-modified-date)))
+ (when (and (integerp requested-time) (>= requested-time (compute-journal-last-modified-date)))
(http-add-header "Status: 304 Not Modified")
(http-send-headers)
(ext:quit 0))))