Fix make-array transforms.

[sbcl.git] / tests / bug204-test.lisp

diff --git a/tests/bug204-test.lisp b/tests/bug204-test.lisp
index c11cda9..cb97647 100644 (file)
--- a/tests/bug204-test.lisp
+++ b/tests/bug204-test.lisp
@@ -1,9 +1,12 @@
-;;;; Test of EVAL-WHEN inside a local environment
+;;;; a test of EVAL-WHEN inside a local environment (which will be
+;;;; compiled and loaded, and have its side effects checked, by some
+;;;; other file which runs automatically as part of the test suite)
+
 (cl:in-package :cl-user)
 
 (macrolet ((def (x)
-             (push `(:expanded ,x) *bug204-test-status*)
-             `(push `(:called ,',x) *bug204-test-status*)))
+             (pushnew `(:expanded ,x) *bug204-test-status* :test #'equalp)
+             `(pushnew `(:called ,',x) *bug204-test-status* :test #'equalp)))
   (eval-when (:compile-toplevel)
     (def :compile-toplevel))
   (eval-when (:load-toplevel)