From 468ea3a95aa82824559da26f623b2f201983388b Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 11 Oct 2009 11:34:44 +0200
Subject: Introduce a *MODE* variable that distinguishes between static and
 dynamic mode.

Ignore-this: fada9480007419d11bed4ab86bb06c48

darcs-hash:dd4ba6d22a835ec8db31a88de184186429733563
---
 utils.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'utils.lisp')

diff --git a/utils.lisp b/utils.lisp
index 4bae17e..ff24ae9 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -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)
-- 
cgit v1.2.3