X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-pathname.lisp;h=ed0c63d0713e6baaa97b0ce2a61924517b59be63;hb=c712f88b26cd7547ee984b90e18c134401335bc3;hp=b791566bd8ce2aa153b9ae3ce52516229a6f275b;hpb=1a61f069111cb6f7263852b73eea1bd8cda9ef68;p=sbcl.git

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index b791566..ed0c63d 100644
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -863,7 +863,7 @@ a host-structure or string."
   (cond
     (junk-allowed
      (handler-case
-         (%parse-namestring namestr host defaults start end nil)
+         (%parse-native-namestring namestr host defaults start end nil as-directory)
        (namestring-parse-error (condition)
          (values nil (namestring-parse-error-offset condition)))))
     (t