X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-pathname.lisp;h=9121c1cb0ff7fc5b47a5b79a5767f9aa17d225a4;hb=5bf4a6a677c80a71dfa31b5c9c374f986594392f;hp=eaa6cb63b568e527fc3fb3256ad4eaae13943993;hpb=26148f0c8d7d35e1c5e1d363ade79552cbeb0386;p=sbcl.git

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index eaa6cb6..9121c1c 100644
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -625,7 +625,7 @@ a host-structure or string."
 	  (let ((potential-host
 		 (logical-word-or-lose (subseq namestr start colon))))
 	    ;; depending on the outcome of CSR comp.lang.lisp post
-	    ;; "can PARSE-NAMESTRING create logical hosts, we may need
+	    ;; "can PARSE-NAMESTRING create logical hosts", we may need
 	    ;; to do things with potential-host (create it
 	    ;; temporarily, parse the namestring and unintern the
 	    ;; logical host potential-host on failure.
@@ -683,7 +683,10 @@ a host-structure or string."
 	      ;; *DEFAULT-PATHNAME-DEFAULTS has a SB-IMPL::UNIX-HOST
 	      ;; for a host.
 	      ((pathname-host defaults)
-	       (funcall (host-parse (pathname-host defaults)) namestr start end))
+	       (funcall (host-parse (pathname-host defaults))
+			namestr
+			start
+			end))
 	      ;; I don't think we should ever get here, as the default
 	      ;; host will always have a non-null HOST, given that we
 	      ;; can't create a new pathname without going through