repos
/
smoke
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Allow deriving from multiple C++ classes.
Annotate for file test.lisp
2009-04-06 tobias
1
#|
2009-08-30 tobias
2
echo \
14:12:44 '
3
"################
'
4
## Testing sbcl
'
5
################"
2009-06-22 tobias
6
MALLOC_CHECK_=3 sbcl --noinform --disable-debugger --noprint --load $0 --end-toplevel-options "$@" || exit 1
2009-08-30 tobias
7
echo \
14:12:44 '
8
"###############
'
9
## Testing sbcl image
'
10
################"
2010-01-10 tobias
11
sh ./test-bundle.sh || exit 2
2009-08-30 tobias
12
echo \
14:12:44 '
13
"###############
'
14
## Testing ccl
'
15
################"
2009-06-30 tobias
16
ccl --batch --quiet --load $0 || exit 3
2009-05-14 tobias
17
exit 0
2009-12-13 tobias
18
# do not use --script to allow loading mudballs with ${HOME}/.sbclrc
2009-04-06 tobias
19
# Used for testing on darcs record.
11:48:20 '
20
|#
'
21
2009-12-13 tobias
22
12:43:58 '
23
(in-package :sysdef-user)
'
24
'
25
(defun load-sysdef (pathname system)
'
26
(load pathname)
'
27
(setf (mb.sysdef::pathname-of (find-system system)) pathname))
'
28
'
29
(defun load-sysdef-file (system-name)
'
30
"Loads a mbd file in the current directory."
'
31
(load-sysdef (make-pathname :defaults *default-pathname-defaults*
'
32
:name (string-downcase system-name)
'
33
:type "mbd")
'
34
system-name))
'
35
'
36
(load-sysdef-file :smoke)
'
37
;(mb:load :FiveAm)
'
38
;(setf 5am:*debug-on-failure* t)
'
39
;(setf 5am:*debug-on-error* t)
'
40
(mb:test :smoke)
2009-04-06 tobias
41
2009-06-30 tobias
42
#+sbcl (sb-ext:quit)
22:47:39 '
43
#+ccl (ccl:quit)