diff --git a/ansi-tests/values-list.lsp b/ansi-tests/values-list.lsp index f48e9245fdd76a4a39989053fade332e6e99449f..dd7f8b41abf110f279a3a04c340f4904e090cbba 100644 --- a/ansi-tests/values-list.lsp +++ b/ansi-tests/values-list.lsp @@ -13,6 +13,14 @@ (classify-error (values-list nil nil)) program-error) +(deftest values-list.error.3 + (classify-error (values-list 'a)) + type-error) + +(deftest values-list.error.4 + (classify-error (values-list '(a b c . d))) + type-error) + (deftest values-list.1 (values-list nil))