[Sbcl-commits] CVS: sbcl/contrib/asdf-install installer.lisp,1.6,1.7

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/asdf-install
In directory sc8-pr-cvs1:/tmp/cvs-serv3432/contrib/asdf-install

Modified Files:
	installer.lisp 
Log Message:
0.8.6.18:
	ASDF-INSTALL fix (parse *proxy* properly, as per Sean Ross sbcl-devel
	2003-10-23)
	... start parse-integer at the right place
	SHOW patchery from Nikodemus Siivola (sbcl-devel 2003-11-28)


Index: installer.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/asdf-install/installer.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- installer.lisp	10 Nov 2003 23:44:22 -0000	1.6
+++ installer.lisp	30 Nov 2003 15:49:04 -0000	1.7
@@ -99,7 +99,7 @@
 (defun url-port (url)
   (assert (string-equal url "http://" :end1 7))
   (let ((port-start (position #\: url :start 7)))
-    (if port-start (parse-integer url :start port-start :junk-allowed t) 80)))
+    (if port-start (parse-integer url :start (1+ port-start) :junk-allowed t) 80)))
 
 (defun url-connection (url)
   (let ((s (make-instance 'inet-socket :type :stream :protocol :tcp))