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

Two more tests for (multiple-value-setq () ...)

parent 59e9e751
No related branches found
No related tags found
No related merge requests found
......@@ -111,6 +111,14 @@
(multiple-value-setq nil :good)
:good)
(deftest multiple-value-setq.14
(multiple-value-setq nil (values))
nil)
(deftest multiple-value-setq.15
(multiple-value-setq nil (values 'a 'b))
a)
;;; Error tests
(deftest multiple-value-setq.error.1
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment