Commit c7a2b009 authored by pfdietz's avatar pfdietz

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
parent 6e40acc3
......@@ -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)
......@@ -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))
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment