repos
/
qt.examples
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
modular smoke & cleanup.
Annotate for file src/package.lisp
2009-04-14 tobias
1
;;; Copyright 2009 Tobias Rautenkranz
14:29:22 '
2
;;; License: X11 license
'
3
2009-04-05 tobias
4
(defpackage #:qt.examples
15:36:46 '
5
(:use #:cl #:cxx-support)
'
6
(:export #:hello-world
'
7
#:i18n-hello-world
'
8
#:hello-world-quit
'
9
#:hello-world-gc
'
10
'
11
#:class-browser
'
12
'
13
#:tick-tack-toe
'
14
#:repl
2009-07-22 tobias
15
#:play-video
2010-01-10 tobias
16
;;#:origami
2009-04-05 tobias
17
15:36:46 '
18
#:launcher
'
19
'
20
#:load-ui-file))
2010-01-10 tobias
21
08:54:26 '
22
(in-package #:qt.examples)
'
23
'
24
(defvar *source-path*
'
25
#.(asdf:component-pathname (asdf:find-component
'
26
(asdf:find-system :cl-smoke.qt.examples) "src")))
'
27
'
28
(defun test-all ()
'
29
(let ((qt:*exec-p* nil))
'
30
(do-external-symbols (example :qt.examples)
'
31
(when (fboundp example)
'
32
(format *debug-io* "testing ~A~%"
'
33
(documentation (symbol-function example)
'
34
'function))
'
35
(funcall (symbol-function example))))))