diff --git a/ansi-tests/symbol-name.lsp b/ansi-tests/symbol-name.lsp index f2e962e37d733c1c89898d031630288bae66c840..3c07259f182a4527a138ab37ad24131385b2b3f8 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) + +