[closure-cvs] CVS update: closure/src/net/http.lisp

[Eric Marsden]

Update of /project/closure/cvsroot/closure/src/net
In directory common-lisp.net:/tmp/cvs-serv17830/net

Modified Files:
	http.lisp 
Log Message:
More removal of spurious debugging output, and conditionalization of
some output on *debug-tables*

Date: Tue Jul 19 22:42:09 2005
Author: emarsden

Index: closure/src/net/http.lisp
diff -u closure/src/net/http.lisp:1.7 closure/src/net/http.lisp:1.8
--- closure/src/net/http.lisp:1.7	Sun Jul 17 11:44:40 2005
+++ closure/src/net/http.lisp	Tue Jul 19 22:42:08 2005
@@ -529,6 +529,9 @@
                                        ;; xxx when exactly to cache?
                                        (and her-date her-expires
                                             (> her-expires her-date))))))
+             ;; the logic below is incomplete; it should also be looking at Cache-control: headers
+             ;; emarsden2005-07-19
+             #+(and) 
              (when cache-p
                (unless really-cache-p
                  (warn "~A will not be cached; cache-p = ~S; header: ~S"