;; :weakly-depends-on loaded the system to late to use #+feature for ;; components; thus we load them earlyer. (dolist (system '(:cl-smoke.qt.webkit :cl-smoke.qt.uitools :cl-smoke.qt.phonon)) (when (asdf:find-system system nil) (asdf:oos 'asdf:load-op system))) (defsystem :cl-smoke.qt.examples :name :cl-smoke.qt.examples :version (0 0 1) :author "Tobias Rautenkranz" :license "X11 & GPL" :description "Qt examples." :depends-on (:cl-smoke.qt.gui) ;;:cl-opengl :cl-glu :cl-smoke.qt.opengl) :components ((:module "src" :components ((:file "package") (:file "hello-world" :depends-on ("package")) #+qt.phonon (:file "video" :depends-on ("package")) (:file "hello-world-quit" :depends-on ("package")) (:file "i18n-hello-world" :depends-on ("package")) (:file "tick-tack-toe" :depends-on ("package")) (:file "launcher" :depends-on ("package")) #+qt.uitools (:file "ui" :depends-on ("package")) (:file "repl" :depends-on ("package")) #+qt.webkit (:file "class-browser" :depends-on ("package")) (:module "qt" :depends-on ("package") :components ((:file "analog-clock") (:file "xmlstreamlint") (:file "colliding-mice"))))))) ;;(:module "origami" ;; :depends-on ("package") ;; :components ;; ((:file "origami" :depends-on ("tri")) ;; (:file "tri"))))))) (defmethod perform ((o test-op) (c (eql (find-system :cl-smoke.qt.examples)))) (funcall (intern (string :test-all) (string :qt.examples))))