From 517a95e47b73d41666d697ce48b579c5259fcf8f Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 24 Jun 2005 14:11:45 +0000 Subject: [PATCH] Test that multiple-value-setq returns the primary value of the form even if no variables are assigned --- ansi-tests/multiple-value-setq.lsp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/ansi-tests/multiple-value-setq.lsp b/ansi-tests/multiple-value-setq.lsp index 2327cf86..905417c5 100644 --- a/ansi-tests/multiple-value-setq.lsp +++ b/ansi-tests/multiple-value-setq.lsp @@ -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) -- GitLab