Sun Dec 13 13:44:37 CET 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Support ASDF instead of Mudballs.

--- old-qt.gui/test.lisp 2014-10-30 07:43:07.000000000 +0100

+++ new-qt.gui/test.lisp 2014-10-30 07:43:07.000000000 +0100

@@ -1,25 +1,9 @@

#|

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

-# do not use --script to allow loading mudballs with ${HOME}/.sbclrc

# Used for testing on darcs record.

|#

-

-(in-package :sysdef-user)

-

-(defun load-sysdef (pathname system)

- (load pathname)

- (setf (mb.sysdef::pathname-of (find-system system)) pathname))

-

-(defun load-sysdef-file (system-name)

- "Loads a mbd file in the current directory."

- (load-sysdef (make-pathname :defaults *default-pathname-defaults*

- :name (string-downcase system-name)

- :type "mbd")

- system-name))

-

-(load-sysdef-file :qt)

-(mb:clean :qt)

-(mb:test :qt)

+(asdf:operate 'asdf:load-op :qt)

+(asdf:operate 'asdf:test-op :qt)

(sb-ext:quit)