diff --git a/ansi-tests/find.lsp b/ansi-tests/find.lsp index 7903e9f905439882fb54f83380049726151ef437..bf1b615c5e8b6288ab61afac289ccd18110dd84a 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 a513a72bb206822cdec94fe36935cb28bb7c59e1..4e5ad6ab6b6f1f9bd150d8029af3982e822d356c 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 94205ce4d433385ae97f99c196bb42459e2d9530..623e288375f9cc467a24a42b6d6d86d3119e5cb0 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)