Commit da300abd authored by Karsten Poeck's avatar Karsten Poeck

Verify that gensym errors with negative *gensym-counter*

parent 4392c977
......@@ -114,3 +114,20 @@
(signals-error (gensym "FOO" nil) program-error)
t)
;;;
(deftest gensym.error.10
(signals-error
(let ((*gensym-counter* -1))
(gensym))
type-error)
t)
(deftest gensym.error.11
(signals-error
(let ((*gensym-counter* (1- most-negative-fixnum)))
(gensym))
type-error)
t)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment