Sometimes the thread name is not simple?

vlime · Sep 11, 2023 · 1d9ceb4 · 1d9ceb4
1 parent 2760bfc
commit 1d9ceb4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/swank/sbcl.lisp b/swank/sbcl.lisp
@@ -1684,7 +1684,7 @@ stack."
     (sb-thread:make-mutex :name "thread id map lock"))
 
   (defimplementation spawn (fn &key name)
-    (sb-thread:make-thread fn :name name))
+    (sb-thread:make-thread fn :name (coerce name 'simple-string)))
 
   (defimplementation thread-id (thread)
     (block thread-id