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