Permalink
Browse files

* src/code/win32-pathname.lisp (unparse-native-win32-namestring): reo…

…rdered merge-pathname args, clarified the intent.
  • Loading branch information...
1 parent 3d0a92d commit 48728e69d8d128ede9f62588103f8101bd4222d4 @akovalenko committed Aug 17, 2011
Showing with 4 additions and 3 deletions.
  1. +4 −3 src/code/win32-pathname.lisp
@@ -256,13 +256,14 @@
(absolutep (and device (eql :absolute (car directory)))))
(when name-present-p
(setf as-file nil))
- (when absolutep
+ (when (and absolutep (member :up directory))
+ ;; employ merge-pathnames to parse :BACKs into which we turn :UPs
(setf directory
(pathname-directory
(merge-pathnames
+ (make-pathname :defaults pathname :directory '(:relative))
(make-pathname :defaults pathname
- :directory (substitute :back :up directory))
- pathname))))
+ :directory (substitute :back :up directory))))))
(coerce
(with-output-to-string (s)
(when absolutep

0 comments on commit 48728e6

Please sign in to comment.