X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-pathname.lisp;h=bff90db738ecd89ca829e4333ab9b0ed88787145;hb=68ea71d0f020f2726e3c56c1ec491d0af734b3a4;hp=d8dd557b068b08ce65501f7381e1af999c9d0b69;hpb=6cb4f9ea3f4e35a5a8e75922833e14575ae92180;p=sbcl.git

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index d8dd557..bff90db 100644
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -459,7 +459,7 @@ the operating system native pathname conventions."
                  (if (and (eq dir :back)
                           results
                           (not (member (car results)
-                                       '(:back :wild-inferiors))))
+                                       '(:back :wild-inferiors :relative :absolute))))
                      (pop results)
                      (push dir results))))
           (dolist (dir (maybe-diddle-case dir2 diddle-case))