Sun Jan 10 09:54:26 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* modular smoke & cleanup.

--- old-qt.examples/src/package.lisp 2014-10-30 07:36:36.000000000 +0100

+++ new-qt.examples/src/package.lisp 2014-10-30 07:36:36.000000000 +0100

@@ -12,9 +12,24 @@

#:tick-tack-toe

#:repl

-

#:play-video

+ ;;#:origami

#:launcher

#:load-ui-file))

+

+(in-package #:qt.examples)

+

+(defvar *source-path*

+ #.(asdf:component-pathname (asdf:find-component

+ (asdf:find-system :cl-smoke.qt.examples) "src")))

+

+(defun test-all ()

+ (let ((qt:*exec-p* nil))

+ (do-external-symbols (example :qt.examples)

+ (when (fboundp example)

+ (format *debug-io* "testing ~A~%"

+ (documentation (symbol-function example)

+ 'function))

+ (funcall (symbol-function example))))))