Commit 517a95e4 authored by pfdietz's avatar pfdietz

Test that multiple-value-setq returns the primary value of the form even if no...

Test that multiple-value-setq returns the primary value of the form even if no variables are assigned
parent f1e0c28e
......@@ -107,6 +107,12 @@
collect (list i form)))
nil)
(deftest multiple-value-setq.13
(multiple-value-setq nil :good)
:good)
;;; Error tests
(deftest multiple-value-setq.error.1
(signals-error (funcall (macro-function 'multiple-value-setq))
program-error)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment