0.7.8.48:

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

diff --git a/tests/bug204-test.lisp b/tests/bug204-test.lisp
index c11cda9..a1f0fc6 100644 (file)
--- a/tests/bug204-test.lisp
+++ b/tests/bug204-test.lisp
@@ -2,8 +2,8 @@
 (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)