tests: Use CTYPE= instead of EQUAL.

Sometimes the compiler may use (MEMBER T NIL) instead of BOOLEAN.
phmarek · Sep 21, 2024 · 144b932 · 144b932
1 parent e3305fc
commit 144b932
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
@@ -3829,7 +3829,7 @@
       (assert (< d3 (* 10 short-avg))))))
 
 (with-test (:name :bug-384892)
-  (assert (equal
+  (assert (ctype=
            '(function (fixnum fixnum &key (:k1 boolean))
              (values (member t) &optional))
            (sb-kernel:%simple-fun-type