Commit 22d4c162 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

output-translations: normalize directories before sorting by their length

parent ba041345
......@@ -49,7 +49,9 @@ and the order is by decreasing length of namestring of the source pathname.")
(etypecase (car x)
((eql t) -1)
(pathname
(let ((directory (pathname-directory (car x))))
(let ((directory
(normalize-pathname-directory-component
(pathname-directory (car x)))))
(if (listp directory) (length directory) 0))))))))
new-value)
(defun* ((setf output-translations)) (new-value) (set-output-translations new-value))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment