diff --git a/ansi-tests/cons-test-04.lsp b/ansi-tests/cons-test-04.lsp index 0053f0dd9a23858da5f705136c04876e1cbc4ff1..7162c8409e225d064d518eddc7566048a27ef254 100644 --- a/ansi-tests/cons-test-04.lsp +++ b/ansi-tests/cons-test-04.lsp @@ -410,3 +410,8 @@ (deftest adjoin.error.9 (classify-error (adjoin 'a '(b c) :key #'cons)) program-error) + +(deftest adjoin.error.10 + (classify-error (adjoin 'a (list* 'b 'c 'd))) + type-error) + diff --git a/ansi-tests/cons-test-18.lsp b/ansi-tests/cons-test-18.lsp index 46526b259e64b2fe06451532c2422557a38eae57..771dd9d508ed22239ab77bcb150e01ea69b098c9 100644 --- a/ansi-tests/cons-test-18.lsp +++ b/ansi-tests/cons-test-18.lsp @@ -79,15 +79,15 @@ program-error) (deftest get-properties.error.4 - (classify-error (get-properties '(a 1 b 2 c 3) '(a . b))) + (classify-error (get-properties '(a 1 b 2 c 3) '(x . y))) type-error) (deftest get-properties.error.5 - (classify-error (get-properties '(a 1 b 2 c 3 . d) '(a z))) + (classify-error (get-properties '(a 1 b 2 c 3 . d) '(x y))) type-error) (deftest get-properties.error.6 - (classify-error (get-properties '(a 1 b 2 c . d) '(a z))) + (classify-error (get-properties '(a 1 b 2 c . d) '(x y))) type-error) diff --git a/ansi-tests/cons-test-24.lsp b/ansi-tests/cons-test-24.lsp index a010e17db4f6d8eeef7cbd5bf8374204f7e05de6..8d0ed9c62f93302a94c72ae068ac10a0413a0ab6 100644 --- a/ansi-tests/cons-test-24.lsp +++ b/ansi-tests/cons-test-24.lsp @@ -254,5 +254,5 @@ type-error) (deftest subsetp.error.12 - (classify-error (subsetp (list* 1 2 3) (list 4 5 6))) + (classify-error (subsetp (list* 1 2 3) (list 1 2 3 4 5 6))) type-error)