picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit cb53a8bf7cb8d0fa3eacd6bbdee869561828b4a4
parent 32eeb8416f5407400a8f334d559f7f92fab4d53d
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 24 May 2012 19:03:00 +0200

Minor: Increased some 'max-age' defaults
Diffstat:
Mlib/http.l | 10+++++-----
1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/http.l b/lib/http.l @@ -1,4 +1,4 @@ -# 21mar12abu +# 24may12abu # (c) Software Lab. Alexander Burger # *Home *Gate *Host *Port *Port1 *Port% *Http1 *Chunked @@ -20,18 +20,18 @@ (`(chop "gif") "image/gif" 3600) (`(chop "tif") "image/tiff" 3600) (`(chop "tiff") "image/tiff" 3600) - (`(chop "bmp") "image/bmp" 3600) - (`(chop "png") "image/png" 3600) + (`(chop "bmp") "image/bmp" 86400) + (`(chop "png") "image/png" 86400) (`(chop "jpg") "image/jpeg" 3600) (`(chop "jpeg") "image/jpeg" 3600) (`(chop "txt") "text/octet-stream" 1 T) (`(chop "csv") "text/csv; charset=utf-8" 1 T) (`(chop "css") "text/css" 3600) - (`(chop "js") "application/x-javascript" 3600) + (`(chop "js") "application/x-javascript" 86400) (`(chop "ps") "application/postscript" 1) (`(chop "pdf") "application/pdf" 1) (`(chop "zip") "application/zip" 1) - (`(chop "jar") "application/java-archive" 3600) ) + (`(chop "jar") "application/java-archive" 86400) ) (de mime (S . @) (let L (chop S)