From thenriksen at common-lisp.net Mon Nov 6 19:41:56 2006 From: thenriksen at common-lisp.net (thenriksen) Date: Mon, 06 Nov 2006 19:41:56 -0000 Subject: [closure-cvs] CVS closure/src/net Message-ID: <20061106194156.BE4789@common-lisp.net> Update of /project/closure/cvsroot/closure/src/net In directory clnet:/tmp/cvs-serv23002/src/net Modified Files: http.lisp Log Message: Make Closure capable of connecting to non-port 80 URLs. --- /project/closure/cvsroot/closure/src/net/http.lisp 2005/07/19 20:42:08 1.8 +++ /project/closure/cvsroot/closure/src/net/http.lisp 2006/11/06 19:41:56 1.9 @@ -348,7 +348,9 @@ (header (append (if (and (or *send-host-field-never-the-less-p* proxyp) (not (member :host header :test #'string-equal :key #'car))) - (list (cons "Host" host)) + (if (and (numberp (url:url-port url)) (not (= (url:url-port url) 80))) + (list (cons "Host" (format nil "~A:~A" host (url:url-port url)))) + (list (cons "Host" host))) nil) (if *referer* (list (cons "Referer" (if (url:url-p *referer*) From thenriksen at common-lisp.net Mon Nov 6 19:43:01 2006 From: thenriksen at common-lisp.net (thenriksen) Date: Mon, 06 Nov 2006 19:43:01 -0000 Subject: [closure-cvs] CVS closure/src/renderer Message-ID: <20061106194301.5D18DB@common-lisp.net> Update of /project/closure/cvsroot/closure/src/renderer In directory clnet:/tmp/cvs-serv23083/src/renderer Modified Files: renderer2.lisp Log Message: Remove compiler-killing evil character from comment. --- /project/closure/cvsroot/closure/src/renderer/renderer2.lisp 2005/08/25 15:03:54 1.14 +++ /project/closure/cvsroot/closure/src/renderer/renderer2.lisp 2006/11/06 19:43:01 1.15 @@ -4,7 +4,7 @@ ;;; Created: somewhen late 2002 ;;; Author: Gilbert Baumann ;;; License: MIT style (see below) -;;; $Id: renderer2.lisp,v 1.14 2005/08/25 15:03:54 crhodes Exp $ +;;; $Id: renderer2.lisp,v 1.15 2006/11/06 19:43:01 thenriksen Exp $ ;;; --------------------------------------------------------------------------- ;;; (c) copyright 1997-2003 by Gilbert Baumann @@ -4707,7 +4707,7 @@ ;; test44: a few problems with inline images: ;; . vertical border and padding is not accounted for in line height calculation -;; . border and image co?rdinates are out of synch vertically. +;; . border and image coordinates are out of synch vertically. ;; => We need to talk again about geometry. ;; ;; The "bottom" of a replaced object is the bottom including margin, padding and border. @@ -4969,6 +4969,9 @@ ;; $Log: renderer2.lisp,v $ +;; Revision 1.15 2006/11/06 19:43:01 thenriksen +;; Remove compiler-killing evil character from comment. +;; ;; Revision 1.14 2005/08/25 15:03:54 crhodes ;; turn off table debugging ;;