From 04a909c51c0e4e5fe1e3b88039f25a31ebc16049 Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Mon, 15 Feb 2021 21:13:48 +0100
Subject: [PATCH] prog1: add tests for empty body and multiple values in first
 form

---
 data-and-control-flow/prog1.lsp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/data-and-control-flow/prog1.lsp b/data-and-control-flow/prog1.lsp
index d7c53fd0..9392b099 100644
--- a/data-and-control-flow/prog1.lsp
+++ b/data-and-control-flow/prog1.lsp
@@ -46,3 +46,11 @@
   good)
 
 (def-macro-test prog1.error.1 (prog1 nil))
+
+(deftest prog1.8
+  (prog1 (values 'a 'b))
+  a)
+
+(deftest prog1.9
+  (prog1 (values))
+  nil)
-- 
GitLab