repos
/
commonqt
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
Annotate for file test.lisp
2009-07-02 tobias
1
#|
17:34:07 '
2
MALLOC_CHECK_=3 sbcl --noinform --disable-debugger --noprint --load $0 --end-toplevel-options "$@" || exit 1
'
3
exit 0
'
4
# do not use --script to allow loading mudballs with ${HOME}/.sbclrc
'
5
# Used for testing on darcs record.
'
6
|#
'
7
'
8
'
9
(in-package :sysdef-user)
'
10
'
11
(defun load-sysdef (pathname system)
'
12
(load pathname)
'
13
(setf (mb.sysdef::pathname-of (find-system system)) pathname))
'
14
'
15
(defun load-sysdef-file (system-name file-name)
'
16
"Loads a mbd file in the current directory."
'
17
(load-sysdef (make-pathname :defaults *default-pathname-defaults*
'
18
:name file-name
'
19
:type "mbd")
'
20
system-name))
'
21
'
22
(load-sysdef-file :cl-smoke.commonqt "commonqt")
'
23
(mb:test :cl-smoke.commonqt)
'
24
'
25
(sb-ext:quit)