src/package.lisp
Sat Apr 3 19:19:09 CEST 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Replace mudballs with ASDF and support the modular Smoke.
--- old-kde.examples/src/package.lisp 2014-10-09 13:13:50.000000000 +0200
+++ new-kde.examples/src/package.lisp 2014-10-09 13:13:50.000000000 +0200
@@ -21,7 +21,19 @@
;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
;;; OTHER DEALINGS IN THE SOFTWARE.
-(defpackage :kde.examples
+(defpackage :cl-smoke.kde.examples
(:use #:cl :bordeaux-threads #:cxx-support)
+ (:nicknames :kde.examples)
(:export #:hello-world
#:mandelbrot))
+
+(in-package :cl-smoke.kde.examples)
+
+(defun test-all ()
+ (let ((qt:*exec-p* nil))
+ (do-external-symbols (example :cl-smoke.kde.examples)
+ (when (fboundp example)
+ (format *debug-io* "testing ~A~%"
+ (documentation (symbol-function example)
+ 'function))
+ (funcall (symbol-function example))))))