X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Ftest.lisp;h=aacb11e8236f61520c961a889526cfa46cc51362;hb=b37e3f37f173eea9c8149109f73f9b34c6a1515c;hp=29e836189709a8f2f445b8f0ce86912a2741c452;hpb=5c649363640c2060387ed91132791e52e2c52c11;p=fiveam.git diff --git a/src/test.lisp b/src/test.lisp index 29e8361..aacb11e 100644 --- a/src/test.lisp +++ b/src/test.lisp @@ -56,7 +56,7 @@ If PROFILE is T profiling information will be collected as well." (when (consp name) (remf (cdr name) :suite)) (destructuring-bind (name &key depends-on (compile-at :run-time) fixture profile) - (append (ensure-list name) (default-test-args suite)) + (ensure-list name) (declare (type (member :run-time :definition-time) compile-at)) (let ((description (if (stringp (car body)) (pop body)