From: Christophe R. <cr...@us...> - 2006-05-28 12:24:20
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv30549/src/code Modified Files: target-pathname.lisp Log Message: 0.9.13.5: Fix for bug reported by James Y Knight sbcl-devel 2006-05-17 "merge-pathnames bug" ... don't let :back scribble over :relative Index: target-pathname.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/target-pathname.lisp,v retrieving revision 1.52 retrieving revision 1.53 diff -u -d -r1.52 -r1.53 --- target-pathname.lisp 28 May 2006 10:22:22 -0000 1.52 +++ target-pathname.lisp 28 May 2006 12:24:04 -0000 1.53 @@ -459,7 +459,7 @@ (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)) |