From b260dc21b0fe8425794088d6c40d2cfc9bb25512 Mon Sep 17 00:00:00 2001 From: Hans Huebner Date: Sun, 3 Mar 2013 18:31:24 +0100 Subject: [PATCH] handle-if-modified-since earlier when handling static files --- misc.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/misc.lisp b/misc.lisp index bd637c5..1f38865 100644 --- a/misc.lisp +++ b/misc.lisp @@ -167,12 +167,12 @@ via the file's suffix." "application/octet-stream") (header-out :last-modified) (rfc-1123-date time) (header-out :accept-ranges) "bytes") + (handle-if-modified-since time) (with-open-file (file pathname :direction :input :element-type 'octet) (setf bytes-to-send (maybe-handle-range-header file) (content-length*) bytes-to-send) - (handle-if-modified-since time) (let ((out (send-headers)) (buf (make-array +buffer-length+ :element-type 'octet))) (loop -- 2.11.4.GIT