Don't inline package object in ECL (breaks compilation).

[fiveam.git] / src / test.lisp

diff --git a/src/test.lisp b/src/test.lisp
index aacb11e..7de4941 100644 (file)
--- a/src/test.lisp
+++ b/src/test.lisp
@@ -69,7 +69,9 @@ If PROFILE is T profiling information will be collected as well."
         `(progn
            (setf (get-test ',name) (make-instance 'test-case
                                                   :name ',name
-                                                  :runtime-package ,*package*
+                                                  :runtime-package
+                                                  #-ecl ,*package*
+                                                  #+ecl (find-package ,(package-name *package*))
                                                   :test-lambda
                                                   (lambda ()
                                                     ,@ (ecase compile-at