From c7a2b0094b462d4d0e66cfbb2ba8fb12bfd2b6a4 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 13 Oct 2002 10:42:08 +0000
Subject: [PATCH] Fixed seven busted tests, spotted by Alexey Dejneka:

--------------

Hello,

Thank you for your tests. They have shown two new bugs in the SBCL
compiler (in addition to >160 failed tests).

I think the following tests are wrong:

map-string.30: (SIMPLE-VECTOR size), not (SIMPLE-VECTOR type)

map-array.7: ARRAY is not a subtype of SEQUENCE

map-array.8: SIMPLE-ARRAY is not a subtype of SEQUENCE

map-string.31: --"--

map-string.32: (SIMPLE-ARRAY CHARACTER 5) is a 5-dimensional array

find-error.4, position-error.4: see CLHS 1.4.2 for 'should be prepared
to signal an error'

-- Regards, Alexey Dejneka
---
 ansi-tests/find.lsp     |  2 +-
 ansi-tests/map.lsp      | 14 +++++++-------
 ansi-tests/position.lsp |  2 +-
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/ansi-tests/find.lsp b/ansi-tests/find.lsp
index 7903e9f9..bf1b615c 100644
--- a/ansi-tests/find.lsp
+++ b/ansi-tests/find.lsp
@@ -720,7 +720,7 @@
 
 (deftest find-error.4
   (locally (declare (optimize (safety 3)))
-	   (handler-case (find 'a '(a b c . d))
+	   (handler-case (find 'e '(a b c . d))
 			 (type-error () :type-error)
 			 (error (c) c)))
   :type-error)
diff --git a/ansi-tests/map.lsp b/ansi-tests/map.lsp
index a513a72b..4e5ad6ab 100644
--- a/ansi-tests/map.lsp
+++ b/ansi-tests/map.lsp
@@ -122,18 +122,18 @@
   "abcde")
 
 (deftest map-string.30
-  (map '(simple-vector character) #'identity '(#\a #\b #\c #\d #\e))
+  (map '(simple-vector 5) #'identity '(#\a #\b #\c #\d #\e))
   "abcde")
 
 ;;; Use a more elaborate form of the simple-array type specifier
-(deftest map-string.31
-  (map '(simple-array character *) #'identity "abcde")
-  "abcde")
+;;; (deftest map-string.31
+;;;  (map '(simple-array character *) #'identity "abcde")
+;;;  "abcde")
 
 ;;; Use a more elaborate form of the simple-array type specifier
-(deftest map-string.32
-  (map '(simple-array character 5) #'identity "abcde")
-  "abcde")
+;;; (deftest map-string.32
+;;;  (map '(simple-array character 5) #'identity "abcde")
+;;;   "abcde")
 
 (deftest map-nil.33
   (let ((a nil))
diff --git a/ansi-tests/position.lsp b/ansi-tests/position.lsp
index 94205ce4..623e2883 100644
--- a/ansi-tests/position.lsp
+++ b/ansi-tests/position.lsp
@@ -586,7 +586,7 @@
 
 (deftest position-error.4
   (locally (declare (optimize (safety 3)))
-	   (handler-case (position 'a '(a b c . d))
+	   (handler-case (position 'e '(a b c . d))
 			 (type-error () :type-error)
 			 (error (c) c)))
   :type-error)
-- 
GitLab