Fix make-array transforms.

[sbcl.git] / contrib / sb-cover / test-data-2.lisp

diff --git a/contrib/sb-cover/test-data-2.lisp b/contrib/sb-cover/test-data-2.lisp
index 3ba20ce..ad9a1c1 100644 (file)
--- 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.