repos
/
kde.examples
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Replace mudballs with ASDF and support the modular Smoke.
Annotate for file src/package.lisp
2009-04-14 tobias
1
;;; Copyright 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
14:32:06 '
2
;;;
'
3
;;; Permission is hereby granted, free of charge, to any person
'
4
;;; obtaining a copy of this software and associated documentation
'
5
;;; files (the "Software"), to deal in the Software without
'
6
;;; restriction, including without limitation the rights to use,
'
7
;;; copy, modify, merge, publish, distribute, sublicense, and/or sell
'
8
;;; copies of the Software, and to permit persons to whom the
'
9
;;; Software is furnished to do so, subject to the following
'
10
;;; conditions:
'
11
;;;
'
12
;;; The above copyright notice and this permission notice shall be
'
13
;;; included in all copies or substantial portions of the Software.
'
14
;;;
'
15
;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
'
16
;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
'
17
;;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
'
18
;;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
'
19
;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
'
20
;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
'
21
;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
'
22
;;; OTHER DEALINGS IN THE SOFTWARE.
'
23
2010-04-03 tobias
24
(defpackage :cl-smoke.kde.examples
2009-04-02 tobias
25
(:use #:cl :bordeaux-threads #:cxx-support)
2010-04-03 tobias
26
(:nicknames :kde.examples)
2009-04-02 tobias
27
(:export #:hello-world
22:16:06 '
28
#:mandelbrot))
2010-04-03 tobias
29
17:19:09 '
30
(in-package :cl-smoke.kde.examples)
'
31
'
32
(defun test-all ()
'
33
(let ((qt:*exec-p* nil))
'
34
(do-external-symbols (example :cl-smoke.kde.examples)
'
35
(when (fboundp example)
'
36
(format *debug-io* "testing ~A~%"
'
37
(documentation (symbol-function example)
'
38
'function))
'
39
(funcall (symbol-function example))))))