diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-07 14:50:47 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-07 14:50:47 +0200 |
| commit | d22a2222bd659d5ce43f85b173e7642e8b58e9f0 (patch) | |
| tree | 39d5613b3615a4c1a2ba37453dab234f6defa8ff /utils.lisp | |
| parent | 344585109c02018edd59da95248a4ea68b890471 (diff) | |
Fix another typo.
Ignore-this: 60f15a39618e88509d6409e0c729f1b0
darcs-hash:7d5b30cab9d62b04d03c3213c1f85182ec611098
Diffstat (limited to 'utils.lisp')
| -rw-r--r-- | utils.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -330,8 +330,8 @@ 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-recognisers))) - (when (and (integerp time) (>= *if-modified-since* (compute-journal-last-modified-date))) + (requested-time (cybertiggyr-time:parse-time *if-modified-since* date-recognisers))) + (when (and (integerp time) (>= requested-time (compute-journal-last-modified-date))) (http-add-header "Status: 304 Not Modified") (http-send-headers) (ext:quit 0)))) |