diff --git a/data-and-control-flow/prog1.lsp b/data-and-control-flow/prog1.lsp index d7c53fd04985b63341c3c60d10757be9705debc8..9392b0991b1c487989e06244143c30074d0d6884 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)