From: Maciek Pasternacki <maciekp@japhy.fnord.org>
Date: Sun, 10 Feb 2008 17:12:24 +0000 (+0100)
Subject: Don't inline package object in ECL (breaks compilation).
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=47e54369152b69e10aa6b6e60ad9ccb68deb00b0;p=fiveam.git

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

diff --git a/src/test.lisp b/src/test.lisp
index aacb11e..7de4941 100644
--- 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