From 0a25f68f43a7ce0ff1da5a0b5caa9d4fbd7e2ba9 Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Sat, 7 Aug 1999 17:33:23 +0000 Subject: [PATCH] Small bug-fixes in URL printing and parsing. --- src/main/url.cl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/main/url.cl b/src/main/url.cl index 8e2a11e..7ff2fb7 100644 --- a/src/main/url.cl +++ b/src/main/url.cl @@ -154,7 +154,7 @@ don't provide a scheme by themselves.") (url-searchpart url))) (defmethod url-significant-string ((url url-http)) - (format nil "~:[~;//~A~@[:~A~]/~]~@[~A~]" + (format nil "~:[~2*~;//~A~@[:~A~]/~]~@[~A~]" (or (url-host url) (url-port url)) (url-host url) (url-port url) @@ -164,7 +164,7 @@ don't provide a scheme by themselves.") (declare (ignore scheme)) (let ((rest (subseq url start)) host port path searchpart) - (when (equal "//" (subseq rest 0 2)) + (when (and (> (length rest) 1) (equal "//" (subseq rest 0 2))) (let* ((rest-pos (position +url-path-separator+ rest :start 2)) (port-pos (position +url-host-port-separator+ rest :start 2 :end rest-pos)))