Sun Apr 5 19:56:16 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* initial import

--- old-qt.core/test.lisp 1970-01-01 01:00:00.000000000 +0100

+++ new-qt.core/test.lisp 2014-11-11 13:38:16.000000000 +0100

@@ -0,0 +1,21 @@

+#!/usr/bin/sbcl --script

+

+(load "/home/tobias/software/mudballs/boot.lisp")

+

+(in-package :sysdef-user)

+

+(defmacro with-extra-search-dir (path &body body)

+ "Executes BODY with PATH as additional search directory for Mudball systems."

+ `(let ((*custom-search-modules*

+ (pushnew (wildcard-searcher

+ (make-pathname :name :wild

+ :type "mbd"

+ :defaults ,path))

+ *custom-search-modules*)))

+ ,@body))

+

+(with-extra-search-dir *default-pathname-defaults*

+ (mb:clean :qt)

+ (mb:test :qt))

+

+(sb-ext:quit)