Sometimes the thread name is not simple?

vlime · Jan 26, 2023 · b6396d5 · b6396d5
1 parent ee564f6
commit b6396d5
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