X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-pathname.lisp;h=33f4d8dff7ae011c6981d68fb5bf51daf0687a0c;hb=a7002797a1fb36ec3a7c30f6ebcb314b0e58e817;hp=eee1e6a5f038ddbe1b3531109b6c4028096dd83b;hpb=fb8e5ded0b56f50de2024efbcc9ce68b401415f5;p=sbcl.git

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index eee1e6a..33f4d8d 100644
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -858,7 +858,7 @@ a host-structure or string."
      (let* ((end (%check-vector-sequence-bounds namestr start end)))
        (multiple-value-bind (new-host device directory file type version)
            (cond
-             (host 
+             (host
               (funcall (host-parse-native host) namestr start end))
              ((pathname-host defaults)
               (funcall (host-parse-native (pathname-host defaults))