Skip to content
Snippets Groups Projects
Commit 3f849e77 authored by pfdietz's avatar pfdietz
Browse files

Added test of setf to null VALUES form. Fixed DO-SYMBOLS tests so that...

Added test of setf to null VALUES form.  Fixed DO-SYMBOLS tests so that duplicates are removed (this fixes a false failure in CMUCL).
parent a779329a
No related branches found
No related tags found
No related merge requests found
...@@ -7,9 +7,10 @@ ...@@ -7,9 +7,10 @@
(declaim (optimize (safety 3))) (declaim (optimize (safety 3)))
(deftest do-symbols-1 (deftest do-symbols-1
(equal (equalt
(sort-symbols (let ((all nil)) (remove-duplicates
(do-symbols (x "B" all) (push x all)))) (sort-symbols (let ((all nil))
(do-symbols (x "B" all) (push x all)))))
(list (find-symbol "BAR" "B") (list (find-symbol "BAR" "B")
(find-symbol "FOO" "A"))) (find-symbol "FOO" "A")))
t) t)
...@@ -19,14 +20,16 @@ ...@@ -19,14 +20,16 @@
;; ;;
(defun collect-symbols (pkg) (defun collect-symbols (pkg)
(sort-symbols (remove-duplicates
(let ((all nil)) (sort-symbols
(do-symbols (x pkg all) (push x all))))) (let ((all nil))
(do-symbols (x pkg all) (push x all))))))
(defun collect-external-symbols (pkg) (defun collect-external-symbols (pkg)
(sort-symbols (remove-duplicates
(let ((all nil)) (sort-symbols
(do-external-symbols (x pkg all) (push x all))))) (let ((all nil))
(do-external-symbols (x pkg all) (push x all))))))
(deftest do-symbols-2 (deftest do-symbols-2
(collect-symbols "DS1") (collect-symbols "DS1")
...@@ -66,9 +69,9 @@ ...@@ -66,9 +69,9 @@
()) ())
(deftest do-external-symbols-5 (deftest do-external-symbols-5
(not (equal (collect-external-symbols "KEYWORD") (equalt (collect-external-symbols "KEYWORD")
(collect-symbols "KEYWORD"))) (collect-symbols "KEYWORD"))
nil) t)
;; Test that do-symbols, do-external-symbols work without ;; Test that do-symbols, do-external-symbols work without
;; a return value (and that the default return value is nil) ;; a return value (and that the default return value is nil)
...@@ -111,7 +114,7 @@ ...@@ -111,7 +114,7 @@
(list (list
(do-symbols (do-symbols
(s "DS1") (s "DS1")
(when (equal (symbol-name s) "C") (go bar)) (when (equalt (symbol-name s) "C") (go bar))
(push s x) (push s x)
(go foo) (go foo)
bar bar
...@@ -127,7 +130,7 @@ ...@@ -127,7 +130,7 @@
(list (list
(do-external-symbols (do-external-symbols
(s "DS1") (s "DS1")
(when (equal (symbol-name s) "A") (go bar)) (when (equalt (symbol-name s) "A") (go bar))
(push s x) (push s x)
(go foo) (go foo)
bar bar
......
...@@ -181,6 +181,9 @@ ...@@ -181,6 +181,9 @@
(values a i x y z)) (values a i x y z))
#(foo bar) 3 1 2 3) #(foo bar) 3 1 2 3)
(deftest setf-values.6
(setf (values) (values)))
;;; Section 5.1.2.4 ;;; Section 5.1.2.4
(deftest setf-the.1 (deftest setf-the.1
(let ((x 1)) (let ((x 1))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment