1 #|

2 exec -a "$0" sbcl --noinform --noprint --disable-debugger --load $0 --end-toplevel-options "$@"

3 # Used for testing on darcs record.

4 |#

5

6 (asdf:operate 'asdf:load-op :cl-smoke.qt.tests)

7 (asdf:operate 'asdf:test-op :cl-smoke.qt.tests)

8

9 (sb-ext:quit)