summaryrefslogtreecommitdiff
path: root/utils.lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 14:49:35 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 14:49:35 +0200
commit344585109c02018edd59da95248a4ea68b890471 (patch)
treec0f62e02f6ada668728c620e4c0932f74f9314af /utils.lisp
parent62733f2641749f363d1d758f8d531b71b6d6edbf (diff)
Fix a typo.
Ignore-this: 5932a32cdc0b7b249f59e0aceb34290e darcs-hash:70f0e0aecb47de2ff2d601a4befef44f014a0412
Diffstat (limited to 'utils.lisp')
-rw-r--r--utils.lisp2
1 files changed, 1 insertions, 1 deletions
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)