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