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