From 6142d3bd029f5bb8be29bea14a80afb0a7da78a2 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 7 Mar 2003 14:11:24 +0000 Subject: [PATCH] Type error checks for values-list. --- ansi-tests/values-list.lsp | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/ansi-tests/values-list.lsp b/ansi-tests/values-list.lsp index f48e9245..dd7f8b41 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)) -- GitLab