From c822c31fa68758dc46a02c5e82381456fab2b35d Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 7 Oct 2009 14:53:17 +0200 Subject: Don't crash when COMPUTE-JOURNAL-LAST-MODIFIED-DATE returns NIL. Ignore-this: 755d8ebf6cc4e3c433bfa2c50c31a05d darcs-hash:0e0f276459bedc1939b872dd373403848c02cc01 --- utils.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'utils.lisp') diff --git a/utils.lisp b/utils.lisp index 89c3bf4..d2a819e 100644 --- a/utils.lisp +++ b/utils.lisp @@ -330,8 +330,11 @@ 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"))) - (requested-time (cybertiggyr-time:parse-time *if-modified-since* date-recognisers))) - (when (and (integerp requested-time) (>= requested-time (compute-journal-last-modified-date))) + (requested-time (cybertiggyr-time:parse-time *if-modified-since* date-recognisers)) + (modified-time (compute-journal-last-modified-date))) + (when (and (integerp requested-time) + (integerp modified-time) + (>= requested-time modified-time)) (http-add-header "Status: 304 Not Modified") (http-send-headers) (ext:quit 0)))) -- cgit v1.2.3