From dca345fa34480ca511197f58efc4848fda283556 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 8 Mar 2003 00:50:28 +0000
Subject: [PATCH] Added dotted list test for ADJOIN; fixed broken tests
 elsewhere.

---
 ansi-tests/cons-test-04.lsp | 5 +++++
 ansi-tests/cons-test-18.lsp | 6 +++---
 ansi-tests/cons-test-24.lsp | 2 +-
 3 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/ansi-tests/cons-test-04.lsp b/ansi-tests/cons-test-04.lsp
index 0053f0dd..7162c840 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 46526b25..771dd9d5 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 a010e17d..8d0ed9c6 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)
-- 
GitLab