X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fsymbol.pure.lisp;fp=tests%2Fsymbol.pure.lisp;h=f5f944079946af581287e5da7504fe320d2075c3;hb=35f68f481cbea35889d2488c476cbc28898e82f4;hp=ac30c8a5a5f70b61226602375ab0a92388be6806;hpb=9bc5da72887b15eb83500e16f05c3e42835476a3;p=sbcl.git

diff --git a/tests/symbol.pure.lisp b/tests/symbol.pure.lisp
index ac30c8a..f5f9440 100644
--- a/tests/symbol.pure.lisp
+++ b/tests/symbol.pure.lisp
@@ -25,3 +25,6 @@
     (set-pprint-dispatch 'string
                          (lambda (stream obj) (write-string "BAR-" stream)))
     (assert (string= "FOO-" (gentemp "FOO-") :end2 4))))
+
+(with-test (:name (gensym-fixnum-restriction))
+  (gensym (1+ most-positive-fixnum)))