/
/test.lisp
1 #|
2 cmake ./ && make || exit 1
3 # LD_PRELOAD causes utf8 decoding errors in sbcl
4 # in run-progam used by sysdef.cmake
5 sbcl --noinform --noprint --disable-debugger --load $0 --end-toplevel-options -c || exit 1
6 LD_PRELOAD=./util/libcl-smoke-disable-backtrace.so exec -a "$0" sbcl --noinform --noprint --disable-debugger --load $0 --end-toplevel-options
7 # do not use --script to allow loading mudballs with ${HOME}/.sbclrc
8 # Used for testing on darcs record.
9 |#
10
11 (in-package :sysdef-user)
12
13 (defun load-sysdef (pathname system)
14 (load pathname)
15 (setf (mb.sysdef::pathname-of (find-system system)) pathname))
16
17 (defun load-sysdef-file (system-name)
18 "Loads a mbd file in the current directory."
19 (load-sysdef (make-pathname :defaults *default-pathname-defaults*
20 :name (string-downcase system-name)
21 :type "mbd")
22 system-name))
23
24 (load-sysdef-file :kde)
25 (when (= 2 (length sb-ext:*posix-argv*))
26 (mb:load :kde)
27 (sb-ext:quit))
28
29 (mb:test :kde)
30
31 (sb-ext:quit)