From 3f849e771dae645feebe615d22022c19aafb96fd Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 25 Oct 2002 01:50:56 +0000
Subject: [PATCH] Added test of setf to null VALUES form.  Fixed DO-SYMBOLS
 tests so that duplicates are removed (this fixes a false failure in CMUCL).

---
 ansi-tests/packages-17.lsp | 31 +++++++++++++++++--------------
 ansi-tests/places.lsp      |  3 +++
 2 files changed, 20 insertions(+), 14 deletions(-)

diff --git a/ansi-tests/packages-17.lsp b/ansi-tests/packages-17.lsp
index edb0931e..677c7579 100644
--- a/ansi-tests/packages-17.lsp
+++ b/ansi-tests/packages-17.lsp
@@ -7,9 +7,10 @@
 (declaim (optimize (safety 3)))
 
 (deftest do-symbols-1
-  (equal
-   (sort-symbols (let ((all nil))
-		   (do-symbols (x "B" all) (push x all))))
+  (equalt
+   (remove-duplicates
+    (sort-symbols (let ((all nil))
+		    (do-symbols (x "B" all) (push x all)))))
    (list (find-symbol "BAR" "B")
 	 (find-symbol "FOO" "A")))
   t)
@@ -19,14 +20,16 @@
 ;;
 
 (defun collect-symbols (pkg)
-  (sort-symbols
-   (let ((all nil))
-     (do-symbols (x pkg all) (push x all)))))
+  (remove-duplicates
+   (sort-symbols
+    (let ((all nil))
+      (do-symbols (x pkg all) (push x all))))))
 
 (defun collect-external-symbols (pkg)
-  (sort-symbols
-   (let ((all nil))
-     (do-external-symbols (x pkg all) (push x all)))))
+  (remove-duplicates
+   (sort-symbols
+    (let ((all nil))
+      (do-external-symbols (x pkg all) (push x all))))))
 
 (deftest do-symbols-2
     (collect-symbols "DS1")
@@ -66,9 +69,9 @@
   ())
 
 (deftest do-external-symbols-5
-    (not (equal (collect-external-symbols "KEYWORD")
-		(collect-symbols "KEYWORD")))
-  nil)
+    (equalt (collect-external-symbols "KEYWORD")
+	    (collect-symbols "KEYWORD"))
+  t)
 
 ;; Test that do-symbols, do-external-symbols work without
 ;; a return value (and that the default return value is nil)
@@ -111,7 +114,7 @@
      (list
       (do-symbols
        (s "DS1")
-       (when (equal (symbol-name s) "C") (go bar))
+       (when (equalt (symbol-name s) "C") (go bar))
        (push s x)
        (go foo)
        bar
@@ -127,7 +130,7 @@
      (list
       (do-external-symbols
        (s "DS1")
-       (when (equal (symbol-name s) "A") (go bar))
+       (when (equalt (symbol-name s) "A") (go bar))
        (push s x)
        (go foo)
        bar
diff --git a/ansi-tests/places.lsp b/ansi-tests/places.lsp
index e7f811c4..caf7815f 100644
--- a/ansi-tests/places.lsp
+++ b/ansi-tests/places.lsp
@@ -181,6 +181,9 @@
     (values a i x y z))
   #(foo bar) 3 1 2 3)
 
+(deftest setf-values.6
+  (setf (values) (values)))
+
 ;;; Section 5.1.2.4
 (deftest setf-the.1
   (let ((x 1))
-- 
GitLab