From ac295d84f7e9ed366c37096b088ba258a2546df9 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 28 Jun 2005 14:17:44 +0000
Subject: [PATCH] Two more tests for (multiple-value-setq () ...)

---
 ansi-tests/multiple-value-setq.lsp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/ansi-tests/multiple-value-setq.lsp b/ansi-tests/multiple-value-setq.lsp
index 905417c5..62fe5edb 100644
--- a/ansi-tests/multiple-value-setq.lsp
+++ b/ansi-tests/multiple-value-setq.lsp
@@ -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
-- 
GitLab