diff options
-rw-r--r-- | utils.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -330,7 +330,7 @@ ELEMENT-TYPE as the stream's." #+clisp (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"))) - (time (cybertiggyr-time:parse-time *if-modified-since* date-recognizers))) + (time (cybertiggyr-time:parse-time *if-modified-since* date-recognisers))) (when (and (integerp time) (>= *if-modified-since* (compute-journal-last-modified-date))) (http-add-header "Status: 304 Not Modified") (http-send-headers) |