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