Tue May 19 17:16:49 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Search paths in with-translator
diff -rN -u old-qt.gui/src/i18n.lisp new-qt.gui/src/i18n.lisp
--- old-qt.gui/src/i18n.lisp 2014-10-30 07:01:26.000000000 +0100
+++ new-qt.gui/src/i18n.lisp 2014-10-30 07:01:26.000000000 +0100
@@ -25,7 +25,8 @@
(find-if #'(lambda (path)
(cxx:load ,translator
(format nil "~A_~A" ,base-name
- (cxx:name (qt:locale.system)))))
+ (cxx:name (qt:locale.system)))
+ (namestring path)))
(list ,@paths))
(cerror "Ignore" "Loading the translations ~A for ~A failed."
,base-name (cxx:name (qt:locale.system))))