From 6e539d91c8279d81f80a0f21a5b138967b4889ec Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 13 Jul 2004 12:46:40 +0000
Subject: [PATCH] Completed error tests for SYMBOL-NAME

---
 ansi-tests/symbol-name.lsp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/ansi-tests/symbol-name.lsp b/ansi-tests/symbol-name.lsp
index f2e962e3..3c07259f 100644
--- a/ansi-tests/symbol-name.lsp
+++ b/ansi-tests/symbol-name.lsp
@@ -33,6 +33,8 @@
   (symbol-name :|abcdefg|)
   "abcdefg")
 
+;;; Error tests
+
 (deftest symbol-name.error.1
   (signals-error (symbol-name) program-error)
   t)
@@ -41,3 +43,11 @@
   (signals-error (symbol-name 'a 'b) program-error)
   t)
 
+(deftest symbol-name.error.3
+  (loop for x in *mini-universe*
+	for form = `(signals-error (symbol-name ',x) type-error)
+	unless (or (symbolp x) (eval form))
+	collect x)
+  nil)
+
+
-- 
GitLab