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

diff --git a/tests/symbol.pure.lisp b/tests/symbol.pure.lisp
index f5f9440..09be75f 100644
--- a/tests/symbol.pure.lisp
+++ b/tests/symbol.pure.lisp
@@ -20,11 +20,11 @@
     (assert (simple-string-p (symbol-name sym)))
     (print sym (make-broadcast-stream))))
 
-(with-test (:name (gentemp pprinter))
+(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))
+(with-test (:name (gensym :fixnum-restriction))
   (gensym (1+ most-positive-fixnum)))