diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 11:34:44 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 11:34:44 +0200 |
commit | 468ea3a95aa82824559da26f623b2f201983388b (patch) | |
tree | 7d336c6eecea3c0b450f4c7aadf7efaa2277faa5 /utils.lisp | |
parent | d5dc28513708e867aa744f77315a11542c609abf (diff) |
Introduce a *MODE* variable that distinguishes between static and dynamic mode.
Ignore-this: fada9480007419d11bed4ab86bb06c48
darcs-hash:dd4ba6d22a835ec8db31a88de184186429733563
Diffstat (limited to 'utils.lisp')
-rw-r--r-- | utils.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -368,6 +368,7 @@ ELEMENT-TYPE as the stream's." (excerpt-of comment)))) (defun revalidate-cache-or-die (content-type) + (when (eq *mode* :http) #+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"))) @@ -380,7 +381,7 @@ ELEMENT-TYPE as the stream's." (http-send-headers content-type) (ext:quit 0)))) #-clisp - nil) + nil)) (defun call-with-wsse-authentication (thunk) |