Commit 1a547fc3 authored by Eric Timmons's avatar Eric Timmons
Browse files

Handle :BACK or :UP in result of UIOP:PARSE-UNIX-NAMESTRING 

It seems that at least CCL returns pathnames with :UP, even if :BACK is
explicitly used.
parent 0e5525a0

src/define-component.lisp

+2 −1
Original line number Diff line number Diff line
@@ -31,7 +31,8 @@ component." 
      (let ((relative-path (uiop:parse-unix-namestring id :want-relative t))

            (path (reverse parent-path)))

        (dolist (dir (rest (pathname-directory relative-path)))

          (if (eql :back dir)

          (if (or (eql :back dir)

                  (eql :up dir))

              (pop path)

              (push dir path)))

        (push (pathname-name relative-path) path)