From: Juho S. <js...@us...> - 2006-11-09 20:34:59
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv20526/src/code Modified Files: target-pathname.lisp Log Message: 0.9.18.42: TRANSLATE-PATHNAME was selecting the version component from FROM-WILDCARD rather than SOURCE. (Reported by Josip Gracin, apparently causing trouble for cl-darcs). Index: target-pathname.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/target-pathname.lisp,v retrieving revision 1.56 retrieving revision 1.57 diff -u -d -r1.56 -r1.57 --- target-pathname.lisp 28 Oct 2006 09:57:01 -0000 1.56 +++ target-pathname.lisp 9 Nov 2006 20:34:33 -0000 1.57 @@ -1270,8 +1270,9 @@ (frob %pathname-name) (frob %pathname-type) (if (eq from-host *unix-host*) - (if (eq (%pathname-version to) :wild) - (%pathname-version from) + (if (or (eq (%pathname-version to) :wild) + (eq (%pathname-version to) nil)) + (%pathname-version source) (%pathname-version to)) (frob %pathname-version))))))))) |