diff --git a/symbols/gensym.lsp b/symbols/gensym.lsp index 40e8da6bff811e203274bd7d3b88f40324a270e5..f8f287ed2d13c4744a31443c0a0dcce2965d70e0 100644 --- a/symbols/gensym.lsp +++ b/symbols/gensym.lsp @@ -130,4 +130,11 @@ type-error) t) +(deftest gensym.error.12 + (signals-error + (let ((*gensym-counter* 'defun)) + (gensym)) + type-error) + t) +