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 <gilbert at base-engineering.com>
 ;;;   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
 ;;