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