X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-cover%2Ftest-data-2.lisp;h=ad9a1c16e354423bf36b28d73076e4791f4c3ee5;hb=25c1769e30ff7404b52a9be663626d87f8ff75bc;hp=3ba20cebe8be72a3c6049abf1106b4f3622d352a;hpb=49e92ee57b3b01f5862d0c6fa65f521de1688941;p=sbcl.git

diff --git a/contrib/sb-cover/test-data-2.lisp b/contrib/sb-cover/test-data-2.lisp
index 3ba20ce..ad9a1c1 100644
--- a/contrib/sb-cover/test-data-2.lisp
+++ b/contrib/sb-cover/test-data-2.lisp
@@ -6,6 +6,11 @@
       (incf a))
     a))
 
+;;; Test for a bad interaction between *READ-SUPPRESS* and #. in
+;;; source location recording.
+(identity #+sbcl #.1
+          #+cmu #.3)
+
 ;;; This test would show that we do correct detection of non-cons
 ;;; source forms in non-PROGN-contexts. Which we don't, so this test
 ;;; is commented out.