Thu May 28 16:23:33 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* ASDF support

--- old-qt.examples/src/i18n-hello-world.lisp 2014-10-30 07:38:09.000000000 +0100

+++ new-qt.examples/src/i18n-hello-world.lisp 2014-10-30 07:38:09.000000000 +0100

@@ -8,10 +8,12 @@

(qt:with-app

;; ensures that the message catalogs are found regardless

;; of the current directory.

- (let ((source-path (directory-namestring

- (mb.sysdef:input-file

- (mb.sysdef:find-component :qt.examples "src"

- "i18n-hello-world")))))

+ (let ((source-path

+ #+mudballs (directory-namestring

+ (mb.sysdef:input-file

+ (mb.sysdef:find-component :qt.examples "src"

+ "i18n-hello-world")))

+ #-mudballs *default-pathname-defaults*))

(qt:with-translator ("hello-world"

*default-pathname-defaults*

source-path)