X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fsymbol.pure.lisp;h=09be75f975912a2faa3d37562db4a49daf91af0a;hb=1cba0af01f5107ab384d0d8b94b1f6330b3d0ef4;hp=b7f3f2652b826f877be88193877856a108e7c861;hpb=3f1617677f5af09b4e23ea345945df945b043e1c;p=sbcl.git

diff --git a/tests/symbol.pure.lisp b/tests/symbol.pure.lisp
index b7f3f26..09be75f 100644
--- a/tests/symbol.pure.lisp
+++ b/tests/symbol.pure.lisp
@@ -19,3 +19,12 @@
                                       :adjustable t :initial-contents "X"))))
     (assert (simple-string-p (symbol-name sym)))
     (print sym (make-broadcast-stream))))
+
+(with-test (:name (gentemp :pprinter))
+  (let* ((*print-pprint-dispatch* (copy-pprint-dispatch)))
+    (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)))