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