Test that thread names are always strings

sionescu · Jan 31, 2022 · d5692d9 · d5692d9
1 parent df9748c
commit d5692d9
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/apiv2/impl-ecl.lisp b/apiv2/impl-ecl.lisp
@@ -16,7 +16,8 @@
   mp:*current-process*)
 
 (defun %thread-name (thread)
-  (mp:process-name thread))
+  ;; Some system threads have symbols for a name.
+  (string (mp:process-name thread)))
 
 (defun %join-thread (thread)
   (mp:process-join thread))

diff --git a/test/tests-v2.lisp b/test/tests-v2.lisp
@@ -44,6 +44,10 @@
   (is (equal "foo" (thread-name
                     (make-thread (lambda () t) :name "foo")))))
 
+(test thread-name.all-strings
+  (is (every #'(lambda (thread) (stringp (thread-name thread)))
+             (all-threads))))
+
 (defparameter *some-special* :global-value)
 
 (test default-special-bindings.sees-global-bindings