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

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)
(let ((directory (pathname-directory (car x))))
(let ((directory
(pathname-directory (car x)))))
(if (listp directory) (length directory) 0))))))))
(defun* ((setf output-translations)) (new-value) (set-output-translations new-value))
Supports Markdown
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