modular smoke & cleanup.
src/ui.lisp
Sun Jan 10 09:54:26 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* modular smoke & cleanup.
--- old-qt.examples/src/ui.lisp 2014-10-30 07:36:38.000000000 +0100
+++ new-qt.examples/src/ui.lisp 2014-10-30 07:36:38.000000000 +0100
@@ -12,6 +12,7 @@
(setf (cxx:file-name file)
(namestring
(qt:search-file "widget.ui"
+ *source-path*
*default-pathname-defaults*)))
(assert (cxx:exists file) (file)
"File ~A does not exists" (cxx:file-name file))