1.0.36.13: Fix test case clos.impure.lisp / BUG-520366.

[sbcl.git] / tests / clos.impure.lisp

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index b0f0490..6bb7e26 100644 (file)
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -1803,6 +1803,6 @@
      TAG)))
 (with-test (:name :bug-520366)
   (let ((callees (find-named-callees #'bar-520366)))
-    (assert (equal (list #'quux) callees))))
+    (assert (equal (list #'quux-520366) callees))))
 
 ;;;; success