From 344585109c02018edd59da95248a4ea68b890471 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 7 Oct 2009 14:49:35 +0200 Subject: Fix a typo. Ignore-this: 5932a32cdc0b7b249f59e0aceb34290e darcs-hash:70f0e0aecb47de2ff2d601a4befef44f014a0412 --- utils.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'utils.lisp') diff --git a/utils.lisp b/utils.lisp index f874323..087c9ce 100644 --- a/utils.lisp +++ b/utils.lisp @@ -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) -- cgit v1.2.3