more restrictive test naming

[sbcl.git] / tests / profile.impure.lisp

diff --git a/tests/profile.impure.lisp b/tests/profile.impure.lisp
index 721fdeb..95e4b7f 100644 (file)
--- a/tests/profile.impure.lisp
+++ b/tests/profile.impure.lisp
@@ -80,7 +80,7 @@
 
 (in-package :cl-user)
 
-(with-test (:name (profile threads))
+(with-test (:name (profile :threads))
   (profile "PROFILE-TEST")
   ;; This used to signal an error with threads
   (let* ((n #+sb-thread 5 #-sb-thread 1)